程序設計數據表示與處理程序設計中，往往要處理各種各樣的數據，不同的程序設計語言有不同的數據類型(DataType）在VB中，為了便于數據的表示與處理，VB提供了數值型、字符串型、布爾型、日期型等基本數據類型打字測試軟件代碼Dim

dtmBeginTime

As

Data,

dtmEndTime

As

Data

Private

Sub

cmdEnd_Click()

Dim

intTimeCost

As

Integer,

intWordCont

As

Integer

dtmEndTime

=

Time()

intTimeCost

=

DateDiff("s",

dtmBeginTime,

dtmEndTime)

intWordCunt

=

Len(txtInput.Text)

txtSpeed.Text

=

intWordCount

/

(intTimeCost

/

60)

End

Sub

Private

Sub

cmdStart_Click()

dtmBeginTime

=

Time()

End

Sub整型、長整型、單精度和雙精度都屬于數值型，它們表示數值的范圍是不同的。字符串型數據是指用＂＂括起來的一串字符。如＂歡迎進入VB世界！＂、＂VisualBasic＂、＂1234＂都是字符串類型。布爾型又稱邏輯型，常用于表示邏輯判斷的結果日期型數據專門用來處理日期和時間。VB采用一對“#”把日期和時間的值括起來，如#2015/03/24#表示2015年3月24日。2.2.2常量與變量常量

常量(constant)是指在程序運行過程中保持不變的量，在VisualBasic中，常量有數值常量、字符串常量等。⑴數值常量

數值常量就是數學中說的常數，數值常量有整型常量和實型常量兩種。

整型常量即整數，是指不帶小數的數值，如1、0、60等都是合法的整數。

實型常量即實數，是指帶小數的數值。如3.14159⑵字符串常量

用一對雙引號括起來的若干個合法的字符稱為字符串常量。字符串常量指的是雙引號中的字符，不包括雙引號本身。例如“china”、“VisualBasic”、“18”、“3.14”等。如果程序中多次用到同一個常量，往往用一個有意義的符號表示，這種常量稱為符號常量；代表常量的符號稱為“常量名”，其定義形式如下：

Const常量名[As類型]＝表達式如：Constpi=3.14159

r=5

s=pi*r*r

Print"s=";s

2.變量

在程序執行過程中，其值可以改變的量稱為變量(variable)，例如：a=4a=3.14a先后有2個值，也就是說a的值是可以變化的。

每個變量都應該有一個名字，即變量名。VisualBasic變量名：①必須以字母或漢字開頭；②由字母、漢字、數字或下劃線組成；③變量名最長不超過255個字符；④不能以VB的保留字作為變量名，如a、i、x1、age、num等均為合法的變量名，而print、l*et則是非法的變量名；⑤對字母不區分大小寫；⑥為加強程序的可讀性，變量名最好要有意義的名稱，如用“age”表示“年齡”，“sum”表示“總和”等。

變量是用來存儲數據的，數據分為不同的類型，相應的變量也有不同類型：

變量在使用之前應用Dim語句聲明其變量名及數據類型，Dim語句格式為：

Dim變量名As數據類型

例如：DimiAsInteger

DimsumAsSingle

DimnameAsString

以上三個語句分別將i、sum、name定義為整型、實型和字符串型變量。當然，也可以在一行中定義多個變量，如上述三個變量可如下定義：

DimiAsInteger,sumAsSingle,nameAsString

對象的屬性在VB中的含義序號對象的屬性在VB中的含義1Caption設置窗體標題欄上的文字2Font設置字體字號字形3Visible設置程序運行時是否可見4Width設置窗體的寬度5Top設計程序運行時的垂直位置6Enabled決定運行時窗體是否響應用戶事件7BackColor設置背景顏色8ForeColor設置背景顏色9BorderStyle設置窗體的邊框風格2.2.3運算符與表達式1.算術運算符與算術表達式VB中有很多算術運算符(Operator)，如“+”、“－”、“*”、“/”等，用它們可以構造出各種各樣的算術表達式。算術運算符要求參與運算的量是數值型，算術表達式運算的結果也是數值型.ConstA=2運算符含義優先級實例結果^指數1A^10？-取負2-5+a？*乘法35*a？/除5/a？\整除45\a？mod求余數55moda？+加法6A+3？-減法A-4？思考:下列表達式的結果-3+15mod6\2+2^32.字符串運算符與字符串表達式VB中字符串運算符有：+和&。它們的作用都是將兩個字符串連接起來。“計算機”&“軟件”結果是“計算機軟件”“123”+“45”結果是“12345”

需要注意的是：當一個數字字符串表達式(如“123”)與一個數值型表達式用“+”運算時，結果將是數值型數據。如“123”+45結果是168；而用“&”運算結果仍是字符串類型。”123”&45結果是“12345“3.關系運算符與關系表達式關系運算符有：=、<>、<、>、>=和<=。關系表達式的運算結果為布爾值True或False，如3>2的結果為True。關系運算符優先級相同4.邏輯運算符與邏輯表達式常用的邏輯運算符有：Not(取反)、And(與)、Or(或)等，運算結果為布爾值True或False。邏輯運算符的優先級為：Not>And>Or。如程序代碼中的語句：If(NMod3=2)And(NMod5=3)And(NMod7=2)ThenprintN其中就包含了邏輯表達式。5.日期運算符與日期表達式日期表達式是用日期運算符“+”或“-”將算術表達式、日期型常量、日期型變量、日期函數等連接起來的式子，如表達式“#2003/09/01#+30”的運算結果為#2003/10/01#；表達式“#2003/10/20#-#2003/10/10#”的運算結果為整數10。幾種數據類型的關系比較1、數值型直接比較其數值大小2、字符串類型比較：例：“abc”<“abd”

“abc”>“AB”3、日期型#2004/03/21#<#2007/03/21#6.運算符的執行順序

當一個表達式中同時出現多種運算符時，如何決定運算的次序呢？在VB中，運算次序由運算符的優先級決定，優先級高的運算符先運算，優先級相同的從左向右進行運算。不同性質的運算符優先級如下：算術運算符＞字符串連接運算符＞關系運算符＞邏輯運算符2.2.4常用語句與函數

1.賦值語句把常量、變量或表達式的值賦給一個變量VB中賦值語句用“=”來實現變量=常量、變量或表達式對象.屬性值=常量、變量或表達式例:dimaasinteger,basintegera=2b=ab=b+1Text1.text=“hello”2.Print語句(輸出)語法格式：[對象名.]Print[輸出內容]輸出內容可以是常量,變量或表達式的值(如果不指定對象名，默認在當前窗體上輸出)

例如:picture1.print“hello”print“hello”窗體、圖片框等輸出內容可以是一個或多個，各內容之間用“;”或“,”隔開。比較用“;”或“,”隔開輸出的區別例如:A=3B=2C=a+bPrint“c=”;cPrint“c=”,c用；隔開，各個內容緊跟著用，隔開，按分區格式輸出3.注釋語句為了提高程序的可讀性，通常需要在程序適當的位置加上必要的注釋。（添加注釋是編程的一個好習慣。）VB中注釋語句的格式為：⑴在字符“

‘

”后加注釋內容

A=2‘把2賦給變量a⑵用“Rem注釋內容”。Rem計算圓的周長c=2*PI*r注意：如果用Rem語句注釋，應將Rem語句單獨書寫，不可像’一樣直接放在其他語句后面，否則VB將提示錯誤，4.結束語句語法格式：End功能：強制程序結束運行。函數內部函數是由VB系統提供的，每個內部函數完成某個特定功能。例：time()‘返回系統當前時間在程序中使用函數稱為調用函數，函數調用后，一般都有返回一個確定的函數值。Begintime=time()Printtime()5.與用戶交互函數⑴InputBox(提示[,標題][，默認值][，x坐標][，y坐標])返回輸入對話框中輸入的數據X=inputbox(提示[,標題][，默認值][，x坐標][，y坐標])⑵MsgBox()函數是VB程序設計中常用的交互函數，其功能非常強大，可以顯示多種樣式的消息對話框。基本語法格式：MsgBox(提示信息[,按鈕][，標題])6.數學函數

三角函數中的參數應是弧度數，如數學中sin30°應寫為：sin(30*3.1415926/180)Rnd函數返回[0,1)即包括0，但不包括1）之間的一個隨機雙精度數，它往往和randomize結合使用。返回<=X的最大整數7.字符串函數8.日期函數

Date()函數返回系統的當前日期。Time()函數返回系統的當前時間，如：dtmBeginTime=Time()，將系統當前時間賦給變量dtmBeginTime。以此類推，Day()、Month()、Year()函數分別返回指定日期的日數、月份數、年份數。9.常用轉換函數

練習：1.VB的數據類型分為()A．數值型、字符型、布爾型、日期型B．數值型、字符型、對象型、日期型C．基本類型、擴展類型D．整型、實型、字符型、日期型、布爾型2.下列變量名中，合法的變量名是()A.

C24

B.

AB

C.

A:B

D.1+23.VB中運算符被分為四類，分別是()A．算術運算符、字符串運算符、關系運算符、邏輯運算符B．算術運算符、比較運算符、關系運算符、邏輯運算符C．算術運算符、連接運算符、布爾運算符、邏輯運算符D．連接運算符、比較運算符、邏輯運算符、關系運算符AAA4.表達式(2*3)>=5And12/3<=4的值為()5.數學關系3≤x<10表示成正確的VB表達式為()A.3=<x<10B.3=<xAndx<10C.x>=3Orx<10D.x>=3Andx<106.A為True，B為False,則“AandB”

和“AOrB”

的值分別是（）和（）A.True，TrueB.True，FalseC.False，TrueD.False，FalseTrueDC7.在VB中表達式11\3+11Mod3的運算結果值是()A.3B.4C.5D.68.語句段

a=3:b=5

t=a:a=b:b=t執行后，（）A.a值為3，b值為3B.a值為3，b值為5C.a值為5，b值為5D.a值為5，b值為3CD9.假設a=2,b=3,c=4,d=5,表達式a>bAnd2*a>cOrc<=d的值是()A.TrueB.FalseC．－1D.110.執行下面的程序段后，b的值為______________

a=300

b=20

a=a+b

b=a－b

a=a－bA300程序的基本結構①順序結構：按照由上到下的順序一行一行地執行。程序中沒有分支，沒有重復。

②選擇結構：根據不同的條件判斷來決定程序執行走向的結構。程序中有分支，沒有重復。

③循環結構：根據條件判斷，需要重復執行某一段代碼的程序。程序中可能存在分支和重復。1、順序結構PrivateSubcommand1_Click()DimaAsSingleDimbAsSingleDimcAsSinglea=text1.textb=text2.textc=aa=bb=ctext1.text=atext2.text=bEndSub開始輸入a,bc=aa=bb=c輸出a,b結束2、選擇結構Privatesubcommand1_click()DimaassingleA=val(text1.text)Ifa>=60thenPrint“合格”Elseprint“不合格”EndifEndsub開始輸入aa>=60輸出“合格”輸出“不合格”結束YNIF語句有：單分支選擇結構，形式為If<條件成立>Then語句塊

EndIf；雙分支選擇結構，形式為

If<條件成立>Then

語句1Else語句2EndIf；Ifxmod2=0thenPrint“偶數”Elseprint“奇數”endif例如：

ifxmod2=0thenprint“偶數”

endif多分支選擇結構，形式為If<條件1成立>Then<語句塊1>ElseIf<條件2成立>Then <語句塊2>

…

[Else

語句塊n+1]EndIfX=t/(s*s)Ifx>23thenStr=“您的體形偏胖”Elseifx<19.5thenstr=“您的體形偏瘦”

elsestr=“您的體形很完美”endif

例：輸入一學生成績，評定其等級。方法是：90~100分為“優秀”，80~89分為“良好”，70~79分為“中等”，60~69分為“及格”，60分以為“不合格”使用IF語句實現的程序段如下：Ifx>=90thenPrint"優秀"ElseIfx>=80ThenPrint"良好"ElseIfx>=70ThenPrint"中等"ElseIfx>=60ThenPrint"及格"ElsePrint"不及格"EndIfSelectcasexCase90to100Print“優秀”Case80to89Print“良好”Case70to79Print“中等”Case60to69Print“及格”Elseprint“不及格”Endselect當程序出現多分支選擇時，用If語句比較煩瑣，而使用多分支選擇SelectCase語句就方便多了。SelectcasexCaseis>23str=“您的體形偏胖”Caseis<19.5str=“您的體形偏瘦”Caseelsestr=“您的體形很完美”EndselectbSelectcasemonthCase1,3,5,7,8,10,12print“大月”Case2print“平月”

Caseelseprint“小月”EndselectSelectcasexmod2Case0print“偶數”Case1print“奇數”Endselect語法格式為：SelectCase表達式的值Case情況1

語句塊1[Case情況2

語句塊2]……[CaseElse

語句塊n]EndSelect課堂練習編寫程序：用計算機產生一個1到12之間的隨機數整數做為月份數，然后判斷這個月是哪個季節的，并輸出該月數及判斷結果。程序代碼PrivateSubcommand1_Click()DimaAsIntegerRandomizea=Int(Rnd()*12)+1ifa<=3then

Label1.Caption=Str(a)&"月份是"&"春季"elseifa<=6then

Label1.Caption=Str(a)&“月份是”

&“夏季”

elseifa<=9thenLabel1.Caption=Str(a)&"月份是"&"秋季"elseLabel1.Caption=Str(a)&"月份是"&"冬季"

endifendSubPrivateSubcommand1_Click()DimaAsInteger

Randomizea=Int(Rnd()*12)+1SelectCaseaCase1To3Label1.Caption=Str(a)&"月份是春季"Case4To6Label1.Caption=Str(a)&"月份是夏季"Case7To9Label1.Caption=Str(a)&"月份是秋季"CaseElseLabel1.Caption=Str(a)&"月份是冬季"EndSelectendSub下面是兩種正確的嵌套形式：（1）

IF<條件1>Then

…..IF<條件2>Then

……Else

…..EndIf

….Else

….IF<條件3>Then

…..Else

…..EndIf

…..EndIF選擇結構的嵌套（2）IF<條件1>Then

…..SelectCase…Case……IF<條件2>Then

……Else

…..EndIf

……Case….

…..EndSelect

….EndIF3、循環結構循環結構：根據條件判斷，需要重復執行某一段代碼的程序。程序中可能存在分支和重復。VB中提供了兩種類型的循環語句：計數循環語句和條件型循環語句

1.

For循環語句（已知循環次數的計數型循環）語句形式：

For

循環變量=初值To終值

[Step

步長]

循環體語句塊

Next

循環變量‘相當于循環變量=循環變量+stepStep缺省則默認為1For-Next循環的執行過程是：①循環變量取初值；②循環變量與終值比較，沒有超過終值轉③，否則循環結束，接著執行循環語句的后繼語句；③執行一次循環體；④循環變量增加一個步長增量；⑤重復步驟②～④。循環變量取得初值循環變量有沒超過終值循環體語句循環變量增加一個步長YN

For

循環變量=初值To終值

[Step

步長]

循環體語句塊

Next

循環變量說明：1）循環變量必須為數值型

2）步長一般為正，初值小于終值；若為負，初值大于終值；缺省步長為1；

3）語句塊可以是一句或多句語句，稱為循環體；

循環次數=int（（終值-初值）/步長+1）

4）退出循環后，循環變量的值保持退出時的值；

5）在循環體內對循環變量可多次引用，但不要對其賦值，否則影響結果。思考：1.若有如下一段代碼：Forj=15to3Step–2 PrintjNextj

則循環結束時，循環變量j的值是多少？

2.循環變量的增量能否為0，如果為0，