《Visual Basic程序設計案例教程》課件第3章

第3章VisualBasic語言基礎

3.1VisualBasic的基本語法3.2基本語句3.3函數(shù)習題3.1VisualBasic的基本語法案例1VisualBasic的數(shù)據(jù)類型

1．學習目標通過本案例的學習，掌握VB語言的常用數(shù)據(jù)類型，學會定義變量和常量。

2．相關知識

1)數(shù)據(jù)類型

VB中常用的數(shù)據(jù)類型如表3.1所示，數(shù)據(jù)類型聲明字符后綴如表3.2所示。表3.1常用數(shù)據(jù)類型及其范圍表3.2數(shù)據(jù)類型聲明字符后綴

2)用戶自定義的數(shù)據(jù)類型用戶可以利用Type語句定義自己的數(shù)據(jù)類型，其語法格式如下：

Type自定義數(shù)據(jù)類型名元素名1As數(shù)據(jù)類型1元素名2As數(shù)據(jù)類型2

…

EndType例如：

Typestudent

numberAsInteger '學號

nameAsString*8

'姓名

scoreAsSingle '成績

EndType在定義了student類型之后，就可以定義student類型的變量了。例如，定義一個stu的變量：

DimstuAsstudent此語句定義了student類型的變量stu，它包括3個成員。在后面的程序中可以用“變量.元素”的形式來引用各個成員，例如：stu.number，，stu.score。注意：用戶自定義的數(shù)據(jù)類型中的元素可以是字符串，但必須是定長字符串。定長字符串的格式為：

String*常數(shù)其中，常數(shù)指定長字符串的長度。

3)常量在程序執(zhí)行過程中數(shù)值不改變的量稱為常量。常量的命名規(guī)則和變量的命名規(guī)則一樣，具體見后面的變量部分。常量的聲明格式如下：

[Public|Private]Const<常量名>[As<數(shù)據(jù)類型>]=<表達式>說明：

(1)聲明語句中的[Public?|?Private]、[As<數(shù)據(jù)類型>]為可選項。[As<數(shù)據(jù)類型>]表示常量的數(shù)據(jù)類型，若省略，則該常量的類型由所賦的數(shù)值確定；<表達式>即常量的值。

(2)?Public、Private是可選的，不可用在過程中，只能用在模塊的聲明段，且Public只能用在標準模塊中。使用關鍵字Public則將一個常量聲明成應用程序中所有模塊都可以使用的全局常量；使用Private在模塊的聲明段聲明時，聲明的常量為模塊級常量，使用范圍為整個模塊中的所有過程。

(3)若該聲明語句放在過程內(nèi)部，則聲明的常量稱為過程級常量，使用范圍僅限于該過程內(nèi)部。

(4)在一條聲明語句中聲明多個常量時，用逗號分隔。例如：

Constnumber=200

ConstPIAsSingle=3.14159

ConstsAsString="friend"

4)變量變量是用于在程序執(zhí)行期間保存數(shù)值，并可隨時改變數(shù)值的量。

(1)變量的命名規(guī)則。①變量名必須以字母開頭。例如，clock和book3這兩個變量名是合法的；而3book是非法的。②變量名只能由字母、數(shù)字和下劃線組成，中間不能出現(xiàn)空格或小數(shù)點等。例如，變量名file_name是合法的，而filename是非法的。③變量名不能和VB的關鍵字同名。關鍵字是VB中具有特定含義的詞，包括預定義語句(If，F(xiàn)or，Loop等)、操作符(And，Mod等)和函數(shù)(Int，Sqr等)。④變量名的長度不得超過255個字符。⑤在同一作用域中，變量名不能重復。

(2)變量命名時，應注意以下幾點：①最好使用具有明確含義、容易記憶的變量名，即要見名知義。例如，用average表示平均值，student_name表示學生姓名等。②變量名不要太長。因為太長了容易寫錯，閱讀起來也不方便。③變量名不能與符號常量和過程名相同。

VB不區(qū)分字母大小寫。例如，NAME，name，Name指的是同一變量名。為了方便閱讀，每個單詞開頭的字母最好用大寫，如FileEdit。以下標識符是合法的變量名：

