17、利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[40,80]内的整数，求它的最大值及所对应的下标。
Private Sub Form_Click() Dim a(3, 3), max%, imax% For i = 0 To 3 For j = 0 To 3
a(i, j) = Int(Rnd * 41 + 40) Next j Next i
For i = 0 To 3 For j = 0 To 3 Print a(i, j); Next j Print Next i
For i = 0 To 3 For j = 0 To 3
If max < a(i, j) Then max = a(i, j): imax = i & j Next j Next i
Print \End Sub
18、输入一系列字符串，编程求出长度最大的字符串并输出其所对应的次序 Private Sub Form_Click()
Dim a(5) As String, b(4) As Integer, t%, max%, imax% For i = 1 To 5 a(i) = InputBox(\ Next i For i = 0 To 4
b(i) = Len(Trim(a(i))) Next i max = 1 For i = 0 To 4
If max < b(i) Then max = b(i): imax = i Next i
Print \ Print \End Sub
19、利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[20,50]内的整数,输出该矩阵所有数据之和 Private Sub Form_Click() Dim a(3, 3), sum% For i = 0 To 3 For j = 0 To 3
a(i, j) = Int(Rnd * 31 + 20)
Next j Next i
For i = 0 To 3 For j = 0 To 3 Print a(i, j); Next j 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