vb-4-循環結構程序設計(編輯修改稿)

　

【文章內容簡介】 Long, n As Long n = Val() For i = 1 To n sum = sum + i Next i = sum End Sub i = 1 Do While i = ｎ sum = sum + i i = i + 1 Loop 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設計 執行過程 No Yes sum = sum + i i = 100 i = i + 1 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設計 用 Do – Loop While語句改寫實例 ―計算”按鈕完整代碼 : Private Sub cmdcal_Click() Dim i As Integer Dim sum As Long, n As Long n = Val() For i = 1 To n sum = sum + i Next i = sum End Sub i = 1 Do sum = sum + i i = i + 1 Loop While i = 100 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設計 補充例題 1 ?產生 m個 1~100之間的隨機數，求出其中的最大值、最小值和平均值。窗體設計界面和運行界面如圖 。 txtnum 補充例題 1 代碼分析 No Yes 產生隨機數 r = Int(Rnd * 100) + 1 nm n =n + 1 m = val() r與 max、 min進行比較，和 sum累加， 輸出結果 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設計 代碼 Private Sub Command1_Click() Dim m As Integer, n As Integer, r As Integer, i As Integer, max As Integer, min As Integer Dim sum As Single, ave As Single = m = Val() r = Int(Rnd * 100) + 1 max = r min = r n = 1 sum = r = Str(r) 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設計 代碼 Do r = Int(Rnd * 100) + 1 If r max Then max = r Else If r min Then min = r End If sum = sum + r = + + Str(r) n = n + 1 Loop While n m 該語句的作用？ Do while nm ………… loop 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設計 代碼 ave = sum / n 39。求平均值 = max 39。標簽顯示最大值 = min 39。標簽顯示最小值 = ave 39。標簽顯示平均值 End Sub 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設計 用 DO 語句實現循環 【 實例 】 產生 m個 10~99之間的隨機整數，求出其中的素數，并求出素數中的最大值、最小值和平均值。窗體設計界面 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設計 算法 ?產生 10~100之間的隨機整數 r ? r= Int（ Rnd*90） +10 ?判斷 r 是否素數 ?素數最大、最小值 、平均 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設計 判斷 r是否素數 For i = 2 To r 1 If r Mod i = 0 Then Exit For Next i If i = r Then End if = + + Str$(r) r是素數 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設計 素數最大、最小值 、平均 If r max Then max = r Else If r min Then min = r End If sum = sum + r No Yes 產生隨機數 r = Int(Rnd * 90) + 10 nm n =n + 1 m = val() ｒ與 max、 min進行比較，和 sum累加， 輸出結果 Yes ｒ是否是素數 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設計 初始化部分 = 39。清空顯示隨機數的標簽 = 39。清空顯示隨機數素數的標簽 m = Val() max = 10 39。最大值賦值兩位整數中的最小值 min = 99 39。最小值賦值兩位整數中的最大值 n = 0 39。計數變量賦初值 sum = 0 39。累加求和變量賦初值 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設計 輸出部分 ave = sum / p 39。求平均值