VB上机练习题

〖第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 【n】 a(k) = Val(InputBox("请输入第" & k & "个数")) Print a(k); Next k Print '**********SPACE********** m = Int(【n / 2】) 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 k End Sub 答案 八年级地理上册填图题岩土工程勘察试题省略号的作用及举例应急救援安全知识车间5s试题及答案 ：1). n 2). n / 2 3). a(h) = a(k) 〖第2题〗『程序填空』(1分)(题号:498) '【程序填空】 ''题目：本程序执行功能为，命令按钮单击一次后，窗体上输出结果为： '36 '25 '16 '9 请在【】处填入正确的内容 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 I End 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 #1 End Sub 答案： 1). Output 2). Input 3). 1 〖第5题〗『程序填空』(1分)(题号:503) '【程序填空】 ''题目：用户界面如图所示，用实现左右两个组合框中数据的左移和右移功能。 ' 程序开始运行时，在左边组合框中生成10个由小到大排列的随机三位 ' 正整数 (假设在 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 阶段该组合框的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 Sub Private 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 = True End Sub Private Sub Command3_Click() End End Sub Private 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 < 20 '**********SPACE********** n = n 【?】 y = x + y x = x * (x + 1) '**********SPACE********** 【?】 Form1.Print "n=" & Str(n) Form1.Print "x=" & Str(x) Form1.Print "y=" & Str(y) End Sub 答案： 1). 1 2). + 1 3). Loop 〖第8题〗『程序填空』(1分)(题号:507) '【程序填空】 '题目： 本程序实现功能：将顺序文本文件 “MYFILE.TXT” 的 ' 内容一个字符一个字符地读入文本框t俄xtTest中 请在【】处填入正确的内容 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 = 0 n2 = 0 n3 = 0 ch = 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 Select ch = InputBox("请输入一个字符") '**********SPACE********** 【?】 Print n1, n2, n3 End 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 Select End 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 If End Sub 答案： 1). ElseIf x >= 75 Then 或 ElseIf 75 <= x Then 2). print "及格" 3). Else 〖第12题〗『程序填空』(1分)(题号:60) '【程序填空 '题目：输入任何一个英文字母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********** 【?】 '**********SPACE********** Case 【?】 Label1.Caption = UCase(x) Case "m", "o", "p" To "z" Label1.Caption = LCase(x) Case Else '**********SPACE********** 【?【 Ejd Select End Sub 答案： 1). Select Case x 2). "a", "c", "d" To "f" 3). Label1.CapÓion = ★Trim(x) ★+★ "a" 〖第13题〗『程序填空』(1分)(题号:495) '【程序偫牺】 '题目：本程序将利用文本框txtInput输入的一行字符串中的所有 '字母加密，加密，加密结果在文本框txtCode中显示。加密方法如 '下：将每个字母的序号移动5个位置，即"A"->"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 In⁴ege2 '第i个字Ascii码 '**********SPACE********(* 【?】 叆字符串 i = 1 Code = "" '**********SPACE********** 【?】 '去掉字符串右边的空格，求真正的长度 Do While (i <= Length) '**********SPACE********** 【?】 '取第i个字符 If (strTemp >= "A" And strTemp <= "Z") Then iAsc = Asc(strTemp) + 5 If iAsc > Asc("Z") Then iAsc = iAsc - 26 Code = Left$(Code, i - 1) + Chr$(iAsc) ElseIf (strTemp >= "a" And strTemp <= "z") Then iAsc = Asc(strTemp) + 5 If iAsc > 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 i End 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, x2 Dim p, q, r a = InputBox("请输入a的值") b = InputBox("请输入b的值") c = InputBox("请输入c的值") d = b * b - 4 * a * c p = -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; "i" End If End 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%, temp num1 = InputBox("请输入一个正整数") num2 = InputBox("请输入一个正整数") '**********SPACE********** If 【?】 Then temp = num1: num1 = num2: num2 = temp End If a = num1 b = num2 '**********SPACE********** While 【?】 temp = a Mod b a = b '**********SPACE********** 【?】 Wend Print "最大公因数为："; a Print "最小公倍数为："; num1 * num2 / a End Sub 答案： 1). num1 < num2 或 num2 > 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-Text7共7个文本框，单击按钮Command1在 ' Text7中显示前6个文本框中的数值的最大数 请在【】处填入正确的内容 Private Sub Command1_Click() Dim a, b, c, d, e, f, m As Integer a = Val(Text1.Text): b = Val(Text2.Text): c = Val(Text3.Text) d = Val(Text4.Text): e = Val(Text5.Text): f = Val(Text6.Text) Call max(a, b, c, m) Call max(m, d, e, m) Call max(m, f, f, m) '**********SPACE********** Text7.Text = 【?】 End Sub '**********SPACE********** Sub max(x, y, z, 【?】) If x > y Then m = x Else m = y End If '**********SPACE********** If m < 【?】 Then m = z End If End Sub 答案： 1). m 2). z, m 3). z 〖第20题〗『程序填空』(1分)(题号:56)'【程序填空】 ''题目：代码功能：输入数字1-7,显示其对应的星期几(例:输入 ' 1,显示星期日,如果输入其它内容，一律显示"输入错误" Private Sub Command1_Click() dim x as integer dim y as string x=val(text1.text) '**********SPACE********** 【?】 case 1 y="今天是星期日" case 2 y="星期一" case 3 y="星期二" case 4 y= "星期三" case 5 y="星期四" case 6 '**********SPACE********** 【?】 case 7 y= "星期六" '**********SPACE********** 【?】 y = "输入错误" end select Text2.Text = y End Sub 答案： 1). select case x 2). y="星期五" 3). Case Else 〖第21题〗『程序填空』(1分)(题号:64) '【程序填空】 '题目：输入任何一个英文字母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********** 【?】 '**********SPACE********** Case 【?】 Label1.Caption = UCase(x) Case "m", "o", "p" To "z" Label1.Caption = LCase(x) Case Else '**********SPACE********** 【?】 End Select End Sub 答案： 1). Select Case x 2). "a", "c", "d" To "f" 3). Label1.Caption = Trim(x) + "a" 〖第22题〗『程序填空』(1分)(题号:494) '【程序填空】 '题目：本程序用辗转相除法求自然数m、n的最大分约数和最小公倍数，求最大公约数的算法如下: '(1) 对于己知两数m、n，使得m>n; '(2) m除以n得余数r; '(3) 若r=0，则n为求得的最大公约数，算法结束；否则执行(4) '(4) m<-n，n<-r再重复执行(2) '原两数相乘除以最大公约数即为最小公倍数，程序如下: '请在【】处填入正确的内容 Private Sub Form_Click() Dim m%, n%, mn% n = Val(InputBox("n=")) m = Val(InputBox("n=")) If n <= 0 Or m <= 0 Then MsgBox "数据出错" Exit Sub End If '**********SPACE********** 【?】 '**********SPACE********** If 【?】 Then t = m m = n n = t End If '**********SPACE********** Do While 【?】 '**********SPACE********** 【?】 m = n n = r Loop Form1.Print "最大公约数="; m Form1.Print "最小公倍数="; mn / m End Sub 答案： 1). mn=n*m 或 mn=m*n 2). n>m 或 m 0 或 0 <> n 4). r = m Mod n 〖第23题〗『程序填空』(1分)(题号:53) '【程序填空】 题目：下面的程序实现：从键盘输入一个数字，将其插入一个 ' 有序数组中，插入后的数组仍保持有序。 Private Sub Form_Click() Dim a(10) As Integer, x As Integer For i = 1 To 8 a(i) = 2 * i - 1 Print a(i); Next i Print x = InputBox("请输入要插入的整数") '**********SPACE********** 【?】 i = 8 Do While a(i) > x '**********SPACE********** 【?】 i = i - 1 Loop '**********SPACE********** If i > 0 Then 【?】 For i = 1 To 9 Print a(i); Next i End Sub 答案： 1). a(0) = x 2). a(★i ★+★ 1★) = a(i) 3). a(★i★ +★ 1★) = x 〖第24题〗『程序填空』(1分)(题号:518) '【程序填空】 ''题目：将字符串S1反向输出 '请在【】处填入正确的内容 Private Sub Command1_Click() Dim s1 As String, s2 As String s1 = "abcdef" '**********SPACE********** Call Invert(【?】, s2) Print s2 End Sub Private Sub Invert(ByVal xstr As String, ystr As String) Dim tempstr As String Dim i As Integer '**********SPACE********** i = 【?】 Do While i >= 1 tempstr = tempstr + Mid(xstr, i, 1) i = i - 1 '**********SPACE********** 【?】 ystr = tempstr End Sub 答案： 1). s1 2). Len(xstr) 3). Loop 〖第25题〗『程序填空』(1分)(题号:38) 【程序填空】 题目：下面的程序段，用于实现在一个nXm的矩阵中，找出值最 ' 大的元素所在的行和列，并输出其值及行号和列号。 Private Sub Form_Click() Dim mat() As Integer Dim n, m As Integer n = Val(InputBox("请输入矩阵的行数")) m = Val(InputBox("请输入矩阵的列数")) '**********SPACE********** 【?】 For i = 1 To n For j = 1 To m mat(i, j) = InputBox("请输入数组元素值") mat(i, j) = Val(mat(i, j)) Next j Next i Print "所建立的矩阵为" For i = 1 To n For j = 1 To m Print mat(i, j); Next j Print Next i Max = mat(1, 1) For i = 1 To n For j = 1 To m '**********SPACE********** If 【?】 Then Max = mat(i, j) col = j '**********SPACE********** 【?】 End If Next j Next i Print Print "矩阵最大的元素的值为："; mat(row, col) Print "它所在的行号为："; row; "列号为："; col End Sub 答案： 1). ReDim mat(n, m) As Integer 2). Max < mat(i, j) 或 mat(i, j) > Max 3). row = I〖第26题〗『程序填空』(1分)(题号:529) -【程序填空】题目：窗体上建立了两个文本框Text1(输入字符串)及 ' Text2(转换结果)，一个命令按钮Command1("清除")。 ' 录入Text1内容时将，将录入内容大写字母转为小写， ' 小写转为大写 请在【】处填入正确的内容 Private Sub Command1_Click() Text1.Text = "" Text2.Text = "" Text1.SetFocus End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) Dim s As String * 1 '**********SPACE********** s = 【?】(KeyAscii) Select Case s '**********SPACE********** Case "A" 【?】 "Z" s = LCase(s) Case "a" To "z" '**********SPACE********** s = 【?】 Case Else s = "*" End Select Text2.Text = Text2.Text + s End Sub 答案： 1). Chr 2). To 3). UCase(s) 〖第27题〗『程序填空』(1分)(题号:508) 【程序填空】 题目：用Circle 方法在图片框中正中画出许多不同颜色的同心圆， ' 且不能画出图片框? '请在【】处填入正确的内容 Private Sub Picture1_Click() Dim CX, CY, Radius, Limit ScaleMode = 3 '**********SPACE********** CX = 【?】 CY = Picture1.ScaleHeight / 2 '**********SPACE********** If CX > CY Then Limit = CY Else 【?】 '**********SPACE********** For Radius = 0 To 【?】 Picture1.Circle (CX, CY), Radius, RGB(Rnd * 255, Rnd * 255, Rnd * 255) Next Radius End Sub 答案： 1). Picture1.ScaleWidth / 2 2). Limit = CX 3). Limit 〖第28题〗『程序填空』(1分)(题号:52) 【程序填空】 '题目：下面的程序段用于打印出以下图形 ' ' * ' *** ' ***** ' ******* ' ***** ' *** ' * '------------------------------------------------------- Private Sub Form_Click() Dim i%, j%, k% For i = 0 To 3 For j = 0 To 2 - i Print " "; Next j '**********SPACE********** For k = 0 To 【?】 Print "*"; Next k Print Next i For i = 0 To 2 For j = 0 To i '**********SPACE********** 【?】 Next j For k = 0 To 4 - 2 * i Print "*"; Next k '**********SPACE********** 【?】 Next i End Sub 答案： 1). 2★ *★ i★+★1 2). Print " "; 3). Print 〖第29题〗『程序填空』(1分)(题号:57) 【程序填空】 '题目：代码功能：求 1!+2!+……10!的值。 Private Sub Form_Click() '**********SPACE********** 【?】 s = 1 For I = 2 To 10 t = t * I '**********SPACE********** 【?】 '**********SPACE********** 【?】 Print s End Sub 答案： 1). t = 1 2). s =★ s★ +★ t 3). Next I 或 Next 〖第30题〗『程序填空』(1分)(题号:515) '【程序填空】 '题目：由输入对话框输入n（n必须为大于零且小于30的自然数）， ' 计算下列表达式的值，并在标签框Label1上显示。 ' sum=1/2+1/6+ ... +1/(k*(k=1)) (k0 且n<30)")) '**********SPACE********** Do While n <= 0 【?】 n >= 30 n = Val(InputBox("n=", "请重输入")) Loop sum = 0 k = 0 Do '**********SPACE********** k =【?】 sum = sum + 1 / (k * (k + 1)) '**********SPACE********** Loop Until k >= 【?】 Label1.Caption = "Sum=" + Str(sum) End Sub 答案： 1). Or 2). k + 1 或 1 + k 3). >= n 〖第31题〗『程序填空』(1分)(题号:51) 【程序填空】题目：下面的程序段用于建立文件并输出文件，文件内容如下： ' '***** ' ***** ' ***** ' ***** ' ***** '------------------------------------------------------- Private Sub Form_Click() '**********SPACE********** Open "c:\1.txt" For 【?】 As #1 For i = 1 To 5 Print #1, Spc(i); "*****" Next i '**********SPACE********