【正文】 For i = 1 To n 1 ‘進(jìn)行n1輪比較 iMin= i ‘對(duì)第i輪比較時(shí)，初始假定第i個(gè)元素最小 For j = i+1 To n ‘在數(shù)組i~n個(gè)元素中選最小元素的下標(biāo) If iA(j) iA(iMin) Then iMin = j Next j t= iA(i): iA(i) = iA(iMin) : iA(iMin) = t ‘將最小元素與第i個(gè)元素交換 Next i,133,第一百三十三頁(yè)，共二百六十七頁(yè)。,b.數(shù)組排序（選擇法） 對(duì)已知存放在數(shù)組中的n個(gè)數(shù)，用選擇法按遞增順序排序。 從輸入的字符串中逐一取出字符，轉(zhuǎn)換成大寫(xiě)字符（不區(qū)分大小寫(xiě))，進(jìn)行判斷。,數(shù)組的應(yīng)用 a. 統(tǒng)計(jì): 輸入一串字符，統(tǒng)計(jì)各字母出現(xiàn)的次數(shù)，不區(qū)分字母大小寫(xiě)。 換行 Next i,130,第一百三十頁(yè)，共二百六十七頁(yè)。 “ “。,C .數(shù)組的輸入: 可通過(guò)文本框，也可通過(guò)inputbox函數(shù)輸入。 賦值號(hào)兩邊的數(shù)據(jù)類(lèi)型必須一致。 數(shù)組的下界為零，上界由Array函數(shù)括號(hào)內(nèi)的參數(shù)個(gè)數(shù)決定，也可通過(guò)函數(shù)Ubound獲得上界，Lbound獲得下界。 Next i,128,第一百二十八頁(yè)，共二百六十七頁(yè)。 A. 數(shù)組元素的賦初值 (1)用循環(huán) Dim ia(1 to 10) As Integer For i = 1 To 10 ia(i)=0 Next i,(2) Array函數(shù) Dim ib As Variant ib = Array(“abc”, “def”, “67”) ‘ib數(shù)組有3個(gè)元素，上界為2 For i = 0 To UBound(ib) Picture1.Print ib(i)。 “ “ Next j Next i End Sub,127,第一百二十七頁(yè)，共二百六十七頁(yè)。 “)=“。 “,“。,Private Sub Form_Click() Dim a() As Integer ReDim a(3, 2) For i = 0 To 3 For j = 0 To 2 a(i, j) = i * j Next j Next i ReDim Preserve a(3, 4) For j = 3 To 4 a(3, j) = j + 10 Next j For i = 0 To 3 For j = 0 To 4 Print “a(“。 a(i, j)。 j。 i。,125,第一百二十五頁(yè)，共二百六十七頁(yè)。 ReDim中的下標(biāo)可以是常量，也可以是有了確定值的變量。 使用ReDim語(yǔ)句會(huì)使原來(lái)數(shù)組中的值丟失，可以在ReDim語(yǔ)句后加Preserve參數(shù)來(lái)保留數(shù)組中的數(shù)據(jù)。,注意 Dim、Private、Public變量聲明語(yǔ)句是說(shuō)明性語(yǔ)句，可出現(xiàn)在過(guò)程內(nèi)或通用聲明段；ReDim語(yǔ)句是執(zhí)行語(yǔ)句，只能出現(xiàn)在過(guò)程內(nèi)。,動(dòng)態(tài)數(shù)組及聲明 動(dòng)態(tài)數(shù)組是指在聲明數(shù)組時(shí)未給出數(shù)組的大小(省略括號(hào)中的下標(biāo))，當(dāng)要使用它時(shí)，隨時(shí)用ReDim語(yǔ)句重新指出數(shù)組大小。 聲明了x數(shù)組有11個(gè)元素 x(10)=100 39。兩者寫(xiě)法形式相同，但意義不同。錯(cuò)誤的聲明，下標(biāo)是變量 x(n)=100 39。,注意： (2)在靜態(tài)數(shù)組聲明時(shí)的下標(biāo)只能是常數(shù)，而在其他地方出現(xiàn)的數(shù)組元素的下標(biāo)可以是變量，要加以區(qū)分。,Dim lArray( 0 To 3， 0 To 4) As Long 共有 45個(gè)元素 等價(jià)于: Dim lArray(3， 4) As Long,注意： (1)下界缺省為0，也可再重新定義數(shù)組的缺省下界為1。下標(biāo)必須為常數(shù)，不可以為表達(dá)式或變量。 形式: Dim 數(shù)組名(下標(biāo)1[,下標(biāo)2…]) [As 類(lèi)型] 維數(shù)：幾個(gè)下標(biāo)為幾維數(shù)組，最多60維。,120,第一百二十頁(yè)，共二百六十七頁(yè)。 數(shù)組：必須先聲明后使用。 數(shù)組元素：數(shù)組中的某一個(gè)數(shù)據(jù)項(xiàng)。,數(shù)組的概念 數(shù)組不是一種數(shù)據(jù)類(lèi)型，而是一組相同類(lèi)型的變量的集合。,118,第一百一十八頁(yè)，共二百六十七頁(yè)。 已有知識(shí)解決方法：再重復(fù)輸入成績(jī)，帶來(lái)兩個(gè)問(wèn)題： （1）輸入數(shù)據(jù)的工作量成倍增加； （2）若本次輸入的成績(jī)與上次不同，則統(tǒng)計(jì)的結(jié)果不正確。,3.6 數(shù)組,引例 例： 若要求100個(gè)學(xué)生的平均成績(jī)，然后統(tǒng)計(jì)高于平均分的人數(shù)。,6.With 語(yǔ)句 形式如下： With 對(duì)象 語(yǔ)句塊 End With 作用：對(duì)某個(gè)對(duì)象執(zhí)行一系列的操作，而不用重復(fù)指出對(duì)象的名稱(chēng)。 4. End語(yǔ)句 多種形式： End、 End If、 End Select、 End With、 End Type、 End Sub、 End Function、 作用：End結(jié)束一個(gè)程序的運(yùn)行；其余表示某個(gè)結(jié)構(gòu)的結(jié)束，與對(duì)應(yīng)的結(jié)構(gòu)語(yǔ)句配對(duì)出現(xiàn)。,3.5.5 其他輔助控制語(yǔ)句 1. GoTo 語(yǔ)句 形式: GoTo {標(biāo)號(hào)|行號(hào)} 作用：無(wú)條件地轉(zhuǎn)移到標(biāo)號(hào)或行號(hào)指定的那行語(yǔ)句. 標(biāo)號(hào)是一個(gè)字符序列,行號(hào)是一個(gè)數(shù)字序列. 2.開(kāi)關(guān)語(yǔ)句： OnGoTo語(yǔ)句 3.Exit語(yǔ)句 多種形式： Exit For、Exit Do、Exit Sub、Exit Function等。 （2）多重循環(huán):這要視具體問(wèn)題分別對(duì)待。,本節(jié)常見(jiàn)錯(cuò)誤 1. 不循環(huán)或死循環(huán)的問(wèn)題 主要是循環(huán)條件、循環(huán)初值、循環(huán)終值、循環(huán)步長(zhǎng)的設(shè)置有問(wèn)題。,For ii =1 To 10 For jj=1 To 20 … Next ii Next jj,For ii =1 To 10 For ii=1 To 20 … Next ii Next ii,For ii =1 To 10 For jj=1 To 20 … Next jj Next ii,For ii =1 To 10 … Next ii For ii =1 To 10 … Next ii,對(duì)于循環(huán)的嵌套，要注意以下事項(xiàng)： 內(nèi)循環(huán)變量與外循環(huán)變量不能同名； 外循環(huán)必須完全包含內(nèi)循環(huán)，不能交叉； 不能從循環(huán)體外轉(zhuǎn)向循環(huán)體內(nèi)，反之則可以。 例：計(jì)算1+2+3+……+100,Dim i as integer,s as integer i=1 s=0 While i=100 s=s+i i=i+1 Wend,112,第一百一十二頁(yè)，共二百六十七頁(yè)。 例 求 m=14 ,n=6 的最大公約數(shù). If m 0) m=n n=r r= m mod n Loop Print “最大公約數(shù)=“, n,m n r 14 6 2 6 2 0,輾轉(zhuǎn)相減法 m=mn mn n=nm nm m、n為公約數(shù) m=n Do While m n m n If m n Then 14 6 m = m – n 8 6 Else 2 6 n = n – m 2 4 End If 2 2 Loop,111,第一百一十一頁(yè)，共二百六十七頁(yè)。,例用輾轉(zhuǎn)相除法求兩自然數(shù)m，n的最大公約數(shù)和最小公倍數(shù)。,例 我國(guó)有13億人口，按人口年增長(zhǎng)0.8%計(jì)算，多少年后我國(guó)人口超過(guò)26億。,108,第一百零八頁(yè)，共二百六十七頁(yè)。 i Next i Print “退出循環(huán)后i=“。 j。,例 改變循環(huán)控制變量對(duì)循環(huán)的影響。 例程序段： For i=2 To 13 Step 3 循環(huán)執(zhí)行次數(shù) Print i , 輸出 i的值分別為: Next i 2 5 8 11 Print : Print “I=“, i 出了循環(huán)輸出為: I=14 在循環(huán)體內(nèi)對(duì)循環(huán)控制變量可多次引用；但最好不要對(duì)其賦值，否則影響原來(lái)的循環(huán)控制規(guī)律。,3.5.4 循 環(huán) 結(jié) 構(gòu) 1. For循環(huán)語(yǔ)句 (一般用于循環(huán)次數(shù)已知) 形式 For 循環(huán)變量＝初值 to 終值 [Step 步長(zhǎng)] 語(yǔ)句塊 [Exit For] 語(yǔ)句塊 Next 循環(huán)變量,循環(huán)變量, =,終值,語(yǔ)句塊,Exit For,語(yǔ)句塊,循環(huán)變量加步長(zhǎng),T,F,循環(huán)變量得初值,循環(huán)體,例 計(jì)算1~100的奇數(shù)和 Dim i %, s% 等價(jià)于： Dim i %, s% s=0 s=0 ： i = 1 For i = 1 To 100 step 2 re: If i = 100 Then s = s + i s = s + i Next i i = i +2 GoTo re End If,106,第一百零六頁(yè)，共二百六十七頁(yè)。,1．在選擇結(jié)構(gòu)中缺少配對(duì)的結(jié)束語(yǔ)句 對(duì)多行式的If塊語(yǔ)句中，應(yīng)有配對(duì)的 End If語(yǔ)句結(jié)束。“） 當(dāng)值為1，返回字符串“+”，然后放入Op變量中，值為2，返回字符 串“”，依次類(lèi)推；當(dāng)Nop是14的非整數(shù)，系統(tǒng)自動(dòng)取Nop的整數(shù)辦法在判斷；若Nop不在14之間，函數(shù)返回Null值。,（3）Choose函數(shù)形式是：,Choose（數(shù)字類(lèi)型變量，值為1的返回值，值為2的返回值……） 例如:Nop是14的值，轉(zhuǎn)換成 + 、247。 分析:產(chǎn)生1～10操作數(shù)，可通過(guò)Int(10 * Rnd + 1) 實(shí)現(xiàn) 設(shè)置的控件名 Label1 Text1 Picture1,Command1,102,第一百零二頁(yè)，共二百六十七頁(yè)。,101,第一百零一頁(yè)，共二百六十七頁(yè)。,哪個(gè)能實(shí)現(xiàn)，哪個(gè)不能實(shí)現(xiàn)？,方法一 If x 0 And y 0 Then Print “在第一象限“ ElseIf x 0 Then Print “在第二象限“ ElseIf x 0 And y 0 Then Print “在第四象限“ End If,方法二 Select Case x,y Case x 0 And y 0 Print “在第一象限“ Case x 0 Print “在第二象限“ Case x 0 And y 0 Print “在第四象限“ End Select,方法二代碼錯(cuò)誤： 1. Select Case 后不能出現(xiàn)多個(gè)變量； 2. Case后不能出現(xiàn)變量及有關(guān)運(yùn)算符。 用多分支結(jié)構(gòu)實(shí)現(xiàn): If Ucase(strC) =“A“ And Ucase (strC) =“0“ And strC =“9“ Then Print strC + “是數(shù)字字符“ Else Print strC + “其他字符“ End If 用Select Case語(yǔ)句實(shí)現(xiàn): Select Case strC Case “a“ To “z“，“A“ To “Z“ Print strC + “是字母字符“ Case “0“ To “9“ Print strC + “是數(shù)字字符“ Case Else Print strC + “其他字符“ End Select,100,第一百頁(yè)，共二百六十七頁(yè)。,99,第九十九頁(yè)，共二百六十七頁(yè)。,注意： 關(guān)鍵字Is定義條件時(shí)，只能是簡(jiǎn)單的條件，不能用邏輯運(yùn)算符將兩個(gè)或多個(gè)簡(jiǎn)單的條件組合在一起。,97,第九十七頁(yè)，共二百六十七頁(yè)。,4．If語(yǔ)句的嵌套 If語(yǔ)句的嵌套是指If或Else后面的語(yǔ)句塊中又包含If語(yǔ)句。,95,第九十五頁(yè)，共二百六十七頁(yè)。 用多分支結(jié)構(gòu)實(shí)現(xiàn): If Ucase(strC) =“A“ And Ucase (strC) =“0“ And strC =“9“ Then Print strC + “是數(shù)字字符“ Else Print strC + “其他字符“ End If,不管有幾個(gè)分支，依次判斷，當(dāng)某條件滿(mǎn)足，執(zhí)行相應(yīng)的語(yǔ)句，其余分支不再執(zhí)行；若條件都不滿(mǎn)足，且有Else子句，則執(zhí)行該語(yǔ)句塊，否則什么也不執(zhí)行。,3. If…Then…ElseIf語(yǔ)句(多分支結(jié)構(gòu)) 形式: If Then ElseIf Then … [Else 語(yǔ)句塊 n+1 ] End If,94,第九十四頁(yè)，共二百六十七頁(yè)。,3.5.3 選 擇 結(jié) 構(gòu) 1. If…Then語(yǔ)句(單分支結(jié)構(gòu)) If Then 語(yǔ)句塊 End If 或 If Then ,例：已知兩個(gè)數(shù)x和y，比較它們的大小，使得x大于y. If xy Then t=x x=y y=t End If 或 If xy Then t=x: x=y: y=t,92,第九十二頁(yè)，共二百六十七頁(yè)。 若密碼錯(cuò)，顯示有關(guān)信息，選擇“重試”按鈕，清除原內(nèi)容再輸入，選擇“取消”按鈕，停止運(yùn)行。,例3.2 編一帳號(hào)和密碼檢驗(yàn)程序。,相應(yīng)的語(yǔ)句如下: Dim strName As String * 40 strName= InputBox( “請(qǐng)輸入你的姓名” + vbCrLf + “然后單擊確定” , “輸入框” ) 也可以使用如下語(yǔ)句： Dim strName As String * 40， strS1 As String * 40 strS1 = “請(qǐng)輸入你的姓名” + Chr(13) + Chr(10) + “然后單擊確定” strName= InputBox(strS1， “輸入框”， ， 100，100) 當(dāng)鍵盤(pán)輸入“王曉明” 后，變量strName獲得鍵盤(pán)輸入的值.,89,第八十九頁(yè)，共二百六十七頁(yè)。,3.5.2 人機(jī)交互函數(shù)和過(guò)程 VB與用戶(hù)之間的直接交互是通過(guò)InputBox()函數(shù)、MsgBox()函數(shù)和MsgBox過(guò)程進(jìn)行的。 不能在一句賦值語(yǔ)句中，同時(shí)給多個(gè)變量賦值。 如： iA% = 10 / 3 iA中的結(jié)果為3 雖然賦值號(hào)與關(guān)系運(yùn)算符等于號(hào)都用“=”表示，VB系統(tǒng)會(huì)根據(jù)所處的位置自動(dòng)判斷是何種意義的符號(hào)。 “vb6.exe“),舉例： i = Shell(“c:\windows\calc.exe “,1) j = Shell(“c:\command.com“, 1),86,第八十六頁(yè)，共二百六十七頁(yè)。,X=shell(“c:\windows\pbr