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

2020-05-08 18:08:08 浏览数 (2)

视频讲解(期号忘记改成009啦，敬请谅解)

视频内容

文字讲解：

要求：

1、数字的背景颜色每隔0.1秒随机改变

2、数字随机在[10,90]

3、产生点击后开始获取数字，文字变成停止

4、求最大值、最小值、平均

总结

1、比较时候一定是数值之间才能比较，要用val()函数转为数值

2、颜色函数rgb(红，绿，蓝）

每种颜色的数值范围0-255

3、掌握随机数的运用

4、求最值要学会假设最大值或最小值

5、求平均值前，先求和

软件设计界面：

源代码分享：

代码语言：javascript复制
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

运行效果截图：

rgb

0 人点赞