【正文】 A(i) = InputBox(給數(shù)組元素賦值, 數(shù)組A賦值) Print A(i)。使用循環(huán)給一維數(shù)組賦值并輸出 A(i) = Int(99 * Rnd) + 1 Print A(i) Next i Print For i = 1 To 2 39。l 下界1 或下界2只能是常量，不允許是變量或其它表達式。 ①數(shù)組說明語句一般格式：P85 Dim 數(shù)組名1（[維界定義]）[ As 數(shù)據(jù)類型 ][，數(shù)組名2（下標范圍） As 數(shù)據(jù)類型]…… 其中：維界定義的形式： [下界1 to] 上界1[，[下界2 to] 上界2]…… 例如：Dim a(1 to 5) As integer 本語句說明了一個 一維a 數(shù)組，有5個元素，分別為a(1),a(2),a(3),a(4),a(5) 又例如：Dim b(1 to 2,1 to 3) As Single,c(3) As Integer， d(3 to 5) 本語句說明了三個數(shù)組： 二維數(shù)組 b :有2行3列，6個元素分別為： b(1,1) b(1,2) b(1,3) b(2,1) b(2,2) b(2,3) 一維數(shù)組 c ：有4個元素：c(0) c(1) c(2) c(3) 一維數(shù)組 d ：有3個元素：d(3) d(4) d(5)使用說明：l 下界缺省時，為 0。 X(2,5) N維數(shù)組：有N個下標的數(shù)組稱為N維數(shù)組。數(shù)組的維數(shù)： 一維數(shù)組：只有一個下標的數(shù)組稱為一維數(shù)組。其中： 1，2，3，4，5稱為下標。P45 數(shù)組元素：數(shù)組中的每個成員為一個元素。例：有5個學生的數(shù)學成績， 若編程時這樣存放： s1=50 s2=90 s3=80 s4=60 s5=70 則5個分數(shù)分別存放在s1 s2 s3 s4 s5 簡單變量中若編程時這樣存放： s(1)=89 s(2)=67 s(3)=42 s(4)=68 s(5)=97 則5個分數(shù)分別存放在一個s 數(shù)組中。遞歸條件：（1）遞歸結(jié)束條件及結(jié)束時的值；（2）能用遞歸形式表示，且遞歸向終止條件發(fā)展。例： 將一張面值為100元的人民幣等值換成100張5元、要求每種零鈔不少于1張，問有哪幾種組合？Dim i%, j%, k%Print 5元 1元 For i = 1 To 20 For j = 1 To 100 i k = 100 i j If * i + * j + * k = 100 Then Print i, j, k End If Next j Next i九、遞歸算法用自身的結(jié)構(gòu)來描述自身，稱遞歸VB允許在一個Sub子過程和Function過程的定義內(nèi)部調(diào)用自己，即遞歸Sub子過程和遞歸Function函數(shù)。取第i個字符 Select Case strT Case , , 。(4) 再依次取下一個字符，重得（2）(3)直到文本結(jié)束。取第i個字符 If (strT = A And strT = Z) Then iA = Asc(strT) + 5 If iA Asc(Z) Then iA = iA 26 strp = strp + Chr$(iA) ElseIf (strT = a And strT = z) Then iA = Asc(strT) + 5 If iA Asc(z) Then iA = iA 26 strp = strp + Chr$(iA) Else strp = strp + strT End If i = i + 1 LoopPrint strp2．統(tǒng)計文本單詞的個數(shù) 算法思路： （1）從文本（字符串）的左邊開始，取出一個字符；設(shè)邏輯量WT表示所取字符是否是單詞內(nèi)的字符，初值設(shè)為False （2）若所取字符不是“空格”，“逗號”，“分號”或“感嘆號”等單詞的分隔符，再判斷WT是否為True，若WT不為True則表是新單詞的開始，讓單詞數(shù)Nw=Nw+1，讓WT=True。 strDecR Else strDecR = iDecR amp。下面寫出一轉(zhuǎn)換函數(shù)，參數(shù)idec為十進制數(shù)，ibase為要轉(zhuǎn)換成數(shù)的基（如二進制的基是2，八進制的基是8等），函數(shù)輸出結(jié)果是字符串。為下一次迭代作準備 x1 = *(x0 + a/x0) Loop While Abs(x1 x0) Fsqrt=x1End Function六、數(shù)制轉(zhuǎn)換 將一個十進制整數(shù)m轉(zhuǎn)換成 →r(2－16)進制字符串。 已知求平方根的迭代公式為：Private Function Fsqrt( a As single ) AS singleDim x0 As Single, x1 As Single x0 =a/2 39。此時可將x1作為問題的解。 n2 Exit For 39。 n1 amp。利用上面的prime函數(shù)，驗證哥德巴赫猜想的程序代碼如下：Dim n%,n1%,n2% n=Val(InputBox(輸入大于6的正整數(shù))) For n1=3 to n\2 step 2 n2=nn1 If prime(n1) Then If prime(n2) then Print n amp。先從n1=3開始，檢驗n1和n2（n2=Nn1）是否素數(shù)。（可用以下程序段實現(xiàn)）m =val( InputBox(請輸入一個數(shù))) For i=2 To int(sqr(m)) If m Mod i = 0 Then Exit For Next i If i int(sqr(m)) Then Print 該數(shù)是素數(shù) Else Print 該數(shù)不是素數(shù) End If將其寫成一函數(shù),若為素數(shù)返回True，不是則返回FalsePrivate Function Prime( m as Integer) As Boolean Dim i% Prime=True For i=2 To int(sqr(m)) If m Mod i = 0 Then Prime=False: Exit For Next i End Function四、驗證哥德巴赫猜想（任意一個大于等于6的偶數(shù)都可以分解為兩個素數(shù)之和）基本思想：n為大于等于6的任一偶數(shù)，可分解為n1和n2兩個數(shù)，分別檢查n1和n2是否為素數(shù)，如都是，則為一組解。 求個位上的數(shù)字 If p = 0 Then p = 10 x(p) = x(p) + 1 Next i 統(tǒng)計結(jié)果 For i = 1 To 10 p = i If i = 10 Then p = 0 個位數(shù)為 + Str(p) + 共 + Str(x(i)) + 個 Next iEnd Sub二、求兩個整數(shù)的最大公約數(shù)、最小公倍數(shù)分析：求最大公約數(shù)的算法思想：(最小公倍數(shù)=兩個整數(shù)之積/最大公約數(shù)) (1) 對于已知兩數(shù)m，n，使得mn； (2) m除以n得余數(shù)r； (3) 若r=0，則n為求得的最大公約數(shù)，算法結(jié)束；否則執(zhí)行(4)； (4) m←n，n←r，再重復(fù)執(zhí)行(2)。 End If If i Mod 10 = 0 Then Next i 39。 Else Space(1)。產(chǎn)生100個[0，99]范圍內(nèi)的隨機整數(shù)，每行10個打印出來 For i = 1 To 100 a(i) = Int(Rnd * 100) If a(i) 10 Then Space(2)。即個位是1的個數(shù)存放在x(1)中，個位是2的個數(shù)存放在x(2)中，……個位是0的個數(shù)存放在x(10)。例：用隨機函數(shù)產(chǎn)生100個[0，99]范圍內(nèi)的隨機整數(shù)，統(tǒng)計個位上的數(shù)字分別為1，2，3，4，5，6，7，8，9，0的數(shù)的個數(shù)并打印出來。通常使用自然語言、結(jié)構(gòu)化流程圖、偽代碼等來描述算法。程序舉例：P68 例43第七講 選擇分支與循環(huán) VB程序設(shè)計的常用算法重點：重點掌握結(jié)構(gòu)程序設(shè)計的方法和思想；理解和掌握VB中常用算法的思想和設(shè)計方法；算法（Algorithm）：計算機解題的基本思想方法和步驟。流程圖P68 圖413 （a）特別說明：無論哪種格式，記住循環(huán)體執(zhí)行的條件： （1） while 后的條件值為 true 時，執(zhí)行循環(huán)體，為 false 時，循環(huán)結(jié)束。 流程圖P67 (b)格式三： do until e 格式四： do ….. …. [exit do] [exit do] …… …… loop loop until e格式三功能：(1) 判斷e 的值，若為 false ，則執(zhí)行循環(huán)體語句；若為 true ，則循環(huán)結(jié)束，轉(zhuǎn)loop 的下面一條語句去執(zhí)行。流程圖P67 （a） ：（補充） 求s=1+2+3+4+…… 當結(jié)果大小等于55時結(jié)束Private Sub Form_click() Dim s As Integer, n As Integer s = 0 n = 0 Do While s 55 n = n + 1 s = s + n Loop Print s, nEnd Sub格式二：（1）執(zhí)行循環(huán)體語句組。若x是數(shù)字串，其值為True ，若不是數(shù)字串，其值為False 2 doloop 循環(huán)結(jié)構(gòu)：P68 一般格式：4種 P68 do while e do …… …… [exit do] [exit do] …… …… loop loop while e 格式一：（1）先判斷e 的值，為 true ，執(zhí)行循環(huán)體A，為false , 循環(huán)結(jié)束，轉(zhuǎn)loop 的下面一條語句去執(zhí)行。 Rnd(0)End Sub 產(chǎn)生[a,b]范圍內(nèi)隨機整數(shù)的公式：P73int((ba+1)*rnd+a)例：生成5個3位隨機整數(shù)。(一個漢字為2個字符)（2） mid(x,n1,n2) :取子串函數(shù) 作用一：取子串：mid(A,1,1)=”a”mid(A,1,2)=”ab”mid(A,3,1)=”c”從一個字符串中一個一個取出字符的方法： for I=1 to len(x) print mid(x,I,1) next I若逆序取出： for I=len(x) to 1 step 1 print mid(x,I,1) next I作用二：改變一個字符串中某些字符。 sEnd Sub例： 求1*2*3*4Private Sub Form_click() Dim s As Integer, i As Integer s = 1 For i = 1 To 4 s = s * i Next I Print s=。 ◆循環(huán)中執(zhí)行到 exit for 語句時，結(jié)束本循環(huán)語句，轉(zhuǎn)本next 的下一條語句去執(zhí)行。功能：（執(zhí)行過程）：P70 使用說明：◆ 超過終值的情況：當 e3 0 時，指 ve2, 當 e3