vb-4-循環(huán)結(jié)構(gòu)程序設(shè)計(jì)-在線瀏覽
2025-03-01 20:57本頁面
【正文】 = sum End Sub 分析程序運(yùn)行結(jié)果 i=1 fac=1*1 sum=1 i=2 fac=1*2 sum=1+2 i=3 fac=1*2*3=3！ sum=1!+2!+3! i=4 fac=1*2*3*4=4! sum=1+2+3!+4! i=5 fac=4!*5=5! sum=1+2!+3!+4!+5! ……………… 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) 用 While語句實(shí)現(xiàn)循環(huán) 1. 語句形式： While 條件 [循環(huán)體 ] Wend 2. 語句說明： ? “條件”一般為條件表達(dá)式，結(jié)果為布爾變量True或 False。 ? 多用于循環(huán)次數(shù)不定的情況。 txtcyc txtfac 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) 實(shí)例 代碼編寫 Private Sub cmdcal_Click() Dim i As Integer， fac As Long i = 1:fac = 1 While fac = 5000 fac = fac * i i = i + 1 = i = fac Wend End Sub 初始化語句是否可以去掉？ 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) 實(shí)例 代碼編寫 ―手動(dòng)計(jì)算”按鈕：單步演示累乘結(jié)果，需要窗體級(jí)變量保留成績，及點(diǎn)擊次數(shù) Private Sub Cmdcalh_Click() If j = 0 Then fact = 1 If fact = 5000 Then j = j + 1 fact = fact * j = j = fact Else = False End If End Sub 該語句的作用？ 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) 用 DO語句實(shí)現(xiàn)循環(huán) ?Do While – Loop語句 Do While 條件 循環(huán)體語句 Loop ?Do – Loop While語句 Do 循環(huán)體語句 Loop While 條件 先執(zhí)行，后判斷至少執(zhí)行一次循環(huán)體 先判斷，后執(zhí)行有可能一次也不執(zhí)行 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) 用 DO語句實(shí)現(xiàn)循環(huán) 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) 用 Do While – Loop 語句改寫實(shí)例 ―計(jì)算”按鈕完整代碼 : 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 While i = ｎ sum = sum + i i = i + 1 Loop 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) 執(zhí)行過程 No Yes sum = sum + i i = 100 i = i + 1 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) 用 Do – Loop While語句改寫實(shí)例 ―計(jì)算”按鈕完整代碼 : 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程序設(shè)計(jì) 補(bǔ)充例題 1 ?產(chǎn)生 m個(gè) 1~100之間的隨機(jī)數(shù)，求出其中的最大值、最小值和平均值。 txtnum 補(bǔ)充例題 1 代碼分析 No Yes 產(chǎn)生隨機(jī)數(shù) r = Int(Rnd * 100) + 1 nm n =n + 1 m = val() r與 max、 min進(jìn)行比較，和 sum累加， 輸出結(jié)果 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) 代碼 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程序設(shè)計(jì) 代碼 Do r = Int(Rnd * 100) + 1 If r max Then max = r Else If r min T
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號(hào)-1