VB程序选择题.docx

问题 15.56 分保存单击窗体，根据输入框所输入的百分制成绩score，在窗体上显示相应的等级，即“优秀”(score=90)、“良好”(80=score90)、“中”(70=score80)、“及格”(60=score70)、“不及格”(score= 80 ThenPrint 良好ElseIf score = 70 ThenPrint 中(3)(4)ElsePrint 不及格(5)End Sub (1) (2) (3) (4) (5)1.Print 及格2.score = 903.Dim score As Integer4.End If5.ElseIf score = 60 Then问题 25.56 分保存单击窗体，从输入框InputBox输入一个整数，判断其是否为素数。例如输入7，则屏幕上显示“7是素数”；如果输入的是9则屏幕上显示“9不是素数”。Private Sub Form_Click()Dim i As Integer, n As Integer, Prime As Stringn = Val(InputBox(n=)If n n-1 Then2.Prime = 是素数3.Print n & Prime4.Prime = 不是素数5.For i = 2 To n-1问题 35.56 分保存设计一个用户身份验证程序，具体要求如下：在文本框Text1中输入密码，单击“确定”按钮Command1对密码进行检验。若密码正确(默认密码为123456)，在窗体上显示“欢迎进入！”，并隐藏文本框和“确定”按钮。如果输入的密码不对，弹出消息框显示“密码不符，请再输入一遍！”，同时清空文本框的内容，允许再次输入；如果第三次输入的密码仍然不对，消息框显示“非法用户，请退出程序！”，文本框和命令按钮不能再使用。(1)Private Sub Command1_Click()(2)Print 欢迎进入！Text1.Visible = FalseCommand1.Visible = FalseElse(3)If n = 0.00001问题 55.56 分保存编制Form_Click过程，用近似公式求自然对数的底数e的值，直到末项小于10-4为止，结果显示在窗体上。Private Sub Form_Click()Dim s As Single, x As Single, a As Singlea = 1(1)i = 1Do(2)(3)(4) i = i + 1Loop(5)End Sub (1) (2) (3) (4) (5)1.s = 12.s = s + a3.While a = 0.00014.Print e=; s5.a = a / i问题 65.56 分保存实现文本框的复制、剪切、粘贴、删除功能Private Sub Command1_Click()(1)Clipboard.SetText Text1.SelTextEnd SubPrivate Sub Command2_Click()Clipboard.Clear(2)(3)End SubPrivate Sub Command3_Click()(4)End SubPrivate Sub Command4_Click()(5)End Sub (1) (2) (3) (4) (5)1.Text1.SelText = 2.Text1.SelText = 3.Clipboard.Clear4.Text1.SelText = Clipboard.GetText5.Clipboard.SetText Text1.SelText问题 75.56 分保存单击窗体，实现以下的分段函数，其中x从输入框输入，求出y显示在窗体上。Private Sub Form_Click()(1)(2)If x -5 Theny = 3 * x 2 + 2 * x - 1(3)y = x * Sin(x) + 2 xElsey = Sqr(x - 5) + Log(x) / Log(10)(4)(5)End Sub (1) (2) (3) (4) (5)1.ElseIf x = 5 Then2.Dim x As Single, y As Single3.x = Val(InputBox(请输入x)4.Print y5.End If问题 85.56 分保存单击窗体，产生20个从1到600之间的随机整数，并以每行5个把数据显示在窗体上，并在窗体上显示20个数据中的所有偶数之和。Private Sub Form_Click()(1)s = 0For i = 1 To 20Randomize(2)Print x;(3)If(4)Then s = s + xNext i(5)End Sub (1) (2) (3) (4) (5)1.Print s=; s2.Dim i As Integer, x As Integer, s as Long3.x = Int(600*Rnd+1)4.x Mod 2 = 05.If i mod 5 =0 Then Print问题 95.56 分保存单击窗体，从键盘输入三个数，将它们从大到小输出在窗体上。Private Sub Form_Click()Dim x As Single, y As Single, z As Singlex = Val(InputBox(x)(1)z = Val(InputBox(z)If x y Then(2)End IfIf x z Then(3)End If(4)t = y: y = z: z = tEnd If(5)End Sub (1) (2) (3) (4) (5)1.t = x: x = y: y = t2.y = Val(InputBox(y)3.Print x, y, z4.t = x: x = z: z = t5.If y z Then问题 105.56 分保存编制Form_Click过程，从输入框InputBox输入行数n(5n= 5 And n 10For i = 1 To n(1)(2)(3)(4)(5)Next iEnd Sub (1) (2) (3) (4) (5)1.Next j2.Print3.For j = 1 To 2 * i - 14.PrintTrim(Str(i);5.Print Tab(n + 1 - i);问题 115.56 分保存从输入框InputBox输入n，再从输入框输入这n个整数，要求以每行5个的形式输出这n个数（其中的偶数用红色显示），计算它们的平均值并显示在窗体上。Private Sub Form_Click()Dim n As Integer, x As Integer, ave As Single, s As Singlen = Val(InputBox(n)For i = 1 To n(1)If x Mod 2 = 0 Then(2)Else(3)End IfPrint x;(4)s = s + xNext i(5)PrintPrint 平均值为： & aveEnd Sub (1) (2) (3) (4) (5)1.x = Val(InputBox(x)2.ave = s / n3.Form1.ForeColor = vbBlack4.If i Mod 5 = 0 Then Print5.Form1.ForeColor = vbRed问题 125.56 分保存编程，在窗体上显示单击窗体的次数。第一次单击时，窗体上以红色显示“第1次单击窗体”；第二次单击时，窗体上以蓝色显示“第2次单击窗体”；第三次单击时，窗体上以绿色显示“第3次单击窗体”，第四次单击时，清除窗体上的信息。第五次单击的效果和第一次一样，以此类推，运行效果如图所示。(1)Private Sub Form_Click()(2)If n = 1 ThenForm1.ForeColor = vbRedPrint 第1次单击窗体ElseIf n = 2 Then(3)Print 第2次单击窗体ElseIf n = 3 ThenForm1.ForeColor = vbGreen(4)ElseIf n = 4 ThenForm1.Cls(5)End IfEnd Sub (1) (2) (3) (4) (5)1.Dim n As Integer2.Print 第3次单击窗体3.Form1.ForeColor = vbBlue4.n = 05.n = n + 1问题 135.56 分保存1、在文本框Text1中输入一个正整数，单击按钮Command1，判断该数的奇偶性，结果显示在标签框label2中，要求偶数用蓝色显示，奇数用红色显示。Private Sub Command1_Click()Dim x As Integer(1)If(2)ThenLabel2.ForeColor = vbBlue(3)(4)(5)Label2.Caption = x & 是奇数End IfEnd Sub (1) (2) (3) (4) (5)1.Label2.ForeColor = vbRed2.x Mod 2 = 03.Label2.Caption = x & 是偶数4.Else5.x = Val(Text1.Text)问题 145.56 分保存单击窗体，从输入框输入一个字符串，判断其是否为“回文”并在窗体上打印结果。“回文”是指字符串顺读与倒读都是一样的，如“潮起潮落，落潮起潮”。Private Sub Form_Click()Dim s As String ,n as Integers = InputBox(请输入字符串)(1)For i = 1 To n 2If(2)Then(3)End IfNext iIf i = n 2 Then(4)Else(5)End IfEnd Sub (1) (2) (3) (4) (5)1.Exit For2.Print s & 是回文3.Print s & 不是回文4.n = Len(s)5.Mid(s, i, 1) Mid(s, n + 1 - i, 1)问题 155.56 分保存单击窗体，输出下列数字图案（行数从输入框InputBox输入）。Private Sub Form_Click()Dim n As Integer(1)(2)For j = 1 To nIf j i Then(3)Else(4)End IfNext j(5)Next iEnd Sub (1) (2) (3) (4) (5)1.For i = 1 To n2.n = InputBox(请输入行数)3.Print n + 1- j;4.Print j - i + 1;5.Print问题 165.56 分保存从文本框Text1输入一个二进制正整数，单击窗体，在窗体上打印出相应的十进制数；且文本