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的个数：\个,\
Print \大于60小于等于80的个数：\个,\Print \大于80的个数：\个,\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 \最大值：\Print \最小值：\
Print \平均值：\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 & \y = y + a Else
n = n & \m = m + a End If Next i
Text1.Text = x Text2.Text = n
MsgBox (\偶数之和：\奇数之和：\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 \最初：\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) & \Next n
Print \排序后：\End Sub
5、 打印九九乘法表。
Private Sub Form_Click() Cls
For i = 1 To 9 For j = 1 To i
a = i & \ Print Tab((j - 1) * 9 + 1); a; Next j Print Next i End Sub
6、 求100到999之间的水仙花数。所谓水仙花数是指，一个3位数的各位数字立方之和正好等于这个3位数。 Private Sub Form_Click() For i = 100 To 999 a = i \\ 100
b = (i Mod 100) \\ 10 c = i Mod 10
If i = a ^ 3 + b ^ 3 + c ^ 3 Then Print i; Next i
End Sub
7、 设计一个大赛的自动评分程序：根据7个评委的给分（满分10分），计算去掉最高分和最低分后的平均得分，利用输入框和消息框进行数据的输入和结果的输出。 Private Sub Form_Click() Max = 0 Min = 10 For a = 1 To 7
i = Val(InputBox(\评委打分\评分程序\Sum = i + Sum
If i > Max Then Max = i If i < Min Then Min = i
Next a
x = (Sum - Min - Max) / 5
MsgBox (\去掉最高分，去掉最低分最后得分：\
End Sub
8、编程输入一段字符串并转换：将里面的大写字母转换成小写字母，小写字母转换成大写字母，数字转换成“$”，其他字符转换成“*”。
Private Sub Command1_Click() x = Len(Text1.Text) For i = 1 To x
a = Mid(Text1.Text, i, 1)
If Asc(a) >= 65 And Asc(a) <= 90 Then y = y & Chr(Asc(a) + 32)
ElseIf Asc(a) >= 97 And Asc(a) <= 122 Then y = y & Chr(Asc(a) - 32)
ElseIf Asc(a) >= 48 And Asc(a) <= 57 Then y = y & \Else
y = y & \End If
Label1.Caption = y Next i End Sub
Private Sub Form_Load() Text1.Text = \
Label1.Caption = \
Command1.Caption = \转换并显示\End Sub
