修改 VB程序:程序功能如下: 单击 “产生数据”按钮,则产生100个3位正整数,按第1行1个,第2行2个,第3行3个......的格式在窗体上输出,效果如图3-1;单击“排序”按钮,则首先将这100个数中的所有完全平方数放入数组B中,并将它们按降序排列显示在Text1文本框中,效果如图3-2。 (提示:一个整数若是另一个整数的平方,那么它就是完全平方数。如144=12,所以144就是一个完全平方数。) 图3-1 图3-2 打开 “试题三“文件夹中的工程文件“ test3.vbp ”, 根据题意完成填空,使程序正确运行,实现功能。 Dim a(100) As Integer, b(100) As Integer Private Sub Command1_Click() Dim k As Integer n = 1: m = 0 Form1.Cls Print Tab(8); For k = 1 To 100 a(k) = Int( + 100) '(1) m = m + 1 If Then '(2) Print a(k) '(3) n = n + 1 Print Tab(8); Else Print a(k); End If Next k End Sub Private Sub Command2_Click() Dim n As Integer For i = 1 To 100 If = Sqr(a(i)) Then '(4) n = n + 1 = a(i) '(5 ) End If Next i For i = 1 To n - 1 For j = 1 To '(6) If b(j) > b(j + 1) Then tmp = b(j) b(j) = b(j + 1) '(7) End If Next Next Text1.Text = "" For k = 1 To n Text1.Text = Text1.Text + + Chr(13) + Chr(10) '(7) Next k End Sub