您好,登录后才能下订单哦!
密码登录
登录注册
点击 登录注册 即表示同意《亿速云用户服务条款》
这篇文章主要介绍如何使用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 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
运行效果截图:
以上是“如何使用VB语言求最值与平均值 ”这篇文章的所有内容,感谢各位的阅读!希望分享的内容对大家有帮助,更多相关知识,欢迎关注亿速云行业资讯频道!
免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。