当前在线人工客服
天达云-技术
QQ:1324027256
天达云-技术
QQ:1902643386
天达云-售前
QQ:1650874901
天达云-售前
QQ:2207995833
天达云-合作
QQ:1984186903
天达云微信小程序
400-837-6568

如何使用VB语言求最值与平均值
更新:HHH   时间:2023-1-7


这篇文章主要介绍如何使用VB语言求最值与平均值 ,文中介绍的非常详细,具有一定的参考价值,感兴趣的小伙伴们一定要看完!

文字讲解:

要求:

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 IfEnd 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%RandomizeFor 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 iEnd Sub

运行效果截图:

以上是“如何使用VB语言求最值与平均值 ”这篇文章的所有内容,感谢各位的阅读!希望分享的内容对大家有帮助,更多相关知识,欢迎关注天达云行业资讯频道!

返回大数据教程...