修改该 VB 程序,使其具有下列功能:单击 “随机产生 6 个个位数 ”按钮,六个文本框不断随机产生 0-9 之间的整数; 单击 “停止”按钮,文本框内容停止变化。将此时文本框中的六个数进行组合,生成最大数和最小数,结果如图3所示: 图 3 打开 “试题三“文件夹中的工程文件“ test3.vbp ”,完成下列操作: 1. ( 4 分)单击 “随机产生 6 个个位数 ”按钮,六个文本框不断随机产生 0-9 之间的整数。将代码中的 1填写完整,实现此功能。 2. ( 15分)单击“停止”按钮,文本框内容停止变化。将此时文本框中的六个数进行组合,生成最大数和最小数,分别显示在Text2和Text3中。 将 Test3.txt 中的代码复制到程序相应位置,并将 2、3、4、5、6填写完整,实现该程序功能。 3. ( 1 分)窗体文件和工程文件,生成可执行程序 “ Test3.exe ”并保存到考生文件夹下的“试题三”文件夹中。 注意:已有的代码请不要改动 Dim a(1 To 6) As Integer Private Sub Timer1_Timer() For i = 1 To 6 ' 1 Next i End Sub Private Sub Command1_Click() ' 2 End Sub Private Sub Command2_Click() Timer1.Enabled = False Text2.Text = "" Text3.Text = "" For i = 1 To 6 a(i) = ‘ 3 Next i For i = 1 To 5 t = i For j = ‘ 4 If Then t = j ’ 5 Next j temp = a(i): a(i) = a(t): a(t) = temp Next i For i = 1 To 6 Text2.Text = Text2.Text & a(i) Next i For i = 6 To 1 Step -1 If a(i) <> 0 Then Text3.Text = a(i) t = i Exit For End If Next i For i = 6 To 1 Step -1 If Then Text3.Text = Text3.Text & a(i) ' 6 Next i End Sub