溫馨提示×
您好，登錄后才能下訂單哦！
點擊 登錄注冊 即表示同意《億速云用戶服務條款》
您好，登錄后才能下訂單哦！
這篇文章主要介紹如何使用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 = "產生" ThenTimer1.Enabled = TrueCommand1.Caption = "停止"ElseTimer1.Enabled = FalseCommand1.Caption = "產生"End IfEnd SubPrivate 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)NextLabel2.Caption = "最大值：" & max & "，最小值：" & minEnd Sub'求平均值Private Sub Command3_Click()Dim sum&, i%'求出所有值得總和For i = 0 To 17sum = sum + Val(Label1(i).Caption)NextLabel2.Caption = "平均值：" & (sum / 17)End SubPrivate 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) + 1Next iEnd Sub
運行效果截圖：
以上是“如何使用VB語言求最值與平均值 ”這篇文章的所有內容，感謝各位的閱讀！希望分享的內容對大家有幫助，更多相關知識，歡迎關注億速云行業資訊頻道！
免責聲明：本站發布的內容（圖片、視頻和文字）以原創、轉載和分享為主，文章觀點不代表本網站立場，如果涉及侵權請聯系站長郵箱：is@yisu.com進行舉報，并提供相關證據，一經查實，將立刻刪除涉嫌侵權內容。
