2022年VB练习题含答案 .pdf

《2022年VB练习题含答案 .pdf》由会员分享，可在线阅读，更多相关《2022年VB练习题含答案 .pdf（30页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、1 第一部分1 在窗体上添加一个命令按钮(名称为 Cmd1，标题为 输出平均值 )。程序运行后， 单击命令按钮完成以下工作：随机产生 20个0到1000的整数，将其放入一个一维数组中求出所有元素的平均值，并显示在窗体上(如下图所示 )Private Sub Cmd1_Click() Dim a%(19), i%, sum!, aver! Randomize For i = 0 To 19 a(i) = Int(Rnd * 1001) sum = sum + a(i) Next i aver = sum / 20 Print aver End Sub 2 请在名称为 Form1的窗体上添加一个名

2、称为Text1的文本框和一个名称为C1、标题为 转换的命令按钮，如下图所示。在程序运行时，单击转换 按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。Private Sub C1_Click() Dim ch As String, ch1 As String, i% ch = Text1 For i = 1 To Len(ch) If Asc(Mid(ch, i, 1) = 65 And Asc(Mid(ch, i, 1) max Then max = a(i) Next i Print max End Sub 4 请设计如下图所示窗体界面。程序运行时，在选中一

3、个或两个复选框和一个单选按钮时，单击命令按钮， 则对文本框中的文本内容做相应的设置。请编写适当的事件过程，完成上述功能。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 30 页 - - - - - - - - - 3 Private Sub Command1_Click() If Option1.Value = True Then Text1.FontName = 宋体 Else Text1.FontName = 隶书 End If If Check1.Value = 1

4、 Then Text1.FontUnderline = True Else Text1.FontUnderline = False End If If Check2.Value = 1 Then Text1.FontItalic = True Else Text1.FontItalic = False End If End Sub 5 在名称为 Form1的窗体上添加一个名称为Text1的文本框；添加两个标题分别为对齐方式、字体 ，名称分别为Fm1、Fm2的框架；在 Fm1框架中添加三个单选按钮，标题分别为左对齐 、居中、右对齐 ，名称分别为 Opt1、Opt2、Opt3；在Fm2框架中添加两

5、个单选按钮，标题分别为宋体 、黑体 ，名称分别为 Opt4、Opt5。要求：编写五个单选按钮的Click 事件过程，使程序运行时，单击这些单选按钮，可以对文本框中的内容实现相应的操作(如图所示 )。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 30 页 - - - - - - - - - 4 Private Sub Opt1_Click() If Opt1 Then Text1.Alignment = 0 End Sub Private Sub Opt2_Click()

6、 If Opt2 Then Text1.Alignment = 2 End Sub Private Sub Opt3_Click() If Opt3 Then Text1.Alignment = 1 End Sub Private Sub Opt4_Click() If Opt4 Then Text1.FontName = 宋体 End Sub Private Sub Opt5_Click() If Opt5 Then Text1.FontName = 黑体 End Sub 6 请设计如下图所示窗体界面。运行程序时，先向左侧文本框中输入一个不超过10的正整数，然后选择 N的阶乘 或(N+2)

7、的阶乘 单选钮，即可进行计算， 计算结果在右侧文本框中显示。请编写程序完成上述功能。Dim n% 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 30 页 - - - - - - - - - 5 Private Sub Form_Load() End Sub Private Sub Option1_Click() Dim i% n = Val(Text1) m = 1 For i = 1 To n m = m * i Next i Text2 = m End Sub Pr

8、ivate Sub Option2_Click() Dim i% m = 1 For i = 1 To n + 2 m = m * i Next i Text2 = m End Sub 7 在窗体上添加两个文本框和三个标签，设置它们的属性，达到下图效果。程序运行时，在第一个文本框输入一串字符，在第二个文本框中输入一个字符，然后单击统计 命令按钮，统计第二个文本框中字符(大小写被认为是不同的字母)在第一个文本框中出现的次数，统计结果在标签 Label3中显示。Private Sub Command1_Click() Dim i%, n% For i = 1 To Len(Text1) If Mi

9、d(Text1, i, 1) = Text2 Then n = n + 1 Next i Label3 = n End Sub 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 30 页 - - - - - - - - - 6 Private Sub Label3_Click() End Sub 8 在窗体上添加一个文本框和一个命令按钮。程序运行后，单击命令按钮，即可计算出0200范围内能被 3或7整除的所有整数的和，并显示在文本框中。程序运行界面如下图所示。Private

10、 Sub Command1_Click() Dim i%, sum% For i = 0 To 200 If i Mod 3 = 0 Or i Mod 7 = 0 Then sum = sum + i Next i Text1 = sum End Sub Private Sub Text1_Change() End Sub 9 请设计如下图所示界面( 文本框名称为： Txt1 ，按钮名称为： Cmd1)。程序运行时在文本框中输入字符串， 点击命令按钮， 判断文本框中的字符串是否是回文，将判断结果显示在窗体上。所谓回文是指字符串正序和逆序的结果相同，如“aBCCBa ”是回文， “aBCcBa

11、”不是回文。Private Sub Cmd1_Click() Dim ch As String For i = Len(Txt1) To 1 Step -1 ch = ch + Mid(Txt1, i, 1) Next i If Txt1 = ch Then Print Txt1 + 是回文 Else Print Txt1 + 不是回文 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 30 页 - - - - - - - - - 7 End If End Sub Priv

12、ate Sub Form_Load() End Sub 10 编程实现求!n1.3121!11！Sum(n 为小于等于20的整数 ) 。程序运行界面如下图所示。程序运行时，在文本框中输入n 的值，点击“计算”命令按钮，将计算结果显示在标签上。Private Sub Command1_Click() Dim i%, m As Long, sum As Double n = Val(Text1) m = 1 For i = 1 To n m = m * i sum = sum + 1 / m Next i Label2 = sum= & sum End Sub Private Sub Form_L

13、oad() End Sub 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 7 页，共 30 页 - - - - - - - - - 8 第二部分1 已知在同一个笼子里有总数M只鸡和兔，鸡和兔的总脚数为N只，编程求出鸡和兔各有多少只。要求：程序运行后，在两个文本框中分别输入M 和N的值，单击 “ 计算” 命令按钮，在两个标签框中分别输出鸡和兔的数量。程序运行界面如下图。提示：N2 M的偶数。Private Sub Command1_Click() m = Val(Text1) n =

14、 Val(Text2) If n Mod 2 0 Then MsgBox ( 脚数必须为偶数) Text2 = Text2.SetFocus Else y = n / 2 - m If y =只数的 2倍，请重新输入) Text2 = Text2.SetFocus Else x = m - y Label3 = x Label4 = y End If End If End Sub Private Sub Form_Load() End Sub 2 若一个 3位正整数中各位数字的立方和等于该数字本身，则该数称之为“ 水仙花数 ” 。例如153是水仙花数，因为153 = 1*1*1 + 5*5*5

15、 + 3*3*3。编程求出 100999之间所有的 “ 水仙花数” 。要求：程序运行后，单击“ 查找 ” 按钮，在窗体上显示找到的“ 水仙花数 ” 。程序运行界面如下图。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 8 页，共 30 页 - - - - - - - - - 9 Private Sub Command1_Click() Print 水仙花数： ; For i = 100 To 999 X1 = i Mod 10 分离出个位数X2 = (i Mod 100) 10 分离

16、出十位数x3 = i 100 分离出百位数If i = X1 3 + X2 3 + x3 3 Then Print i; Next i End Sub Private Sub Form_Load() End Sub 3 编写程序，要求程序运行后，单击“开始”按钮，随机产生20个学生的成绩(0 100的整数) ，并在左边图片框中输出 ( 一行5个成绩 ) ，并在右边图片框中输出平均分和及格的人数，程序运行界面如下图。Private Sub Command1_Click() Dim a(1 To 20) As Integer, i%, n% Picture1.Cls Picture2.Cls Fo

17、r i = 1 To 20 a(i) = Int(Rnd * 101) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 9 页，共 30 页 - - - - - - - - - 10 Picture1.Print a(i); If i Mod 5 = 0 Then Picture1.Print If a(i) = 60 Then n = n + 1 Sum = Sum + a(i) Next i Picture2.Print 平均分： ; Sum / 20 Picture2.Prin

18、t ; 及格人数： ; n End Sub Private Sub Picture2_Click() End Sub 4 编写程序实现：程序运行时，单击窗体则显示如下图所示的图案。Private Sub Form_Click() For i = 1 To 5 Print Tab(10 - i); String(2 * i - 1, *) Next i For i = 1 To 4 Print Tab(5 + i); String(9 - 2 * i, *) Next i End Sub 5 编程实现：在窗体中有一个文本框，一个计时器和两个命令按钮。其功能是：程序的运行时，单击 “ 开始计数 ”

19、 按钮，就开始计数，每间隔1秒，文本框中的数增加1；单击 “ 停止计数 ”按钮，则计数停止。Private Sub Command1_Click() Timer1.Enabled = True 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 10 页，共 30 页 - - - - - - - - - 11 End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Form_Load(

20、) End Sub Private Sub Timer1_Timer() Text1 = Val(Text1) + 1 End Sub 在属性窗口设置定时器的interval 属性值为1000 6 以下程序运行界面如下图所示。其功能如下：1) 单击 读数据 按钮(Command1)，可将随机产生100个三位正整数存到数组a中；2) 单击 计算 按钮(Command2)，则根据从组合框Combo1中选中的项目，对数组a中的数据计算平均值，并将计算结果四舍五入取整后显示在文本框Text1中。题目提供的程序代码不完整，请设计下图界面并录入代码，将程序中的? 改为正确的内容。注意：不能修改程序的其他部

