第四章vb控制結(jié)構(gòu)

1第4章VB控制結(jié)構(gòu)4.1順序結(jié)構(gòu)4.2選擇結(jié)構(gòu)4.3循環(huán)結(jié)構(gòu)4.4其它輔助控制語(yǔ)句4.5綜合應(yīng)用4.6程序調(diào)試24.1順序結(jié)構(gòu)VB具有結(jié)構(gòu)化程序設(shè)計(jì)的三種程序控制結(jié)構(gòu)順序結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)，是程序設(shè)計(jì)的基礎(chǔ)。（1）順序結(jié)構(gòu)各語(yǔ)句按出現(xiàn)的先后次序執(zhí)行A1操作A2操作

A1操作

A2操作(a)順序結(jié)構(gòu)流程圖34.1順序結(jié)構(gòu)

一般程序設(shè)計(jì)語(yǔ)言中順序結(jié)構(gòu)的語(yǔ)句主要

賦值語(yǔ)句和輸入/輸出語(yǔ)句

在VB中

賦值語(yǔ)句

輸入/輸出通過(guò):

文本框控件、標(biāo)簽控件

InputBox函數(shù)、MsgBox函數(shù)和過(guò)程

Print方法等來(lái)實(shí)現(xiàn)44.1.1賦值語(yǔ)句形式：

變量名＝表達(dá)式

[對(duì)象名.]屬性名=表達(dá)式功能：計(jì)算等號(hào)右邊表達(dá)式的值將值賦給變量或?qū)ο髮傩岳纾簄=n+1 ‘計(jì)數(shù)累加Text1.Text＝“” ‘清除文本框的內(nèi)容Text1.Text＝"歡迎使用VB"'文本框顯示字符串

本章目錄PrivateSubForm_Click()a=5:b=10:c=5x=(-b+Sqr(b^2-4*a*c))/(2*a)PrintxEndSub結(jié)果：-16注意：

“=”符號(hào)有兩個(gè)意義：

賦值號(hào)、關(guān)系運(yùn)算符等號(hào)

形式相同,系統(tǒng)會(huì)根據(jù)所處的位置判斷符號(hào)的意義賦值語(yǔ)句：兩個(gè)數(shù)交換a=3:b=4t=aa=bb=t結(jié)果：a=4b=3關(guān)系表達(dá)式：Nota=b結(jié)果：True例:設(shè)計(jì)兩個(gè)變量交換值的程序。⑴建立程序界面編寫事件代碼。命令按鈕Command1的Click事件代碼為：PrivateSubCommand1_Click()DimtempAsSingle,xAsSingle,yAsSinglex=Val（Text1.Text）y=Val(Text2.Text)temp=xx=yy=tempText3.Text=xText4.Text=yEndSub

賦值號(hào)左邊只能是變量，不能是常量、常數(shù)符號(hào)、表達(dá)式下面均為錯(cuò)誤的賦值語(yǔ)句：Now=x+y'左邊是表達(dá)式(函數(shù))5=sqr(s)+x+y‘左邊是常量X+y=z ‘左邊是表達(dá)式賦值語(yǔ)句的兩個(gè)常用形式：

1.累加

sum=sum+x與循環(huán)結(jié)構(gòu)結(jié)合使用

2.計(jì)數(shù)

n=n+1與循環(huán)結(jié)構(gòu)結(jié)合使用起到計(jì)數(shù)器的作用賦值號(hào)兩邊數(shù)據(jù)類型不同時(shí)處理：

1.當(dāng)表達(dá)式為數(shù)值型并與變量精度不同時(shí)，要強(qiáng)制轉(zhuǎn)換成左邊變量的精度（轉(zhuǎn)換時(shí)四舍五入）

n%=3.6n為整型，賦值后n為4

2.當(dāng)表達(dá)式為數(shù)值字符串，左邊變量為數(shù)值類型，將表達(dá)式自動(dòng)轉(zhuǎn)換成數(shù)值類型再賦值，若表達(dá)式有非數(shù)字及空格則出錯(cuò)

n%=“123”n的結(jié)果為123

n%=“2dfe34”出錯(cuò)n%=Truen的結(jié)果為-1當(dāng)數(shù)值型賦值給邏輯型變量時(shí),非0

轉(zhuǎn)化為True

0

轉(zhuǎn)化為False4.非字符型值賦值給字符型變量自動(dòng)轉(zhuǎn)化為字符型利用轉(zhuǎn)換函數(shù)將表達(dá)式類型轉(zhuǎn)換成左邊變量的類型例：執(zhí)行語(yǔ)句s=Len(Mid(“VisualBasic”,1,6))后，s的值A(chǔ)）VisualB)BasicC)6D)11例：設(shè)a=“MicrosoftVisualBasic”，則以下使變量b的值為“VisualBasic”的語(yǔ)句是

A)b=Left(a,10)B)b=Mid(a,10)C)b=Right(a,10)D)b=Mid(a,11,10)例：執(zhí)行下面的程序段后，a、b的值為a=300b=20a=a+bb=a-ba=a-b

203004.1.2數(shù)據(jù)輸出和輸入1.標(biāo)簽

利用標(biāo)簽的Caption屬性來(lái)輸出數(shù)據(jù)

2.文本框

利用文本框的Text屬性獲得數(shù)據(jù)或?qū)⒂?jì)算結(jié)果輸出

例如：從文本框Text1輸入圓的半徑，計(jì)算面積后在標(biāo)簽Label1顯示。

r=Val(Text1.Text)

Label1.Caption="面積="&3.14*r*r

&-----字符連接符132.輸入對(duì)話框InputBox函數(shù)作用：打開一個(gè)對(duì)話框，等待用戶輸入，函數(shù)返回字符串類型的輸入值形式：

InputBox(提示,標(biāo)題,默認(rèn)值,x坐標(biāo)位置,y坐標(biāo)位置)

注意:1.提示項(xiàng)不能省略。為字符串表達(dá)式。若要多行提示每行行末加回車Chr(13)換行Chr(10)或vbCrLfInputBox("輸入姓名"&Chr(13)&"單擊確定","輸入框","王小明",250,250)2.標(biāo)題：字符串表達(dá)式3.默認(rèn)值：字符串，在輸入對(duì)話框中設(shè)置的初始值例如：有下列語(yǔ)句如下:

