第五章基本控制結(jié)構(gòu)-資料下載頁
2024-10-04 19:28本頁面
【正文】 False True 前測型循環(huán)是 先判斷循環(huán)條件 ，循環(huán)體執(zhí)行次數(shù) ≥0； 后測型循環(huán)是 先執(zhí)行循環(huán)體 ，循環(huán)體執(zhí)行次數(shù) ≥1 。 Do 循環(huán) Do 循環(huán)示例 ?單擊窗體，要求在窗體上顯示 6行星號 –前測型 當(dāng)型循環(huán)： Dim i As Integer 39。定義計(jì)數(shù)器變量 i來記錄目前已輸出的行數(shù) i = 0 Do While i 6 39。當(dāng)輸出行數(shù)未達(dá)到 6行，反復(fù)執(zhí)行下面語句 Print **************** i = i + 1 39。每輸出一行信息，計(jì)數(shù)器 i累加 1 Loop 39。返回到 Do While行 End Sub Do Until i 5 Print **************** i = i + 1 Loop Do while i 6 Until i 5 Val(InputBox(請輸入行數(shù)： )) 注意 ： ? 在 循環(huán)體中 ， 至少要有一條語句使得循環(huán)趨結(jié)束 ,使循環(huán)語句在有限的時(shí)間內(nèi)執(zhí)行完畢，否則將會(huì)出現(xiàn) “ 死循環(huán) ” 。 ?例 :求 S=1+(1+2)+ … +(1+2+3+… +100)的值。 –編寫代碼 ： Private Sub Command1_Click() Dim s As Long, n As Integer, k As Integer s = 0: n = 0: k = 1 Do n = n + k ’ 求 “ 小和 ” ，即求 s中的每一項(xiàng)的和。 s = s + n ’ 求 “ 大和 ” ，即求 s的累加和。 k = k + 1 ’ “大和 ” 的項(xiàng)數(shù) (亦即 “ 小和 ” 中的末項(xiàng)值 )。 Loop While k = 100 End Sub Do循環(huán) Until k 100 習(xí)題 1. 依次在輸入 1,輸出結(jié)果是？ Private Sub Command_Click（） X=0 Do Until x = 1 a=Val(InputBox（“請輸入 A的值”） ) b=Val(InputBox（“請輸入 B的值”） ) x=Val(InputBox（“請輸入 X的值”） ) a=a+b+x print a Loop End Sub 輸出兩個(gè)結(jié)果，分別是 12和 2 習(xí)題 2. 依次在輸入 1，輸出結(jié)果為_______ Private Sub Command_Click（） X=0 Do Until x=1 a=Val(InputBox（“請輸入 A的值”） ) b=Val(InputBox（“請輸入 B的值”） ) x=Val(InputBox（“請輸入 X的值”） ) a=a+b+x Loop print a End Sub 輸出結(jié)果 只有一個(gè) ， 2 3. 運(yùn)行下列程序，單擊窗體，則執(zhí)行結(jié)果是（） Private Sub Form_Click（） s=0 Do s=(s+1)*(s+2) Number= Number+1 Loop Until s = 30 Print Number ； s End Sub A) 0 1 B) 30 30 C) 4 30 D) 3 182 習(xí)題 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í)題 習(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 ，單擊窗體，則執(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í)題 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í)題
高考資料相關(guān)推薦
鄂ICP備17016276號-1