a,x,y2,BOOK_2,sum3以下標識符是非法的變量名：

3x 以數(shù)字開頭

a*b 出現(xiàn)非法字符*

book-1 出現(xiàn)非法字符-減號)

For 使用了VB的關鍵字

filename 中間有空格

(3)變量聲明。聲明變量有兩種方式，即顯式聲明和隱式聲明?！耧@式聲明(推薦使用)聲明格式：Dim?|?Static?|?Public?|?Private<變量名>As<數(shù)據(jù)類型>語句功能：聲明變量并分配存儲空間。說明：①Dim?|?Static?|?Public?|?Private四個參數(shù)可任選其中之一。②Public語句用于在模塊文件(*.bas)的“通用”聲明段中聲明應用程序級的全局變量，即應用程序中的所有模塊都可以訪問該變量。但是，在窗體模塊中聲明的模塊級變量，在另一窗體和模塊中使用時，需要加上該窗體模塊名。③Dim或Private語句用于在窗體或模塊的“通用”聲明段中聲明模塊級變量，即該窗體或模塊中的所有過程都可以使用的變量。④Dim或Static語句用于在過程內(nèi)部聲明過程級的局部變量，即只能在聲明它的過程中使用的變量。使用Static聲明的變量為靜態(tài)變量，它與Dim聲明的變量不同之處在于：在執(zhí)行一個過程結束時，過程中所用到的Static變量的值會保留，下次再調(diào)用此過程時，變量的初值是上次調(diào)用結束時被保留的值，而Dim聲明的變量在過程結束時不保留，每次調(diào)用時需要重新初始化。不同作用域變量的聲明方式如表3.3所示。表3.3變量的作用域例如：

DimmynameAsString

StaticCountAsInteger

PublicxAsSingle可以在一行中同時聲明多個變量，各變量之間用逗號分隔開。例如：

Dima1AsInteger,a2AsDouble,a3AsString注意：語句中每個變量都要指明類型，不給出類型的變量被認為是變體類型。例如：下面的語句聲明了一個變體型變量i，一個整型變量j。

Dimi，jAsInteger下面的語句聲明了兩個整型變量：

DimiAsInteger，jAsInteger

VisualBasic執(zhí)行到Dim語句時，根據(jù)語句中的指定生成一個或幾個新變量，并在內(nèi)存中為其分配一定的空間。當后面命令中再次出現(xiàn)該變量名時，VisualBasic就會在相應的內(nèi)存單元中讀取或設置該變量的值?！耠[式聲明聲明格式：Dim<變量名>(或者不聲明變量，而直接使用變量)說明：采用“Dim<變量名>”方式或者無聲明語句時，新變量的數(shù)據(jù)類型為Variant型。VisualBasic根據(jù)程序中賦予變量的值來自動調(diào)整變量的類型。

(4)強制變量聲明。為了避免輸入變量時的錯誤，通常規(guī)定每個變量都要經(jīng)過顯式說明才可以使用。這樣，VB只要遇到一個未經(jīng)聲明的變量名，就會發(fā)出錯誤警告。要做到這一點，只需在窗體(或模塊)的通用聲明部分加上一條語句：

OptionExplicit也可以在“工具(Tools)”菜單中選擇“選項(Options)”菜單項，然后單擊“編輯器”選項卡，選中“要求變量聲明”復選框，就可以在任何新模塊(例如，新建工程或新建窗體)中自動插入OptionExplicit語句。

3．思考

(1)下列哪個符號不能作為VB中的變量名？

(A)?abc (B)?x2

(C)?123 (D)?book5

(2)下列哪個符號是VB中的合法變量名？

(A)?table (B)?6apples

(C)?Else (D)?a[2]b

(3)定義變量。將下面的文字描述用VB語句寫出來。①將x定義為整型變量。②將n和m定義為整型變量。③將sum定義為單精度型變量，將yesno定義為布爾型變量。④將name定義為字符串型變量。⑤將xuehao定義為定長字符串型變量，字符串長度為6。⑥將length和area定義為單精度型變量。案例2VisualBasic的運算符和表達式

1．學習目標通過本案例的學習，掌握VB語言中算術運算符、關系運算符、邏輯運算符和字符運算符的用法，并能正確使用這些運算符寫出VB表達式。

2．相關知識

1)算術運算符及算術表達式算術運算符對照表如表3.4所示。表3.4算術運算符對照表

