Next i Print: Prin Print a(i, j) Next j Print 3.在窗体上建立两个列表框List(处理前数据)和List2(处理后数据),以及标签 Labell。程序代 码如下 Private Sub Form Load O Dim a(100)As Integer, b(100)As Integer 输入数组a的n个元素 x= Int(20 Rnd) List. AddItem x 删除零元素 If a(i)<>tHen k=k+1: b(k)=a(i): List2 AddItem b(k) Next i Labell. Caption="数组中零元素个数:"+Str(n-k) End sub 4.(1)g(x-10)+1(2)n-1(3)g(t)<g(j) (4)m=s(t):s(t)=s(k):s(k)=m 5.在窗体上建立4行3列共12个元素的文本框控件数组Text1(0)~ Text(11) Private Sub Form Load O Dim t(12)As String Randomize mpty 初始安排12个位置均为” Empty Next k For h =65 To 74 代表"A"至"J",每次随机安排一个字母 Do While true 随机查找一个空位 p= Int(1+ 12 Rnd) 产生1~12随机数 t(p)= Chr(h) Exit do End if For k=1 to 12 TextI(k -1). Text t(k) 显示座位分配情况 第7章习题 、单选题9 For i = 1 To 6 t = a(1, i):a(1, i) = a(6, i):a(6, i) = t Next i Print: Print For i = 1 To 6 For j = 1 To 6 Print a(i, j); Next j Print Next i End Sub 3．在窗体上建立两个列表框 List1(处理前数据)和 List2(处理后数据)，以及标签 Label1。程序代 码如下： Private Sub Form_Load() Dim a(100) As Integer, b(100) As Integer Randomize n = 100 For i = 1 To n '输入数组 a 的 n 个元素 x = Int(20 * Rnd) List1.AddItem x a(i) = x Next i k = 0 For i = 1 To n '删除零元素 If a(i) <> 0 Then k = k + 1 : b(k) = a(i) : List2.AddItem b(k) End If Next i Label1.Caption = "数组中零元素个数：" + Str(n - k) End Sub 4．(1) g(x - 10) + 1 (2) n - 1 (3) g(t) < g(j) (4) m = s(t): s(t) = s(k): s(k) = m 5．在窗体上建立 4 行 3 列共 12 个元素的文本框控件数组 Text1(0)～Text1(11) Private Sub Form_Load() Dim t(12) As String Randomize For k = 1 To 12 t(k) = "Empty" '初始安排 12 个位置均为"Empty" Next k For h = 65 To 74 '代表"A"至"J"，每次随机安排一个字母 Do While True '随机查找一个空位 p = Int(1 + 12 * Rnd) '产生 1～12 随机数 If t(p) = "Empty" Then t(p) = Chr(h) Exit Do End If Loop Next h For k = 1 To 12 Text1(k - 1).Text = t(k) '显示座位分配情况 Next k End Sub 第 7 章习题 一、单选题 1. B 2. C 3．B 4．B 5. C 6. D