如何使用VB語言求最值與平均值

發(fā)布時間：2022-01-17 09:15:10 來源：億速云閱讀：296 作者：小新欄目：大數(shù)據(jù)

這篇文章主要介紹如何使用VB語言求最值與平均值，文中介紹的非常詳細，具有一定的參考價值，感興趣的小伙伴們一定要看完！

文字講解：

要求：

1、數(shù)字的背景顏色每隔0.1秒隨機改變

2、數(shù)字隨機在[10,90]

3、產(chǎn)生點擊后開始獲取數(shù)字，文字變成停止

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

總結

1、比較時候一定是數(shù)值之間才能比較，要用val()函數(shù)轉為數(shù)值

2、顏色函數(shù)rgb(紅，綠，藍）

每種顏色的數(shù)值范圍0-255

3、掌握隨機數(shù)的運用

4、求最值要學會假設最大值或最小值

5、求平均值前，先求和

軟件設計界面：

如何使用VB語言求最值與平均值

源代碼分享：

Private Sub Command1_Click()If Command1.Caption = "產(chǎn)生" Then    Timer1.Enabled = True    Command1.Caption = "停止"Else    Timer1.Enabled = False    Command1.Caption = "產(chǎn)生"End IfEnd Sub
Private Sub Command2_Click()'假設第一個label中的值為最小值與最大值Dim min%, max%
min = Val(Label1(0).Caption)max = Val(Label1(0).Caption)
'循環(huán)依次比較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))    '數(shù)字在10-90之間隨機產(chǎn)生的整數(shù)    Label1(i).Caption = Int(Rnd * 90) + 1    Next iEnd Sub

運行效果截圖：

如何使用VB語言求最值與平均值

以上是“如何使用VB語言求最值與平均值 ”這篇文章的所有內容，感謝各位的閱讀！希望分享的內容對大家有幫助，更多相關知識，歡迎關注億速云行業(yè)資訊頻道！

向AI問一下細節(jié)

如何使用VB語言求最值與平均值

猜你喜歡

最新資訊

相關推薦

相關標簽