VB上机练习题.doc

第1题程序填空(1分)(题号:532)【程序填空】题目：输入n个数，n由用户输入。 程序的功能是将输入的n个数反向输出?请在【】处填入正确的Private Sub Form_Load() Dim n As Integer Dim k As Integer Dim m As Integer Dim h As Integer Dim t As Integer Show Dim a(100) As Single n = Val(InputBox(输入个数n) Print 处理前数据 : *SPACE* For k = 1 To 【?】 a(k) = Val(InputBox(请输入第 & k & 个数) Print a(k); Next k Print *SPACE* m = Int(【?】) For k = 1 To m h = n - k + 1 *SPACE* t = a(h): 【?】: a(k) = t Next k Print 处理的结果 : For k = 1 To n Print a(k); Next kEnd Sub答案：1). n 2). n / 2 3). a(h) = a(k)第2题程序填空(1分)(题号:498)【程序填空】题目：本程序执行功能为，命令按钮单击一次后，窗体上输出结果为：3625169请在【】处填入正确的内容Private Sub Command1_Click() Dim xx(6) As Integer Dim k% Open App.Path & al.dat For Output As #1 For I = 1 To 6 *SPACE* j = 【?】 Print #1, j Next I Close #1 Open App.Path & a1.dat For Input As #2 k = 0 Do While Not EOF(2) *SPACE* k = 【?】 Input #2, xx(k) Loop Close #2 *SPACE* For I = k To k / 2 Step【?】 Form1.Print xx(I) Next IEnd Sub答案： 1). I * I 2). k + 1 或 1 + k 3). -1第3题程序填空(1分)(题号:501)【程序填空】题目：本程序执行后，最终在窗体上打印数字7。请在【】处填入正确的内容Private Sub Command1_Click() Dim a As String *SPACE* Open App.Path & abc.bat For 【?】 As #1 n = 8 For I = 1 To n Print #1, I + 1 Next I Close #1 *SPACE* Open App.Path & abc.bat For 【?】 As #1 For I = 1 To n Input #1, a If I Mod 5 = 0 Then *SPACE* Print CInt(a) + 【?】 End If Next I Close #1End Sub答案： 1). Output 2). Input 3). 1第4题程序填空(1分)(题号:46)【程序填空】题目：从键盘输入学生分数，统计学生总人数和各分数段人数， 即优秀（90-100）、良好（80-89）、中等（70-79）、 及格（60-69）、不及格（60以下）的人数。Private Sub Form_Click()Dim score%, n1%, n2%, n3%, n4%, n5%msg = 请输入分数（-1结束）msgtitile = 输入数据score = Val(InputBox(msg, msgtitle)*SPACE*While 【?】 total = total + 1*SPACE* Select Case 【?】 Case Is = 90 n1 = n1 + 1 Case Is = 80 n2 = n2 + 1 Case Is = 70 n3 = n3 + 1 Case Is = 60 n4 = n4 + 1 Case Else n5 = n5 + 1*SPACE* 【?】score = Val(InputBox(msg, msgtitle)WendPrint n1, n2, n3, n4, n5,totalEnd Sub答案： 1). score =0 And score = 100 或 0=score And score = 100 或 0=score 或 score =0 And 100=score 2). score 3). End Select第5题程序填空(1分)(题号:503)【程序填空】题目：用户界面如图所示，用实现左右两个组合框中数据的左移和右移功能。 程序开始运行时，在左边组合框中生成10个由小到大排列的随机三位 正整数 (假设在设计阶段该组合框的Sorted属性值已设置为True), 现要求完成: （1）单击钮，左边组合框中的10个数全部移动到右边组合框，并由大到 小排列，同时使钮能响应，钮不能响应。 （2）单击钮，右边组合框中的10个数全部移到左边的组合框，并由小到 大排列，同时使钮能响应，钮不能响应； （3）单击结束按钮，结束程序运行。请在【】处填入正确的内容Private Sub cmdLeft_Click() Dim i As Integer For i = 0 To comboRight.ListCount - 1 comboLeft.AddItem comboRight.List(i) Next i comboRight.Clear *SPACE* 【?】= False *SPACE* 【?】 = True End SubPrivate Sub cmdRight_Click() Dim i As Integer *SPACE* For i = 0 To 【?】 - 1 comboRight.AddItem comboLeft.List(i) Next i *SPACE* 【?】.Clear cmdRight.Enabled = False cmdLeft.Enabled = TrueEnd SubPrivate Sub Command3_Click() EndEnd SubPrivate Sub Form_Load() Dim i As Integer Label1.Caption = 组合框1 Label2.Caption = 组合框2 cmdRight.Caption = cmdRight.Enabled = True cmdLeft.Caption = cmdLeft.Enabled = False cmdExit.Caption = 结束 comboLeft.Text = For i = 1 To 10 comboLeft.AddItem Int(Rnd * 900) + 100 Next i comboRight.Text = End Sub答案： 1). cmdLeft.Enabled 2). cmdRight.Enabled 3). comboLeft.ListCount 4). comboLeft第6题程序填空(1分)(题号:511)【程序填空】题目：程序输出结果为：n=3 x=42 y=9请在【】处填入正确的内容Private Sub Command1_Click() Dim n, x, y As Integer *SPACE* n = 0: x =【?】: y = 0 Do While x max Then 【?】 If b min Then min = b *SPACE* If 【?】 Then max = c If c max 或 max c第8题程序填空(1分)(题号:507)【程序填空】题目： 本程序实现功能：将顺序文本文件 “MYFILE.TXT” 的 内容一个字符一个字符地读入文本框txtTest中请在【】处填入正确的内容Private Sub Form_Click() Dim InputData As String * 1 txtTest.Text = *SPACE* Open App.Path & MYFILE.TXT For 【?】 As #1 *SPACE* Do While 【?】 EOF(1) Input #1, InputData *SPACE* txtTest.Text = txtTest.Text + 【?】 Loop Close #1 End Sub答案： 1). Input 2). Not 3). InputData第9题程序填空(1分)(题号:50)【程序填空】题目：从键盘上输入一串字符，以?结束，统计输入字符中的 大、小写字母和数字的个数。Private Sub Form_Click()Dim ch$, n1%, n2%, n3%n1 = 0n2 = 0n3 = 0ch = InputBox(请输入一个字符)*SPACE*While 【?】 Select Case ch Case a To z n1 = n1 + 1*SPACE* Case 【?】 n2 = n2 + 1 Case 0 To 9 n3 = n3 + 1 End Selectch = InputBox(请输入一个字符)*SPACE*【?】Print n1, n2, n3End Sub答案： 1). ch ? 2). A To Z 3). Wend第10题程序填空(1分)(题号:62)【程序填空】题目：输入任何一个英文字母x,若x的值 为a,c,d-f ,则 显示x的大写字母；若x的值为m,o,p-z,则显示x的 小写字母；若为其它的值,则显示xa（如输入的X的值是 g，则显示ga）。Private Sub Command1_Click()x = Text1.Text*SPACE* 【?】 Case a, c, d To f Label1.Caption = UCase(x)*SPACE* Case 【?】 Label1.Caption = LCase(x)*SPACE* 【?】 Label1.Caption = Trim(x) + a End SelectEnd Sub答案： 1). Select Case x 2). m, o, p To z 3). Case Else第11题程序填空(1分)(题号:65)【程序填空】题目：根据输入的学习成绩,分别显示优秀(90分以上), 良好(75 分以上),及格(60分以上),不及格几个等级。Private Sub Command1_Click()x = Val(Text1.Text)If x = 90 Then Print 优秀*SPACE*【?】 Print 良好ElseIf x = 60 Then*SPACE* 【?】*SPACE*【?】 Print 优秀End IfEnd Sub答案： 1). ElseIf x = 75 Then 或 ElseIf 75 F，a -f，B-G.Y-D,Z-E.程序段如下：请在【】处填兡正确的内容Private Sub Form_Click() Dil strInput As String * 70 输入字符串 Dim Code AS String * 70 加密结果 Dim strTemp As String * 1 当前处理的字符 Dim i As Intager Dim Length As Integer 字符串长度 Dim iAsc As Inege2 第i个字Ascii码 *SPACE*(* 【?】 叆字符串 i = 1 Code = *SPACE* 【?】 去掉字符串右边的空格，求真正的长度 Do While (i = A And strTemp Asc(Z) Then iAsc = iAsc - 26 Code = Left$(Code, i - 1) + Chr$(iAsc) ElseIf (strTemp = a And strTemp Asc(z) Then iAsc = iAsc - 26 Code = Left$(Code, i - 1) + Chr$(iAsc) Else Code = Left$(Code, i - 1) + strTemp End If i = i + 1 Loop *SPACE* 【?】 显示加密结果End Sub答案:strInput = txtInput.Text Length = Len(RTrim(strInput) strTemp = Mid(strInput, i, 1) txtCode.Text = Code txtCode = Code 答案： 1). strInput=txtInput 或 strInput=txtInput.Text 2). Length = Len(RTrim(strInput) 3). strTemp = Mid(strInput, i, 1) 4). txtCode.Text = Code 或 txtCode = Code第14题程序填空(1分)(题号:531)【程序填空】题目：打印出 100-999 之间的所有水仙花数 如果一个数的 百位，十位，个位数的立方和等于这个数本身 则这个数为水仙花数请在【】处填入正确的内容Private Sub Command1_Click() Dim i As Integer, a As Integer, b As Integer, c As Integer *SPACE* For i = 100 To 【?】 *SPACE* a = Int(i / 【?】) b = Int(i - 100 * a) / 10) *SPACE* c = i - 100 * a - 【?】 If a * a * a + b * b * b + c * c * c = i Then Print i End If Next iEnd Sub答案： 1). 999 2). 100 3). 10 * b 或 b * 10第15题程序填空(1分)(题号:36)【程序填空】题目：以下程序的功能如(图1)。Private Sub Form_Click()Dim a%, b%, c%, d!Dim x1, x2Dim p, q, ra = InputBox(请输入a的值)b = InputBox(请输入b的值)c = InputBox(请输入c的值)d = b * b - 4 * a * cp = -b / (2 * a)If d = 0 Then*SPACE* If 【?】 Then r = Sqr(d) /(2 * a) x1 p + r x2 = p - r Else x1 = p x2 = p*SPACE* 【?】 Print x1=: x1, x2=; x2*SPACE*【?】 q = Sqr(-d) / (2 *a) Print x1=; p; +; q; i, x2=; p; -; q; iEnd IfEnd Sub答案： 1). d 0 或 0 d 2). End If 3). Else第16题程序填空(1分)(题号:47)【程序填空】题目：以下程序段用于实现：输入两个正整数m和n，求其最大 公因数和最小公倍数。 Private Sub Form_Click()Dim a%, b%, num1%, num2%, tempnum1 = InputBox(请输入一个正整数)num2 = InputBox(请输入一个正整数)*SPACE*If 【?】 Then temp = num1: num1 = num2: num2 = tempEnd Ifa = num1b = num2*SPACE*While 【?】 temp = a Mod b a = b*SPACE* 【?】WendPrint 最大公因数为：; aPrint 最小公倍数为：; num1 * num2 / aEnd Sub答案： 1). num1 num1 2). b 0 3). b = temp第17题程序填空(1分)(题号:520)【程序填空】题目：完成程序，使程序输出值为 15请在【】处填入正确的内容Private Sub Command1_Click() *SPACE* Dim i, j, x,【?】 As Integer For i = 1 To 4 x = 4 For j = 1 To 3 x = 3 *SPACE* For 【?】 = 1 To 2 *SPACE* x = x + 【?】 Next k Next j Next i Print x End Sub答案： 1). k 2). k 3). 6第18题程序填空(1分)(题号:539)【程序填空】题目： 随机生成10个数存入数组中，并将数组排序后输出请在【】处填入正确的内容Private Sub Command1_Click() Dim a(10) As Integer Dim i, j, t As Integer For i = 1 To 10 *SPACE* a(i) = CInt(10 【?】 Rnd + 1) Next For i = 1 To 9 *SPACE* For j = 【?】 To 10 *SPACE* If a(i) 【?】 Then t = a(i): a(i) = a(j): a(j) = t End If Next j Next i For i = 1 To 10 Print a(i) Next End Sub答案： 1). * 2). i + 1 或 1 + i 3). a(j)第19题程序填空(1分)(题号:537)【程序填空】题目：窗体中有Text1-Te