【正文】 賦值號(hào)左邊只能是變量，不能是常量或表達(dá)式。,87,第八十七頁(yè)，共二百六十七頁(yè)。 1.InputBox函數(shù) InputBox(提示[，標(biāo)題][，缺省][，x 坐標(biāo)位置][，y坐標(biāo)位置]) 其中:提示 提示信息，標(biāo)題 對(duì)話框標(biāo)題，缺省輸入?yún)^(qū)缺省值 函數(shù)返回字符類型. 例要在屏幕上顯示圖示的對(duì)話框:,88,第八十八頁(yè)，共二百六十七頁(yè)。,2. MsgBox函數(shù)和MsgBox過(guò)程 函數(shù)形式:變量[%] = MsgBox(提示[,按鈕][，標(biāo)題]) 過(guò)程形式: MsgBox 提示[,按鈕][,標(biāo)題] 按鈕值如下: 函數(shù)返回所選按鈕整數(shù)值:,90,第九十頁(yè)，共二百六十七頁(yè)。 要求: 帳號(hào)不超過(guò)6位數(shù)字,有錯(cuò),清除原內(nèi)容再輸入. 密碼輸入時(shí)在屏幕上以 “*”代替。 分析: 帳號(hào)6位,MaxLength為6 , LostFocus判斷數(shù)字IsNumeric函數(shù) 密碼PassWordChar為“*”,MsgBox函數(shù)設(shè)置密碼錯(cuò)對(duì)話框.,91,第九十一頁(yè)，共二百六十七頁(yè)。,2. If…Then…Else語(yǔ)句(雙分支結(jié)構(gòu)) （1） If Then Else End If （2）If Then Else 計(jì)算分段函數(shù),單分支結(jié)構(gòu)實(shí)現(xiàn): [if x=0 then ] y=cos(x)－x^3+3*x If x0 Then y=sin(x)+sqr (x*x+1),雙分支結(jié)構(gòu)實(shí)現(xiàn): If x0 Then y=sin(x)+sqr (x*x+1) Else y=cos(x)－x^3+3*x End If,93,第九十三頁(yè)，共二百六十七頁(yè)。,例 已知變量strC中存放了一個(gè)字符，判斷該字符是字母字符、數(shù)字字符還是其他字符。. ElseIf不能寫(xiě)成 Else If。,例 已知百分制成績(jī)mark，顯示對(duì)應(yīng)的五級(jí)制成績(jī) 哪些正確，哪些錯(cuò)誤？,正確：方法一、二 錯(cuò)誤：方法三,96,第九十六頁(yè)，共二百六十七頁(yè)。 形式如下： If Then If Then … End If … End If,例 已知x，y，z三個(gè)數(shù)，使得xyz 用一個(gè)IF語(yǔ)句和一個(gè)嵌套的IF語(yǔ)句實(shí)現(xiàn),If xy Then t=x: x=y: y=t If yz Then t=y: y=z: z=t If xy Then t=x: x=y: y=t End If End If,If語(yǔ)句的嵌套注意事項(xiàng)：書(shū)寫(xiě)鋸齒型；End If與它前面最近的if配對(duì)。,：與的類型必須相同，可以是下面四種形式之一： 表達(dá)式 例: “A“ 一組枚舉表達(dá)式(用逗號(hào)分隔) 2,4,6,8 表達(dá)式1 To 表達(dá)式2 60 To 100 Is 關(guān)系運(yùn)算符表達(dá)式 Is 60,5. Select Case語(yǔ)句(情況語(yǔ)句) 形式： Select Case 變量或表達(dá)式 Case 表達(dá)式列表1 語(yǔ)句塊1 Case 表達(dá)式列表2 語(yǔ)句塊2 … [Case Else 語(yǔ)句塊n+1] End Select,變量：只能含有一個(gè) 表達(dá)式：數(shù)值型或字符串,98,第九十八頁(yè)，共二百六十七頁(yè)。 例如“Case Is20 and Is20”是正確的。,例 變量strC中存放了一個(gè)字符，判斷該字符類型。,例：已知坐標(biāo)點(diǎn)(x，y)，判斷其落在哪個(gè)象限。,比較：Select Case結(jié)構(gòu)清晰，但使用受到限制，因此，凡是對(duì)多個(gè)變量的條件判斷只能用If的多分支結(jié)構(gòu)來(lái)實(shí)現(xiàn)。,例由計(jì)算機(jī)來(lái)當(dāng)一年級(jí)的算術(shù)老師，要求給出一系列的1～10的操作數(shù)和運(yùn)算符，學(xué)生輸入該題的答案，計(jì)算機(jī)根據(jù)學(xué)生的答案判斷正確與否，當(dāng)結(jié)束時(shí)給出成績(jī)。,6.條件函數(shù) （1）IIf函數(shù)形式是： IIf（表達(dá)式，當(dāng)表達(dá)式為T(mén)rue時(shí)的值，當(dāng)表達(dá)式為False時(shí)的值） 例如，求x,y中大的數(shù)，放入Tmax變量中，語(yǔ)句如下： Tmax=IIf（x y，x，y） （2） Switch函數(shù)形式是： Switch（條件表達(dá)式1，條件表達(dá)式1為T(mén)rue時(shí)的值 [，條件表達(dá)式2，條件表達(dá)式2為T(mén)rue時(shí)的值……]）,103,第一百零三頁(yè)，共二百六十七頁(yè)。運(yùn)算符 Op= Choose（Nop，“+“，““，““，“247。,104,第一百零四頁(yè)，共二百六十七頁(yè)。 2. 多邊選擇ElseIf關(guān)鍵字的書(shū)寫(xiě)和條件表達(dá)式的表示 ElseIf 不要寫(xiě)成Else If； 多個(gè)條件表達(dá)式次序問(wèn)題 3. Select Case語(yǔ)句的使用 Select Case 后不能出現(xiàn)多個(gè)變量；Case子句后不能出現(xiàn)變量,本節(jié)常見(jiàn)錯(cuò)誤,105,第一百零五頁(yè)，共二百六十七頁(yè)。,0 初值終值 =0 死循環(huán),循環(huán)次數(shù),要注意： 出了循環(huán)，循環(huán)控制變量值的問(wèn)題。,步長(zhǎng),107,第一百零七頁(yè)，共二百六十七頁(yè)。 Private Sub Command1_Click() j = 0 For i = 1 To 20 Step 2 i = i + 3 j = j + 1 Print “第“。 “次循環(huán)i=“。 i End Sub 正常情況：i=1,3,5,7,9,11,13,15,17,19 現(xiàn)在：i=4,9,14,19,例 輸出可打印的ASCII碼字符與它的編碼值。,2. Do…Loop循環(huán)語(yǔ)句(用于控制循環(huán)次數(shù)未知) 形式1： Do { While|Until } 語(yǔ)句塊 [Exit Do 語(yǔ)句塊] Loop,形式2： Do 語(yǔ)句塊 [Exit Do 語(yǔ)句塊] Loop { While|Until} ,109,第一百零九頁(yè)，共二百六十七頁(yè)。 分析：解此問(wèn)題兩種方法，可根據(jù)公式：26=13*(1+0.008)n 直接利用標(biāo)準(zhǔn)對(duì)數(shù)函數(shù)求得；也可利用循環(huán)求得，程序如下： Private Sub Command1_Click() x = 13 n = 0 Do While x 26 x = x * 1.008 n = n + 1 Loop Print n, x End Sub,110,第一百一十頁(yè)，共二百六十七頁(yè)。 分析：求最大公約數(shù)的算法思想： (1)對(duì)于已知兩數(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)。,While …Wend循環(huán)： （類似于Do While…Loop） 格式為：While Wend 執(zhí)行過(guò)程：先計(jì)算表達(dá)式的值，如果表達(dá)式的值為T(mén)rue，則執(zhí)行循環(huán)體，遇到Wend語(yǔ)句后，返回到While語(yǔ)句并再對(duì)條件進(jìn)行測(cè)試，如為T(mén)rue，則繼續(xù)執(zhí)行循環(huán)體，如為False，則退出循環(huán)體。,4.循環(huán)的嵌套 一個(gè)循環(huán)體內(nèi)又包含了一個(gè)完整的循環(huán)結(jié)構(gòu)稱為循環(huán)的嵌套. 例打印九九乘法表. For i = 1 To 9 For j = 1 To 9 se = i Next j Picture1.Print Next i,思考：打印上三角或下三角程序如何改動(dòng)？,上三角 For j=i To 9,下三角 For j=1 To i,113,第一百一十三頁(yè)，共二百六十七頁(yè)。 正確 錯(cuò)誤,114,第一百一十四頁(yè)，共二百六十七頁(yè)。 2. 循環(huán)結(jié)構(gòu)中缺少配對(duì)的結(jié)束語(yǔ)句 For 少 配對(duì)的Next 3. 循環(huán)嵌套時(shí),內(nèi)外循環(huán)交叉 4. 累加、連乘時(shí)，存放累加、連乘結(jié)果的變量賦初值問(wèn)題 (1)一重循環(huán) 在一重循環(huán)中,存放累加、連乘結(jié)果的變量初值設(shè)置應(yīng)在循環(huán)語(yǔ)句前。如：1!+2!+3!+…+n! 5.大數(shù)相乘產(chǎn)生“溢出”問(wèn)題,115,第一百一十五頁(yè)，共二百六十七頁(yè)。 作用：退出某種控制結(jié)構(gòu)的執(zhí)行。,116,第一百一十六頁(yè)，共二百六十七頁(yè)。 With Label1 .Height = 2000 .Width = 2000 .FontSize=22 .Caption = “MyLabel“ End With,Label1.Height = 2000 Label1.Width = 2000 Label1.FontSize=22 Label1.Caption = “MyLabel“,等價(jià),117,第一百一十七頁(yè)，共二百六十七頁(yè)。 aver = 0 For i = 1 To 100 mark = InputBox(“輸入“ + i + “位學(xué)生的成績(jī)“) aver = aver + mark Next i aver = aver / 100 但若要統(tǒng)計(jì)高于平均分的人數(shù)，則無(wú)法實(shí)現(xiàn)。 解決此問(wèn)題的根本方法，引入數(shù)組，始終保持輸入的數(shù)據(jù)，一次輸入，多次使用。,引入數(shù)組 dim mark(1 to 100) as integer dim i as integer, n%,aver! n=0 for i=1 to 100 aver= aver + mark(i) next i aver = aver / 100 for i=1 to 100 if mark(i)aver then n=n+1 next i,119,第一百一十九頁(yè)，共二百六十七頁(yè)。在程序中使用數(shù)組的最大好處是用一個(gè)數(shù)組名代表邏輯上相關(guān)的一批數(shù)據(jù)，用下標(biāo)表示該數(shù)組中的各個(gè)元素，和循環(huán)語(yǔ)句結(jié)合使用，使得程序書(shū)寫(xiě)簡(jiǎn)潔。數(shù)組元素的使用同簡(jiǎn)單變量的使用。 兩類數(shù)組： 靜態(tài)(定長(zhǎng))數(shù)組、動(dòng)態(tài)(可變長(zhǎng))數(shù)組。,靜態(tài)數(shù)組及聲明 靜態(tài)數(shù)組：在聲明時(shí)已確定了數(shù)組元素個(gè)數(shù)。 下標(biāo)： [下界 To ] 上界 下界最小為－32768，上界最大為32767，省略下界為0 。 每一維大?。?上界－下界+1 數(shù)組大?。?每一維大小的乘積 As類型：如果省略，默認(rèn)為變體類型 例：Dim mark(1 to 100) As Integer,121,第一百二十一頁(yè)，共二百六十七頁(yè)。 Option Base 1,122,第一百二十二頁(yè)，共二百六十七頁(yè)。如： n =Inputbox(“輸入n”） Dim x(n) As Single 39。數(shù)組元素的下標(biāo)可以是變量，但要防止下標(biāo)越界的錯(cuò)誤發(fā)生 (3)在數(shù)組聲明中的下標(biāo)說(shuō)明了數(shù)組的整體，即每維的大?。欢诔绦蚱渌胤匠霈F(xiàn)的下標(biāo)表示數(shù)組中的一個(gè)元素。 例如：Dim x(10) As Integer 39。 對(duì)x(10)這個(gè)數(shù)組元素賦值,123,第一百二十三頁(yè)，共二百六十七頁(yè)。形式如下： Dim 數(shù)組名( ) ReDim 數(shù)組名(下標(biāo)1[，下標(biāo)2…]) [As 類型] 例 Sub Form_Load( ) Dim x( ) As Single … n =Inputbox(“輸入n”） ReDim x(n) … End Sub,124,第一百二十四頁(yè)，共二百六十七頁(yè)。 在過(guò)程中可多次使用ReDim來(lái)改變數(shù)組的大小和維數(shù)。使用Preserve只能改變最后一維的大小，前面幾維大小不能改變。 靜態(tài)數(shù)組在程序編譯時(shí)分配存儲(chǔ)單元，動(dòng)態(tài)數(shù)組在運(yùn)行時(shí)分配存儲(chǔ)單元。,例：Redim和 Preserve語(yǔ)句的使用 Dim a() as integer 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 Print “a(“。 “,“。 “)=“。 “ “ Next j Next i End Sub,126,第一百二十六頁(yè)，共二百六十七頁(yè)。 i。 j。 a(i, j)。, 數(shù)組的基本操作 應(yīng)掌握的基本操作有：數(shù)組初始化、數(shù)組輸入、輸出、求數(shù)組中最大（最?。┰丶跋聵?biāo)、求和、平均值、排序和查找等。 “ “。,注意 利用Array對(duì)數(shù)組各元素賦值，聲明的數(shù)組是可變數(shù)組或連圓括號(hào)都可省的數(shù)組，并且其類型只能是Variant。 賦值號(hào)左邊的數(shù)組只能聲明為Variant的可調(diào)數(shù)組或簡(jiǎn)單變量。,B．?dāng)?shù)組的賦值 數(shù)組直接對(duì)數(shù)組的賦值： Dim a() As Variant, b() As Variant, i% a = Array(1, 2, 3, 4, 5) ReDim b(UBound(a)) b = a,129,第一百二十九頁(yè)，共二百六十七頁(yè)。 D.數(shù)組的輸出: 輸出方陣SC中的下三角元素 For i = 0 To 4 For j = 0 To i sc(i, j) = i * 5 + j Print sc(i, j)。 Next j Print 39。,E. 求數(shù)組中最大元素及所在下標(biāo)及各元素之和 Dim Max%,iMax %,s%, iA(1 to 10) As Integer Max=iA(1)：iMax=1:s=iA(1) For i = 2 To 10 s=s+iA(i) If iA(i)Max Then Max=iA(i) iMax=i End If Next i F. 將數(shù)組中各元素交換 For i =1 To 10\2 t=iA(i) iA(i)=iA(10i+1) iA(10i+1)=t Next i,131,第一百三十一頁(yè)，共二百六十七頁(yè)。 分析： 統(tǒng)計(jì)26個(gè)字母出現(xiàn)的個(gè)數(shù)，先聲明一個(gè)具有26個(gè)元素的數(shù)組，每個(gè)元素的下標(biāo)表示對(duì)應(yīng)的字母，元素的值表示對(duì)應(yīng)字母出現(xiàn)的次數(shù)。 Asc(“A”)=65 Asc(“Z”)=122 Asc(“a”)=97 Asc(“z”)=90,Dim a(1 to 26) as integer Dim c as string*1 Le=len(Text1) For I = 1 To le c = UCase(Mid(Text1, I, 1)) If c = “A“ And c = “Z“ Then j = Asc(c) 65 + 1 a(j) = a(j) + 1 End If Next I,132,第一百三十二頁(yè)，共二百六十七頁(yè)。 (1) 從n個(gè)數(shù)中選出最小數(shù)的下標(biāo)(遞增)，然后將最小數(shù)與第1個(gè)數(shù)交換位置； (2) 除第1個(gè)數(shù)外，其余n1個(gè)數(shù)再按(1)的方法選出次小的數(shù)，與第2個(gè)數(shù)交換位置； (3) 重復(fù)(1)n1遍，最后構(gòu)成遞增序列。,c.排序（冒泡法） 選擇法排序在每一輪排序時(shí)找最小(遞增次序)數(shù)的下標(biāo)，出了內(nèi)循環(huán)(一輪排序結(jié)束)，再交換最小數(shù)的位置；而冒泡法排序在