Dimx%x=Val(InputBox(“請(qǐng)輸入一個(gè)數(shù)”,“輸入框”,100))

語(yǔ)句執(zhí)行后打開如下對(duì)話框。缺省值標(biāo)題提示例4.1利用InputBox輸入基本工資和營(yíng)業(yè)額，按營(yíng)業(yè)額的5%提成計(jì)算實(shí)發(fā)工資（由基本工資+營(yíng)業(yè)額提成）并顯示

解：顯示用Lable控件，在窗口建立PrivateSubForm_Click()Dimsfgz,jbgz,xAsSinglejbgz=Val(InputBox("輸入基本工資","計(jì)算工資",3000))x=Val(InputBox("輸入本月營(yíng)業(yè)額"))sfgz=jbgz+x*0.05Label1="本月營(yíng)業(yè)額為："&x&"基本工資為：“&jbgz&vbCrLf&"本月實(shí)發(fā)工資為："&sfgzEndSub例：在窗體上畫一個(gè)文本框，然后編寫如下事件過(guò)程PrivateSubForm_Click()

x=InputBox("請(qǐng)輸入一個(gè)整數(shù)")

Text1.Text=x+Text1.TextEndSub程序運(yùn)行時(shí)在文本框中輸入456，然后單擊窗體，在輸入對(duì)話框中輸入123，單擊“確定”按鈕后在文本框上顯示的內(nèi)容為A)123B)456C)479D)123456

例：在窗體上畫一個(gè)命令按鈕和一個(gè)文本框，其名稱分別為Command1和Text1，把文本框的Text屬性設(shè)置為空白，然后編寫如下事件過(guò)程：

PrivateSubCommand1_Click()a=InputBox(“Enteraninteger”)b=InputBox(“Enteraninteger”)Text1.Text=b+aEndSub程序運(yùn)行后，單擊命令按鈕，如果在輸入對(duì)話框中分別輸入8和10，則文本框中顯示的內(nèi)容是

A）108B）18C）810D）出錯(cuò)

例：設(shè)有語(yǔ)句

x=inputbox(“輸入數(shù)值”，“0”，“示例”)程序運(yùn)行后，如果從鍵盤上輸入數(shù)值10并按回車鍵，則下列敘述中正確的是（）A）變量x的值是數(shù)值10B）在inputbox對(duì)話框標(biāo)題欄中顯示的是“示例”C）0是默認(rèn)值D）變量x的值是字符串“10”例：a=InputBox("Today","Tomorrow","Yesterday",,,"Daybeforeyesterday",5)

顯示一個(gè)輸入對(duì)話框在對(duì)話框的輸入?yún)^(qū)中顯示的信息是

A）Today B）Tomorrow C）Yesterday D）Daybeforeyesterday20作用：打開一個(gè)信息框，等待用戶選擇一個(gè)按按鈕MsgBox函數(shù)形式：

變量%=MsgBox(提示,按鈕,標(biāo)題)變量%=MsgBox(提示,按鈕＋圖標(biāo),標(biāo)題)MsgBox過(guò)程形式：

MsgBox提示,按鈕,標(biāo)題按鈕項(xiàng)是一整型表達(dá)式，決定信息框按鈕的數(shù)目和類型及出現(xiàn)在信息框上的圖標(biāo)形式。

MsgBox函數(shù)返回所選按鈕的值MsgBox過(guò)程不返回值，作為一句獨(dú)立的語(yǔ)句

2.消息對(duì)話框MsgBox函數(shù)和過(guò)程

MsgBox按鈕設(shè)置

信息圖標(biāo)

64VBInformation警告信息圖標(biāo)

48VBExclamation詢問信息圖標(biāo)

32VBQuestion關(guān)鍵信息圖標(biāo)

16VBCritical圖標(biāo)類型

重試、取消按鈕5VBRetryCancel是、否按鈕

4VBYesNo是、否、取消按鈕3VBYesNoCancel終止、重試、忽略按鈕2VBAboutRetryIgnore確定、取消按鈕

1VBOkCancel確定按鈕

0VBOkOnly按鈕數(shù)目

描述值內(nèi)部常數(shù)分組MsgBox“提示”,2,”標(biāo)題”內(nèi)部常數(shù)返回值單擊的按鈕vbOk1確定vbCancel2取消vbAbort3終止vbRetry4重試vbIgnore5忽略vbYes6是vbNo7否MsgBox函數(shù)所選按鈕返回值

PrivateSubForm_Click()x=MsgBox("密碼錯(cuò)誤",5+48,"輸入框")PrintxEndSub點(diǎn)擊“重試”點(diǎn)擊“取消”結(jié)果為：4結(jié)果為：2x=MsgBox("密碼錯(cuò)誤",5+48,"輸入框")按鈕設(shè)置：5+4853VbRetryCancel+485+VbExclamationvbRetryCancel+vbExclamation效果相同例4.2編一賬號(hào)和密碼輸入的檢驗(yàn)程序1.賬號(hào)不超過(guò)6位數(shù)字，當(dāng)輸入不正確，為非數(shù)字字符，顯示如圖信息。2.密碼是4位字符，輸入文本框以“*”顯示，若不正確，顯示如圖信息。密碼為“Gong”在窗口建立Text1、Text2、Command1、Lable1、Lable2PrivateSubForm_Load()Text1.Text=""Text1.MaxLength=6Text2.Text=""Text2.MaxLength=4Text2.PasswordChar="*"EndSubPrivateSubText1_LostFocus()IfNotIsNumeric(Text1.Text)ThenMsgBox"賬號(hào)必須為數(shù)字",,"警告"Text1.Text=""Text1.SetFocusEndIfEndSub‘連續(xù)兩個(gè)逗號(hào)（“,”）缺省按鈕數(shù)目為"確定"按鈕PrivateSubCommand1_Click()DimIAsIntegerIfText2.Text<>"Gong"ThenI=MsgBox("密碼錯(cuò)誤",5+vbExclamation,"警告")IfI=2ThenEndElseText2.Text=""Text2.SetFocusEndIfEndIfEndSub例．以下關(guān)于MsgBox的敘述中，錯(cuò)誤的是A)MsgBox函數(shù)返回一個(gè)整數(shù)B)通過(guò)MsgBox函數(shù)可以設(shè)置信息框中圖標(biāo)和按鈕的類型C)MsgBox過(guò)程沒有返回值D)MsgBox函數(shù)的第二個(gè)參數(shù)是一個(gè)整數(shù)，該參數(shù)只能確定對(duì)話框中顯示的按鈕數(shù)量例：假定有如下的窗體事件過(guò)程：

