vb期未练习题.docVIP

产生10个随机两位正整数，放入一数组中，并按从大到小的顺序排列。在窗体上输出原数据及排列后的数据。 Private Sub Form_Click() Dim a(10) As Integer, i As Integer, j As Integer, z As Integer Print 原数据 Randomize For i = 1 To 10 a(i) = Int(Rnd * 90 + 10) Print ; a(i); Next i Print Print 排列后的数据 For i = 1 To 10 For j = i + 1 To 10 If a(i) a(j) Then z = a(i): a(i) = a(j): a(j) = z Next j Print ; a(i); Next i Print End Sub  随机产生10个任意的正整数，放入一数组中，求出它们的最大值、最小值和平均值。在窗体上显示整个数组的原值和结果。Private Sub Form_Click() Dim a(10) As Integer, max As Integer, min As Integer Dim s As Integer, average As Single Print 原值 For i = 1 To 10 a(i) = Int(Rnd * 90 + 10) Print ; a(i); Next i Print max = a(1) For i = 2 To 10 If a(i) max Then max = a(i) Next i Print 最大值; max min = a(1) For i = 2 To 10 If a(i) a(1) Then min = a(i) Next i Print 最小值=; min s = 0 For i = 1 To 10 s = s + a(i) average = s / 10 Next i Print 平均值=; average End Sub  用随机函数产生100个1-1000个整数，放入数组q。将其中的偶数放入数组b，然后运用选择法将数组b中的数据按从大到小的顺序排序，并将数组b以每行10个数据在窗体上输出。Private Sub Form_click() Dim q(100) As Integer, b(100) As Integer, i As Integer Dim k As Integer, j As Integer, z As Integer k = 1 For i = 1 To 100 q(i) = Int(Rnd * 1000 + 1) If q(i) Mod 2 = 0 Then b(k) = q(i): k = k + 1 Next i Print k = k - 1 Print 数组q For i = 1 To 100 Print ; q(i); If i Mod 10 = 0 Then Print Next i Print 数组b For i = 1 To k Print ; b(i); If i Mod 10 = 0 Then Print Next i For i = 1 To k - 1 For j = i + 1 To k If b(i) b(j) Then z = b(i): b(i) = b(j): b(j) = z Next j Next i Print Print 排序后的数组b For i = 1 To k Print ; b(i); If i Mod 10 = 0 Then Print Next i End Sub 编程说明：在窗体的单击事件中完成：随机产生100个三位正整数，按从大到小的顺序在窗体上输出。每行10个。当其中的数能被3整除时，用红色显示这些数。编程说明：在窗体的单击事件中完成： Private Sub Form_Click() Dim a(100) As Integer, i As Integer, z As Integer, j As Integer For i = 1 To 100 a(i) = Int(Rnd * 900) + 100 Next i For i = 1 To 100 For j = i + 1 To 100 If a(i) a(j) Then z = a(i): a(i) = a(j): a(j) = z Next j Next