VB上机练习测验题

1、个人收集整理仅供参考学习13 / 10第1题程序填空（1分）（题号:532）【程序填空】”题目：输入n个数，n由用户输入 '程序地功能是将输入地 n个数反向输岀？ 请在【】处填入正确地Private Sub Form_Load（）Dim n As IntegerDim k As IntegerDim m As IntegerDim h As IntegerDim t As IntegerShow请在【】处填入正确地内容Private Sub Command1_Click()Dim xx(6) As IntegerDim k%Open App.Path & "al.da

2、t" For Output As #1For I = 1 To 6I *SPACE*j =【?】Print #1, jNext IClose #1Open App.Path & "a1.dat" For Input As #2k = 0Do While Not EOF(2)Dim a(100) As Singlen = Val(lnputBox("输入个数 n")Print "处理前数据:"I *SPACE*SPACE*k =【？】For k = 1 To 【？】a(k) = Val(InputBox("请

3、输入第"& k & 个数")Print a(k);Next kInput #2, xx(k)LoopClose #2*SPACE*PrintI *SPACE*m = Int(【？】)For k = 1 To mFor I = k To k / 2 Step【？】Form1.Print xx(I)Next I*SPACE*t = a(h):【？】:a(k) = tNext kPrint "处理地结果 :"For k = 1 To nEnd Sub答案：1) .I * I2) .k + 1 或 1 + k3) .-1K第3题程序填空（1分）（

4、题号:501）Print a(k);Next k'【程序填空】”题目：本程序执行后，最终在窗体上打印数字7.请在【】处填入正确地内容End Sub答案：1）.n2).n / 23).a(h) = a(k)第2题程序填空（1分）（题号:498）Private Sub Command1_Click()Dim a As StringI *SPACE*Open App.Path & "abc.bat" For 【？】 As #1'【程序填空】"题目：本程序执行功能为，命令按钮单击一次后, 窗体上输岀结果为：For I = 1 To nPrint #

5、1, I + 1Next I'36Close #1'25'16I *SPACE*Open App.Path & "abc.bat" For 【？】 As #1'9For I = 1 To nInput #1, aEnd SubIf I Mod 5 = 0 Then答案：'*space*1).score >=0 And score <= 100或Print CInt(a) +【？】0<=score And score <= 100 或 0<=scoreEnd IfAnd 100>=score

6、或 score >=0 AndNext I100>=scoreb5E2RGbCAPClose #12).scoreEnd Sub3).End Select答案：第5题程序填空（1分）（题号:503）1).Output'【程序填空】2).Input”题目：用户界面如图所示，用实现左右两个组合框3).1中数据地左移和右移功能.第4题程序填空（1分）（题号:46）'程序开始运行时，在左边组合框中生成10'【程序填空】个由小到大排列地随机三位"题目：从键盘输入学生分数， 统计学生总人数和各'正整数（假设在设计阶段该组合框地Sorted分数段人数，属

7、性值已设置为True）,现要求完成：'即优秀（90-100）、良好（80-89 ）、中等'（1）单击" >> "钮，左边组合框中地10(70-79)、个数全部移动到右边组合框，并由大到'及格（60-69 ）、不及格（60以下）地人数.'小排列，同时使"vv "钮能响应，">Private Sub Form_Click()>"钮不能响应.Dim score%, n1%, n2%, n3%, n4%, n5%'（2）单击"vv "钮，右边组合框中地10ms

8、g ="请输入分数（-1结束）"个数全部移到左边地组合框，并由小到msgtitile ="输入数据"'大排列，同时使" >> "钮能响应，IIscore = Val(lnputBox(msg, msgtitle)vv "钮不能响应；'*space*'（3）单击"结束"按钮，结束程序运行.While【？】请在【】处填入正确地内容total = total + 1Private Sub cmdLeft_Click()'*space*Dim i As IntegerS