PrivateSubForm_Click()a="MicrosoftVisualBasic"b=Right(a,5)c=Mid(a,1,9)MsgBoxa,34,b,c,5EndSub程序運(yùn)行后單擊窗體彈出的信息框標(biāo)題欄中顯示的信息是

A)MicrosoftVisualB)MicrosoftC)BasicD)5

34=2+32VBAboutRetryIgnore+VBQuestion例：在窗體上畫一個(gè)命令按鈕，名稱為Command1，然后編寫如下事件過(guò)程：

PrivateSubCommand1_Click()a="softwareandhardware“b=Right(a,8)c=Mid(a,1,8)MsgBoxa,,b,c,1EndSub

運(yùn)行程序單擊按鈕在彈出的信息框標(biāo)題欄中顯示的是A）softwareandhardwareB）softwareC）hardwareD）1

例：假定有如下的命令按鈕(名稱為Command1)事件過(guò)程：

PrivateSubCommand1_Click()

x=InputBox(“輸入：”，“輸入整數(shù)”)

MsgBox“輸入的數(shù)據(jù)是：”，，“輸入數(shù)據(jù)：”+x

EndSub

程序運(yùn)行后，單擊命令按鈕，如果從鍵盤上輸入整數(shù)10，則以下敘述中錯(cuò)誤的是

A．x的值是數(shù)值10

B．輸入對(duì)話框的標(biāo)題是“輸入整數(shù)”

C．信息框的標(biāo)題是“輸入數(shù)據(jù)：10”

D．信息框中顯示的是“輸入的數(shù)據(jù)是：”例、窗體上有一個(gè)名稱為Command1的命令按鈕，其事件過(guò)程如下：

PrivateSubCommand1_Click()x=“VisualBasicProgramming”a=Right(x,11)b=Mid(x,7,5)C=Msgbox(a,,b)EndSub

運(yùn)行程序后單擊命令按鈕，以下敘述中錯(cuò)誤的是

Ａ）信息框的標(biāo)題是BasicB)信息框中的提示信息是Programming

C)C的值是函數(shù)的返回值D）MsgBox的使用格式有錯(cuò)3.Print方法作用:在對(duì)象（窗體、圖形框）上輸出信息若對(duì)象省略，則默認(rèn)在窗體上輸出格式：對(duì)象.PrintSpc(n)|Tab(n)輸出列表;|,定位函數(shù)：Spc(n)函數(shù)：從當(dāng)前位置起空n個(gè)空格Tab(n)函數(shù)：從最左端開始計(jì)算的第n列無(wú)定位函數(shù)則由對(duì)象當(dāng)前位置決定輸出列表：輸出數(shù)字或字符串表達(dá)式。無(wú)則輸出一行空行分隔符：用于輸出各項(xiàng)之間的分隔分號(hào)：定位在上一個(gè)被顯示的字符之后逗號(hào)：定位在下一個(gè)打印區(qū)開始處(每區(qū)14列)Print語(yǔ)句尾無(wú)分號(hào)或逗號(hào)，輸出后換行例4.3Print方法輸出圖形利用String函數(shù)顯示重復(fù)字符利用循環(huán)結(jié)構(gòu)、Spc、Tab函數(shù)顯有規(guī)律圖形PrivateSubForm_Click()Print‘空一行Fori=1To5‘顯示有規(guī)律的5行PrintTab(i);String(6-i,"▼");Spc(6);String(i,"▲")NextiEndSub

注意:1.Tab（i）函數(shù)從對(duì)象的左端開始計(jì)數(shù)，當(dāng)i的值大于當(dāng)前位置（CurrentX）時(shí)重新定位在下一行的第i列Spc函數(shù)表示兩個(gè)輸出項(xiàng)之間的間隔2.一般Print在Form_Load事件過(guò)程中無(wú)效果，因?yàn)榇绑w的AutoRedraw(窗體的重建

)屬性默認(rèn)為False將窗體的AutoRedraw屬性設(shè)置為True就有效果3.Print方法不但有輸出功能，還有計(jì)算功能表達(dá)式先計(jì)算后輸出4.各輸出表達(dá)式列表項(xiàng)以“；”“，”分隔或“&”“+”字符連接符將各項(xiàng)連接后輸出例：語(yǔ)句Form1.PrintTab(10);"#"的作用是在窗體當(dāng)前輸出行A、第10列輸出字符“#” B、第9列輸出字符“#”C、第11列輸出字符“#” D、輸出10個(gè)字符“#”例．Print語(yǔ)句的一個(gè)輸出表達(dá)式為

，則輸出包括日期、時(shí)間信息A、DateB、Month C、TimeD、Now例.語(yǔ)句Print"5*5"的顯示結(jié)果是A、25B、"5*5"C、5*5D、出現(xiàn)錯(cuò)誤提示例．下列程序段的輸出結(jié)果是a=10:b=10000:x=log(b)/log(a):Print"lg(10000)=";xA、lg(10000)=5 B、lg(10000)=4 C、4 D、5例．下面程序運(yùn)行的結(jié)果為：()DimaaAsintegeraa=3.8PrintaaA、3.8B、aa=4C、4D、3例．在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過(guò)程：PrivateSubCommand1_Click()a=“VisualBasic”PrintString(3,a)EndSub程序運(yùn)行后，單擊命令按鈕，在窗體上顯示的內(nèi)容是A）VVVB）VisC)sicD)11例：設(shè)x=4，y=6，則以下不能在窗體上顯示出“A=10”的語(yǔ)句是

A．PrintA=x+y

B．Print"A=";x+y

C．Print"A="+Str(x+y)

D．Print"A="&x+y

4.Format格式輸出函數(shù)

形式：

