1

第3章數據類型及其運算3.1數據類型3.2常量3.3變量3.4表達式3.5常用內部函數3.6編寫代碼2

第3章數據類型及其運算

3.1數據類型

3.1.1標準數據類型

Variant(變體型)和用戶定義類型等。

Integer(整型)

Long(長整型)

Single（單精度浮點型）

Double（雙精度浮點型）

Currency（貨幣型）

Boolean（布爾型）

Byte（字節(jié)型）也可用于數值計算。

Decimal(存儲為96位無符號的整型形式)

Date（日期型）

String（字符串型）

Object（對象型）3

1、字符串（String）

字符串是放在雙引號中的，

空字符串:長度為0的稱為空字符串。

字符串的分類

變長字符串變長字符串長度不確定，范圍0~231個

定長字符串定長字符串含有確定個數的字符，最大長度不超過216個字符4

String型變量用于存儲字符串，列：

DimSAsStringS="Database"String型變量缺省是可變長度的字符串變量。也可以聲明固定長度String型變量，語法是：Dim/Private/Public/StaticvariablenameString*size52、數值型

整數：整型和長整型

數值型

浮點數：單精度和雙精度

1)整數

(1)整型（Integer）(2字節(jié))

取值范圍為-32768—32767(2)長整型（Long）(4字節(jié))取值范圍為-2147483678--21474836776

2)浮點數（實型數或實數）

(1)單精度型（Single）（4字節(jié)）：可以精確到7位十進制數；

負數：-3.402823E+38~-1.40129E-45

正數：1.40129E–45~3.402823E+38

（2）雙精度型（Double）(8字節(jié))：可以精確到15或16位十進制數；

負數：-1.797693134862316D+308~-4.94065D-324

正數：

4.94065D-324~1.797693134862316D+30873、貨幣（Currency）貨幣數據類型是為表示錢款而設置的。以8個字節(jié)（64位）存儲，精確到小數點后4位（小數點前有15位。取值范圍：-922337203685477.5808~922337203685477.58074、變體（Variant）變體數據類型是一種可變的數據類型，可以表示任何值，包括數值、字符串、日期/時間等。85、字節(jié)（Byte）

1個字節(jié)的無符號二進制數，取值范圍0~255。6、布爾（Boolean）

邏輯值，用兩個字節(jié)存儲。取值True（真）或False（假），默認為False。7、日期（Date）日期型存儲為IEEE64位(8個字節(jié))浮點值形式格式：mm/dd/yyyy或mm-dd-yyyy，9日期文字必須以數字符號（#）括起來，例：#9/10/200112:30:00pm#在輸出年份時通常只輸出后兩位。

例：2000年輸出是“00”。8、對象（Object）表示圖形或OLE對象或其他對象，4個字節(jié)。9、Decimal

96位無符號整型，并除以一個10的冪數，稱為變比因子，該變比因子決定了小數點右面的數字位數。10數據類型存儲空間取值范圍Byte(字節(jié)型)1個字節(jié)2~255Boolean(布爾型)2個字節(jié)True或FalseInteger(整形)2個字節(jié)-32768~32767Long(長整形)4個字節(jié)-2147483648~2147483647Single(單精度型)4個字節(jié)Double(雙精度型)8個字節(jié)11數據類型存儲空間Currency(貨幣型)8個字節(jié)Decimal12個字節(jié)Date(日期型)8個字節(jié)Object(對象型)4個字節(jié)String(字符串型、變長)10個字節(jié)加字符串長度String(字符串型、定長)字符串長度Variant(變體型、數字)16個字節(jié)Variant(變體型、字符)22個字節(jié)加字符串長度123.1.2自定義類型

在模塊級別中使用，用于定義包含一個或多個元素的用戶自定義的數據類型。使用形式：

Type自定義類型名 元素名[([下標])]As類型名 元素名[([下標])]As類型名

...EndType說明:

(1)Type…EndType關鍵字；(2)元素名

表示自定義類型中的一個成員；(3)下標

表示該成員是一個數組；(4)類型名

表示該成員的標準數據類型。13