(1)“/”和“\”運算符的區(qū)別：浮點除法運算符“/”用來計算兩個數(shù)或表達式的商，并返回相應的浮點數(shù)。例如：3/2的值是1.5。整數(shù)除法運算符“\”在運算前把兩個運算量四舍五入轉(zhuǎn)換成整數(shù)，然后計算兩個運算量的商，并返回結果的整數(shù)部分。例如：3\2的值是1，10.2\3.7的值是2。

(2)“Mod”運算符：取模運算符“Mod”在運算前把兩個運算量四舍五入轉(zhuǎn)換成整數(shù)，然后對兩個運算量進行除法運算，并返回余數(shù)(第一個操作數(shù)整除第二個操作數(shù)的余數(shù))。例如：

7Mod2 值是1

8Mod2 值是0

6Mod20 值是6

15Mod3.8 值是3

(3)寫VB表達式時，要注意以下幾點：①表達式中所有符號必須寫在同一行上。如分子、分母、下標、指數(shù)等都必須寫在同一行上。例如，x4要寫成x^4，a1－a2要寫成a1－a2。②只能使用合法標志符。無法用鍵盤輸入的符號，可以用英文字母或漢語拼音來代替。例如：α+β可寫成Alpha+Beta，2πr可寫成2*PI*r。其中PI為自定義常量，聲明為

ConstPIAsSingle=3.14159③乘法運算符“*”不能省略。例如：b2－4ac要寫成b*b－4*a*c。④括號必須成對出現(xiàn)，且只能用小括號()。例如：[(a+b)*c－d]/2要寫成((a+b)*c－d)/2。

2)字符運算符及字符表達式字符運算符用于將兩個字符型表達式連接生成一個新字符串。其運算符主要有“+”運算符和“&”運算符。

(1)“+”運算符：用于將兩個字符串連接生成一個新字符串。例如：

DimsAsString

s="國泰"+"民安"則變量s中最后存放的數(shù)據(jù)將是字符串“國泰民安”。

(2)“&”運算符：用于將兩個并非全是字符型的數(shù)據(jù)進行強制連接。例如：

DimnAsInteger

Dimstr2AsString

n=40

str2="本班學生總數(shù)為："&n最后，變量str2中的值將是字符串“本班學生總數(shù)為：40”。注意：使用運算符“&”時，變量與運算符“&”之間應加一個空格，最好在“&”前后各加一個空格。

3)關系運算符及關系表達式關系運算主要用于比較兩個表達式的大小，其運算結果為一邏輯型值，即True或False，見表3.5。表3.5關系運算符對照表

4)邏輯運算符及邏輯表達式邏輯運算經(jīng)常用來表達一些較復雜的關系，其運算結果是邏輯型值。VisualBasic6.0提供了如表3.6所示的邏輯運算符。表3.6邏輯運算符對照表

VB中常用的邏輯運算符是Not、And和Or，它們用于將多個關系表達式進行邏輯判斷，如表3.7所示。例如：數(shù)學上表示某個數(shù)在某個區(qū)域時用表達式20≤x<30，在VB程序中應寫成x>=20Andx<30，如果寫成20<=x<30或20<=xAndx<30都是錯誤的。表3.7And、Or、Not運算真值表從表3.7可以看出：

(1)?And的運算規(guī)則是：當A和B都是True時，結果為True；其他情況時結果均為False。

(2)?Or的運算規(guī)則是：當A和B都是False時，結果為False；其他情況時結果均為True。

(3)?Not的運算規(guī)則是：如果A為True，結果為False；如果A為False，結果為True。

5)運算符的優(yōu)先順序前面介紹了VisualBasic6.0中常用的運算符，在實際運算過程中，每種運算或者同一種運算內(nèi)部的不同運算都存在一個運算的先后問題。優(yōu)先級高的運算符先進行運算，優(yōu)先級低的運算符后進行運算；同一優(yōu)先級的運算按從左到右的次序進行運算。在一個表達式中，如果同時有多個運算符存在，則它們的優(yōu)先順序由高到低依次為：算術運算符→字符運算符→關系運算符→邏輯運算符算術運算符的優(yōu)先級順序由高到低依次為：