Format(表達(dá)式,"格式字符串")作用：使數(shù)值、字符串、日期按指定的格式輸出1.23E-01"0.00E+00"0.1234用指數(shù)表示E+$1234.57"$###.##"1234.567在數(shù)字前強(qiáng)加＄＄123456.7%"####.##%"1234.567數(shù)值乘以100，加百分號(hào)%1,234.567"##,##0.000"1234.567千分位，1234.567"#####.####"1234.567位置不足時(shí)不填充0#01234.5670"00000.0000"1234.567用0填充不足的位置0顯示結(jié)果格式字符串表達(dá)式作用符號(hào)注意：“0”或“#”：數(shù)值表達(dá)式的整數(shù)部分位數(shù)多于格式字符串的位數(shù)，按實(shí)際數(shù)值顯示;若小數(shù)部分位數(shù)多于格式字符串的位數(shù)，按四舍五入顯示例4.4利用Format函數(shù)顯示數(shù)值。

PrivateSubForm_Click()s=12.2345:b=12.1Print“s=";Format(s,"0.00");"b=";Format(b,"0.00")Print“s="&Format(s,"#.##")&"b="&Format(b,"#.##")Prints;"+";b;"=";s+bPrints&"+"&b&"="&s+bEndSubs=12.23b=12.10s=12.23b=12.112.2345+12.1=24.334512.2345+12.1=24.3345例：在窗體上畫一個(gè)命令按鈕，其名稱為Command1,然后編寫如下事件過(guò)程：PrivateSubCommand1_Click()a=12345PrintFormat(a,“000.00”)EndSub程序運(yùn)行后，單擊命令按鈕，窗體上顯示的是123.45B)12345.00C)12345D)00123.45424.2選擇結(jié)構(gòu)VB中主要通過(guò)If...Then...Else、If...Then...ElseIf、SelectCase語(yǔ)句來(lái)實(shí)現(xiàn)它們都是對(duì)條件進(jìn)行判斷，根據(jù)判斷結(jié)果，選擇執(zhí)行不同的分支。

不成立假A成立真條件PBA成立真條件P不成立假在條件語(yǔ)句中作為判斷依據(jù)的表達(dá)式稱為“條件表達(dá)式”條件表達(dá)式的取值為布爾值：真（True）或假（False）條件表達(dá)式分為兩類：關(guān)系表達(dá)式以及布爾表達(dá)式1.關(guān)系運(yùn)算符（=，>,<,<=,>=,<>）關(guān)系運(yùn)算，用來(lái)對(duì)兩個(gè)表達(dá)式的值進(jìn)行比較，其結(jié)果是一個(gè)邏輯值2.邏輯運(yùn)算符（1）Not(非)

（2）And（與）（3）Or(或)（4）Xor(異或)（5）Eqv（等價(jià)）若兩個(gè)表達(dá)式同時(shí)為True或同為False，結(jié)果為True（6）Imp（蘊(yùn)含）當(dāng)?shù)谝粋€(gè)表達(dá)式為True，且第二個(gè)表達(dá)式為False時(shí)，結(jié)果為False，其他均為True3.表達(dá)式的執(zhí)行順序（1）首先進(jìn)行函數(shù)運(yùn)算；（2）接著進(jìn)行算術(shù)運(yùn)算；（3）然后進(jìn)行關(guān)系運(yùn)算（=,>,<,<>,>=,<=）（4）最后進(jìn)行邏輯運(yùn)算，順序?yàn)椋孩貼ot

②And

③Or④Xor

⑤Eqv

⑥Imp4.2.1If條件語(yǔ)句

1.If…Then語(yǔ)句(單分支結(jié)構(gòu))

If<表達(dá)式>Then

語(yǔ)句塊（可以是一句或多句語(yǔ)句）

EndIf或

If<表達(dá)式>Then<語(yǔ)句>表達(dá)式值按非零為True，零為False進(jìn)行判斷該語(yǔ)句的作用是當(dāng)表達(dá)式的值為True，執(zhí)行Then后面的語(yǔ)句塊，否則不做任何操作不成立假A成立真條件P例：已知兩個(gè)數(shù)x和y，比較它們的大小，互換兩者的值Ifx<yThent=xx=yy=tEndIf或Ifx<yThent=x:x=y:y=t簡(jiǎn)單If形式無(wú)EndIf時(shí)，只能是一句語(yǔ)句或語(yǔ)句間用冒號(hào)分隔，而且必須在一行上書寫。

判斷1：若If語(yǔ)句中邏輯表達(dá)式值為True，則關(guān)鍵字Then后的若干語(yǔ)句都要執(zhí)行直到EndIf結(jié)束判斷2．在If語(yǔ)句中，關(guān)鍵字EndIf是必不可少的例、寫出運(yùn)行結(jié)果a=100b=50c=30Ifa<bOrb<cThenb=cIfb=cAnda<cThena=a–100Printa,b,c下列程序的執(zhí)行結(jié)果為

A)1005030B)-1003030C)-1005030D)1003050例、下列程序運(yùn)行的結(jié)果是Dimkasintegerk=1Ifk<=1thena=2*kIfk<=2thena=2*k+2Ifk<=4thena=kPrintk;aA)12B)14C)11D)24例:PrivateSubCommand1_Click()Text1.Text="VisualBasic"

EndSubPrivateSubText1_LostFocus()

IfText1.Text<>"BASIC"Then

Text1.Text=""

Text1.SetFocus

EndIfEndSub程序運(yùn)行時(shí)，在Text1文件框中輸入“Basic然后單擊Command1按鈕，則產(chǎn)生的結(jié)果是

Ａ）文本框中無(wú)內(nèi)容，焦點(diǎn)在文本框中B）文本框中為“Basic”,焦點(diǎn)在文本框中

C）文本框中為“Basic”,焦點(diǎn)的按鈕上

D）文本框中為“VisualBasic”,焦點(diǎn)的按鈕上例：在窗體上畫一個(gè)Text1的文本框，要求文本框只能接收大寫字母的輸入。能實(shí)現(xiàn)操作的事件過(guò)程是A)PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii<65OrKeyAscii>90ThenMsgBox“請(qǐng)輸入大寫字母”KeyAscii=0EndIfEndSubB)PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode<65OrKeyCode>90ThenMsgBox“請(qǐng)輸入大寫字母”KeyCode=0EndIfEndSubC)PrivateSubText1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfAsc(Text1.Text)<65OrAsc(Text1.Text)>90ThenMsgBox“請(qǐng)輸入大寫字母”EndIfEndSubD)PrivateSubText1_Change()IfAsc(Text1.Text)>64AndAsc(Text1.Text)<91ThenMsgBox“請(qǐng)輸入大寫字母”EndIfEndSub53雙分支結(jié)構(gòu)2.If…Then…Else語(yǔ)句If表達(dá)式Then

