vb-4-循環(huán)結(jié)構(gòu)程序設(shè)計(jì)-文庫吧
2024-12-28 20:57 本頁面
【正文】 = sum End Sub 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) 實(shí)例 代碼編寫 問題：修改程序 （ 2）計(jì)算完畢后， “計(jì)算”按鈕的標(biāo)題改為“清空”，此時(shí)點(diǎn)擊兩個(gè)文本框的內(nèi)容清空 ? 如何檢測按鈕的狀態(tài)是需要顯示“計(jì)算”還是 “清空”？ ? 解決方法：設(shè)置一個(gè)布爾變量 true對(duì)應(yīng)“計(jì)算”， false對(duì)應(yīng)“清空” 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) 例： 1*2*3…… *100 Private Sub cmdCal_Click() Dim Fac As Integer Dim i As Integer Fac=1 For i = 1 To 100 Fac = Fac * i Next i = Fac End Sub 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) 1！ +2！ +3！ +…… +15! Private Sub cmdCal_Click() Dim Fac As long, sum As long Dim i As Integer Fac=1 For i = 1 To 15 Fac = Fac * i sum=sum+Fac Next i = 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)體”是否執(zhí)行。 ? 多用于循環(huán)次數(shù)不定的情況。 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) 用 While語句實(shí)現(xiàn)循環(huán) 3. 語句執(zhí)行過程： 條 件循 環(huán) 體T r u eF a l s e第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) 用 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 While i = ｎ sum = sum + i i = i + 1 wend 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) 用 While語句實(shí)現(xiàn)循環(huán) 【 實(shí)例 】 實(shí)現(xiàn) 1*2*3*……*n 的操作，當(dāng)階乘值 5000時(shí)結(jié)束操作。 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
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號(hào)-1