^(指數(shù)運算)→－(負數(shù))→*，/(乘法，浮點除法)→\(整數(shù)除法)→Mod(取模運算)→+，－(加法，減法)其中，“*”，“/”具有相同的優(yōu)先級；“+”，“－”具有相同的優(yōu)先級。在關系運算符中，所有的運算符具有相同的優(yōu)先級。邏輯運算符的優(yōu)先級順序由高到低依次為：

Not(非)→And(與)→Or(或)→Xor(異或)→Eqv(同或)→Imp(蘊含)用括號控制運算的優(yōu)先次序可以使程序清晰易讀，而且不易出錯。

3．思考

(1)寫出下列表達式的值。①(9+3)\2；②8Mod3+3^3/5\2；③"abc"+"123"；④2*5>4*3OrNot7>3。

(2)根據(jù)給出的條件，寫出對應的VB表達式。①x是小于200的非負數(shù)；②y能被3整除；③3≤a≤7；④t≤2或t≥9；⑤一元二次方程ax2+bx+c=0有實根的條件為：a不等于0，并且b2－4ac大于等于0。3.2基本語句案例3賦值語句、輸入語句InputBox使用舉例

1．學習目標用InputBox輸入球體的半徑，然后計算球體的體積。通過本案例的學習，學會使用賦值語句、輸入語句InputBox。

2．相關知識

1)賦值語句語句格式：變量名=表達式對象.屬性名=表達式語句功能：先計算出賦值號“=”右端的表達式的值，再賦值給“=”左端的變量或?qū)ο蟮膶傩?。說明：一般一條賦值語句單獨放在一行中。如果將多條賦值語句放在同一行中，則語句之間用冒號“：”隔開。例如：

x=2:y=10:z=5以上語句等同于下列3條語句：

x=2

y=10

z=5為了使代碼更清晰易讀，推薦使用一行一條語句的形式。

2)輸入語句語句格式：value=InputBox(<提示信息>[,<標題>][,<默認值>][,<xpos>][,<ypos>])語句功能：產(chǎn)生一個具有提示信息并可供用戶輸入數(shù)據(jù)的對話框。返回字符串型數(shù)據(jù)。參數(shù)說明：

(1)提示信息：必選項。顯示在輸入對話框中的字符串，用于提示用戶輸入，該字符串最大長度是1024個字符。如果提示信息包含多行，可在各行之間用回車符(chr(13))、換行符(chr(10))的組合(chr(13)&chr(10))來分隔。

(2)標題：可選項。顯示在輸入框標題欄中的字符串表達式。如果省略該項，則標題欄上顯示當前執(zhí)行的應用程序名。

(3)默認值：可選項。顯示在輸入對話框文本框內(nèi)的數(shù)據(jù)，作為輸入默認值。

(4)xpos，ypos：可選項。這兩個參數(shù)用于指定對話框在屏幕上的位置。xpos指定了輸入框的左邊與屏幕左邊的水平距離；ypos指定了輸入框的上邊與屏幕上邊的水平距離。缺省情況下，對話框會出現(xiàn)在屏幕的中央。注意：InputBox的參數(shù)是按一定的順序排列的，如果省略中間某個參數(shù)時，相應的逗號分隔符須保留。例如：輸入一個整數(shù)，并在文本框Text1中顯示輸入的整數(shù)。例如：輸入一個整數(shù)，并在文本框Text1中顯示輸入的整數(shù)。程序代碼為

PrivateSubForm_Click()

Dimstr2AsString,nAsInteger

str2=InputBox("請輸入一個整數(shù):","輸入窗口演示")

n=Val(str2)

Text1.Text="你輸入的數(shù)是:"&n

EndSub運行程序，單擊窗體，產(chǎn)生的輸入框如圖3.1所示。圖3.1InputBox函數(shù)產(chǎn)生的輸入框

3．程序?qū)崿F(xiàn)

1)界面設計初始界面如圖3.2所示。

2)屬性設置屬性設置如表3.8所示。設置屬性后的界面如圖3.3所示。圖3.2初始界面表3.8屬性設置圖3.3設置屬性后的界面