語(yǔ)句塊1Else

語(yǔ)句塊2EndIf或

If表達(dá)式Then

語(yǔ)句1

Else

語(yǔ)句2

語(yǔ)句塊1語(yǔ)句塊2條件？TrueFalse在EndIf語(yǔ)句后面的那一條語(yǔ)句在EndIf語(yǔ)句后面的那一條語(yǔ)句54計(jì)算分段函數(shù)單分支

Ifx<>0Theny=sin(x)+sqr(x*x+1)y=cos(x)－x^3+3*x或兩條語(yǔ)句：Ifx<>0Theny=sin(x)+sqrt(x*x+1)Ifx=0Theny=cos(x)－x^3+3*x

雙分支

Ifx<>0Theny=sin(x)+sqr(x*x+1)Elsey=cos(x)－x^3+3*xEndIf例：在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過(guò)程：PrivateSubCommand1_Click()x=-5IfSgn(x)Theny=Sgn(x^2)Elsey=Sgn(x)EndIfPrintyEndSub程序運(yùn)行后，單擊命令按鈕，窗體上顯示的是A)-5B)25C)1D)-156多分支結(jié)構(gòu)

3.If…Then…ElseIf語(yǔ)句

If表達(dá)式1Then

語(yǔ)句塊1

ElseIf表達(dá)式2Then

語(yǔ)句塊2 …

[Else

語(yǔ)句塊n+1]

EndIf條件1？語(yǔ)句塊1True在EndIf語(yǔ)句后面的那一條語(yǔ)句False條件2？語(yǔ)句塊2True語(yǔ)句塊3False在EndIf語(yǔ)句后面的那一條語(yǔ)句在EndIf語(yǔ)句后面的那一條語(yǔ)句3.If…Then…ElseIf語(yǔ)句

If表達(dá)式1Then

語(yǔ)句塊1

ElseIf表達(dá)式2Then

語(yǔ)句塊2 …

[Else

語(yǔ)句塊n+1]

EndIf注意：1.根據(jù)不同的表達(dá)式值確定執(zhí)行哪個(gè)語(yǔ)句塊

2.無(wú)論有多少個(gè)分支，程序執(zhí)行了一個(gè)分支后，其余分支不再執(zhí)行3.當(dāng)多分支中有多個(gè)表達(dá)式同時(shí)滿足，則只執(zhí)行第一個(gè)與之匹配的語(yǔ)句塊4.ElseIf不能寫成ElseIf58例4.7已知變量ch中存放了一個(gè)字符，判斷該字符是字母字符、數(shù)字字符還是其他字符。PrivateSubCommand1_Click()DimchAsString*1ch=InputBox("input")IfUCase(ch)>="A"AndUCase(ch)<="Z"ThenMsgBox(ch+"是字母字符")ElseIfch>="0"Andch<="9"ThenMsgBox(ch+"是數(shù)字字符")ElseMsgBox(ch+"是其他字符")EndIfEndSub例4.8已知百分制轉(zhuǎn)化為五分制PrivateSubCommand1_Click()DimchAsIntegerch=Val(InputBox("input"))Ifch>=90ThenPrint"優(yōu)"ElseIfch>=80ThenPrint"良"ElseIfch>=70ThenPrint"中"ElseIfch>=60ThenPrint"及格"ElsePrint"不及格"EndIfEndSub60If語(yǔ)句的嵌套是指If或Else后面的語(yǔ)句塊中又包含If語(yǔ)句If表達(dá)式1ThenIf表達(dá)式2Then…EndIf

…EndIfIf語(yǔ)句的嵌套

注意：嵌套的每個(gè)If語(yǔ)句必須與EndIf配對(duì)PrivateSubCommand1_Click()DimxAsInteger,yAsInteger,zAsIntegerx=Val(InputBox("input"))y=Val(InputBox("input"))z=Val(InputBox("input"))Ifx<yThent=x:x=y:y=tIfy<zThent=y:y=z:z=tIfx<yThent=x:x=y:y=tEndIfEndIf

EndIfPrintx,y,zEndSub例已知x，y，z三個(gè)數(shù)，使得x>y>z用一個(gè)IF語(yǔ)句和一個(gè)嵌套的IF語(yǔ)句實(shí)現(xiàn)例:判斷某一年是否閏年的條件是符合以下兩者之一能被4整除，但不能被100整除；能被400整除。PrivateSubCommand1_Click()x=Val(InputBox("輸入年份"))IfxMod400=0Theny="是閏年"ElseIfxMod4=0Then

IfxMod100<>0Theny="是閏年"Elsey="不是閏年"EndIfElse

y="不是閏年"EndIfPrintx;yEndSub4.2.2SelectCase語(yǔ)句

SelectCase變量或表達(dá)式（數(shù)值或字符串表達(dá)式）

Case表達(dá)式列表1

語(yǔ)句塊1Case表達(dá)式列表2

語(yǔ)句塊2 …[CaseElse

語(yǔ)句塊n+1]EndSelect表達(dá)式列表與變量或表達(dá)式的類型必須相同，是下面4種形式之一表達(dá)式:例:

"A"一組用逗號(hào)分隔的枚舉值:

2,4,6,8

表達(dá)式1To表達(dá)式2:60To100Is關(guān)系運(yùn)算符表達(dá)式:

Is<60

當(dāng)使用多個(gè)表達(dá)式的列表時(shí)，表達(dá)式與表達(dá)式之間要用逗號(hào)“,”隔開SelectCase變量或表達(dá)式Case

1To10Case

"a","e","i","o","u"Case

2,4,6,8,Is>10EndSelect變量或表達(dá)式與多個(gè)Case語(yǔ)句中的值匹配則只執(zhí)行第一個(gè)與之匹配的語(yǔ)句塊65例：已知變量ch中存放了一個(gè)字符，判斷該字符是字母字符、數(shù)字字符還是其他字符。改用SelectCase語(yǔ)句實(shí)現(xiàn)

