大学vb考试题库无答案版

Private Sub Form_Click()

Dim a(4, 4) As Integer For i = 0 To 4 For j = 0 To 4

a(i, j) = Int(Rnd * 11 + 10) Next j Next i For i = 0 To 4 For j = 0 To i Print a(i, j); Next j Print Next i End Sub

29、有10个评委对歌手进行打分（分数存放在A数组中）要求编程计算歌手平均得分（按去掉一个最高分和一个最低分的计算办法计算）。 Private Sub Form_Click()

Dim a(), max%, min%, imax%, imin%, s!

a = Array(98, 97, 95, 91, 90, 99, 93, 94, 93, 96) n = UBound(a) For i = 0 To n Print a(i); Next i Print

min = a(0): imin = 0 For i = 0 To n

If a(i) < min Then min = a(i): imin = i Next i

Print \ For i = imin + 1 To n a(i - 1) = a(i) Next i

ReDim Preserve a(n - 1) For i = 0 To n - 1 Print a(i); Next i Print

For i = 0 To n - 1

If a(i) > max Then max = a(i): imax = i Next i

Print \ ReDim Preserve a(n - 2) s = 0

For i = 0 To n - 2

s = s + a(i) Print a(i); Next i Print

Print \End Sub

30.已知一维数组a中元素已排序，分别为{12，15，21，25，27，35，36，39，48，52}，编程将30插入数组，使a仍保持有序。 Private Sub Form_load() Dim a(), i%, k%, x%, n% a = Array(1, 4, 7, 9, 12, 14, 23, 56) n = UBound(a) For i = 0 To n List1.AddItem a(i) Next i End Sub

Private Sub command1_Click() x = Val(Text1)

For k = 0 To List1.ListCount - 1 If x < Val(List1.List(k)) Then Exit For Next k

List1.AddItem x, k End Sub

31、声明一个整型的二维数组a(1 to 4,1 to 4)，用随机函数产生各元素，范围介于[1,20]之间，编程将第1行和

第3行对应元素交换。 Private Sub Form_Click() Dim a%(1 To 4, 1 To 4), i%, j% Print \排序前\ For i = 1 To 4 For j = 1 To 4

a(i, j) = Int(Rnd * 20 + 1) Print Tab(j * 4); a(i, j); Next j Print Next i Print \排序后\ For j = 1 To 4

t = a(1, j): a(1, j) = a(3, j): a(3, j) = t Next j For i = 1 To 4 For j = 1 To 4 Print Tab(j * 4); a(i, j); Next j Print Next i

End Sub

32、随机产生15个大写字母，放在字符数组中。提示：c=chr(int(rnd*26+65)) Private Sub Form_Click() Dim a(1 To 15) As String For i = 1 To 15

a(i) = Chr(Int(Rnd * 26 + 65)) Print Tab(i * 2); a(i); Next i End Sub

33.编写一个过程计算并输出区间［100，1000］内所有素数的和（要求判断素数使用过程（函数或子过程）来实现）。调用该过程。（提示：只能被1 和自身整除的自然数成为素数） Function sushu%(ByVal x%) Dim m%, Tag As Boolean, i% m = Val(x) Tag = True For i = 2 To m - 1

If (m Mod i) = 0 Then Tag = False Next i

If Tag Then sushu = x End Function

Private Sub Command1_Click() Dim i%, k% For i = 100 To 1000

If sushu(i) Then List1.AddItem i Next i Sum = 0

For k = 0 To List1.ListCount - 1 Sum = Sum + Val(List1.List(k)) Next k

Label1 = \［100，1000］内所有素数和为:\ End Sub

34、随机产生10个1~100的正整数放入数组，显示产生的数，求最大值、最小值、平均值。

Private Sub Form_Click()

Dim a(1 To 10) As Integer, i%, maxa%, mina%, suma% For i = 1 To 10

a(i) = Int(Rnd * 71 + 30) Next i mina = a(1) maxa = a(1) suma = a(1) For i = 2 To 10

If a(i) > maxa Then maxa = a(i)

If a(i) < mina Then mina = a(i) suma = suma + a(i) Next i

For i = 1 To 10 Print a(i); Next i Print

Print \End Sub

35.编程输出n行杨辉三角形图，n由键盘输入。 Private Sub Command1_Click() Dim n%, i%, j% n = Val(Text1)

Dim a%(1 To 1000, 1 To 1000) For i = 1 To n a(i, 1) = 1 Next i For i = 1 To n a(i, i) = 1 Next i

For j = 2 To i - 1 For i = 3 To n

a(i, j) = a(i - 1, j - 1) + a(i - 1, j) Next i Picture1.Print ; Next j

Picture1.Print Tab(j * n); a(i, j) For i = 1 To n For j = 1 To i

Picture1.Print a(i, j); \ Next j Picture1.Print Next i End Sub

37、声明一个整型的二维数组a(1 to 4,1 to 4)，用随机函数产生各元素，范围介于[1,20]之间，编程将第2行和第4行对应元素交换。 Private Sub Form_Click()

Dim a(0 To 3, 0 To 3), i%, j%, t For i = 0 To 3 For j = 0 To 3

a(i, j) = Int(Rnd * 21 + 1) Print Tab(j * 5); a(i, j); Next j Next i