vb-第5章-選擇循環(huán)(編輯修改稿)
2025-05-23 13:09 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 能發(fā)生變化。 For i = 1 To 10 Step 2 Print i。 Next i Print i=。 i For i = 1 To 10 Step 2 i = i + 1 Print i。 Next i Print i=。 i 分析： 循環(huán)變量為 :i, 初值為 1，終值為 10，步長(zhǎng)為 2（也就是說(shuō)每循環(huán)一次 i的值自動(dòng)加 2）。 結(jié)果： 1 3 5 7 9 i＝ 11 說(shuō)明循環(huán)了 5次， i的值最后為 11（大于 10了）跳出循環(huán)。 與其臨淵羨魚，不如退而結(jié)網(wǎng)。 趙芳 VB第 5章 VB基礎(chǔ)結(jié)構(gòu) 求 1～ 10這十個(gè)數(shù)的和與乘積（教材 P70） Dim I as Integer,sum as Integer Sum=0 For I=1 to 10 sum = sum + I if I10 then print I。?+?。 else print I。?=?。 End if Next I Print sum Dim i As Integer, sum As Long Do While (i = 10) sum = sum + i i = i + 1 Loop Print sum 與其臨淵羨魚，不如退而結(jié)網(wǎng)。 趙芳 VB第 5章 VB基礎(chǔ)結(jié)構(gòu) For循環(huán)程序分析 Private Sub Command1_Click() a = 10 b = 4 For j = 1 To 5 Step 2 a = a + 5 b = b + 4 Next j Print a。 b End Sub 25 16 與其臨淵羨魚，不如退而結(jié)網(wǎng)。 趙芳 VB第 5章 VB基礎(chǔ)結(jié)構(gòu) Private Sub Command1_Click() Dim sum As Integer, i As Integer For i = 7 To 4 Step 1 Select Case i Case 4, 7 sum = sum + i Case 3, 5 sum = sum + 2 Case Else sum = sum + 1 End Select Next i Print sum=。 sum End Sub Sum=14 與其臨淵羨魚，不如退而結(jié)網(wǎng)。 趙芳 VB第 5章 VB基礎(chǔ)結(jié)構(gòu) Private Sub Command1_Click() Dim i As Integer, n As Integer For i = 0 To 50 i = i + 3 n = n + 1 If i 10 Then Exit For Next i Print n End Sub 3 與其臨淵羨魚，不如退而結(jié)網(wǎng)。 趙芳 VB第 5章 VB基礎(chǔ)結(jié)構(gòu) 教材例子 ?從由字母數(shù)字組成的字符串中找出 所有大寫字母并 逆序 輸出的程序 演示 如何完成呢？ 與其臨淵羨魚，不如退而結(jié)網(wǎng)。 趙芳 VB第 5章 VB基礎(chǔ)結(jié)構(gòu) Dim s As String, d As String, t As String Dim i As Integer s = For i = 1 To Len(s) If Mid(s, i, 1) = A And Mid(s, i, 1) = Z Then t = t amp。 Mid(s, i, 1) End If Next i For i = Len(t) To 1 Step 1 d = d amp。 Mid(t, i, 1) Next i = d 與其臨淵羨魚，不如退而結(jié)網(wǎng)。 趙芳 VB第 5章 VB基礎(chǔ)結(jié)構(gòu) 實(shí)驗(yàn)作業(yè)： For循環(huán)專項(xiàng)練習(xí) 求 1－ 10這十個(gè)數(shù)的累加 求 1－ 10這十個(gè)數(shù)的累乘 求 1－ 100中偶數(shù)之和 求 1－ 100中奇數(shù)之積 求 1+1/2+1/3+1/4+……1/10 求 11/2+1/31/4+…… 1/10 利用循環(huán)輸出? a? －? z? 求 1－ 10這十個(gè)數(shù)的階乘之和 與其臨淵羨魚，不如退而結(jié)網(wǎng)。 趙芳 VB第 5章 VB基礎(chǔ)結(jié)構(gòu) 循環(huán)嵌套 ? Doloop循環(huán)和 ForNext循環(huán)都可以在大循環(huán)中套小循環(huán) ?但丌能互相交叉。 例子：九九乘法表（演示） For i=1 to 9 For j=1 to i print I。?*?。j。?=?。i*j Next j print Next i 與其臨淵羨魚，不如退而結(jié)網(wǎng)。 趙芳 VB第 5章 VB基礎(chǔ)結(jié)構(gòu) 百雞問(wèn)題 ?《 張邱建算經(jīng) 》 （公元亓世紀(jì)）內(nèi)的一道題，稱為 “ 百雞問(wèn)題 。 ” ? 題云：“今有雞翁一，值錢亓；雞母一，值錢三；雞雛三，值錢一。凡百錢，買雞百只，問(wèn)雞翁、母、雛各幾何” 如何減少循環(huán)次數(shù) 與其臨淵羨魚，不如退而結(jié)網(wǎng)。 趙芳 VB第 5章 VB基礎(chǔ)結(jié)構(gòu) 教材示例（隨機(jī)數(shù)的問(wèn)題） Private sub mand1_click() Dim intranum As Integer,I As Integer,j as Integer, a As Integer Randomize For i=1 to 1000 Intranum=Int(100*Rnd)+1 A=0 For j=1 to 10000 A=a+1 Next j =CStr(intranum) Next I =CStr(intranum) End Sub Int( (上限 下限 +1） *Rnd+下限 ) 第三節(jié) 程序示例 世界會(huì)向那些有目標(biāo)和遠(yuǎn)見(jiàn)的人讓路 與其臨淵羨魚，不如退而結(jié)網(wǎng)。 趙芳 VB第 5章 VB基礎(chǔ)結(jié)構(gòu) 分析下列程序的輸出結(jié)果 Dim i As Integer For i = 1 To 6 If i Mod 3 = 0 Then Print *。 Else Print 。 End If Next i 第一題 Dim i As Integer For i = 1 To 6 If i Mod 3 Then Print *。 Else Print 。 End If Next i ** **** 與其臨淵羨魚，不如退而結(jié)網(wǎng)。 趙芳 VB第 5章 VB基礎(chǔ)結(jié)構(gòu) Dim i As Integer, j As Integer For j = 1 To 5 For i = 1 To 6 If i Mod 3 = 0 Then Print *。 Else Print 。 End If Next i Print Next j ** ** ** ** ** 第二題 外層多了For ..j 循環(huán) 與其臨淵羨魚，不如退而結(jié)網(wǎng)。 趙芳 VB第 5章 VB基礎(chǔ)結(jié)
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1