例如:對于一個學生的“學號”、“姓名”、“性別”、“年齡”、“日期”、“入學成績”等數據，為了處理數據的方便，常常需要把這些數據定義成一個新的數據類型（如StuIT類型）。TypeStuIT StNoAsInteger NameAsString*30 StsexAsString*1 SdateAsDate ScoreAsSingleEndType此時就可以在某過程的變量聲明時使用該類型

DimStudentasStuIT‘變量Student為自定義類型StuIT表示Student中的某個元素形為：元素名.變量名，如要表示學生的姓名為：Student.Name14注意：

(1)記錄類型中的元素可以是字符串，但必須是定長字符串。(2)使用記錄類型之前，必須用Type語句定義,記錄類型在標準模塊中定義，其變量可出現在工程的任何地方，在窗體模塊中定義,則加關鍵字Private。(3)在記錄類型中不能含有數組。(4)在隨機文件操作中，記錄類型數據有著重要的作用。3.2常量

在程序運行過程中，其值不能被改變的量稱為常量。在VB中有三類常量：直接常量（普通常量）用戶自定義符號常量系統(tǒng)保留常量。3.2.1、直接常量

1．

整型常量

（1）整型（Integer）：表示-32768至32767之間的整數例如：1011020表示±n[%]

（2）長整型（Long）：表示-2,147,483,648至2,147,483,647之間的整數例如：長整型常數的書寫：23&16

通常我們說的整型常量指的是十進制整數，但VB中可以使用八進制和十六進制形式的整型常數，因此整型常數有如下三種形式：

1）十進制整數。如125，0，-89。202）八進制整數。以&或&O（字母O）開頭的整數是八進制整數，如&O25表示八進制整數25，即(25)8

，等于十進制數21。

3）十六進制。以&H開頭的整數是十六進制整數，如&H25表示十六進制整數25，即(25)16

，等于十進制數37。VB中的顏色數據常常用十六進制整數表示。172、實數1）單精度實型（Single）：有效數為7位2）雙精度實型（Double）：有效數為15位常量的表示：1）十進制小數形式。它是由正負號（+，-）、數字（0~9）和小數點（.）或類型符號（！、#）組成，即±n.n，±n！或±n#，其中n是0~9的數字。例如0.123、.123、123.0、123！、123#等例如123.45123.45!1.2345E+2都表示同值的單精度數。2）指數形式?！纍E±m(xù)或

±n.nE±m(xù),±nD±m(xù)或

±n.nD±m(xù)

例：1.25E+3和

1.25D+3相當于1250.0或者1.25×103。182、實數1）單精度實型（Single）：有效數為7位2）雙精度實型（Double）：有效數為15位常量的表示：1）十進制小數形式。它是由正負號（+，-）、數字（0~9）和小數點（.）或類型符號（！、#）組成，即±n.n，±n！或±n#，其中n是0~9的數字。例如0.123、.123、123.0、123！、123#等例如123.45123.45!1.2345E+2都表示同值的單精度數。2）指數形式?！纍E±m(xù)或

±n.nE±m(xù),±nD±m(xù)或

±n.nD±m(xù)

例：1.25E+3和

1.25D+3相當于1250.0或者1.25×103。195、日期常量日期（Date）型數據按8字節(jié)的浮點數來存儲，表示日期范圍從公元100年1月1日~9999年12月31日，而時間范圍從0:00:00~23:59:59。一種在字面上可被認作日期和時間的字符，只要用號碼符“#”括起來，都可以作為日期型數值常量。例：#09/02/99#、#January4,1989#，#2002-5-414:30:00PM#都是合法的日期型常量。

20

類型說明符

%：整形；

&：長整形；

!：單精度；

#：雙精度；

@：貨幣型；

$：字符串型。字節(jié)、布爾、日期、對象及變體類型沒有類型說明符。213.2.2用戶自定義符號常量在程序中，某個常量多次被使用，則可以使用一個符號來代替該常量，這樣不僅在書寫上方便，而且有效地改進了程序的可讀性和可維護性。

VB中使用關鍵字Const聲明符號常量。其格式如下：

Const常量名

[As類型]=常數表達式

或：Const[類型符號]=常數表達式例如：

ConstPIAsDouble=3.1415926535等價于：

