visualbasic語言程序設(shè)計(jì)教程第8章循環(huán)結(jié)構(gòu)-wenkub
2022-11-18 16:04:56 本頁面
【正文】 mber ； s End Sub A) 0 1 B) 30 30 C) 4 30 D) 3 182 習(xí)題 信息系 外院 14 4. 運(yùn)行下列程序，單擊窗體，則執(zhí)行結(jié)果是（） Private Sub Form_Click（） b=1 a=2 Do While b 10 b=2*a+b Loop Print b End Sub A) 13 B) 17 C) 21 D) 33 習(xí)題 信息系 外院 15 習(xí)題 5. 運(yùn)行下列程序，單擊窗體，則執(zhí)行結(jié)果是 Private Sub Form_Click（） a = 100 Do s = s + a a = a + 1 Loop While a 111 Print a End Sub 結(jié)果 :a=101 信息系 外院 16 ，單擊窗體，則執(zhí)行結(jié)果是 _____ Private Sub Form_Click（） s = 0 i = 1 Do While i =100 If (i \ 5) * 5 = i Then s = s + 1 i = i + 1 End If Loop Print s End Sub 結(jié)果 :死循環(huán) 習(xí)題 信息系 外院 17 7. 運(yùn)行下列程序，單擊窗體，則執(zhí)行結(jié)果是 ____ Private Sub Form_Click（） s = 0 i = 1 Do While i =100 If (i \ 5) * 5 = i Then s = s + 1 End If i = i + 1 Loop Print s End Sub 結(jié)果 :s=20 習(xí)題 信息系 外院 18 While循環(huán) 語法格式： While 循環(huán)條件 循環(huán)體 Wend 這種結(jié)構(gòu)使用完全類似于 DoLoop的當(dāng)型循環(huán) (格式 1)，表示當(dāng)循環(huán)條件為 True時，反復(fù)執(zhí)行循環(huán)體，直到循環(huán)條件為False為止。 個專家評分 (1表示結(jié)束輸入 ):)) Do While mark 1 Total = Total + mark Num = Num + 1 mark = Val(InputBox(請輸入第 amp。 Loop While k = 100 = s=1+(1+2)+(1+2+3)...+(1+2+3+...+100)= amp。 信息系 外院 7 ?例 :求 S=1+(1+2)+ … +(1+2+3+… +100)的值。定義計(jì)數(shù)器變量 i來記錄目前已輸出的行數(shù) i = 0 Do While i 6 39。 信息系 外院 5 Do 循環(huán) Do 循環(huán)可以分為前測型循環(huán)和后測型循環(huán)兩種結(jié)構(gòu)。對于此類情況可以利用各種循環(huán)結(jié)構(gòu)來實(shí)現(xiàn)。 循環(huán)結(jié)構(gòu)可以分為 For循環(huán)、 Do 循環(huán)和 While循環(huán)語句結(jié)構(gòu)。 后測型循環(huán) 結(jié)構(gòu) 語法格式： 格式 1 (當(dāng)型 ) Do 循環(huán)體 Loop While 循環(huán)條件 格式 2 (直到型 ) Do 循環(huán)體 Loop Until 循環(huán)條件 循環(huán)條件 循環(huán)體 True False 循環(huán)條件 循環(huán)體 False True 前測型循環(huán)是 先判斷循環(huán)條件 ，循環(huán)體執(zhí)行次數(shù) ≥0； 后測型循環(huán)是 先執(zhí)行循環(huán)體 ，循環(huán)體執(zhí)行次數(shù) ≥1 。當(dāng)輸出行數(shù)未達(dá)到 6行，反復(fù)執(zhí)行下面語句 Print **************** i = i + 1 39。 編寫代碼 ： Private Sub Command1_Click() Dim s As Long, n As Integer, k As Integer = s=1+(1+2)+(1+2+3)+...(1+2+3+...100)=? s = 0: n = 0: k = 1 Do n = n + k ’ 求 “ 小和 ” ，即求 s中的每一項(xiàng)的和。 s End Sub Do循環(huán) Until k 100 信息系 外院 8 Do 循環(huán) 設(shè)計(jì)采用歐幾里德算法求解兩個自然數(shù)的最大公約數(shù)的程序 ?算法分析： “ 歐幾里德算法 ” ① 輸入兩個自然數(shù) m、 n ② 求 m除以 n的余數(shù) r ③ m←n ④ n←r ⑤ 若 r≠0， 則重復(fù)執(zhí)行 ②③④ (循環(huán) )，否則轉(zhuǎn) ⑥ ⑥ 輸出 m和 n的最大公約數(shù) m 輸入兩個自然數(shù) m,n r=m Mod n m=n n=r r0 輸出最大公約數(shù) m 開始 結(jié)束 False True 信息系 外院 9 Do 循環(huán) 設(shè)計(jì)采用歐幾里德算法求解兩個自然數(shù)的最大公約數(shù)的程序 ?界面設(shè)計(jì) ： 利用 文本框 來接收數(shù)據(jù)和顯示結(jié)果，利用 命令按鈕的單擊事件完成最大公約數(shù)的計(jì)算。 Num+1 amp。 例如：求 S=1+（ 1+2） +? （ 1+2+?+100 ）的值。當(dāng)步長為 正數(shù)時， 終值 初值 。 For… Next語句 例如： ?c=18 For I=2 to 18 step 3 c
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1