上海海事大学vb题库—程序填空

程序填空 第 1 题程序填空(1 分 )(题号:59) 功能：输入一个数,若大于 0,则显示“+“；若小于 0，则显示 “-“；若等于“0“, 则显示“ 零“。 Private Sub Command1_Click( ) x = Val(Text1.Text) Select Case x *SPACE* 【?】 Label1.Caption = “+“ Case Is 0 2). Label1.Caption = “-“ 3). Case 0 或 Case Else 或 Case Is = 0 第 2 题程序填空(1 分 )(题号:60) 功能：输入任何一个英文字母 x, 若 x 的值为“a“,“c“,“d-f“ ,则显示 x 的大写字母； 若 x 的值为“m“,“o“,“p-z“,则显示 x 的小写字母； 若 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“ 或 Label1.Caption = x + “a“ 第 5 题程序填空(1 分 )(题号:49) 功能：以下程序段用于求n! Private Sub Form_Click() Dim sum As Integer, n As Integer n = InputBox(“请输入一个正整数 “) sum = 0 For i = 1 To n *SPACE* sum =【? 】 Next i Print sum End Sub Private Function mul(ByVal x As Integer) Dim s As Integer, i As Integer s = 1 *SPACE* For i = 1 To 【? 】 s = s * i Next i *SPACE* 【?】 End Function 答案： 1). Sum + mul(i) 2). x 3). mul = s 第 6 题程序填空(1 分 )(题号:61) 功能：根据输入的学习成绩,分别显示优秀(90 分以上), 良好 (75 分以上), 及格(60 分以上), 不及格几个等级。 Private Sub Command1_Click() x = Val(Text1.Text) If x = 90 Then Label1.Caption = “优秀“ *SPACE* ElseIf 【?】Then Label1.Caption = “良好“ ElseIf x = 60 Then *SPACE* 【?】 *SPACE* 【?】 Label1.Caption = “不及格“ End If End Sub 答案： 1). x = 75 或 75 = 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) Wend Print n1, n2, n3, n4, n5,total End Sub 答案： 1). score =0 And score =score 或 score =0 And 100=score 2). score 3). End Select 第 9 题程序填空(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 第 10 题程序填空(1 分)( 题号:41) 下面过程 max()用于求 3 个数中最大值，利用这个过程求 5 个数中最大值。 Private Sub Form_Click() Print “5 个数 34、124、68、73、352 的最大值是：“ max1 = max(34, 124, 68) *SPACE* max1 =【?】 Print max1 End Sub Public Function max(ByVal a%, ByVal b%, ByVal c%) *SPACE* If 【?】 Then m = a Else m = b End If *SPACE* If 【?】 Then max = m Else max = c End If End Function 答案： 1). max(max1, 73, 352) 2). ab 或 b c 或 c a(j + 1) Then x = a(j) a(j) = a(j + 1) a(j + 1) = x *SPACE* 【?】 End If Next j *SPACE* If work Then 【?】 Next i For i = 1 To n Print a(i); Next i End Sub 答案： 1). Step -1 2). work = False 或 work=0 或 not work = true 3). Exit For 第 12 题程序填空(1 分)( 题号:37) 功能：以下程序用于判断一个正整数（3）是否为素数。 Private Sub Form_Click() n = InputBox(“请输入一个正整数（ 3）“) k = Int(Sqr(n) i = 2 swit = 0 *SPACE* Do While i “?“ 或 not ch = “?“ 或 not “?“=ch 2). “A“ To “Z“ 3). Loop 第 15 题程序填空(1 分)( 题号:54) - 【程序填空】 - 功能：本程序用于实现：从键盘接收一数字，判断其是否在数组 中，如果在数组中则将其删除，否则显示该数字不在数组 中。 - Private Sub Form_Click() Dim a(10) As Integer, x As Integer For i = 1 To 10 a(i) = Int(Rnd * 90) + 10 Print a(i); Next i Print x = InputBox(“请输入要删除的整数 “) For i = 1 To 10 *SPACE* If a(i) = x Then 【?】 Next i *SPACE* If 【?】 Then For k = i To 9 *SPACE* 【?】 Next k Print “删除后的数组:“ For i = 1 To 9 Print a(i); Next i Else Print “该数字不在数组中“ End If End Sub 答案： 1). Exit For 2). ii 3). a(k) = a( k + 1) 第 16 题程序填空(1 分)( 题号:48) - 【程序填空】 - 功能：利用下面的过程求 m!和 m*n - Private Sub Form_Click() Dim m As Integer, n As Integer m = 2 n = 3 *SPACE* 【?】 End Sub Private Sub find(x As Integer, y As Integer) Dim s, i As Integer *SPACE* 【?】 For i = 1 To x s = s * i *SPACE* p=【?】 Next i Print s, p End Sub 答案： 1). find m, n 或 call find(m,n) 2). s = 1 或 s = 1:p=0 3). p+y 或 x*y 第 17 题程序填空(1 分)( 题号:58) - 【程序填空】 - 功能：求 A,B,C 三个数的最大值。 - Private Sub Command1_Click() A = Val(Text1.Text) *SPACE* 【?】 C = Val(Text3.Text) If A B And A C Then MAXDATE = A *SPACE* ElseIf 【?】 Then MAXDATE = B Else *SPACE* 【?】 End If Label1.Caption = MAXDATE Next j *SPACE* For k = 5 To 【?】 Print “*“; Next k Print Next i For i = 0 To 3 For j = 0 To 2 * i + 2 *SPACE* 【?】 Next j For k = 0 To 4 - 2 * i Print “*“; Next k *SPACE* 【?】 Next i End Sub 答案： 1). 2*i-1Step-1 2). Print “ “; 或 ? “ “; 3). Print 或 ? 第 21 题程序填空(1 分)( 题号:595) - 【程序填空】 - 功能：窗体上建立了一个文本框 Text1(“输入口令“)和一个命令按钮 Command1(“检查“)。 判断密码是否正确，并显示相应提示 在加载窗体时设置密码框最大长度为 8，密码显示字符为“*” - dim x as string Private Sub Command1_Click() x = Text1.Text *SPACE* If x 【?】 “12345678“ Then MsgBox (“欢迎你用机!“) Else MsgBox (“对不起，口令错“) End If Text1.Text = “ Text1.SetFocus End Sub Private Sub Form_Load() Text1.Text = “ *SPACE* Text1.【?】 = 8 *SPACE* Text1.【?】 = “*“ End Sub 答案： 1). = 2). MaxLength 3). PasswordChar 第 22 题程序填空(1 分)( 题号:38) - 【程序填空】 - 功能：下面的程序段，用于实现在一个 nXm 的矩阵中，找出值最 大的元素所在的行和列，并输出其值及行号和列号。 - Private Sub Form_Click() Dim mat() As Integer Dim n as integer, 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 或 ReDim mat(n, m) 2). Max Max 3). row = I 第 23 题程序填空(2 分)( 题号:45) - 【程序填空】 - 功能：下面的程序段用于求矩阵相乘 C=AB，设 A、B 、C 分别为 mp、pn、mn 的矩阵。 - Private Sub Form_Click() Const m = 4, p = 3, n = 2 Dim a(1 To m, 1 To p) As Integer Dim b(1 To p, 1 To n) As Integer Dim c(1 To m, 1 To n) As Integer Dim i As Integer, j As Integer, k As Integer, sum As Integer For i = 1 To m For k = 1 To p a(i, k) = i Next k Next i For i = 1 To p For k = 1 To n b(i, k) = i Next k Next i For i = 1 To m For j = 1 To n *SPACE* 【?】 For k = 1 To p *SPACE* sum = sum +【? 】 Next k *SPACE* c(i, j) =【? 】 Next j, i Print “输出矩阵“ For i = 1 To m For k = 1 To n Print c(i, k), Next k Print Next i End Sub 答案： 1). sum = 0 2). a(i, k) * b(k, j) 3). sum 第 24 题程序填空(2 分)( 题号: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 = 1 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 “ “; 或 form1.print “ “; 或 ? “ “; 3). Print 或 form1.Print 或 ? 第 25 题程序填空(2 分)( 题号: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* Do While 【?】 temp = a Mod b a = b *SPACE* 【?】 Loop Print “最大公因数为：“; a Print “最小公倍数为：“; num1 * num2 / a End Sub 答案： 1). num1 num1 2). b 0 或 0 0 或 temp0 或 0 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) 或 a(1+i) = a(i) 3). a(i + 1) = x 或 a(1 + i) = x 第 1 题程序填空(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 第 2 题程序填空(1 分 )(题号:59) - 【程序填空】 - 功能：输入一个数,若大于 0,则显示“+“；若小于 0， 则显示 “-“；若等于“0“,则显示“零“。 - Private Sub Command1_Click( ) x = Val(Text1.Text) Select Case x *SPACE* 【?】 Label1.Caption = “+“ Case Is 0 2). Label1.Caption = “-“ 3). Case 0 或 Case Else 或 Case Is = 0 第 3 题程序填空(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 b 或 b c 或 c = 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) Wend Print n1, n2, n3, n4, n5,total End Sub 答案： 1). score =0 And score =score 或 score =0 And 100=score 2). score 3). End Select 第 10 题程序填空(1 分)( 题号:61) - 【程序填空】 - 功能：根据输入的学习成绩,分别显示优秀(90 分以上), 良好 (75 分以上),及格(60 分以上), 不及格几个等级。 - Private Sub Command1_Click() x = Val(Text1.Text) If x = 90 Then Label1.Caption = “优秀“ *SPACE* ElseIf 【?】Then Label1.Caption = “良好“ ElseIf x = 60 Then *SPACE* 【?】 *SPACE* 【?】 Label1.Caption = “不及格“ End If End Sub 答案： 1). x = 75 或 75 i 3). a(k) = a( k + 1) 第 12 题程序填空(1 分)( 题号:43) - 【程序填空】 - 功能：下面的程序段用于实现以下功能：利用冒泡法将一组整数 从小到大排序。 - Private Sub Form_Click() Const n = 15 Dim a(1 To n) As Integer, work As Boolean Dim i As Integer, j As Integer, x As Integer Randomize For i = 1 To n a(i) = Int(90 * Rnd) + 10 Next i For i = 1 To n Print a(i); Next i Print *SPACE* For i = n To 2 【 ?】 work = True For j = 1 To i - 1 If a(j) a(j + 1) Then x = a(j): a(j) = a(j + 1): a(j + 1) = x *SPACE* 【?】 End If Next j *SPACE* If work Then 【?】 Next i For i = 1 To n Print a(i); Next i End Sub 答案： 1). Step -1 2). work = False 或 work=0 或 not work = true 3). Exit For 第 13 题程序填空(1 分)( 题号:55) - 【程序填空】 - 功能：过程 suixian 可以判断某一个数字是否是水仙花数，利用 该过程找出三位数中所有水仙花数。 所谓“ 水仙花数“ 是指一个 3 位数，其各位数字立方和等于 该数本身。 - Private Sub Form_Click() Dim i As Integer For i = 100 To 999 *SPACE* 【?】 Next i End Sub Public Sub suixian(x As Integer) Dim i%, j%, k% *SPACE* i =【?】 j = (x - i * 100) 10 k = x - i * 100 - j * 10 *SPACE* If 【?】 Then Print x End Sub 答案： 1). suixian (i) 或 call suixian (i) 或 suixian i 2). x 100 或 int(x/100) 3). x = i 3 + j 3 + k 3 或 x = i*i*i + j*j*j + k *k*k 第 14 题程序填空(1 分)( 题号:58) - 【程序填空】 - 功能：求 A,B,C 三个数的最大值。 - Private Sub Command1_Click() A = Val(Text1.Text) *SPACE* 【?】 C = Val(Text3.Text) If A B And A C Then MAXDATE = A *SPACE* ElseIf 【?】 Then MAXDATE = B Else *SPACE* 【?】 End If Label1.Caption = MAXDATE 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 或 ReDim mat(n, m) 2). Max Max 3). row = I 第 21 题程序填空(1 分)( 题号:592) 下面的程序段用于打印出以下图形 * * * * * * * - Private Sub Form_Click() Dim i%, j%, k% For i = 3 To 0 Step -1 For j = 0 To 2 * i Print “ “; Next j *SPACE* For k = 5 To 【?】 Print “*“; Next k Print Next i For i = 0 To 3 For j = 0 To 2 * i + 2 *SPACE* 【?】 Next j For k = 0 To 4 - 2 * i Print “*“; Next k *SPACE* 【?】 Next i End Sub 答案： 1). 2*i-1Step-1 2). Print “ “; 或 ? “ “; 3). Print 或 ? 第 22 题程序填空(1 分)( 题号:37) - 【程序填空】 - 功能：以下程序用于判断一个正整数（3）是否为素数。 - Private Sub Form_Click() n = InputBox(“请输入一个正整数（ 3）“) k = Int(Sqr(n) i = 2 swit = 0 *SPACE* Do While 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) 或 a(1+i) = a(i) 3). a(i + 1) = x 或 a(1 + i) = x 第 26 题程序填空(2 分)( 题号:39) - 【程序填空】 - 功能：以下程序段用于实现矩阵转置，即将一个 nm 的矩阵的行和列 互换 - Private Sub Form_Click() Const n = 3 Const m = 4 Dim a(n, m), b(m, m) As Integer For I = 1 To n For j = 1 To m a(I, j) = Int(Rnd * 90) + 10 Next j *SPACE* 【?】 For I = 1 To n For j = 1 To m *SPACE* 【?】 Next j Next I Print “矩阵转置前“ For I = 1 To n For j = 1 To m Print a(I, j); Next j *SPACE* 【?】 Next I Print “矩阵转置后“ For I = 1 To m For j = 1 To n Print b(I, j); Next j Print Next I End Sub 答案： 1). Next i 或 Next 2). b(j, i) = a(i, j) 3). print 或 form1.print 或 ? 第 27 题程序填空(2 分)( 题号: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* Do While 【?】 temp = a Mod b a = b *SPACE* 【?】 Loop Print “最大公因数为：“; a Print “最小公倍数为：“; num1 * num2 / a End Sub 答案： 1). num1 num1 2). b 0 或 0 0 或 temp0 或 0 ”?” Select Case ch Case “a“ To “z“ n1 = n1 + 1 *SPACE* Case 【?】 “A” TO”Z” n2 = n2 + 1 Case “0“ To “9“ n3 = n3 + 1 End Select ch = InputBox(“请输入一个字符“) *SPACE* LOOP 【?】 Print n1, n2, n3 End Sub 答案： 1). ch 0 Then *SPACE* 【?】: b(k) = a(i) List2.AddItem b(k) End If Next i Label1.Caption = “数组中零元素个数：“ + Str(n - k) End Sub