【正文】
四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計 實例 代碼編寫 1. ―計算”按鈕完整代碼 : 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è)計 實例 代碼編寫 2. ―計算結(jié)果”框架中的標簽( 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è)計 第六次課 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計 本章內(nèi)容 ? 循環(huán)結(jié)構(gòu) ? 用 ForNext語句實現(xiàn)循環(huán)結(jié)構(gòu) ? 用 Do WhileLoop語句實現(xiàn)循環(huán)結(jié)構(gòu) ? 嵌套的循環(huán)結(jié)構(gòu) 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計 循環(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è)計 用 ForNext語句實現(xiàn)循環(huán)結(jié)構(gòu) 1. 語句形式: For 循環(huán)變量 =初值 to 終值 [Step 步長 ] [循環(huán)體 ] [Exit For] [循環(huán)體 ] Next 循環(huán)變量 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計 2. 語句說明: ? 循環(huán)變量必須為數(shù)值型。 ? 當步長為正時,初值小于終值,反之初值大于終值;步長缺省時為 1。 ? 執(zhí)行到 Exit For語句時退出循環(huán)體,執(zhí)行 For語句的下一語句。 )1in t ( ??步長 初值終值用 ForNext語句實現(xiàn)循環(huán)結(jié)構(gòu) 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計 用 ForNext語句實現(xiàn)循環(huán)結(jié)構(gòu) 3. 語句執(zhí)行過程: 循 環(huán) 變 量 的 初 值循 環(huán) 變 量 是 否 超 過 終 值循 環(huán) 體循 環(huán) 變 量 加 步 長TF第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計 用 ForNext語句實現(xiàn)循環(huán)結(jié)構(gòu) 【 實例 】 求 1+2+3+…… +n的和。 End Sub 問題:修改程序 ( 1)單擊“計算”按鈕時,檢測 n的值,如果為空或不合法,彈出提示對話框 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計 實例 代碼編寫 Private Sub cmdcal_Click() Dim i As Integer, sum As Long, n As Long If = Then MsgBox 請輸入一個正整數(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è)計 實例 代碼編寫 問題:修改程序 ( 2)計算完畢后, “計算”按鈕的標題改為“清空”,此時點擊兩個文本框的內(nèi)容清空 ? 如何檢測按鈕的狀態(tài)是需要顯示“計算”還是 “清空”? ? 解決方法:設(shè)置一個布爾變量 true對應“計算”, false對應“清空” 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計 例: 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è)計 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