《VB程序設(shè)計(jì)》之循環(huán)結(jié)構(gòu)講解.ppt

1、VB程序設(shè)計(jì)主題講座,主題：循環(huán)結(jié)構(gòu),程序設(shè)計(jì)的三種基本結(jié)構(gòu),順序結(jié)構(gòu) 選擇結(jié)構(gòu) 循環(huán)結(jié)構(gòu),循環(huán)結(jié)構(gòu),計(jì)數(shù)型循環(huán)ForNext 知道循環(huán)次數(shù) 條件型循環(huán)DoLoop 只知道循環(huán)條件，不知道循環(huán)次數(shù),知己知彼，才能百戰(zhàn)百勝,設(shè)置斷點(diǎn) 選擇【調(diào)試】【窗口】 【自動(dòng)窗口】 選擇【調(diào)試】【逐語(yǔ)句】或按F8 觀察每一次自動(dòng)窗口中的變化,1下列程序段的循環(huán)結(jié)構(gòu)執(zhí)行過(guò)程中共循環(huán)了幾 次。 Dim i%, y% For i = 1 To 10 Step 2 y = y + i Next i,2. 寫出 Dim i, c As Integer c = 0 For i = -12 To -33 Step -4 c

2、 = c + 1 Next i 所進(jìn)行的循環(huán)后，i 的值是 。,3下段程序執(zhí)行的輸出結(jié)果是 。 Dim t, u, i, j As Integer t = 0 : u = 0 For i = 1 To 3 For j = 1 To i t = t + 1 Next j u = u + 1 Next i MsgBox(Str(t) & & Str(u),4下段程序執(zhí)行的輸出結(jié)果是 。 Dim k, n, m As Integer n = 10 m = 1 k = 1 Do While k = n m = m + 2 k = k + 1 Loop MsgBox(m),5. 猴子摘了一堆桃子，第一天

3、吃了一半，還嫌不過(guò)癮，又吃了一個(gè)。第二天又將剩下的桃子中吃了一半零一個(gè)。以后每天如此。到第十天清早，只剩下一只了。問最初有多少只桃子。,循環(huán)初始條件 桃子數(shù) s = 1 如何構(gòu)成循環(huán)？ For i = 9 To 1 Step -1 Next i 循環(huán)中反復(fù)做的是什么？ s = (s + 1) * 2,Dim i, s As Integer s = 1 For i = 9 To 1 Step -1 s = (s + 1) * 2 Next MsgBox(s),6. 小英家的門牌號(hào)碼是一個(gè)三位數(shù)，其特點(diǎn)是，末位數(shù)字比首位數(shù)字大，而首位數(shù)字又比中間數(shù)字大，且各位數(shù)字相加之和等于各位數(shù)字相乘之積。請(qǐng)編

4、程找出這個(gè)門牌號(hào)碼。,主要解決的問題： 哪些數(shù)是三位數(shù)？100999 For num = 100 To 999 Next num 已知 num 是一個(gè)三位數(shù)，請(qǐng)寫出它的三位數(shù)字相應(yīng)的表達(dá)式 百位 a = num 100 十位 b = num 10 a * 10 個(gè)位 c = num mod 10,6. 小英家的門牌號(hào)碼是一個(gè)三位數(shù)，其特點(diǎn)是，末位數(shù)字比首位數(shù)字大，而首位數(shù)字又比中間數(shù)字大，且各位數(shù)字相加之和等于各位數(shù)字相乘之積。請(qǐng)編程找出這個(gè)門牌號(hào)碼。,Dim num, a, b, c As Integer For num = 100 To 999 a = num 100 b = num 10

5、 - a * 10 c = num Mod 10 If c a And a b And a + b + c = a * b * c Then Label1.Text = 小英家的門牌號(hào)是： & num End If Next num,7. 求出所有水仙花數(shù)的程序（如果一個(gè)三位整數(shù)等于其各位數(shù)字的立方和，則該數(shù)為水仙花數(shù)。例如，371是水仙花數(shù)，因?yàn)?7133+73+13）。,主要解決的問題： 哪些數(shù)是三位數(shù)？ 已知 num 是一個(gè)三位數(shù)，請(qǐng)寫出它的三位數(shù)字相應(yīng)的表達(dá)式 程序代碼？,Dim num, a, b, c As Integer For num = 100 To 999 a = num

