![](https://cos-cdn.shuashuati.com/pipixue-wap/2020-1230-1107-56/ti_inject-812ce.png)
第三套 试题三 修改该 VB 程序,使其具有下列功能:单击 “随机产生 6 个个位数 ”按钮,六个文本框不断随机产生 0-9 之间的整数; 单击 “停止”按钮,文本框内容停止变化。将此时文本框中的六个数进行组合,生成最大数和最小数,结果如图3所示: 打开 “试题三“文件夹中的工程文件“ test3.vbp ”,完成下列操作: 1. ( 4 分)单击 “随机产生 6 个个位数 ”按钮,六个文本框不断随机产生 0-9 之间的整数。将代码中的 1填写完整,实现此功能。 2. ( 15分)单击“停止”按钮,文本框内容停止变化。将此时文本框中的六个数进行组合,生成最大数和最小数,分别显示在Text2和Text3中。 将 Test3.txt 中的代码复制到程序相应位置,并将 2、3、4、5、6填写完整,实现该程序功能。 Dim a(1 To 6) As Integer Private Sub Command1_Click() '(1) End Sub Private Sub Timer1_Timer() For i = 1 To 6 .Text = Int(Rnd * 10) '(2) Next i 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