PrivateSubCommand1_Click()ch=InputBox("輸入")SelectCasechCase"a"To"z","A"To"Z"MsgBox(ch+"是字母字符")Case"0"To"9"MsgBox(ch+"是數(shù)字字符")CaseElseMsgBox(ch+"是其他字符")EndSelectEndSub例4.9判斷坐標(biāo)點(diǎn)(x，y)，落在哪個(gè)象限Ifx>0Andy>0ThenMsgBox("在第一象限")ElseIfx<0Andy>0ThenMsgBox("在第二象限") ElseIfx<0Andy<0ThenMsgBox("在第三象限") ElseIfx>0Andy<0ThenMsgBox("在第四象限") EndIf

SelectCasex,yCasex>0Andy>0MsgBox(“在第一象限”)Casex<0Andy>0MsgBox(“在第二象限”)Casex<0Andy<0MsgBox(“在第三象限”)Casex>0Andy<0MsgBox(“在第四象限”)EndSelect代碼二錯(cuò)誤：SelectCase后不能出現(xiàn)多個(gè)變量Case后不能出現(xiàn)變量及邏輯運(yùn)算符注意：若變量和多個(gè)Case中的值匹配，只執(zhí)行第一個(gè)例：以下Case語(yǔ)句中錯(cuò)誤的是A)Case0To10B)CaseIs>10C)CaseIs>10AndIs<50D)Case3,5,Is>1

例．下列關(guān)于SelectCase的敘述中，錯(cuò)誤的是A）Case10To100 表示判斷值是否介于10與100之間B）Case“abc”,“ABC” 表示判斷值是否和“abc”、“ABC”兩個(gè)字符串中的一個(gè)相同C）Case"X"表示判斷值是否為大寫字母XD）Case-7,0,100表示判斷值是否等于字符串"-7，0，100"例.在窗體上畫一個(gè)Command1命令按鈕和兩個(gè)Text1、Text2的文本框，然后編寫如下事件過(guò)程PrivateSubCommand1_Click()

n=Val(Text1.Text)

SelectCasen

Case1To20

x=10Case2,4,6

x=20

CaseIs<10

x=30

Case10

x=40

EndSelect

Text2.Text=xEndSub程序運(yùn)行后，在文本框Text1中輸入10，然后單擊命令按鈕則在Text2中顯示的內(nèi)容是A）10B）20C）30D）40例．在窗體上畫一個(gè)Command1的命令按鈕，PrivateSubCommand1_Click()x=Val(InputBox("Input"))SelectCasexCase1,3Print"分支1"CaseIs>4Print"分支2"CaseElsePrint"Else分支"EndSelectEndSub程序運(yùn)行，在輸入對(duì)話框中輸入2，則窗體上顯示的是A)分支1B）分支2C）Else分支D）程序出錯(cuò)704.2.3條件函數(shù)

(1)IIf函數(shù)IIf(表達(dá)式，表達(dá)式為真時(shí)的值，表達(dá)式為假時(shí)的值)IIf函數(shù)是If…Then…Else結(jié)構(gòu)的簡(jiǎn)潔表示例如，將x，y中大的數(shù)，放入Tmax變量中：Tmax=IIf(x>y，x，y)該語(yǔ)句與如下語(yǔ)句等價(jià)：Ifx>yThenTmax=xElseTmax=y例、設(shè)a=6，則執(zhí)行x=IIf（a>5，-1，0）后，x的值為

A、5B、6C、0D、-1例：設(shè)a=“a”，b=“b”，，執(zhí)行語(yǔ)句

x=IIf((a>b),”A”,”B”)后，x的值為

A)”a”B)”b”C)”B”D)”A”例：命令按鈕Command1的單擊（Click）輸入-5，Text2結(jié)果為

PrivateSubCommand1_Click() DimxAsSingle,yAsSingle x=Val(Text1.Text) y=IIf(x>=0,1+x,1-2*x) Text2.Text=y EndSubA)-4B)10C)11D)-5

例：在窗體上畫一個(gè)命令按鈕和一個(gè)文本框，分別為Command1和Text1，然后編寫如下程序：

PrivateSubCommand1_Click()a=InputBox("請(qǐng)輸入日期（1~31）")t=”旅游景點(diǎn)：”_&IIf(a>0Anda<=10,"長(zhǎng)城","")_&IIf(a>10Anda<=20,"故宮","")_&IIf(a>20Anda<=31,"頤和園","")Text1.Text=tEndSub程序運(yùn)行，從鍵盤上輸入16，則在文本框顯示的內(nèi)容A)旅游景點(diǎn)：長(zhǎng)城故宮B)旅游景點(diǎn)：長(zhǎng)城頤和園C)旅游景點(diǎn)：頤和園D)旅游景點(diǎn)：故宮73(2)Choose函數(shù)

Choose(整數(shù)表達(dá)式，選項(xiàng)列表)根據(jù)表達(dá)式的值i,返回選項(xiàng)列表中第i個(gè)選項(xiàng)如果整數(shù)表達(dá)式的值越出選項(xiàng)范圍時(shí)，返回Null。例:根據(jù)Nop的值，得到+、-、×、÷中的某運(yùn)算符：Op=Choose(Nop，"+"，"-"，"×"，"÷")PrivateSubCommand1_Click()DimnopAsIntegerDimopAsStringnop=Val(InputBox("輸入數(shù)據(jù)1-4"))op=Choose(nop,"+","-","×","÷")Print“nop="&nop&"op="&opEndSub例4：根據(jù)當(dāng)前日期，顯示今日是星期幾。（利用Now和WeekDay函數(shù)）t=Choose(Weekday(Now),"星期日","星期一","星二","星期三","星期四","星期五","星期六")MsgBox("今天是："&Now&t)Month("2009-3-25")顯示:星期二754.3循環(huán)結(jié)構(gòu)

計(jì)算機(jī)最擅長(zhǎng)的功能之一就是按規(guī)定的條件，重復(fù)執(zhí)行某些操作。VB中提供了主要兩類循環(huán)語(yǔ)句：