3)編寫代碼命令按鈕Command1的Click事件代碼為

PrivateSubCommand1_Click()

DimrAsSingle,vAsSingle

ConstPI=3.14

r=Val(InputBox("請輸入球體半徑","球體半徑",0))

v=4/3*PI*r^3

Label1.Caption="球體的體積="+Str(v)

EndSub運行程序后，單擊命令按鈕Command1，則自動出現(xiàn)一個標題為“球體半徑”的輸入框。如果在輸入框中輸入數(shù)字“10”，則在標簽Label1上將顯示球體的體積，如圖3.4所示。圖3.4計算球體的體積案例4輸出語句MsgBox使用舉例

1．學習目標用文本框輸入攝氏溫度C，用MsgBox輸出華氏溫度F。公式為F=9/5*C+32。通過本案例的學習，會使用輸出語句MsgBox。

2．相關知識

MsgBox函數(shù)或MsgBox語句可以用來顯示計算結果或發(fā)布信息。語句格式：MsgBox<提示>[,<按鈕>][,<標題>]函數(shù)格式：value=MsgBox(<提示>[,<按鈕>][,<標題>])參數(shù)說明：

(1)提示：必選項。顯示在消息對話框中的字符串，其最大長度為1024個字符。如果超過該寬度，則多余字符將自動被截掉。如果提示信息包含多行，可在各行之間用回車符(chr(13))、換行符(chr(10))的組合(chr(13)&chr(10))來分隔。

(2)按鈕：可選項。若省略該項，則系統(tǒng)默認其值為0。按鈕的參數(shù)值及其意義如表3.9所示。表3.9按鈕參數(shù)各組成部分取值及其含義表3.9中的值分為如下四組：第一組參數(shù)(0，1，2，3，4，5)：指定消息框中命令按鈕的數(shù)目及形式。第二組參數(shù)(16，32，48，64)：指定使用的圖標樣式。第三組參數(shù)(0，256，512，768)：指定缺省按鈕是哪一個。第四組參數(shù)(0，4096)：指定消息框的強制回應。每一組參數(shù)中只能取一個值?！鞍粹o”參數(shù)值是由各組取定的一個數(shù)字相加而得到的一個整型值，也可以直接使用文字常數(shù)。

(3)標題：可選項。在消息框標題欄中顯示的標題。如果省略該項，則將當前運行的應用程序名顯示在標題欄中。

MsgBox函數(shù)的返回值是一整型數(shù)，數(shù)值與運行時單擊的對話框中的命令按鈕有關。MsgBox函數(shù)返回值及其含義如表3.10所示。表3.10MsgBox函數(shù)返回值及其含義在許多情況下，當不需要接受返回值時，可以用MsgBox語句的形式。此時，參數(shù)不需加圓括號。例如：利用MsgBox函數(shù)產(chǎn)生一個詢問對話框，并根據(jù)用戶的回答作出相應的操作。程序代碼為

PrivateSubForm_Click()

DimnAsInteger

n=MsgBox(“確定退出本系統(tǒng)嗎?”,33,“演示窗口”)

'33=1+32+0+0

Ifn=vbOKThenEnd

EndSub執(zhí)行此程序后，結果如圖3.5所示。圖3.5MsgBox函數(shù)產(chǎn)生的消息框

3．程序?qū)崿F(xiàn)

1)界面設計初始界面如圖3.6所示。

2)屬性設置屬性設置如表3.11所示。設置屬性后的界面如圖3.7所示。圖3.6初始界面表3.11屬性設置圖3.7設置屬性后的界面

3)編寫代碼命令按鈕Command1的Click事件代碼為

PrivateSubCommand1_Click()

DimCAsSingle,FAsSingle

Dimstr1AsString

C=Val(Text1.Text)

F=9/5*C+32

str1="攝氏"+Str(C)+"度相當于華氏"+Str(F)+"度"

MsgBoxstr1,,"轉(zhuǎn)換溫度"

EndSub運行程序后，先在Text1中輸入“36.5”，然后單擊命令按鈕Command1，則自動出現(xiàn)一個標題為“轉(zhuǎn)換溫度”的消息框。運行結果如圖3.8所示。圖3.8轉(zhuǎn)換溫度

