vb-4-循環(huán)結(jié)構(gòu)程序設(shè)計-展示頁
2025-01-21 20:57本頁面
【正文】 四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 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
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號-1