9、elect Case【？】For i = 0 To comboRight.ListCount - 1Case Is >= 90comboLeft.AddItem comboRight.List(i)n1 = n1 + 1Next iCase Is >= 80comboRight.Clearn2 = n2 + 1'*space*Case Is >= 70【?】=Falsen3 = n3 + 1'*space*Case Is >= 60【？】=Truen4 = n4 + 1End SubCase ElsePrivate Sub cmdRight_Click(

10、)n5 = n5 + 1Dim i As Integer'*space*'*space*【？】For i = 0 To 【？】-1score = Val(InputBox(msg, msgtitle)comboRight.AddItem comboLeft.List(i)WendNext iPrint n1, n2, n3, n4, n5,total'*space*【？】.Clear cmdRight.Enabled = False cmdLeft.Enabled = True End SubPrivate Sub Command3_Click()EndEnd SubP

11、rivate Sub Form_Load()Dim i As IntegerLabel1.Caption ="组合框 1"Label2.Caption ="组合框 2" cmdRight.Caption =">>" cmdRight.Enabled = True cmdLeft.Caption ="<<" cmdLeft.Enabled = False cmdExit.Caption ="结束" comboLeft.Text =""Fori = 1 T

12、o 10comboLeft.Addltem Int(Rnd * 900) + 100Next icomboRight.Text =""Form1.Print "y=" & Str(y)End Sub答案：1）.12）.+ 13）.Loop第7题程序填空（1分）（题号:523）'【程序填空】'题目：下面地程序用于求三个数中最大数'请在【】处填入正确地内容Private Sub Command1_Click()Dim a, b, c, max, min As Integer a = Val(InputBox("请输入

13、第一个数:b = Val（InputBox（" 请输入第二个数: c = Val（InputBox（"请输入第三个数：I *SPACE*【？】=amin = a*SPACE*If b > max Then 【？】If b < min Then min = b)")")End Sub答案：1).cmdLeft.Enabled2).cmdRight.Enabled3).comboLeft.ListCount4).comboLeft*SPACE*If 【？】Then max = c第6题程序填空（1分）（题号:511）'【程序填空】&quo

14、t;题目：程序输出结果为：n=3 x=42y=9请在【】处填入正确地内容Print "最大数为:"maxPrint "最小数为:"minEnd Sub答案：1).max2).max = b3).c > max 或max < c第8题程序填空（1分）（题号：507）If c < min Then min = cPrivate Sub Command1_Click()Dim n, x, y As IntegerI *SPACE*'【程序填空】'题目：本程序实现功能：将顺序文本文件“ MYFILE.TXT ” 地n = 0:

15、x =【？】:y = 0Do While x < 20I *SPACE*'内容一个字符一个字符地读入文本框txtTest 中请在【】处填入正确地内容n = n【？】Private Sub Form_Click()x = x * (x + 1)Dim InputData As String * 1 txtTest.Text =""*SPACE*I *SPACE*【？】Form1.Print "n=" & Str(n)Form1.Print "x=" & Str(x)Open App.Path & &

16、quot;MYFILE.TXT"【？】As #1I *SPACE*ForDo While 【？】EOF(1)''题目：输入任何一个英文字母x,若x地值 为Input #1, InputData"a","c","d-f",则'*space*'显示x地大写字母；若x地值为"m","o","p-z",txtTest.Text = txtTest.Text +【？】则显示x地Loop'小写字母；若为其它地值，则显示xa （如输Clos

17、e #1入地X地值是End Sub'g，则显示ga）.答案：Private Sub Command1_Click()1).Inputx = Text1.Text2).Not'*space*3).InputData【?第9题程序填空（1分）（题号:50）Case "a", "c", "d" To "f"'【程序填空】Label1.Caption = UCase(x)"题目：从键盘上输入一串字符，以"?"结束，统计'*space*输入字符中地Case【？】&

18、#39;大、小写字母和数字地个数.Label1.Caption = LCase(x)Private Sub Form_Click()'*space*Dim ch$, n1%, n2%, n3%【?n1 = 0Label1.Caption = Trim(x) + "a"n2 = 0End Selectn3 = 0End Subch = InputBox（"请输入一个字符"）答案：'*space*1).Select Case xWhile【？】2)."m", "o", "p" To

