《VB》测试

1. 用随机数函数产生15个100以内的随机整数存入一维数组，然后每行5个数输出。

Private Sub Form_Click()
Dim a(1 To 15)
For i = 1 To 15
a(i) = _______________
Print a(i),
If i Mod 5 = 0 Then_______
Next i
End Sub
2. 求出n 个学生一门功课的最高分、最低分和高于平均分的人数。

Dim a
Private Sub Form_Click()
n = InputBox("n=")
ReDim ___________
Max = 0: Min = 100: k = 0: Sum = 0
For i = 1 To n
a(i) = Val(InputBox("输入第" & i & "个学生分数"))
Sum = __________
If a(i) > Max Then Max = a(i)
If a(i) < Min Then Min = a(i)
Print a(i);
Next i
Sum = Sum / n
For i = 1 To n
If a(i) > Sum Then ______________
Next i
Print
Print "max="; Max, "min="; Min, "超过平均分的人数是"; k
End Sub
3. 使用数组，求出下列数组的前20项。

Dim a
Private Sub Form_Click()
n = InputBox("n=")
ReDim a(n)
a(1) = 1: a(2) = 1: a(3) = 2
For i = _______ To ________
a(i) = _______________
Next i
For i = 1 To n
Print a(i);
Next i
End Sub
4. 有10个100以内的整数，使用选择法从大到小排序输出。

Private Sub Form_Click()
Dim a(10)
For i = 1 To 10
a(i) = Int(Rnd * 101)
Print a(i);
Next i
For i = 1 To ________
k = i
For j = ___________ To n
If a(k) < a(j) Then k = j
Next j
t = a(i)
a(i) = a(k)
a(k) = t
Next i
For i = 1 To n
Print a(i);
Next i
End Sub
5. 将一个一维数组a(9)中各元素按行的顺序放入二维数组b(3×3)中。

Option Base 1
Private Sub Form_Click()
Dim b(3, 3)
a = _________(1, 2, 3, 4, 5, 6, 7, 8, 9)
n = 1
For i = 1 To 3
For j = 1 To 3
b(i, j) = a(n)
______________
Next j
Next i
For i = 1 To 3
For j = 1 To 3
Print b(i, j);
Next j
Print
Next i
End Sub
6. 有一个m×n的矩阵，找出最大元素值，及其所在的行和列位置。

Option Base 1
Dim a()
m = Val(InputBox("m="))
n = Val(InputBox("n="))
_____________
Randomize
For i = 1 To m
For j = 1 To n
a(i, j) = Int(Rnd * 1000)
Print a(i, j);
Next j
Print
Next i
Max = a(1, 1): ______________
For i = 1 To m
For j = 1 To n
If a(i, j) > Max Then
Max = a(i, j)
_____________
______________
End If
Next j
Next i
Print
Print "最大元素是：a("; r; ","; l; ")="; a(r, l)
End Sub
7. 将一个数组 m(n,n) 的主对角线上各个元素的值置为1，其余元素值置为0。

Option Base 1
Dim m()
Private Sub Form_Click()
n = Val(InputBox("n="))
ReDim m(n, n)
For i = 1 To n
For j = 1 To n
If __________ Then m(i, j) = 1 Else ___________
Print m(i, j);
Next j
Print
Next i
End Sub
8. 输入十个单词,用冒泡法将它们按字典顺序排序输出.
Option Base 1
Dim a()
a = Array("WORD", "BOOK", "STUDENT", "TEACHER", "INTEGER", "YOU", "SHE", "OUR", "HERE", "THEY")
n = UBound(a)
For i = 1 To ________
For j = n To i + 1 ________
If ______________ Then
t = a(j)
a(j) = a(j - 1)
a(j - 1) = t
End If
Next j
Next i
For i = 1 To n
Print a(i),
Next i
End Sub
9. 有N个学生考试3门功课,计算每个学生的总分并输出
Option Base 1
Dim nm(), a(), s()
Private Sub Form_Click()
N = InputBox("N=")
_________ nm(N), a(N, 3), s(N)
For I = 1 To N
nm(I) = InputBox("输入学号=")
For J = 1 To 3
a(I, J) = Val(InputBox("输入成绩"))
s(I) = ___________
Next J
Next I
For I = 1 To N
Print nm(I),
For J = 1 To 3
Print a(I, J),
Next J
Print _______
Next I
End Sub
10.输入一批若干个1到4之间的整数，统计 1,2,3,4,每个数出现的次数。

输入-1结束。

Private Sub Form_Click()
Dim a(4)
x = val(InputBox("输入1-4之间的整数"))
Do
a(x) = ______________
x = val(InputBox("输入1-4之间的整数，-1结束"))
Loop Until__________
For I = 1 To 4
Print I, a(I)
Next I
End Sub
11.下面程序运行时 B 数组输出的结果为一个 4 行 3 列的矩阵,其值为:
4 5 6
5 6 7
6 7 8
7 8 9
Private Sub Form_Click()
Dim ________
For i = 1 To 4
For j = 1 To 3
A(i, j) = ____________
Next j
Next i
For i = 1 To 4
For j = 1 To 3
Print A(i, j),
Next j
Print
Next i
End Sub。