21、分。题目提供的程序代码：Dim a(100) As Integer Private Sub Command1 Click() Dim n As Integer For n = 1 To 100 a(n)=Int(Rnd * ? ) Next n End Sub Private Sub Command2 Click() Dim x& ,y& , z& ,i% , j% , k% For i = 1 To 100 If a(i) Mod ? Then x = x + a(i) ： j = j + 1 Else y = y + a(i) ? End If Next k x = Int(x / j +

22、 0.5)：y = Int(y / k + 0.5) z = Int(x + y) / (j + k) + 0.5) Select Case Combo1.Text Case 所有偶数 Text1 = ? Case 所有奇数 Text1 = ? Case 所有数 Text1 = ? End Select End Sub Dim a(1 To 100) As Integer 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 11 页，共 30 页 - - - - - - - - - 12

23、 Private Sub Command1_Click() Dim n As Integer For n = 1 To 100 a(n) = Int(Rnd * 900 + 100) Next n End Sub Private Sub Command2_Click() Dim x&, y&, z&, i%, j%, k% For i = 1 To 100 If a(i) Mod 2 = 0 Then x = x + a(i): j = j + 1 Else y = y + a(i): k = k + 1 End If Next i x = Int(x / j + 0.5): y = Int(

24、y / k + 0.5) z = Int(x + y) / (j + k) + 0.5) Select Case Combo1.Text Case 所有偶数 Text1 = x Case 所有奇数 Text1 = y Case 所有数 Text1 = x + y End Select End Sub 在 combo1 的属性窗口设置list 属性，添加列表项Private Sub Label1_Click() End Sub 7 编写程序。要求：程序运行后，单击“ 开始 ” 按钮，则随机产生20个2位数输出到窗体上，每行10个数。同时对所产生的20个数从小到大排序，将排序后的数再次输出在窗体上

