文字讲解：
要求：
1、数字的背景颜色每隔0.1秒随机改变
2、数字随机在[10,90]
3、产生点击后开始获取数字，文字变成停止
4、求最大值、最小值、平均
总结
1、比较时候一定是数值之间才能比较，要用val()函数转为数值
2、颜色函数rgb(红，绿，蓝）
每种颜色的数值范围0-255
3、掌握随机数的运用
4、求最值要学会假设最大值或最小值
5、求平均值前，先求和
软件设计界面：
源代码分享：
Private Sub Command1_Click() If Command1.Caption = "产生" Then Timer1.Enabled = True Command1.Caption = "停止" Else Timer1.Enabled = False Command1.Caption = "产生" End If End Sub Private Sub Command2_Click() '假设第一个label中的值为最小值与最大值 Dim min%, max% min = Val(Label1(0).Caption) max = Val(Label1(0).Caption) '循环依次比较 Dim i% For i = 1 To 17 '比较最小值 If min > Val(Label1(i).Caption) Then min = Val(Label1(i).Caption) '比较最大值 If max < Val(Label1(i).Caption) Then max = Val(Label1(i).Caption) Next Label2.Caption = "最大值：" & max & "，最小值：" & min End Sub '求平均值 Private Sub Command3_Click() Dim sum&, i% '求出所有值得总和 For i = 0 To 17 sum = sum + Val(Label1(i).Caption) Next Label2.Caption = "平均值：" & (sum / 17) End Sub Private Sub Timer1_Timer() Dim i% Randomize For i = 0 To 17 Step 1 '背景色变化 Label1(i).BackColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256)) '数字在10-90之间随机产生的整数 Label1(i).Caption = Int(Rnd * 90) + 1 Next i End Sub
