修改 VB程序, 使其具有下列功能: 程序运行时, 单击 “ 产生数组 ” 按,随机生成 50个 0 - 10 之间 ( 不含 0 和 10) 的整数,并将其保存到一维数组 a 中,同时也将这 50个数值在 Text1 文本框内显示。 单击 “ 统计 ” 按,统计出数组 a 中出现频率最高前三个的数值及其出现的次数,并将出现频率最高前三个的数值及出现次数在 list1列表框中显示。单击 “ 退出 ” 按,结束程序运行。 程序效果如图 521所示。 完成下列操作: ( 1 ) 单击 “ 产生数组 ” 按,随机生成 50个 0 - 10 之间 ( 不含 0 和 10) 的整数,显示在 Text1 文本框内如图 521 ( 2 ) 单击 “ 统计 ” 按,统计出数组 a 中出现频率最高前三个的数值及其出现的次数,并将显示在 list1列表框中。 根据以上要求,完成下列程序。 Option Base 1 Dim a%(50) Private Sub Command1_Click() Randomize For i = 1 To 50 a(i) = _____' (1) Text1.Text = Text1.Text + Str(a(i)) Next i End Sub Private Sub Command2_Click() Dim x%(1 To 9), b%(1 To 9), k%, t% For i = 1 To 9 x(i) = i Next i For i = 1 To 50 k = a(i) ______' (2) Next i For i = 1 To 8 For j = 1 To ______' (3) If b(j) < b(j + 1) Then t = b(j): b(j) = b(j + 1): b(j + 1) = t t = x(j): x(j) = x(j + 1): ______' (4) End If Next j Next i For i = 1 To 3 ______ ' (5) Next i End Sub Private Sub Command3_Click() Text1.Text = "" ______' (6) End Sub