25、。程序运行界面如下图。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 12 页，共 30 页 - - - - - - - - - 13 Private Sub Command1_Click() Dim a%(1 To 20), i% Print 排序前数据排列： For i = 1 To 20 a(i) = Int(Rnd * 90 + 10) Print a(i); If i Mod 10 = 0 Then Print Next i For i = 1 To 20 冒泡排序For

26、j = 1 To 20 - i If a(j) a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t End If Next j Next i Print 排序后数据排列： For i = 1 To 20 Print a(i); If i Mod 10 = 0 Then Print Next i End Sub Private Sub Form_Load() End Sub 8 编写程序，程序的功能是：程序运行后，在文本框中输入一串字符, 单击标题为 统计 的命令按钮，分别统计输入字符串中大写字母、小写字母以及其他字符的个数，并将统计结果分

27、别在相应的标签框中显示。程序运行界面如下图。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 13 页，共 30 页 - - - - - - - - - 14 Private Sub Command1_Click() Dim i%, m%, n%, z% For i = 1 To Len(Text1) If Asc(Mid(Text1, i, 1) = 65 And Asc(Mid(Text1, i, 1) = 97 And Asc(Mid(Text1, i, 1) max Then

28、max = a(i): imax = i Next i Print Print Print 最大数是： ; max; Spc(5); 位置号是： ; imax End Sub Private Sub Form_Load() End Sub 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 15 页，共 30 页 - - - - - - - - - 16 第三部分1 在窗体 Form1 上添加两个文本框，一个“转换” 命令按钮和三个单选按钮（名称分别为Opt1、Opt2、Opt3，标题分

29、别为“大小写转换”、 “全部大写” 、 “全部小写” ） 。程序功能：在上方文本框Text1 中输入一字符串， 选中“大小写转换” ，单击“转换” 按钮后， Text2 中显示大小写相反的字符串；选中“全部大写”，单击转换按钮后，Text2 中显示全部大写字符串，选中“全部小写” ，单击转换按钮后，Text2中显示全部小写字符串。程序运行界面如下图。要求：请按要求完成窗体界面设计程序的部分代码已给出如下，但不完整。请录入下面代码，并将“？”处补充完整。Private Sub Command1_Click() Dim n As Integer, k As Integer, ch As Strin

30、g, a As String ch = If Opt1.Value = True Then n = Len(？ ) For k = 1 To n a = Mid$(Text1, k, ？) If a = a And a = A And a = a And a = A And a max Then max = a(i) Next i Print Print max End Sub Private Sub Form_Load() End Sub 4 在 Form1 的窗体上有一个名称为Text1 的文本框和两个命令按钮，命令钮标题分别为 “显示 A”和 “显示 B” 。要求程序运行后，如单击“显示

31、A”命令按钮，则弹出对话框，输入要显示的个数，根据输入的数值在文本框中显示相应数量A 构成的字符串；如单击“显示B”命令按钮，也弹出对话框，输入要显示的个数，根据输入的数值在文本框中显示相应数量B 构成的字符串。程序运行时的窗体界面如图所示。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 18 页，共 30 页 - - - - - - - - - 19 Private Sub Command1_Click() n = Val(InputBox( 请输入显示个数) Text1 = St

32、ring(n, A) End Sub Private Sub Command2_Click() n = Val(InputBox( 请输入显示个数) Text1 = String(n, B) End Sub Private Sub Form_Load() End Sub 5 已知十个数为：67, 45, 34, 28, 49, 37, 87, 76, 27, 83 。编程实现：按“开始”按钮，则在窗体的第一行显示这十个数，在窗体的第二行按从大到小的顺序显示这十个数。Private Sub Command1_Click() Dim a(), i% a = Array(67, 45, 34, 28

33、, 49, 37, 87, 76, 27, 83) n = UBound(a) For i = 0 To n Print a(i); Next i 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 19 页，共 30 页 - - - - - - - - - 20 For i = 0 To n - 1 For j = 0 To n - 1 - i If a(j) max Then max = a(i) Next i Print max End Sub Private Sub Form_L

34、oad() End Sub 8 编程实现：在窗体的两个文本框中分别输入一个正整数，单击“求最大公约数”按钮后，在窗体第一行显示它们的最大公约数。程序运行界面如下图所示。Private Sub Command1_Click() Dim m%, n% m = Val(Text1) n = Val(Text2) If n m Then t = n: n = m: m = t r = m Mod n Do While r 0 m = n n = r r = m Mod n Loop Print Text1; 和; Text2; 最大公约数是 :; n End Sub Private Sub Form_

35、Load() End Sub 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 21 页，共 30 页 - - - - - - - - - 22 9 编程实现：在窗体的左上角有一个图像框，通过属性窗口任选一张图片装入到图像框的Picture 属性中，每按一次“放大”按钮时图像放大10%，同理，每按一次“缩小”按钮时图像缩小10%，放大缩小时均需保持图像的纵横比不变，按“结束程序”按钮则结束程序。程序运行界面如下图。Private Sub Command1_Click() Image1.

36、Stretch = True Image1.Width = Image1.Width * 1.1 Image1.Height = Image1.Height * 1.1 End Sub Private Sub Command2_Click() Image1.Stretch = True Image1.Width = Image1.Width * 0.9 Image1.Height = Image1.Height * 0.9 End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() End Sub 10 编程

37、实现：在窗体上建立一个文本框（内容如下图所示），另外建立菜单，一级菜单标题分别为“背景颜色”，子菜单标题分别为“白色”、 “红色”、 “绿色”、 “蓝色”。程序运行时，如果单击“白色”子菜单，则将文本框的背景色设置为白色；如果单击“红色”子菜单，则将文本框的背景色设置为红色；如果单击“绿色”子菜单，则将文本框的背景色设置为绿色；如果单击“蓝色”子菜单，则将文本框的背景色设置为蓝色。程序运行界面如下图。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 22 页，共 30 页 - - -

38、- - - - - - 23 Private Sub blue_Click() Text1.BackColor = vbBlue End Sub Private Sub green_Click() Text1.BackColor = vbGreen End Sub Private Sub red_Click() Text1.BackColor = vbRed End Sub Private Sub Text1_Change() End Sub Private Sub white_Click() Text1.BackColor = vbWhite End Sub 名师资料总结 - - -精品资料

39、欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 23 页，共 30 页 - - - - - - - - - 24 第四部分1编程计算分段函数)(, 0)0, 0( ,)0, 0( ,其他情况yxyxyxyxz的值。要求用文本框(TextBox) 输入 x,y 的值，单击标题为“计算”命令按钮后，利用标签控件上显示z 的值。Private Sub Command1_Click() x = Val(Text1) y = Val(Text2) If x 0 And y 0 Then z = Sqr(x + y) Else

40、If x 0 And y 0 Then z = Sqr(Abs(x - y) Else z = 0 End If Label3 = z End Sub Private Sub Form_Load() End Sub 2、在窗体添加一个命令按钮（标题为“开始”） ，单击该按钮，随机产生10 个三位数（ 100999） ，在窗体的第一行这10 个三位数，在窗体的第二行输出其中的奇数，在窗体的第三行输出其中的偶数。Private Sub Command1_Click() Dim a%(1 To 10), i% For i = 1 To 10 a(i) = Int(Rnd * 900 + 100) 随

41、机产生 10 个 100 到 999 的整数Print a(i); 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 24 页，共 30 页 - - - - - - - - - 25 Next i Print For i = 1 To 10 If a(i) Mod 2 0 Then Print a(i); 输出奇数Next i Print For i = 1 To 10 If a(i) Mod 2 = 0 Then Print a(i); 输出偶数Next i End Sub Priv

42、ate Sub Form_Load() End Sub 3编程计算分段函数),1030(,)0,30(,)0,10(,22zxxzxzxzxzxzxy的值。 要求用 InputBox 函数输入zx,的值，单击命令按钮（标题为“计算”）后，利用图形框（PictureBox ）输出计算结果y。Private Sub Command1_Click() Picture1.Cls x = Val(InputBox( 输入 x 的值 ) z = Val(InputBox( 输入 z 的值 ) If x = -10 And z 0 Then y = x 2 + z 2 If x 0 Then y = x /

43、 z If x = -30 And x z Then y = Sqr(x - z) Picture1.Print y End Sub Private Sub Form_Load() 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 25 页，共 30 页 - - - - - - - - - 26 End Sub 4编程计算分段函数)1(,)0(, 0)1(,22xxxyxyxz的值。要求用InputBox 函数输入x,y 的值，单击命令按钮（标题为“计算”）后，用文本框中输出计算结果z

44、 。5 编程实现求Sum=1+ （1+2）+（1+2+3）+（1+2+3+4）+ +(1+2+3+4+ + n) 。程序运行时，在文本框中输入n 的值，点击“计算”命令按钮，将计算的结果显示在标签上。程序运行界面如下图。Private Sub Command1_Click() Dim n%, sum%, i%, j% n = Val(Text1) For i = 1 To n For j = 1 To i sum = sum + j Next j Next i Label2 = sum= & sum End Sub Private Sub Form_Load() End Sub 6 编写一个程

45、序 , 其功能为输入货物的数量及单价,求总价 ,并输出。窗体上的两个标签的标题分别为货名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 26 页，共 30 页 - - - - - - - - - 27 物的数量 (个)：和货物的单价 (元)：, 在两个文本框中输入相应的数据, 当按“总价”按钮时，在右下方的图形框中显示原价和折扣价。当原价达到2000元以上时，按 8折计算折扣价；当原价达到1000元以上时，按 9折计算折扣价。程序运行界面如下图。Private Sub Command1

46、_Click() zj = Val(Text1) * Val(Text2) If zj 1000 Then zkj = zj ElseIf zj 2000 Then zkj = zj * 0.9 Else zkj = zj * 0.8 End If Label3 = 原价 : & zj & vbCrLf Label3 = Label3 & 折扣价 : & zkj End Sub Private Sub Form_Load() End Sub 7 编程实现：单击“加密”按钮后，将上方文本框中的字符串加密后显示在下方的文本框中。加密的方法是：把明文中的每个字母改为它后面的那个字母(z后面的字母认为

47、是 a,Z 后面的字母认为是 A) 。程序运行界面如下图。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 27 页，共 30 页 - - - - - - - - - 28 Private Sub Command1_Click() Dim ch As String Text2 = ch = Text1 For i = 1 To Len(ch) x = Asc(Mid(ch, i, 1) Print x If x = 90 Then y = 65 Else y = x + 1 If x

48、= 122 Then y = 97 Else y = x + 1 Text2 = Text2 + Chr(y) Next i End Sub Private Sub Form_Load() End Sub 8 编程实现：程序运行时，输入一个大于1的正整数到文本框中，选择偶数和 或奇数和 ，单击 计算 按钮时，则在左下方的标签控件中显示所选的计算类别和计算结果。计算规则：将按照选定的计算类别计算小于或等于输入数据的正偶数和或正奇数和。程序运行界面如下图。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - -

49、- - - 第 28 页，共 30 页 - - - - - - - - - 29 Private Sub Command1_Click() n = Val(Text1) If Option1.Value = True Then For i = 2 To n Step 2 Sum = Sum + i Next i Label2 = 正 & Option1.Caption & : & Sum Else For i = 1 To n Step 2 Sum = Sum + i Next i Label2 = 正 & Option2.Caption & : & Sum End If End Sub Pr

50、ivate Sub Form_Load() End Sub 9 编程实现： 在窗体上的4 个文本框中各输入一个整数作为各数组元素的值，然后单击命令按钮，在窗体上显示出数组元素中的最小值。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 29 页，共 30 页 - - - - - - - - - 30 10 程序运行后，在窗体的文本框中输入有关信息(密码文本框中显示 * 字符 )，然后单击 提交 按钮，则在右边列表框中显示相关信息。单击重输 按钮，则清空三个文本框和列表框中数据。程序运行