32vb三種程序結(jié)構(gòu)visualbasic語言作為結(jié)構(gòu)化程序設(shè)計(jì)語(參考版)
2024-09-05 15:09本頁面
【正文】 不是素?cái)?shù) End If End Sub 。 Private Sub Form_Click() Dim n!, k%, flag%, i% n = InputBox (請(qǐng)輸入一個(gè)大于 2的整數(shù) ) k = Int (Sqr (n)) flag = 0 i = 2 While i = k And flag = 0 If n Mod i = 0 Then flag = 1 Else i = i + 1 End If Wend If flag = 0 Then Print n。 判斷一個(gè)自然數(shù) n（ n =3） 是否為素?cái)?shù) ， 只要依次用從 2到 n/2作除數(shù)去除 n， 若 n不能被其中任何一個(gè)數(shù)整除 ， 則 n為素?cái)?shù) 。 表示長整型 ！ 表示單精度型 表示雙精度型 ＠ 表示貨幣型 ＄ 表示字符型 【 例 311】 編寫程序 ， 判斷用戶輸入的數(shù)是否為素?cái)?shù) 。 n ? End Sub 多重循環(huán) 循環(huán)體內(nèi)含有循環(huán)語句的循環(huán)稱多重循環(huán)。 3. While … Wend 循環(huán) 例：求 N要求 N的階乘最接近 2020，但不大于 2020。 即 ??10012iiPrivate Sub cmdDoLoopWhile_Click() Dim i As Integer Dim Total As Long Do Total = Total + i * i i = i + 1 Loop While i = 100 = Do … Loop While 方法結(jié)果： = Format(Total) End Sub 格式： Do Until〈 條件表達(dá)式 〉 〈 循環(huán)體 〉 [Exit Do] 〈 循環(huán)體 〉 Loop ⑶ . Do Until …Loop 語句 Do Until … Loop 語句流程圖 F T 條件 循環(huán)體 ⑷ . Do …Loop Until 語句 格式： Do 〈 循環(huán)體 〉 [Exit Do] 〈 循環(huán)體 〉 Loop Until〈 條件表達(dá)式 〉 T F 條件 循環(huán)體 Do … Loop Until 語句流程圖 ? Private Sub cmdDoUntilLoop_Click() ? Dim i As Integer ? Dim Total As Long ? Do Until i 100 ? Total = Total + i * i ? i = i + 1 ? Loop ? ? Total ? End Sub 格式： While 〈 條件表達(dá)式 〉 循環(huán)體 Wend 功能： 當(dāng) While的條件表達(dá)式的值是 True時(shí)執(zhí)行循環(huán)體內(nèi)的代碼 ， 直到 While后的條件表達(dá)式的值為 False。 ② 與 Do While循環(huán)的區(qū)別： Do While循環(huán)先測(cè)試條件是否成立 ， 只有成立才執(zhí)行循環(huán)；而該循環(huán)先執(zhí)行循環(huán)體 ， 后測(cè)試條件是否成立 。 編寫窗體單擊事件過程代碼如下： Private Sub Form_Click() Dim A As Integer, B As Integer, N As Integer, M As Integer, R As Integer, T As Integer M = InputBox(請(qǐng)輸入第一個(gè)正整數(shù) M,求 M、 N最大公約數(shù)和最小公倍數(shù) ) N = InputBox(請(qǐng)輸入第二個(gè)正整數(shù) N,求 M、 N最大公約數(shù)和最小公倍數(shù) ) A = M: B = N If M N Then 39。 如果R為零 ， 則這時(shí)的被除數(shù) N就是最大公約數(shù) 。 （ 2） 如果 R不為零 ， 則將除數(shù) N做為新的被除數(shù)M， 將余數(shù) R做為新的除數(shù) N， 再進(jìn)行相除 ， 得到新的余數(shù) R。 即 ??10012ii【 例 310】 給出兩個(gè)正整數(shù) M和 N，求他們的最大公約數(shù)和最小公倍數(shù)。 Exit Do 表示當(dāng)遇到該語句時(shí) ， 強(qiáng)制退出循環(huán) ， 執(zhí)行 Loop后的下一條語句 。 此種語句四種語法格式： ⑴ . Do While … Loop 語句 ⑵ . Do … Loop While 語句 ⑶ . Do Until …Loop 語句 ⑷ . Do …Loop Until 語句 格式： Do While 〈 條件表達(dá)式 〉 〈 循環(huán)體 〉 [Exit Do] 〈 循環(huán)體 〉 Loop ⑴ . Do While … Loop 語句 T F 條件 循環(huán)體Do While … Loop 語句流程圖 說明： 循環(huán)體中要有控制循環(huán)的語句 ， 以避免出現(xiàn)死循環(huán) 。 !=。 Private Sub Form_Click() Dim i%, famp。 ☆ 當(dāng)循環(huán)是單層循環(huán)時(shí) ， Next后面的循環(huán)變量可以不寫 。 ☆ Exit For為強(qiáng)行退出循環(huán)語句 。 如果增量為正 ， 則初值必須小于等于終值；如果增量為負(fù) ， 則初值必須大于等于終值 。 Visual Basic 支持的循環(huán)結(jié)構(gòu)有： ☆ For...Next ☆ Do…Loop ☆ While…Wend 循環(huán)結(jié)構(gòu) 1. For …Next 循環(huán) 循環(huán)體 Exit For 循環(huán)體 循環(huán)變量增加步長 循環(huán)變量獲得初值 F T 循環(huán)變量在終值內(nèi) For循環(huán)的執(zhí)行過程 格式： For 循環(huán)變量 = 初值 To 終值 [Step 步長 ] 循環(huán)體 [ Exit For ] 循
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1