求二级VB的代码

来源：百度知道 编辑：UC知道 时间：2024/05/02 00:37:01
窗体上有3个文本框，其名称为Text1,Text2,Text3,其中Text1,Text2可多行显示。画3个名称为Cmd1，Cmd2，Cmd3，标题分别为“产生数组”“统计”和“退出”的按钮。

程序功能如下：
单击“产生数组”按钮时，用随机函数生成20个0～10之间（不含0和10）的数值，并将其保存到一维数组a中，同时也将这20个数值显示在Text1文本框内。

单击“统计”按钮时，统计出数组a中出现频率最高的数值及其出现的次数，并将出现频率最高的数值显示在Text2文本框内、出现频率最高的次数显示在Text3文本框内。

单击“退出”按钮时，结束程序运行。

Rem a为随机数,b为统计出现的次数
Dim a%(20), b%(9)
Private Sub Cmd1_Click()
Dim i%
i = 1
a(i) = Int(Rnd() * 9) + 1
Text1 = a(i)
For i = 2 To 20
a(i) = Int(Rnd() * 9) + 1
Text1 = Text1 & vbCrLf & a(i)
Next i
End Sub

Private Sub Cmd2_Click()
Dim i%, max%
For i = 1 To 9: b(i) = 0: Next i: max = 0: Text2 = ""
For i = 1 To 20
b(a(i)) = b(a(i)) + 1
Next i
For i = 1 To 9: If (b(i) > max) Then max = b(i)
Next i
For i = 1 To 9: If (b(i) = max) Then Text2 = Text2 & vbCrLf & i
Next i
Text3 = max: Text2 = Right(Text2, Len(Text2) - 2)
End Sub

Private Sub Cmd3_Click()
Unload Form1
End Sub

Dim a!(1 To 20), b!(1 To 20)
Private Sub Cmd1_Click()
For i = 1 To 20
a(i) = Int(Rnd * 10 + 1)
Text1.Text = Text1.Text + Str(a(i))
Next i
End Sub

Private Sub Cmd2_Click()
For i = 1 To 20
For j =