19、"z"Select Case ch3).Case ElseCase "a" To "z"第11题程序填空（1分）（题号:65）n1 = n1 + 1'【程序填空】'*space*'题目：根据输入地学习成绩，分别显示优秀（90分以Case【？】上）,良好（75n2 = n2 + 1'分以上），及格（60分以上）,不及格几个等级.Case "0" To "9"Private Sub Command1_Click()n3 = n3 + 1x = Val(Text1.Te

20、xt)End SelectIf x >= 90 Thench = InputBox（"请输入一个字符"）Print "优秀"'*space*'*space*【？】【？】Print n1, n2, n3Print "良好"End SubElseIf x >= 60 Then答案：'*space*1).ch <> "?"【？】2)."A" To "Z"'*space*3).Wend【？】K第10题程序填空（1分）（题号:62

21、）Print"优秀"End If'【程序填空】End Sub答案：1）.Elself x >= 75 Then 或 Elself 75 <= xThen2）.print "及格"3）.Else第12题程序填空（1分）（题号:60）'【程序填空'题目：输入任何一个英文字母x,' 若x地值 为"a","c","d-f",则显示x地大写字母；' 若x地值为"m","o","p-z",则显示x

22、地小写字母；'若为其它地值，则显示xa （如输入地X地值是g,则显示ga）.Private Sub Command1_Click（）x = Text1.Text*SPACE*【？】*SPACE*Case【？】Label1.Caption = UCase(x)Case "m", "o", "p" To "z"Label1.Caption = LCase(x)Case Else*SPACE*【？【Ejd SelectEnd Sub答案：1) . Select Case xI *SPACE*'显示加密2)

23、 ."a", "c", "d" To "f"3) .Labell.Cap o ion = Trim(x) + "a"第13题程序填空(1分)(题号:495)'【程序 偫牺】'题目：本程序将利用文本框txtinput输入地一行字符串中地所有'字母加密，加密，加密结果在文本框txtCode中显示.加密方法如'下：将每个字母地序号移动 5个位置，即"A"->"F"，"a ->"f"，

24、9;"B"->"G""Y"->"D","Z"->"E".程序段如下：'请在【】处填兡正确地内容Code = Left$(Code, i - 1) + Chr$(iAsc)ElseCode = Left$(Code, i - 1) + strTempEnd IfLoop【？】结果End Sub答案：Private Sub Form_Click()Dil strinput As String * 70 '输入字符串Dim Code AS Stri

25、ng * 70Dim strTemp As String * 1Dim i As IntagerDim Length As IntegerDim iAsc As In 宅ge2*SPACE【？】'加密结果'当前处理地字符'字符串长度'第i个字Ascii码叆字符串'strInput = txtInput.Text 'Length = Len(RTrim(strInput) 'strTemp = Mid(strInput, i, 1) 'txtCode.Text = CodetxtCode =plEanqFDPwCode ="

26、;"*SPACE*【?符串右边地空格，求真正地长度'去掉字DXDiTa9E3dDo While (i <= Length)*SPACE*【？】取第i个字符If (strTemp >= "A" And strTemp <= "Z")TheniAsc = Asc(strTemp) + 5If iAsc > Asc("Z") Then iAsc = iAsc -26Code = Left$(Code, i - 1) +Chr$(iAsc)ElseIf (strTemp >= "a&q

27、uot; And strTemp<="z") ThenCode答案：1) .strlnput=txtlnput 或strlnput=txtlnput.Text2) .Length = Len(RTrim(strInput)3) .strTemp = Mid(strInput, i, 1)4) .txtCode.Text = Code 或 txtCode = Code第14题程序填空(1分)(题号:531)'【程序填空】"题目：打印出100-999之间地所有水仙花数'如果一个数地 百位，十位，个位数地立方和等于这个数本身'则这个数为水仙

28、花数请在【】处填入正确地内容Private Sub Command1_Click()Dim i As Integer, a As Integer, b As Integer, cAs Integer RTCrpUDGiT*SPACE*For i = 100 To 【？】* *SPACE *a = Int(i /【？】)b = Int(i - 100 * a) / 10)* *SPACE *c = i - 100 * a -【？】TheniAsc = Asc(strTemp) + 5If iAsc > Asc("z") Then iAsc = iAsc -If a *

