《VB程序选择题.docx》由会员分享，可在线阅读，更多相关《VB程序选择题.docx（28页珍藏版）》请在三一办公上搜索。
1、VB程序选择题问题 1 5.56 分 单击窗体，根据输入框所输入的百分制成绩score，在窗体上显示相应的等级，即“优秀”(score=90)、“良好”(80=score90)、“中”(70=score80)、“及格”(60=score70)、“不及格”(score= 80 Then Print 良好 ElseIf score = 70 Then Print 中 (3) (4) Else Print 不及格 (5) End Sub (1) 1Print . 及格 (22score) . = 90 3Dim (3. score ) As Integ(4er ) 4End If . (55Else
2、I) . f score = 60 Then 问题 2 5.56 分 单击窗体，从输入框InputBox输入一个整数，判断其是否为素数。例如输入7，则屏幕上显示“7是素数”；保存 如果输入的是9则屏幕上显示“9不是素数”。 Private Sub Form_Click Dim i As Integer, n As Integer, Prime As String n = Val(InputBox(n=) If n (2n-1 ) Then (32Pri= ) . me 是素数 (4 ) 3Prin (5. nt & ) Pri me 4Pri= . me 不是素数 5For . i = 2 T
3、o n-1 问题 3 设计一个用户身份验证程序， 具体要求如下： 5.56 分 保存 在文本框Text1中输入密码，单击“确定”按钮Command1对密码进行检验。若密码正确(默认密码为123456)，在窗体上显示“欢迎进入！”，并隐藏文本框和“确定”按钮。如果输入的密码不对，弹出消息框显示“密码不符，请再输入一遍！”，同时清空文本框的内容，允许再次输入；如果第三次输入的密码仍然不对，消息框显示“非法用户，请退出程序！”，文本框和命令按钮不能再使用。 (1) Private Sub Command1_Click (2) Print 欢迎进入！ Text1.Visible = False Com
4、mand1.Visible = False Else (3) If n = 0.00001 (5) 问题 5 5.56 分 编制Form_Click过程，用近似公式求自然对数的底数e的值，直到末项小于10-4为止，结果显示在窗体上。 Private Sub Form_Click Dim s As Single, x As Single, a As Single 保存 a = 1 (1) i = 1 Do (2) (3) (4) i = i + 1 Loop (5) End Sub (1= 1 ) 1s . (22) . 3 (3. ) s = s + a While a = 0.0001 (4
5、) 4Prin . t e= (5; s ) = a 5a . / i 问题 6 实现文本框的复制、剪切、粘贴、删除功能 Private Sub Command1_Click (1) Clipboard.SetText Text1.SelText End Sub Private Sub Command2_Click 5.56 分 保存 Clipboard.Clear (2) (3) End Sub Private Sub Command3_Click (4) End Sub Private Sub Command4_Click (5) End Sub (1) 1Text1.SelT . ext
6、 = (22Text1.SelT) . ext = 3Clipboard. (3. Clear ) 4Text1.SelT. ext = Clipboard. (4GetText ) 5Clipboard. (5. SetText Text1.SelT) ext 问题 7 单击窗体，实现以下的分段函数，其中x从输入框输入，求出y显示在窗体上。 Private Sub Form_Click (1) (2) 5.56 分 保存 If x -5 Then y = 3 * x 2 + 2 * x - 1 (3) y = x * Sin(x) + 2 x Else y = Sqr(x - 5) + Lo
7、g(x) / Log(10) (4) (5) End Sub (1) 1ElseIf x . = 5 Then (22Dim x As ) . Single, y As Single (33x = ) . Val(Input Box(请输入x) (4 ) 4Print y . (55End If ) . 问题 8 5.56 分 单击窗体，产生20个从1到600之间的随机整数，并以每行5个把数据显示在窗体上，并在窗体上显示20个数据中的所有偶数之和。 Private Sub Form_Click 保存 (1) s = 0 For i = 1 To 20 Randomize (2) Print x
8、; (3) If (4) Then s = s + x Next i (5) End Sub (1) 1Print . s=; s (22Dim i As ) . Integer, x As Integer, (3s as Long ) 3x = (4. Int(600*Rnd+1) ) Mod 2 = 0 4x (5. ) 5If i mod 5 . =0 Then Print 问题 9 单击窗体，从键盘输入三个数，将它们从大到小输出在窗体上。 Private Sub Form_Click Dim x As Single, y As Single, z As Single x = Val(I
9、nputBox(x) 5.56 分 保存 (1) z = Val(InputBox(z) If x y Then (2) End If If x z Then (3) End If (4) t = y: y = z: z = t End If (5) End Sub (1= y: ) 1t = x: x . y = t (22y = ) . Val(InputBo x(y) x, y, z (33Print ) . 4t = x: x = z: (4. z = t ) 5If y z Then . (5) 问题 10 保5.56 分 存 编制Form_Click过程，从输入框InputBox输
10、入行数n(5n= 5 And n 10 For i = 1 To n (1) (2) (3) (4) (5) Next i End Sub (1) 1Next j . (22Print ) . 3For j = 1 To 2 (3. * i - 1 ) 4Print Trim( . Str(i); (45Print Tab(n + ) . 1 - i); (5) 问题 11 5.56 分 从输入框InputBox输入n，再从输入框输入这n个整数，要求以每行5个的形式输出这n个数，计算它们的平均值并显示在窗体上。 Private Sub Form_Click 保存 Dim n As Intege
11、r, x As Integer, ave As Single, s As Single n = Val(InputBox(n) For i = 1 To n (1) If x Mod 2 = 0 Then (2) Else (3) End If Print x; (4) s = s + x Next i (5) Print Print 平均值为： & ave End Sub (1) 1x = . Val(InputBox(x) (2 ) 2ave = s / n . (33Form1.ForeC ) . olor = vbBlack (44If i Mod 5 = Then Print ) .
12、 0 5Form1.ForeC (5. olor = vbRed ) 问题 12 5.56 分 编程，在窗体上显示单击窗体的次数。第一次单击时，窗体上以红色显示“第1次单击窗体”；第二次单击时，保存 窗体上以蓝色显示“第2次单击窗体”；第三次单击时，窗体上以绿色显示“第3次单击窗体”，第四次单击时， 清除窗体上的信息。第五次单击的效果和第一次一样，以此类推，运行效果如图所示。 (1) Private Sub Form_Click (2) If n = 1 Then Form1.ForeColor = vbRed Print 第1次单击窗体 ElseIf n = 2 Then (3) Print
13、 第2次单击窗体 ElseIf n = 3 Then Form1.ForeColor = vbGreen (4) ElseIf n = 4 Then Form1.Cls (5) End If End Sub (1) 1Dim n As . Integer (22Print 第3) . 次单击窗体 3Form1.For(3. eColor = ) vbBlue 4n = 0 (4. ) 5n = n + 1 . (5) 问题 13 5.56 分 保存 、 在文本框Text1中输入一个正整数，单击按钮Command1，判断该数的奇偶性，结果显示在标签框label2中，要求偶数用蓝色显示，奇数用红色
14、显示。 Private Sub Command1_Click Dim x As Integer (1) If (2) Then Label2.ForeColor = vbBlue (3) (4) (5) Label2.Caption = x & 是奇数 End If End Sub 1Label2.For. eColor = vbRed 2x Mod 2 = 0 . 3Label2.Cap . tion = x & 是偶数 4Else . 5x = . Val(Text1. (1) (2) (3) (4) (5) Text) 问题 14 5.56 分 单击窗体，从输入框输入一个字符串，判断其是
15、否为“回文”并在窗体上打印结果。“回文”是指字符串顺读与保存 倒读都是一样的，如“潮起潮落，落潮起潮”。 Private Sub Form_Click Dim s As String ,n as Integer s = InputBox(请输入字符串) (1) For i = 1 To n 2 If (2) Then (3) End If Next i If i = n 2 Then (4) Else (5) End If End Sub (1) 1Exit . For (22Prin) . t s & 是 (3回文) 3Prin(4. t s & ) 不 是回文 (54n = ) . Len( s) 5Mid(. s, i, 1) Mid(s, n + 1 - i, 1) 问题 15 单击窗体，输出下列数字图案。 Private Sub Form_Click Dim n As Integer (1) (2) For j = 1 To n If j i Then (3)
