1、完整word版VB复习题带答案1程序填空1、功能：要求输入若干学生的成绩，计算平均分和高于平均分的人数，并将这两个数据放入数组的最后。Private Sub Form_Click() Dim mark() As Integer, i%, n%, aver n = InputBox(输入学生的人数) ReDim mark(1 To n) aver = 0 For i = 1 To n mark(i) = Int(Rnd * 101) aver = aver + mark(i) Next i *SPACE* preserve ReDim 【?】 mark(1 To n + 2) 增加两个元素,存放
2、平均分和高于平均分的人数,原来的学生成绩仍保留 mark(n + 1) = aver / n mark(n + 2) = 0 For i = 1 To n *SPACE* If mark(i) mark(【?】) Then mark(n + 2) = mark(n + 2) + 1 n+1 Next i For i = 1 To n Print mark(; i; )=; mark(i) Next i Print 平均分=; mark(n + 1), 高于平均分人数=; mark(n + 2)End Sub2、功能：以下程序的功能如(图1)。Private Sub Form_Click()Di
3、m a%, b%, c%, d!, x1, x2, 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 d0 r = Sqr(d) / (2 * a) x1 = p + r x2 = p - r Else x1 = p x2 = p*SPACE* 【?】 end if Print x1=; x1, x2=; x2*SPACE*【?】 else q = Sqr(-d) / (2
4、 * a) Print x1=; p; +; q; i, x2=; p; -; q; iEnd IfEnd Sub3、功能：以下程序用于判断一个正整数（3）是否为素数。Private Sub Form_Click()n = InputBox(请输入一个正整数（3）)k = Int(Sqr(n)i = 2swit = 0*SPACE*Do While i max Max = mat(i, j) col = j*SPACE* 【?】 row=i End If Next jNext iPrintPrint 矩阵最大的元素的值为：; mat(row, col)Print 它所在的行号为：; row;
5、列号为：; colEnd Sub5、功能：以下程序段用于实现矩阵转置，即将一个nm的矩阵的行和列互换Private Sub Form_Click()Const n = 3Const m = 4Dim a(n, m), b(m, m) As IntegerFor I = 1 To n For j = 1 To m a(I, j) = Int(Rnd * 90) + 10 Next j*SPACE*【?】 next iFor I = 1 To n For j = 1 To m*SPACE* 【?】 b(j,i)=a(I,j) Next jNext IPrint 矩阵转置前For I = 1 To
6、n For j = 1 To m Print a(I, j); Next j*SPACE* 【?】 printNext IPrint 矩阵转置后For I = 1 To m For j = 1 To n Print b(I, j); Next j PrintNext IEnd Sub6、下面过程max()用于求3个数中最大值，利用这个过程求5个数中最大值。Private Sub Form_Click()Print 5个数34、124、68、73、352的最大值是：max1 = max(34, 124, 68)*SPACE*max1 =【?】 max(max1,73,352)Print max1
7、End SubPublic Function max(ByVal a%, ByVal b%, ByVal c%)*SPACE*If 【?】 Then ab m = aElse m = bEnd If*SPACE*If 【?】 Then mc max = mElse max = cEnd IfEnd Function7、功能：以下程序段利用随机函数生成15个10-100之间的整数，然后用选择法将其从小到大排序。Private Sub Form_Click()Const n = 15Dim a(1 To n) As IntegerDim i As Integer, j As Integer, t
8、As Integer, min As IntegerRandomizeFor i = 1 To n*SPACE* a(i) =【?】 int(rnd*91+10)Next iFor i = 1 To n Print a(i);Next iPrintFor i = 1 To n - 1*SPACE* 【?】 t=I For j = i + 1 To n If a(j) a(t) Then t = j Next j*SPACE* If 【?】 Then ti min = a(i): a(i) = a(t): a(t) = min End IfNext iFor i = 1 To n Print a
9、(i);Next iEnd Sub8、功能：下面的程序段用于实现以下功能：利用冒泡法将一组整数从小到大排序。Private Sub Form_Click()Const n = 15Dim a(1 To n) As Integer, work As BooleanDim i As Integer, j As Integer, x As IntegerRandomizeFor i = 1 To n a(i) = Int(90 * Rnd) + 10Next iFor i = 1 To n Print a(i);Next iPrint*SPACE*For i = n To 2 【?】 step -1
10、 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* 【?】 work=false End If Next j*SPACE* If work Then 【?】 exit for Next iFor i = 1 To n Print a(i);Next iEnd Sub9、功能：以下程序的功能如(图1)。Private Sub Form_Click()Dim s As Single, m As Integer, p# s = 1 For m = 1
11、To 10*SPACE* p=【?】n(m) s = s + 1 / p Next m Print sEnd SubFunction n(k%) p = 1 For m = 1 To k*SPACE* p =【?】 p*m Next m*SPACE*【?】 n=pEnd Function10、功能：从键盘输入学生分数，统计学生总人数和各分数段人数，即优秀（90-100）、良好（80-89）、中等（70-79）、及格（60-69）、不及格（60以下）的人数。Private Sub Form_Click()Dim score%, n1%, n2%, n3%, n4%, n5%msg = 请输入分数
12、（-1结束）msgtitile = 输入数据score = Val(InputBox(msg, msgtitle)*SPACE*While 【?】 score=0 and score= 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* 【?】 end selectscore = Val(InputBox(msg, msgtitle)WendPrint n1, n2, n3, n4, n5,totalEnd S
13、ub11、功能：以下程序段用于实现：输入两个正整数m和n，求其最大公因数和最小公倍数。Private Sub Form_Click()Dim a%, b%, num1%, num2%, tempnum1 = InputBox(请输入一个正整数)num2 = InputBox(请输入一个正整数)*SPACE*If 【?】 Then num1num2 temp = num1: num1 = num2: num2 = tempEnd Ifa = num1b = num2*SPACE*Do While 【?】 b0 temp = a Mod b a = b*SPACE* 【?】 b=tempLoopP
14、rint 最大公因数为：; aPrint 最小公倍数为：; num1 * num2 / aEnd Sub12、功能：利用下面的过程求m!和m*nPrivate Sub Form_Click()Dim m As Integer, n As Integer m = 2 n = 3*SPACE* 【?】find m,nEnd SubPrivate Sub find(x As Integer, y As Integer) Dim s, i As Integer*SPACE* 【?】 s=1 For i = 1 To x s = s * i*SPACE* p=【?】 x*y Next i Print s
15、, pEnd Sub13、功能：以下程序段用于求n!Private Sub Form_Click() Dim sum As Integer, n As Integer n = InputBox(请输入一个正整数) sum = 0 For i = 1 To n*SPACE* sum =【?】 sum+mul(i) Next i Print sumEnd SubPrivate Function mul(ByVal x As Integer) Dim s As Integer, i As Integer s = 1*SPACE* For i = 1 To 【?】 x s = s * i Next i
16、*SPACE* 【?】 mul=sEnd Function14、功能：从键盘上输入一串字符，以?结束，统计输入字符中的大、小写字母和数字的个数。Private Sub Form_Click()Dim ch$, n1%, n2%, n3%n1 = 0n2 = 0n3 = 0ch = InputBox(请输入一个字符)*SPACE*Do While 【?】 ch? 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 Selectch = Input
17、Box(请输入一个字符)*SPACE* loop【?】Print n1, n2, n3End Sub15、功能：下面的程序实现：从键盘输入一个数字，将其插入一个有序数组中，插入后的数组仍保持有序。Private Sub Form_Click()Dim a(10) As Integer, x As IntegerFor i = 1 To 8 a(i) = 2 * i - 1 Print a(i);Next iPrintx = InputBox(请输入要插入的整数)*SPACE*【?】 a(0)=xi = 8Do While a(i) x*SPACE* 【?】 a(i+1)=a(i) i = i
18、- 1Loop*SPACE*If i 0 Then 【?】 a(i+1)=xFor i = 1 To 9 Print a(i);Next iEnd Sub16、功能：过程suixian可以判断某一个数字是否是水仙花数，利用该过程找出三位数中所有水仙花数。所谓水仙花数是指一个3位数，其各位数字立方和等于该数本身。 Private Sub Form_Click()Dim i As IntegerFor i = 100 To 999*SPACE* 【?】 suixian iNext iEnd SubPublic Sub suixian(x As Integer)Dim i%, j%, k%*SPAC
19、E*i =【?】 x100j = (x - i * 100) 10k = x - i * 100 - j * 10*SPACE*If 【?】 Then Print x i3+j3+k3=xEnd Sub17、功能：输入一个数,若大于0,则显示+；若小于0，则显示 -；若等于0,则显示零。Private Sub Command1_Click( )x = Val(Text1.Text)Select Case x*SPACE* 【?】 Case Is0 Label1.Caption = + Case Is 0*SPACE* 【?】 Label1.Caption = -*SPACE* 【?】 case
20、 0 Label1.Caption = 零 End SelectEnd Sub18、功能：以下程序段用于计算数组中各元素的乘积。Private Sub Command1_Click()*SPACE* Dim a(1 To 5) 【?】, b%(2 To 10), i%, t1#, t2# As Iinteger For i = 1 To 5 a(i) = i Next i For i = 2 To 10 b(i) = i Next i t1 = tim(a() t2 = tim(b() Print t1=; t1, t2=; t2End Sub*SPACE*Function tim(【?】 A
21、s Integer) a() Dim t#, i% t = 1 For i = LBound(a) To UBound(a) t = t * a(i) Next i tim = tEnd Function19、功能：本程序功能为，单击窗体，Form1的输出结果为 A1=10 B1=20 A2=20 B2=10*SPACE*Public Sub Swap1【?】 x As Integer, ByVal y As Integer) (ByVal Dim t As Integer t = x x = y y = tEnd SubPublic Sub Swap2(x As Integer, y As
22、Integer) Dim t As Integer t = x x = y y = tEnd SubPrivate Sub Form_Click() Dim a As Integer, b As Integer a = 10 b = 20 *SPACE* 【?】 a, b Form1.Print A1=; a, B1=; b a = 10 b = 20 *SPACE* 【?】 a, b Form1.Print A2=; a, B2=; bEnd Sub20、功能：求表达式s=x/2!+x3/4!+.+x(2n-1)/(2n)!的值，并在窗体上输出。Private Sub Form_Click(
23、) Dim x As Single Dim n As Integer Dim sum As Single x = Val(InputBox(Please input x Value:) n = Val(InputBox(Please input a integer:) *SPACE* sum = 【?】 Print s=; sumEnd SubFunction s(n As Integer, x As Single) As Single Dim i As Single, t As Long s = 0 For i = 1 To n t = 1 For j = 1 To 2 * i *SPACE* 【?】 Next j *SPACE* s = s + x (【?】) / t Next iEnd Function21、功能：写出程序运行后，单击窗体，Form1上显示的内容sum 函数的功能为累加求和 isum = 1
