急需各位帮忙解决一道考试题

来源：百度知道 编辑：UC知道 时间：2024/05/30 07:01:42
在VB中声明一个一维字符型数组，有20个元素，每个元素最多放10个元素。要求：
（1）由随机数形成小写字母构成的数组，规定每个元素最多放10个元素；（2）将生成的数组分4行显示，规定每个元素的宽度为10；
(3) 显示生成的字符数组中字符最多的元素。有劳了，谢谢！

Private Sub Command1_Click()
Dim a(25) As String, b(19, 1) As String
Dim i As Long, j As Long, k As Integer, s As String
Me.Cls

Randomize (Timer)
For i = 0 To 25
a(i) = Chr(i + 97)
Next

For i = 0 To 19
s = ""
For j = 1 To Int(10 * Rnd)
k = Int(25 * Rnd)
s = s & a(k)
Next
b(i, 0) = s
b(i, 1) = Len(s)
k = IIf(Len(s) > k, Len(s), k)
Next

For i = 0 To 3
Me.Print b(i, 0), b(i + 4, 0), b(i + 8, 0), b(i + 12, 0), b(i + 16, 0)
Next

j = b(0, 1)
For i = 1 To 19
j = IIf(b(i, 1) > j, i, j)
Next

Me.Print
Me.Print "字符数组中字符最多的元素是：", j, b(j, 0)
End Sub