6、100 b = num 10 - a * 10 c = num Mod 10 If num = a 3 + b 3 + c 3 Then TextBox1.Text &= num & vbTab End If Next num,8. 輸入一個(gè)數(shù)，判斷它是否是素?cái)?shù),定義：所謂素?cái)?shù)是指只能被1和本身整除的正整數(shù)。 如何判斷某一個(gè)數(shù)n是否為素?cái)?shù)： 只需用2n-1之間的數(shù)去除就可以了。為了提高效率可以將2n-1改為2n/2，或2Int(Sqrt(n) 如何判斷n不能被2n-1之間的數(shù)整除： 對(duì)于某一個(gè)數(shù)n，設(shè)置變量flag的初值為True； （循環(huán)）用2n-1之間的數(shù)去除，如果n能被其中任何一個(gè)整數(shù)整

7、除，則將flag設(shè)為False。 在循環(huán)之后判別flag的值是否是True，若是，說(shuō)明沒有被2n-1中任何一個(gè)整數(shù)整除，就是素?cái)?shù)。,Dim n, i As Integer, flag As Boolean N=inputbox(“n:”) flag = True For i = 2 To n 1 If n Mod i = 0 Then flag = False Next i If flag Then Label1.Text = n & “是素?cái)?shù)“ Else Label1.Text = n & “不是素?cái)?shù)“ End If,輸出3300之間所有素?cái)?shù),For n = 3 To 300 判斷n是否是素

8、數(shù)，若是則輸出 Next n,For n = 3 To 300 flag = True For i = 2 To n 1 If n Mod i = 0 Then flag = False Next i If flag Then Label1.Text = n & “是素?cái)?shù)“ Else Label1.Text = n & “不是素?cái)?shù)“ End If Next n,Dim n,i As Integer, flag As Boolean For n = 3 To 300 flag = True For i = 2 To n 1 If n Mod i = 0 Then flag = False Nex

9、t i If flag Then TextBox1.Text &= n & vbTab End If Next n,9. 計(jì)算 要求：1）使用InputBox()函數(shù)輸入x和項(xiàng)數(shù)n。 2）輸出前n項(xiàng)的計(jì)算結(jié)果。 循環(huán)初始條件 s = 1 以及 為計(jì)算第2項(xiàng) item 準(zhǔn)備 如何構(gòu)成循環(huán)？ For i = 2 To n Next i 循環(huán)中反復(fù)做的是什么？ 計(jì)算item s = s + item 為下一項(xiàng) item 做準(zhǔn)備,用變量 f 表示符號(hào) -1，1，-1，1， 初值為 -1 ， 計(jì)算下次循環(huán)的值 f = - f 用變量 t1 表示 2，4，6， 初值為 2 ， 計(jì)算下次循環(huán)的值 t1=t1

10、+2 用變量 t2 表示 x3，x5，x7， 初值為 x3 ， 計(jì)算下次循環(huán)的值 t2 = t2 * x * x 用變量 k 表示 3，5，7， 初值為 3 ， 計(jì)算下次循環(huán)的值 k = k + 2 用變量 t3 表示 3！，5！，7！， 初值為 3！， 計(jì)算下次循環(huán)的值 t3 = t3 * (k-1) * k item = f * t1 * t2 / t3,Dim i, n, k, t1, f As Integer Dim x, s, item, t2, t3 As Double x = Val(InputBox(x) : n = Val(InputBox(n) s = 1 f = -1 :

11、 t1 = 2 : t2 = x * x * x : k = 3 : t3 = 1 * 2 * 3 For i = 2 To n item = f * t1 * t2 / t3 s = s + item f = -f : t1 = t1 + 2 : t2 = t2 * x * x k = k + 2 : t3 = t3 * (k - 1) * k Next MsgBox(Format(s, 0.000000),10. 計(jì)算下列公式的近似值。（0X1,X由鍵盤輸入） 當(dāng)某項(xiàng)的絕對(duì)值小于0.0001時(shí)，該項(xiàng)及以后各項(xiàng)不再累加。這時(shí)就完成了S的計(jì)算。,循環(huán)初始條件 s = 0 : item = 1

12、以及 為計(jì)算第2項(xiàng) item 準(zhǔn)備 如何構(gòu)成循環(huán)？ Do While Math.Abs(item)=0.0001 Loop 循環(huán)中反復(fù)做的是什么？ s = s + item 計(jì)算item 為下一項(xiàng) item 做準(zhǔn)備,用變量 f 表示符號(hào) -1，1，-1，1， 初值為 -1， 計(jì)算下次循環(huán)的值 f = - f 用變量 t1 表示 x，x3，x5，x7， 初值為 x， 計(jì)算下次循環(huán)的值 t2 = t2 * x * x 用變量 t2 表示 1，3，5，7， 初值為 1， 計(jì)算下次循環(huán)的值 t2 = t2 +2 item = f * t1 / t2,Dim i, t2, f As Integer Dim x, s, item, t1 As Double x = V