vb-4-循環(huán)結(jié)構(gòu)程序設(shè)計(jì)-展示頁
2025-01-21 20:57本頁面
【正文】 四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) 實(shí)例 代碼編寫 1. ―計(jì)算”按鈕完整代碼 : Private Sub cmdcal_Click() Dim i As Integer, sum As Long, n As Long n = Val() For i = 1 To n sum = sum + i Next i = sum End Sub 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) 實(shí)例 代碼編寫 2. ―計(jì)算結(jié)果”框架中的標(biāo)簽（ labn）內(nèi)容隨txtn輸入值變化 Private Sub txtn_Change() = 1+2+3……+ amp。 ? 循環(huán)次數(shù)： int為取整。 ? 循環(huán)體由一條或多條語句組成。第 4章 循環(huán)結(jié)構(gòu)程序設(shè)計(jì) 第六次課 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) 本章內(nèi)容 ? 循環(huán)結(jié)構(gòu) ? 用 ForNext語句實(shí)現(xiàn)循環(huán)結(jié)構(gòu) ? 用 Do WhileLoop語句實(shí)現(xiàn)循環(huán)結(jié)構(gòu) ? 嵌套的循環(huán)結(jié)構(gòu) 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) 循環(huán)結(jié)構(gòu) 條 件循 環(huán) 體T r u eF a l s e條 件循 環(huán) 體T r u eF a l s e第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) 用 ForNext語句實(shí)現(xiàn)循環(huán)結(jié)構(gòu) 1. 語句形式： For 循環(huán)變量 =初值 to 終值 [Step 步長 ] [循環(huán)體 ] [Exit For] [循環(huán)體 ] Next 循環(huán)變量 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) 2. 語句說明： ? 循環(huán)變量必須為數(shù)值型。 ? 當(dāng)步長為正時(shí)，初值小于終值，反之初值大于終值；步長缺省時(shí)為 1。 ? 執(zhí)行到 Exit For語句時(shí)退出循環(huán)體，執(zhí)行 For語句的下一語句。 )1in t ( ??步長 初值終值用 ForNext語句實(shí)現(xiàn)循環(huán)結(jié)構(gòu) 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) 用 ForNext語句實(shí)現(xiàn)循環(huán)結(jié)構(gòu) 3. 語句執(zhí)行過程： 循 環(huán) 變 量 的 初 值循 環(huán) 變 量 是 否 超 過 終 值循 環(huán) 體循 環(huán) 變 量 加 步 長TF第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) 用 ForNext語句實(shí)現(xiàn)循環(huán)結(jié)構(gòu) 【 實(shí)例 】 求 1+2+3+…… +n的和。 End Sub 問題：修改程序 （ 1）單擊“計(jì)算”按鈕時(shí)，檢測 n的值，如果為空或不合法，彈出提示對話框 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) 實(shí)例 代碼編寫 Private Sub cmdcal_Click() Dim i As Integer, sum As Long, n As Long If = Then MsgBox 請輸入一個(gè)正整數(shù) , vbOKOnly, 提示信息 Else n = Val() For i = 1 To n sum = sum + i Next i = sum End if End Sub Private Sub cmdcal_Click() Dim i As Integer, sum As Long, n As Long n = Val() For i = 1 To n sum = sum + i Next i = sum End Sub 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) 實(shí)例 代碼編寫 問題：修改程序 （ 2）計(jì)算完畢后， “計(jì)算”按鈕的標(biāo)題改為“清空”，此時(shí)點(diǎn)擊兩個(gè)文本框的內(nèi)容清空 ? 如何檢測按鈕的狀態(tài)是需要顯示“計(jì)算”還是 “清空”？ ? 解決方法：設(shè)置一個(gè)布爾變量 true對應(yīng)“計(jì)算”， false對應(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
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號-1