ConstPI#=3.141592653522

符號常量格式：

Const

常量名=表達式[，常量名=表達式]…

功能：定義一個符號常量來表示表達式的值。

說明：“常量名”：按變量構成規(guī)則命名

“表達式”：由數值常量或字符串、算術運算符(指數運算符除外)、邏輯運算符組成。

23

例：ConstPI=3.141593

ConstPI2=2*PI

ConstCOUNTRY$=“China”

注意：

(1)聲明符號常量視可在常量名后面加上類型說明符。

(2)在程序中引用符號常量時可省略類型說明符。

(3)類型說明符不是符號常量的一部分；24

用戶自定義常量前需要聲明，其語法是：

[Public/Private]Const

常量名[As類型]

=常量表達式例：Const

conMaxPlanetsAsInteger=9Const

numPeopleAsInteger=19253.2.3系統(tǒng)保留常量

VB系統(tǒng)提供的應用程序和控件的系統(tǒng)定義常數。它們存放于系統(tǒng)的對象庫中，在“對象瀏覽器”中的VisualBasic（VB）和VisualBasicforapplications（VBA）對象庫中列舉了VisualBasic的常數

例如，要將文本框Text1的前景顏色設置為紅色，可以使用下面的語句：

Text1.ForeColor=vbRed

這里的vbRed就是系統(tǒng)常量。這比直接使用16進制數來設置要直觀得多。例3-1：P513.3變量3.3.1變量的含義在VisualBasic中執(zhí)行應用程序期間，用變量臨時存儲數據。在VisualBasic中，變量有兩種形式

屬性變量

內存變量什么是變量？一個有名稱的內存單元稱為變量。在程序執(zhí)行期間，用變量臨時存儲數值。變量的值可以發(fā)生變化。每個變量都有名稱和數據類型。273.3.2、變量的命名規(guī)則(1)必須以字母開頭，由字母、漢字、數字或下劃線組成。例如xyz、h_12等變量名都是正確的；而5f、*123是非法的。(2)不能在變量名中出現句點“.”、空格或者嵌入字符：！、@、#、$、%、&(3)長度不得超過255個字符。(4)不能使用VB的關鍵字。關鍵字是語言的組成部分，其中包括預定義語句（例如If、For等）、函數（Abs、Sqr等）和操作符（Or、Mod等）。注意：在同一個范圍（范圍是可以引用變量的域，如一個過程、一個窗體等）內，變量名必須是唯一的。28變量命名規(guī)則(1)名字只能由字母、數字和下畫線組成；(2)名字的第一個字符必須是字母或漢字；(3)名字的有效字符為255個；(4)不可以包含小數點或者內嵌的類型聲明字符;(5)不能用VisualBasic的保留字作變量名。(6)不區(qū)分大小寫。(7)不能與過程名或符號常量同名。例:intMax

strNameStudent1MyName

不區(qū)分大小寫；變量名應便于識別、記憶。293.3.3變量的聲明1.用Dim語句顯式聲明變量形式：Dim變量名[AS類型]

Dim變量名[類型符]

例：

DimabAsinteger,sumAssingle

等價于Dimab%,sum!2.隱式聲明

VisualBasic允許用戶在編寫應用程序時，不聲明變量而直接使用，系統(tǒng)臨時為新變量分配存儲空間并使用，這就是隱式聲明。所有隱式聲明的變量都是Variant數據類型。VisualBasic根據程序中賦予變量的值來自動調整變量的類型。例如：30

下面是一個很簡單的程序，其使用的變量a,b,Total都沒有事先定義。PrivateSubForm_Click()Total=0a=10:b=20Total=a+bPrint“Total=";TotalEndSub如：DimSomeValue‘SomeValue沒有指定類型，是Variant類型SomeValue＝”18”‘SomeValue值為字符型“18”SomeValue＝SomeValue–15‘現在SomeValue值為數值型“3”31(1)聲明變量格式:Dim|Private|Static|Public<變量名>[As<類型>]?

Dim:在窗體模塊、標準模塊或過程中聲明變量。?

Private:在窗體模塊或過程中聲明變量，使變量僅在該模塊或過程中有效。?