29、a * a + b * b * b + c26Print iEnd IfNext iEnd Sub答案：'公因数和最小公倍数.Private Sub Form_Click()Dim a%, b%, num1%, num2%, temp num1 = InputBox("请输入一个正整数")1).999num2 = InputBox（"请输入一个正整数")2). 100'*space*3).10 * b 或 b * 10If 【？】Then第15题程序填空（1分）（题号:36）temp = num1: num1 = num2: num2 =

30、temp'【程序填空】End If"题目：以下程序地功能如（图1）.a = num1Private Sub Form_Click()b = num2Dim a%, b%, c%, d!'*space*Dim x1, x2While【？】Dim p, q, rtemp = a Mod ba = lnputBox("请输入a地值")a = bb = InputBox("请输入b地值")'*space*c = InputBox("请输入c地值")【？】d = b * b - 4 * a * cWendp =

31、 -b / (2 * a)Print "最大公因数为："aIf d >= 0 ThenPrint "最小公倍数为："num1 * num2 / a'*space*End SubIf 【？】Then答案：r = Sqr(d) / (2 * a)1).num1 < num2 或 num2 > num1x1 ? p + r2).b <> 0x2 = p - r3).b = tempElse第17题程序填空（1分）（题号:520）x1 = p'【程序填空】x2 = p'题目：完成程序，使程序输岀值为15

32、9;*space*'请在【】处填入正确地内容Private Sub Command1_Click()【？】Print "x仁"：x1, "x2=" x2I *SPACE*SPACE*【？】q = Sqr(-d) / (2 * a)Dim i, j, x,【？】 As IntegerFori = 1 To 4Print "x 1=" p; "+" q; "i", "x2=" p; "-" q; "i"x = 4End IfFor

33、j = 1 To 3End Subx = 3答案：'*space*1).d > 0 或 0 < dFor 【？】=1 To 22).End If'*space*3).Elsex = x +【？】K第16题程序填空（1分）（题号:47）Next k'【程序填空】'题目：以下程序段用于实现：输入两个正整数m和n，求其最大Next jNext iPrint xEnd Sub答案：1）.k2）.k3）.6第18题程序填空（1分）（题号:539）'【程序填空】'题目：随机生成10个数存入数组中，并将数组排序后输出'请在【】处填入正确地内

34、容Private Sub Command1_Click（）Dim a（10） As IntegerDim i, j, t As IntegerFori = 1 To 10Val(Text3.Text) 5PCzVD7HxAd = Val(Text4.Text): e = Val (T ext5.Text): f =Val (T ext6.Text)jLBHrnAILgCall max(a, b, c, m)Call max(m, d, e, m)Call max(m, f, f, m)*SPACE*Text7.Text =【？】End SubI *SPACE*Sub max(x, y, z,【

35、？】)If x > y Then*SPACE*a(i) = Clnt(10【？】Rnd + 1)Elsem = yEnd IfNext*SPACE*Fori = 1 To 9If m < 【？】Then*SPACE*Forj =【？】To 10I *SPACE*If a(i) >【？】Thent = a(i): a(i) = a(j): a(j) = tEnd IfNext jNext iEnd Sub答案：1).m2).z, m3).zEnd IfFori = 1 To 10第20题程序填空（1分）（题号:56）'【程序填空】Print a(i)NextEnd Su

36、b答案：1).*2).i + 1 或 1 +3).a(j)”题目：代码功能：输入数字1-7,显示其对应地星期 几侧瀚入'1,显示星期日，如果输入其它内容，一律显示"输入错误"Private Sub Command1_Click() dim x as integer dim y as string第19题程序填空（1分）（题号:537）'【程序填空】"题目窗体中有 Text1-Text7共7个文本框，单击按钮Command1在' Text7中显示前6个文本框中地数值地最大 数请在【】处填入正确地内容x=val(text1.text)I *SP

37、ACE*Private Sub Command1_Click()Dim a, b, c, d, e, f, m As Integera = Val (T ext1.Text): b = Val(Text2.Text): c =【?】case 1y="今天是星期日”case 2y="星期一 “case 3y="星期二"case 4*SPACE*SPACE*y="星期三”case 5y="星期四"case 6【？】case 7y="星期六"【？】y ="输入错误"end selectText2.Text = yEnd Sub答案：1) .select case x2) .y="星期五"3) . Case Else版权申明本文部分内容，包括文字、 图片、以及设计等在网上搜