高职考技能提升教程009期 求最值与平均值 VB语言 刘金玉编程

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