For循環(huán)語(yǔ)句(一般已知循環(huán)次數(shù)）

Do條件型循環(huán)語(yǔ)句(一般未知循環(huán)次數(shù))4.3.1For循環(huán)語(yǔ)句

For循環(huán)語(yǔ)句用于控制循環(huán)次數(shù)預(yù)知的循環(huán)結(jié)構(gòu)格式：For循環(huán)變量＝初值To終值

Step步長(zhǎng)

語(yǔ)句塊（循環(huán)體）Next循環(huán)變量循環(huán)變量必須為數(shù)值型,循環(huán)體可以是一條或多條語(yǔ)句循環(huán)次數(shù)

>0初值<或=終值步長(zhǎng)=1可省略默認(rèn)值<0初值>或=終值=0死循環(huán)步長(zhǎng)Fori＝1To5

Step3Fori＝4To1

Step-2Fori＝1To577For循環(huán)語(yǔ)句

循環(huán)流程：(1)循環(huán)變量被賦初值(2)判斷循環(huán)變量是否超過(guò)終值，如果沒超過(guò)，執(zhí)行循環(huán)體；如果超過(guò)，結(jié)束循環(huán)，執(zhí)行Next的下一語(yǔ)句。（當(dāng)步長(zhǎng)為負(fù)，循環(huán)變量小于終值，循環(huán)結(jié)束）(3)循環(huán)變量加步長(zhǎng)，轉(zhuǎn)(2)，繼續(xù)循環(huán)

當(dāng)有ExitFor語(yǔ)句，退出循環(huán)執(zhí)行Next的下一條語(yǔ)句例．由“Fori=1To16Step3”決定的循環(huán)結(jié)構(gòu)被執(zhí)行幾次A、4 B、5

C、6 D、7例．由“Fori=1To9Step-3”決定的循環(huán)結(jié)構(gòu)被執(zhí)行幾次A、4 B、5 C、6 D、0例：在窗體上畫Command1命令按鈕，Label1標(biāo)簽PrivateSubCommand1_Click()s=0Fori=1To5x=2*i-1IfxMod3=0Thens=s+1NextiLabel1.Caption=sEndSub程序運(yùn)行后，單擊命令按鈕，則標(biāo)簽中顯示的內(nèi)容是

A）1 B）2 C）27 D）45例：PrivateSubCommand1_Click()x=0Fori=1To5x=x+1NextiLabel1.Caption=xEndSub程序運(yùn)行后,單擊命令按鈕Command1,則Label1顯示A)3 B)4 C)5 D)6例．執(zhí)行下面的程序段后，變量S的值為______

S＝5

Fori＝2.6To4.9Step0.6

S=S+1

Nexti9例.執(zhí)行下面的程序段后，i的值為

，s的值為。s=2Fori=3.2To4.9Step0.8s=s+1Nexti5.65例．設(shè)有如下程序段：x=2Fori=1to10Step2x=x+iNexti運(yùn)行以上程序后，x的值是A）26B）27C）38D）57例：在窗體上畫名稱為Text1的文本框和名稱為Command1的命令按鈕，然后編寫如下事件過(guò)程：PrivateSubCommand1_Click()DimiAsInteger,nAsIntegern=0Fori=0To50i=i+3n=n+1Ifi>10ThenExitForNextiText1.Text=Str(n)EndSub程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是A)2 B)3 D)4 D)5例.PrivateSubCommand1_Click()DimsumAsDouble,xAsDoublesum=0n=0Fori=1To5x=n/in=n+1sum=sum+xNextiEndSub通過(guò)For循環(huán)計(jì)算一個(gè)表達(dá)式的值，這個(gè)表達(dá)式是A）1+1/2+2/3+3/4+4/5 B）1+1/2+2/3+3/4C）1/2+2/3+3/4+4/5 D）1/2+1/3+1/4+1/5例：在窗體上畫一個(gè)Command1的命令按鈕，PrivateSubCommand1_Click()c=1234c1=Trim(Str(c))Fori=1To4Print_____NextiEndSub程序運(yùn)行后，單擊命令按鈕，在窗體上顯示如下內(nèi)容1121231234則在下劃線處應(yīng)填入的內(nèi)容為Right(c1,i)B)Left(c1,i)C)Mid(c1,i,1)D)Mid(c1,i,i)

例4.11計(jì)算1~100的奇數(shù)和Dimi%,sum%sum=0Fori=1To100Step2sum=sum+iNextiMsgBox(sum)例如程序段：

Fori=2To13Step3Printi;NextiPrint“I=“&i循環(huán)次數(shù)：4輸出結(jié)果：25811退出循環(huán)后：I=144-12例：在Picture打印ASCⅡ碼表，符號(hào)碼對(duì)應(yīng)起來(lái)，每行顯示七項(xiàng).在ASCⅡ碼中，只有空格“”到“~”是可以顯示的字符其余為不可顯示的控制字符，可顯示的字符編碼值為32~126PrivateSubPicture1_Click()DimascAsInteger,iAsIntegerPicture1.Print"ASCⅡ碼對(duì)照表"Forasc=32To126Picture1.PrintTab(8*i+2);Chr(asc);"=";asc;i=i+1Ifi=7Theni=0:Picture1.PrintNextascEndSub4.3.2Do…Loop循環(huán)語(yǔ)句

形式1：DoWhile|Until<條件>

語(yǔ)句塊

[ExitDo

語(yǔ)句塊]Loop形式2：Do

語(yǔ)句塊

[ExitDo

語(yǔ)句塊]LoopWhile|Until<條件>形式1為先判斷后執(zhí)行，有可能一次也不執(zhí)行；形式2為先執(zhí)行后判斷，至少執(zhí)行一次。

Do循環(huán)用于控制循環(huán)次數(shù)未知的循環(huán)結(jié)構(gòu)如果使用“While

條件”進(jìn)行判斷，則當(dāng)“條件”為True時(shí)執(zhí)行循環(huán)體，“條件”為False時(shí)終止循環(huán)如果使用“Until

條件”進(jìn)行判斷，則當(dāng)“條件”為False時(shí)執(zhí)行循環(huán)體，“條件”為True時(shí)終止循環(huán)形式1：DoWhile|Until<條件>

語(yǔ)句塊

[ExitDo

語(yǔ)句塊]Loop形式2：Do

語(yǔ)句塊

