第七套 试题三(18分) 修改 VB 程序,使其具有下列功能:程序启动运行随机产生 20 个 10-100 (含 10 和 100 )之间的随机整数,把这些数据存入数组 a 中,并在文本框中显示出来,数与数之间用空格隔开。单击“插入”按钮,根据用户的输入,向数组 a 中的指定位置插入一个指定的数,将插入后的结果显示在另一个文本框中。程序设计界面、运行界面如图 5 、图 6 所示。完成代码: Dim a() As Integer Private Sub Command1_Click() Dim x As Integer, n As Integer Dim i As Integer x = Val(Text2.Text) n = Val(Text3.Text) a(1 To 21) '(1) For i = '(2) a(i + 1) = '(3) Next i a(n) = '(4) For i = 1 To 21 Text4.Text = Text4.Text & a(i) & " " Next i End Sub Private Sub Form_Load() Dim i As Integer ReDim a(1 To 20) Randomize For i = 1 To 20 a(i) = Int(Rnd ) '(5) Text1.Text = '(6) Next i End Sub