Static:在過程中定義靜態(tài)變量，即使該過程結束，也仍然保留變量的值。?

Public:在標準模塊中聲明全局變量，使變量在整個應用程序中有效。32(2)隱式聲明可變類型。易出錯、浪費空間。(3)強制顯式聲明在模塊的聲明段中使用語句:OptionExplicit

如果設置:工具→選項→編輯器→

要求變量聲明則在后續(xù)模塊中自動插入OptionExplicit。例:DimSumAsLongDimAddressAsStringDimNoAsString*8DimPriceAsCurrencyDimNum,TotalAsInteger'Num為可變類型

DimAverageAsSingle333．強制顯式聲明——OptionExplicit語句

良好的編程習慣都應該是“先聲明變量，后使用變量”，這樣做可以提高程序的效率，同時也使程序易于調試。VisualBasic中可以強制顯式聲明，可以在窗體模塊、標準模塊和類模塊的通用聲明段中加入語句：

OptionExplicit例3-2：P5434例:在窗體中放置按鈕Command1和Command2。

DimaAsIntegerPrivateSubCommand1_Click()a=a+10PrintaEndSubPrivateSubCommand2_Click()a=a+15PrintaEndSub

運行程序，觀察結果。將DimaAsInteger放到過程內，再運行，觀察結果。去除Dim，比較使用OptionExplicit與不使用的結果。3.3.4變量的賦值格式：<變量名>=<表達式>功能：先計算<表達式>的值，再將此值賦給變量3.4表達式2.4.1算術運算符

操作數:常量、變量、函數、對象運算符:圓括號算術運算符（算術表達式）字符串運算符（字符串表達式）關系運算符（關系表達式）布爾運算符（布爾表達式）運算符:()^*/\(整除)Mod(求余)+-優(yōu)先級:()→^→*/→\→Mod→+-

書寫:表達式中乘號不能省略，括號不分大、中、小，一律采用圓括號，無[]，無{}36例:將以下表達式寫成VB合法的表達式：(xy)za1+a2a-b+a(-b)a1+a2a^(-b)+a*(-b)(x^y)^za^(1/n)y/(-x)+x/(-y)371.乘方運算例:10^210的平方，結果為10010^(-2)10的平方的倒數，結果為0.0125^0.525的平方根，結果為58^(1/3)8的立方根，結果為22^2^3運算順序從左到右，結果為64(-8)^(-1/3)錯誤,當底數為負時,指數必須是整數2.整數除法例:10\4結果為225.68\6.99先四舍五入再整除，結果為33.取模運算例:10Mod4結果為225.68Mod6.99先四舍五入再求余數,結果為53811Mod–4結果為3-11Mod5結果為-1-11Mod-3結果為-23.4.2字符串表達式字符串運算符有兩個:&+例:"Hello"&"World"結果為"HelloWorld""Check"&123結果為"Check123"123&456結果為"123456""123"&456結果為"123456"123+456結果為579

"123"+"456"結果為"123456""Check"+123錯誤393.4.3日期表達式日期表達式是用運算符（+或-）將算術表達式、日期型常量、日期型變量和函數連接起來的式子。（1）兩個日期型數據相減，其結果是一個數值數據（兩個日期相差的天數）例如：#1/10/2003#-#1/10/2002#結果為365（2）日期型數據加（或減）天數，其結果為一個日期型數據。例如：#2/10/2003#+20結果為#3/02/2003##1/10/2003#-20結果為#12/21/2002#403.4.4關系運算符與關系表達式1.比較運算符

<（小于）<=（小于或等于）

>（大于）>=（大于或等于）

=（等于）<>（不等于）2.表達式:<表達式1><比較運算符><表達式2>3.如何比較數值比較:按數值大小日期比較:按整數yyyymmdd的值比較單字符比較:按ASCII碼大小比較

""<"0"<"1"<…<"9"<"A"<"B"<…"Z"<"a"<"b"<…<"z"

字符串比較：較短字符串補足空格，從左開始比。4.比較結果:TrueFalse41例:45<35結果為False45=45結果為True4<>3結果為True"abc">“abcd"結果為False"計算機"<="計算機系"結果為True3.4.5邏輯運算符與邏輯表達式1.布爾運算符:NotAndOr2.布爾表達式:

<關系表達式1><布爾運算符><關系表達式2>3.優(yōu)先級:Not→And→Or42比較兩個運算量之間的關系，關系表達式的運算結果為邏輯量。若關系成立，結果為True，若關系不成立，結果為False。

VB中的關系運算符如下表所示。運算符含義優(yōu)先級實例結果<小于所有關系運算優(yōu)先級相同。低于算術運算的加“+”，減“-”運算，高于邏輯非“Not”運算。15+10<20False<=小于或等于10<=20True>大于10>20False>=大于或等于"This">="That"True=等于"This"="That"False<>不等于"This"<>"That"TrueLike字符串匹配"This"Like"*is"TrueIs對象比較

43關系運算的規(guī)則如下：（1）當兩個操作式均為數值型，按數值大小比較。（2）字符串比較,則按字符的ASCII碼值從左到右一一比較,直到出現不同的字符為止.。例："ABCDE">"ABRA" 結果為False（3）數值型與可轉換為數值型的數據比較，如：29>"189"，按數值比較，結果為False。（4）數值型與不能轉換成數值型的字符型比較，如：77>"sdcd"，不能比較，系統(tǒng)出錯。44三、邏輯運算符與邏輯表達式

邏輯運算符：Not，And，OrXor45說明：（1）邏輯運算符的優(yōu)先級不相同，Not（邏輯非）最高，但它低于關系運算。（2）VB中常用的邏輯運算符是Not、And和Or。它們用于將多個關系表達式進行邏輯判斷。例如：數學上表示某個數在某個區(qū)域時用表達式：

10≤X<20

用VB程序中應寫成：

X>=10AndX<20

如果寫成如下形式將是錯誤的：

10<=x<20或

10<=xOrx<20

46

例：用人單位招聘秘書：年齡小于40歲，女性，學歷?？苹虮究疲簩懗蓷l件VB的表達式：年齡<=39性別=“女”學歷=“?？啤睂W歷=“本科”47四、字符串運算符與字符串表達式

字符串運算符有：＆、+

。功能是字符串連接例如：

"ABCD"+"EFGHI"'結果為：ABCDEFGHI“VB”&“程序設計教程”'結果為：VB程序設計教程說明：當連接符兩旁的操作量都為字符串時，上述兩個連接符等價。它們區(qū)別是：

+（連接運算）：兩個操作數均應為字符串類型；

&（連接運算）：兩個操作數既可為字符型也可為數值型，當是數值型時，系統(tǒng)自動先將其轉換為數字字符，然后進行連接操作。48例："100"+"123"'結果為

100123"Abc"+123'出錯"100"&123'結果為

100123100&123'結果為

100123"Abc"&"123"'結果為

Abc123"Abc"&123'結果為

Abc123

注意：使用運算符“&”時，變量與運算符“&”之間應加一個空格。這是因為符號“&”還是長整型的類型定義符，如果變量與符號“&”接在一起，VB系統(tǒng)先把它作為類型定義符處理，因而就會出現語法錯誤。49例:A=10:B=8:C=6。

Not(A>B)結果為FalseNot(B>A)結果為TrueA>BAndB>C結果為TrueB>AAndB>C結果為FalseA>BOrB>C結果為TrueB>AOrB>C結果為TrueA<BOrB=C結果為False50例:將以下條件寫成VB布爾表達式：

1.m1-n1≤j≤m1+n1；

2.X<-5或X>5；

3.M和N之一為5，但不能同時為5；

4.-100<k<100，且k為偶數；