[ExitDo

語(yǔ)句塊]LoopWhile|Until<條件>例:在窗體上畫兩個(gè)分別為Text1、Texte2的文本框和一個(gè)Command1的命令按鈕PrivateSubCommand1_Click()DimxAsInteger,nAsIntegerx=1n=0DoWhilex<20x=x*3n=n+1LoopText1.Text=Str(x)Text2.Text=Str(n)EndSub程序運(yùn)行后單擊命令按鈕在兩個(gè)文本框中顯示的值分別是A)15和1 B)27和3 C)195和3 D)600和4例.在窗體上畫一個(gè)Command1的命令按鈕PrivateSubCommand1_Click()DimnumAsIntegernum=1DoUntilnum>6Printnum;num=num+2.4LoopEndSub程序運(yùn)行后，單擊命令按鈕，窗體上顯示的內(nèi)容是A）13.45.8 B）135C）147 D）無(wú)數(shù)據(jù)輸出91Do…Loop流程

例．若i的初值為8，則下列循環(huán)語(yǔ)句的循環(huán)次數(shù)為幾次

DoWhilei<=17i=i+2LoopA、3次 B、4次 C、5次 D、6次例.請(qǐng)寫出單擊窗體后，窗體上的顯示結(jié)果PrivateSubForm_Click()DimaAsInteger,sAsIntegera=5:s=0DoWhilea<=0s=s+a:a=a–1LoopPrints;aEndSub05

例.請(qǐng)寫出輸入8、9、3、0后窗體上的顯示結(jié)果。PrivateSubForm_Click()DimsumAsInteger,mAsIntegerDom=Val(InputBox("請(qǐng)輸入m","累加和等于"&sum))Ifm=0ThenExitDosum=sum+mLoopPrintsumEndSub20例．以下能夠正確計(jì)算n!的程序是C)PrivateSubCommandl_Click()

n=5：x＝1：i＝0

Do

i＝i十1

x=x*i

Loopwhilei<n

Printx

EndSubD)PrivateSubCommandl_C1ick()

n＝5：x＝1：i=0

Do

i=i+1

x=x*i

loopWhilei<=n

PrintxEndSubA)PrivateSubCommandl_ClicK()n＝5:x＝1Dox=x*1i＝i+1LoopWhilei＜nPrintxEndSubB)PrivateSubCommandl_Click()

n＝5:x＝1：i=1

Dox＝x*i

i＝i+1

LoopWhilei＜n

PrintxEndSub例.設(shè)有以下循環(huán)結(jié)構(gòu)

Do

循環(huán)體

LoopWhile<條件>則以下敘述中錯(cuò)誤的是（）A）若"條件"是一個(gè)為0的常數(shù)，則一次也不執(zhí)行循環(huán)體B）"條件"可以是關(guān)系表達(dá)式、邏輯表達(dá)式或常數(shù)C）循環(huán)體中可以使用ExitDo語(yǔ)句D）如果"條件"總是為True，則不停地執(zhí)行循環(huán)體例.在窗體上畫一個(gè)Command1的命令按鈕PrivateSubCommand1_Click()DimaAsInteger,sAsIntegera=8s=1Dos=s+aa=a–1LoopWhilea<=0Prints;aEndSub程序運(yùn)行后單擊命令按鈕則窗體上顯示的內(nèi)容是A）79 B）340 C）97D）死循環(huán)

LoopUntila<=0

37097例4.13我國(guó)有13億人口，按人口年增長(zhǎng)0.8%計(jì)算，多少年后我國(guó)人口超過(guò)26億。解此問題方法，可根據(jù)公式：PrivateSubForm_Click()Dimx#,n%x=13n=0DoWhilex<=26x=x*1.008n=n+1LoopPrint"利用循環(huán)求得用循環(huán)求得的年數(shù)為：";n;"人數(shù)為：";xEndSub984.3.3循環(huán)的嵌套

在一個(gè)循環(huán)體內(nèi)又包含了一個(gè)完整的循環(huán)結(jié)構(gòu)稱循環(huán)的嵌套。循環(huán)嵌套對(duì)For循環(huán)語(yǔ)句和Do…Loop語(yǔ)句均適用先運(yùn)行內(nèi)部的循環(huán)，全部循環(huán)完再運(yùn)行外部的循環(huán)內(nèi)外循環(huán)的控制變量采用不同的變量名

例4.14打印九九乘法表

PrivateSubForm_Click()DimseAsStringPrintTab(35);"九九乘法表“PrintTab(35);"-----------“Fori=1To9Forj=1To9se=i&"×"&j&"="&i*jPrintTab((j-1)*9+1);se;

NextjPrint

NextiEndSub若為上三角Forj=iTo9若為下三角Forj=1Toi例：請(qǐng)寫出單擊窗體后，窗體上的顯示結(jié)果PrivateSubForm_Click()DimiAsInteger,jAsIntegerFori=1To6PrintSpc(6-i);Forj=1To(2*i)–1Print"W";NextjPrintNextiEndSub例：在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過(guò)程：

PrivateSubCommand1_Click()x=0n=val(InputBox(“”))Fori=1TonForj=1Toix=x+1NextjNextiPrintxEndSub程序運(yùn)行后單擊命令按鈕若輸入3，則在窗體上顯示A）3 B）4 C）5 D）6例在窗體上畫一個(gè)命令按鈕，名稱為Command1

PrivateSubCommand1_Click()ForI=1To4ForJ=0ToIPrintChr(65+I);NextJPrintNextIEndSub程序運(yùn)行后若單擊命令按鈕，則在窗體上顯示的內(nèi)容A)BB B)AB C)BA D)AA

CCC BB CC BBB

DDDD CCC DDD CCCC

EEEEE DDDD EEEE DDDDD1034.4其他輔助控制語(yǔ)句

4.4.1GoTo語(yǔ)句無(wú)條件地轉(zhuǎn)移到標(biāo)號(hào)或行號(hào)指定的那行語(yǔ)句

GoTo標(biāo)號(hào)|行號(hào)注意：標(biāo)號(hào)是字符序列，首字符必須為字母，標(biāo)號(hào)后應(yīng)有冒號(hào)行號(hào)是一個(gè)數(shù)字序列例4.15判斷輸入的數(shù)是否為素?cái)?shù)素?cái)?shù)就是除1和本身以外，不能被其他任何整數(shù)整除的數(shù)判別某數(shù)m是否為素?cái)?shù)最簡(jiǎn)單的方法就是依次用i=2~m-1去除，只要有一個(gè)數(shù)能整除m，m就不是素?cái)?shù)；否則m是素?cái)?shù)。PrivateSubCommand1_Click()Dimi%,m