VBA典型试题及答案VIP免费

1、 编写程序，随机生成 20 个两位整数，并统计出其中小于等于 60、大于 60 小于等于 80 及大于 80 的数据以及相应个数，结果打印输出到窗体。 Private Sub Form_Click() For i = 1 To 20 a = Fix(Rnd() * 91 + 10) If a <= 60 Then x = x & a & " " b = b + 1 End If If a > 60 And b <= 80 Then y = y & a & " " c = c + 1 End If If a > 80 Then z = z & a & " " d = d + 1 End If Next i Print " 小于等于 60 的个数： " & b & " 个," & x Print " 大于 60 小于等于 80 的个数： " & c & " 个," & y Print " 大于 80 的个数： " & d & " 个," & z End Sub 2、 编写程序：利用随机函数产生10 个（59，142）范围内的随机整数，显示它们当中的最大值、最小值和平均值。 Private Sub Form_Click() Max = 60 Min = 141 For i = 1 To 10 a = Fix(Rnd * 82 + 60) Sum = Sum + a If a > Max Then Max = a If a < Min Then Min = a Print a; Next i Print Print "最大值：" & Max Print "最小值：" & Min Print "平均值：" & Sum / 10 End Sub 3、 编写程序，随机生成 15 个三位正整数,区间范围是(123,915]，将其中的偶数与奇数分别输出到两个文本框中，并计算出奇数和偶数之和，用消息框输出结果。 Private Sub Form_Click() For i = 1 To 15 a = Fix(Rnd() * 792 + 124) If a Mod 2 = 0 Then x = x & " " & a y = y + a Else n = n & " " & a m = m + a End If Next i Text1.Text = x Text2.Text = n MsgBox ("偶数之和：" & y & vbCrLf & "奇数之和：" & m) End Sub 4、 编写程序，随机产生 10 个(20,88]之间的整数存放在数组中，按从小到大的顺序进行排序，打印输出最初的数字序列和最终的数字序列。 Private Sub Form_Click() Dim a(1 To 10) For i = 1 To 10 b = Fix(Rnd() * 68 + 21) a(i) = b k = k & b & " " Next i Print "最初：" & k For n = 1 To 10 For m = n + 1 To 10 If a(n) > a(m) Then y = a(n) a(n) = a(m) a(m) = y End If Next m Sum = Sum & a(n...