大学vb考试题库无答案版

Print Next i

For i = 0 To 3 For j = 0 To 3 sum = sum + a(i, j) Next j Next i

Print \End Sub

20、输入一系列字符串，将字符串按递减次序排列。请编程实现 Dim a() As String, n%, i%, j% Private Sub Command1_Click() n = Val(Text1) ReDim a(n) As String

For i = LBound(a) To UBound(a) a(i) = InputBox(\请输入字符串\Picture1.Print a(i); Spc(1); Next i End Sub

Private Sub Command2_Click() For i = 0 To n For j = 0 To n - 1

If a(j) < a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t Next j Next i

For i = 0 To n

Picture2.Print Tab(3); a(i); Spc(1) Next i End Sub

21．随机产生30~100（包括30、100）中的十个正整数，求最大值、最小值、平均值，并显示整个数组的值和结果。

Private Sub Form_Click()

Dim a(1 To 10) As Integer, i%, maxa%, mina%, avera! For i = 1 To 10 a(i) = Int(Rnd * 71 + 30) Next i mina = a(1) maxa = a(1) avera = a(1) For i = 2 To 10

If a(i) > maxa Then maxa = a(i) If a(i) < mina Then mina = a(i) avera = avera + a(i) Next i

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

Print \ End Sub

22、、定义三个4×4的二维数组A,B,C，A和B中的元素均随机生成，数组A的范围是1～20，数组B的范围是100～200，数组C是A和B相乘得到的。请编程生成并输出A,B,C。 Private Sub Form_Click()

Dim a%(1 To 4, 1 To 4), b%(1 To 4, 1 To 4), c%(1 To 4, 1 To 4) Print \数组A\ 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 \数组B\ For i = 1 To 4 For j = 1 To 4

b(i, j) = Int(Rnd * 100 + 100) Print Tab(j * 6); b(i, j); Next j Print Next i

'Print \数组C\ 'For i = 1 To 4 'For j = 1 To 4

'c(i, j) = b(i, j) * a(i, j) 'Print Tab(j * 4); c(i, j); 'Next j 'Print 'Next i Print \数组C\ For i = 1 To 4 For j = 1 To 4

c(i, j) = b(i, j) * a(i, j) Print Tab(j * 6); c(i, j); Next j Print Next i End Sub

23、随机产生15个小写字母，放在字符串中。（提示：c=chr(int(rnd*26+97))）

Private Sub Form_Click() Dim a$(1 To 15), i% Print \字符数组为a(i):\ For i = 1 To 15

a(i) = Chr(Int(Rnd * 26 + 97)) Print a(i); Spc(1); Next i Print End Sub

Private Sub Form_Load() FontSize = \ End Sub

24、随机产生10个[30,100]内的整数，求最大值及所对应的下标 Private Sub Form_Click() Dim a(9), max%, imax% For i = 0 To 9

a(i) = Int(Rnd * 71 + 30) Print a(i); Next i Print max = a(0) For i = 1 To 9

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

Print \Print \End Sub

25、定义三个4×4的二维数组A,B,C，A和B中的元素均随机生成，数组A的范围是1～20，数组B的范围是100～200，数组C是A和B相加得到的。请编程生成并输出A,B,C。 Private Sub Command1_Click() Dim a(3, 3), b(3, 3), c(3, 3), t%, m% For i = 0 To 3 For j = 0 To 3

a(i, j) = Int(Rnd * 20 + 1) Picture1.Print a(i, j); Next j Next i Picture1.Print For i = 0 To 3 For j = 0 To 3

b(i, j) = Int(Rnd * 101 + 100) Picture1.Print b(i, j); Next j Next i

Picture1.Print For i = 0 To 3 For j = 0 To 3 c(i, j) = a(i, j) + b(i, j) Picture1.Print c(i, j); Next j Next i

26. 、利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[20,50]内的整数,求它的两条对角线上元素之和。 Private Sub Command1_Click() Dim a%(3, 3), i%, j%, sum% For i = 0 To 3 For j = 0 To 3

a(i, j) = Int(Rnd * 31 + 20) Picture1.Print a(i, j); \ Next j Picture1.Print Next i sum = 0 For i = 0 To 3

sum = sum + a(i, i) + a(i, 3 - i) Next i Text1 = sum End Sub

. 27、利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[40,80]内的整数，求它的最小值及所对应的下标。 Dim a%(3, 3), i%, j%, imin% Private Sub Command1_Click() For i = 0 To 3 For j = 0 To 3

a(i, j) = Int(Rnd * 21 + 40) Picture1.Print a(i, j); \ Next j Picture1.Print Next i imax = 0 For i = 0 To 3 For j = 0 To 3

If a(i, imin) > a(i, j) Then imin = j End If Next j

Picture2.Print \第\行\最小值为\下标为\ Next i End Sub

28、随机生成一个整型的二维数组，范围在[10,20]之间，以下三角形式输出该数组。