5.的定義域。511.(J>=M1-N1)And(J<=M1+N1)2.(X<-5.0）Or(X>5.0)3.((M=5)And(N<>5))Or((M<>5)And(N=5))4.(k>-100)And(k<100)And(kMod2=0)5.(x<>0)And((x-1.0)*(x-2.0)>=0.0)3.4.6表達式的運算順序

()→函數運算→算術運算→字符運算→關系運算→邏輯運算3.5常用內部函數函數分內部函數、用戶自定義函數。

VB提供了上百種內部函數（庫函數），要求掌握這些常用函數的功能及使用。調用方法：

函數名（參數列表）有參函數

函數名無參函數

說明：（1）使用庫函數要注意參數的個數及其參數的數據類型（2）要注意函數的定義域（自變量或參數的取值范圍）例如：sqr(x)要求：x>=0

（3）要注意函數的值域。如：exp(23773)的值就超出實數在計算機中的表示范圍。（4）參數可以是常量、變量或表達式。若有多個參數，參數之間以逗號分隔。函數的使用:函數在表達式中被調用。533.5.1數學函數

常用的數學函數見表2-2所示

Abs(N)Cos(N)Sin(N)Exp(N)Log(N)Sqr(N)Rnd[(N)]Sgn(N)

說明：（1）在三角函數中的自變量是以弧度為單位。如：sin300sin(3.14159/180*30)

（2）Rnd函數返回0~1（包括0和不包括1）之間的雙精度隨機數。若要產生1-100的隨機整數：Int(Rnd*100)+1

提問：怎樣產生[N，M]區(qū)間的隨機數？

（3）例:判斷一個整數Y能否被另一個整數X整除。如果INT(Y/X)=Y/X則整除

54數學函數例子：Fix(45.67)結果為45Int(45.67)結果為45Fix(-2.89)結果為-2Int(-2.89)結果為-3Abs(-4)結果為4Log(10)結果為2.30258509299405Sgn(3)結果為1Sgn(-6)結果為-1Sgn(0)結果為0553.5.2字符串函數（常用的字符串函數見P59表3-3）說明：如果返回是字符型，則函數后有“$”字符。當然一般也可以不寫，習慣都寫上。例如：

len("Thisisabook!")15Left$("ABCDEFG",3)"ABC"Right("ABCDEFG",3)“EFG"Mid$("ABCDEFG",2,3)"BCD“

Ucase("ABcd")"ABCD"

Lcase("ABcd")"abcd"Trim("Abcd")"ABcd"String(5,"A")"AAAAA"

InStr(2,“ABCDEFGEF”,“EF”)5（第一次出現的位置）56例:常用對數log10X的求法。用換底公式log10X=Ln(X)/Ln(10)

即LOG(X)/LOG(10)例:求e3。正確:EXP(3)

錯誤:e^3(錯)3.5.2字符串函數例:LTrim("∪∪∪ABC")結果為"ABC"表示空格RTrim("ABC∪∪∪")結果為"ABC"Trim("∪∪∪ABC∪∪∪")結果為"ABC"Left("ABCDE",2)結果為"AB"Right("ABCDE",2)結果為"DE"Mid("ABCDE",2,3)結果為"BCD"Mid("ABCDE",2,6)結果為"BCDE"57例:Len("ABCDE")結果為5String(3，65)結果為"AAA"InStr("ABCDECDE","DE")結果為4InStr(5,"ABCDECDE","DE")結果為7UCase("Abc")結果為"ABC"LCase("ABc")結果為"abc"583.5.3日期、時間函數

常用的日期時間函數見表3-4

掌握：Time()Date()Now()Year()Month()Day()3.5.4轉換函數例:Asc("A")結果為65

Asc("ABC")結果為65

Chr(65)結果為"A"

Str(123)結果為"∪123"

Str(-123)結果為"-123"Val("123")結果為123Val("123AB")結果為123Val(".123AB")結果為.123Val("a123AB")結果為0593.5.5條件函數1.IIf函數

格式：IIf(<條件>,表達式1,表達式2）

功能：當條件成立，返回表達式1的值，當條件不成立，則返回表達式2的值例子：Max=Iif(a>b,a,b)2.Choose函數格式：Choose(<數值型變量>,<值1>,<值2>,…,<值n>)

功能：當<數值型變量>取整后值為1時，返回<值1>，當值為2時，返回<值2>，以此類推。例子：OP=Choose(n,”+”,”-”,”×”,”÷”)603.5.6格式輸出函數使用格式：Format$（表達式[，“格式字符串”]）

功能：按用戶指定格式返回表達式，常常用在print方法中。使用形式：print

Format$（表達式