4．思考

(1)如果將

str1="攝氏"+Str(C)+"度相當于華氏"+Str(F)+"度"①寫成

str1="攝氏Str(C)度相當于華氏Str(F)度"??②則消息框中會輸出什么？①式和②式中，哪句輸出的是變量C和變量F的值？

(2)如果希望消息框滿足如下要求：有“確定”和“取消”按鈕，并且有消息圖標，第一個按鈕是缺省按鈕，應用程序強制返回。則應該怎么修改MsgBoxstr1,，"轉(zhuǎn)換溫度"？3.3函數(shù)案例5函數(shù)

1．學習目標通過本案例的學習，掌握常用的數(shù)學函數(shù)、字符串函數(shù)、轉(zhuǎn)換函數(shù)等。

2．相關知識

1)內(nèi)部函數(shù)內(nèi)部函數(shù)是由VB系統(tǒng)提供的，每個內(nèi)部函數(shù)都有某個特定的功能，可以在任何程序中直接調(diào)用。

(1)數(shù)學函數(shù)。數(shù)學函數(shù)用于各種數(shù)學運算，其函數(shù)的返回值類型為數(shù)值型，如表3.12所示。表3.12數(shù)學函數(shù)及其返回值例如：Abs(－8)的值是8；Sqr(25)的值是5；Sgn(8)的值是1，Sgn(0)的值是0，Sgn(－8)的值是－1；Fix(3.57)的值是3，F(xiàn)ix(－3.57)的值是-3；Int(3.57)的值是3，Int(－3.57)的值是－4；Exp(3)相當于數(shù)學中的e3；Log(3)相當于數(shù)學中的Ln(3)。

(2)字符串函數(shù)。VisualBasic提供了豐富的字符串函數(shù)，如表3.13所示。

VisualBasic6.0采用的是UniCode處理方式，在這種處理機制下，英文字符和中文字符均被視為一個字符，其占用的存儲空間都為兩個字節(jié)。例如：Len("World")的值是5；Left("Hello",2)的值是“He”；Right("Something",3)的值是“ing”；Mid("write",2,3)的值是“rit”；String(3,"*")的值是“***”；InStr("abc","ab")的值是1，InStr(1,"pretty","re")的值是2；Ucase("World")的值是“WORLD”；Lcase("World")的值是“world”；Chr(65)的值是字符“A”；Str(65)的值是字符串“65”；Asc("A")的值是65。表3.13字符串函數(shù)及其返回值

(3)日期與時間函數(shù)。日期與時間函數(shù)及其返回值如表3.14所示。例如：Day(#9/28/2001#)的值是28；Month(#9/28/2001#)的值是9；Year(#9/28/2001#)的值是2001。Weekday(#9/28/2001#)的值是6，表示星期五。因為1表示星期日(默認)，2表示星期一，3表示星期二，依此類推。表3.14日期與時間函數(shù)及其返回值

(4)轉(zhuǎn)換函數(shù)。①數(shù)值轉(zhuǎn)換成字符串函數(shù)。語法格式：Str(x)語句功能：將x的值轉(zhuǎn)換為字符串。說明：當一數(shù)字轉(zhuǎn)換成字符串時，總會在前頭保留一空格來表示正負。如果x為正，則返回的字符串包含一前導空格，暗示有一正號。例如：使用Str函數(shù)將一個數(shù)字轉(zhuǎn)換成字符串。當數(shù)字轉(zhuǎn)換成字符串時，字符串的第一位一定是空格或是負號。

Dimstr2AsString

str2=Str(67) '返回值為“67”(相當于“+67”)

str2=Str(-35.82) ‘返回值為“－35.82”②字符串轉(zhuǎn)換成數(shù)值函數(shù)。語法格式：Val(String)語句功能：將字符串表達式String轉(zhuǎn)換成數(shù)值。轉(zhuǎn)換時，此函數(shù)從字符串表達式左邊開始將數(shù)字字符轉(zhuǎn)換成相應的數(shù)值型，在它不能識別為數(shù)字的第一個字符上停止讀入字符串。說明：轉(zhuǎn)換時，函數(shù)將跳過并去掉空白、制表符和換行符