Visual Basic語言程序設(shè)計及實驗教程課件：Visual Basic語言基礎(chǔ)

VisualBasic語言基礎(chǔ)2.1基本數(shù)據(jù)類型2.2變量與常量2.3運算符和表達式2.4常用內(nèi)部函數(shù)2.5編碼規(guī)則2.1基本數(shù)據(jù)類型

VisualBasic語言基礎(chǔ)—基本數(shù)據(jù)類型VisualBasic提供的數(shù)據(jù)類型主要有：

VisualBasic語言基礎(chǔ)—基本數(shù)據(jù)類型數(shù)值型、字符型、布爾型、日期型、變體型、對象型。2.1.1數(shù)值(Numeric)型數(shù)據(jù)整數(shù)類型實數(shù)類型

VisualBasic語言基礎(chǔ)—基本數(shù)據(jù)類型整型長整型字節(jié)型單精度型雙精度型貨幣型2.1.2字符串型(String)

字符可以包括西文字符和漢字,并用雙引號“”（英文狀態(tài)下）括起來,如“1234”、“abcd456”、“程序設(shè)計”、“A”等。

VisualBasic語言基礎(chǔ)—基本數(shù)據(jù)類型

字符串中包含的字符數(shù)稱為字符串的長度。空字符串的長度為0。在VisualBasic中，通常把一個漢字作為一個字符來處理。2.1.3布爾型(Boolean)

布爾型又稱為邏輯型，其數(shù)據(jù)只有兩個值，True(真)和False(假)，常用于表示邏輯判斷的結(jié)果。

VisualBasic語言基礎(chǔ)—基本數(shù)據(jù)類型當(dāng)把數(shù)值型數(shù)據(jù)轉(zhuǎn)換成邏輯型數(shù)據(jù)時,非0True0False當(dāng)把邏輯型數(shù)據(jù)轉(zhuǎn)換為數(shù)值型數(shù)據(jù)時False0True-12.1.4日期型(Date)

日期型數(shù)據(jù)用來表示日期和時間。表示的日期范圍從公元100年1月1日～9999年12月31日，時間范圍是0:00:00～23:59:59。日期型數(shù)據(jù)的表示方法有兩種：

一般表示法和序號表示法。

VisualBasic語言基礎(chǔ)—基本數(shù)據(jù)類型2.1.5對象型(Object)

對象型數(shù)據(jù)可以用來表示應(yīng)用程序中的對象。使用時先用Set語句給對象賦值，其后才能引用對象。

VisualBasic語言基礎(chǔ)—基本數(shù)據(jù)類型2.1.6變體型(Variant)

變體型數(shù)據(jù)是一種可變的數(shù)據(jù)類型，可以存儲任何系統(tǒng)類型的數(shù)據(jù)。如果把任何類型的數(shù)據(jù)賦予Variant變量，則不必在這些數(shù)據(jù)的類型間進行轉(zhuǎn)換，VisualBasic會自動完成任何必要的轉(zhuǎn)換。

VisualBasic語言基礎(chǔ)—基本數(shù)據(jù)類型總結(jié)：基本數(shù)據(jù)類型數(shù)據(jù)名稱占用字節(jié)數(shù)類型符范圍整型Integer2%-32768～32767長整型Long4&-2147483648～2147483647單度型Single4!±1.4E-45～±3.40E38雙精度型Double8#±4.94D-324～±1.79D308貨幣型Currency8@字節(jié)型Byte10～255字符串型String字符串長$布爾型Boolean2True或False日期型Date8100.1.1～9999.12.31對象型Object4可供任何對象引用變體型Variant

按需分配2.2變量與常量

VisualBasic語言基礎(chǔ)—變量和常量2.2.1VisualBasic符號的命名規(guī)則

VisualBasic語言基礎(chǔ)—變量和常量（１）必須以字母或漢字開頭

VisualBasic語言基礎(chǔ)—變量和常量例

：下列各項中，可以作為變量名的是（）；A.a1_0B.DimC.K6/600D.CD[1]例：下列各項中，不能作為變量名的是（）。A.ABCabcB.A12345C.18ABD.Namel2.2.2常量

常量是指程序運行過程中保持不變的常數(shù)、字符串等。在VB中，常量又為一般常量和符號常量。

VisualBasic語言基礎(chǔ)—變量和常量字符串常量數(shù)值常量布爾常量日期常量例：下列各項中，是常量的是（）；

A.E-3B.E+03C.10^3D.1.E03例：各項中，不是常量的是（）。

A.1E-3B.13C."abc"D.Xl*32.2.3變量變量=內(nèi)存單元

VisualBasic語言基礎(chǔ)—變量和常量1.用Dim顯式聲明變量

Dim變量名[As數(shù)據(jù)類型][,變量名[As數(shù)據(jù)類型],…]

VisualBasic語言基礎(chǔ)—變量和常量例：使用變量x存放數(shù)據(jù)12345678.987654，應(yīng)該將x聲明為（）類型。

A.單精度(Single)B.雙精度(Double)C.長整型(Long)D.貨幣型(Currency)2.3運算符和表達式

VisualBasic語言基礎(chǔ)—運算符和表達式

2.3.1算術(shù)運算符與表達式

VisualBasic語言基礎(chǔ)—運算符和表達式

1.算術(shù)運算符

^-*,/\mod+,-例：表達式3^2*12-4^(2/4)的值為（）。

A.104B.106C.108D.出錯例：表達式33Mod17\3*2的值為（）。

A.10B.1C.2D.3

例如:有表達式,

在VB中，該表達式書寫為：

(((3*x+y)*z)/((x*y)^4))^(1/2)

或

Sqr((3*x+y)*z)/((x*y)^4)

VisualBasic語言基礎(chǔ)—運算符和表達式2.表達式的書寫規(guī)則

課堂練習(xí)：選做把下列數(shù)學(xué)式寫成等價的VB表達式。(1)sin50°寫成（）。(2)寫成（）。(3)寫成（）。

(4)寫成（）。

VisualBasic語言基礎(chǔ)—課后練習(xí)2.3.2字符串運算符與表達式

VisualBasic語言基礎(chǔ)—運算符和表達式&

連接兩個字符串，其操作數(shù)可以是字符串型，也可以是數(shù)值型，系統(tǒng)首先把操作數(shù)轉(zhuǎn)換為字符型，然后連接兩字符串。+若兩個運算量均為字符串，則正常連接，否則就進行加法運算。例：下列表達式的值為“ABC”+123“123”+123×√2.4常用內(nèi)部函數(shù)

VisualBasic語言基礎(chǔ)—常用內(nèi)部函數(shù)

VisualBasic語言基礎(chǔ)—常用內(nèi)部函數(shù)數(shù)學(xué)運算函數(shù)字符串函數(shù)

2.4.1數(shù)學(xué)運算函數(shù)

VisualBasic語言基礎(chǔ)—常用內(nèi)部函數(shù)①Abs(N)②Sgn(N)③Sqr(N)④Exp(N)⑤Int(N)

⑥Rnd

VisualBasic語言基礎(chǔ)—常用內(nèi)部函數(shù)(1)函數(shù)Int():

返回小于或等于N的最大整數(shù)。利用Int函數(shù)可以對數(shù)據(jù)進行四舍五入處理。例如N≥0，按四舍五入處理，只保留整數(shù)，可以采用如下式子：Int(N+0.5)

思考？如果要四舍五入保留小數(shù)點后一位,兩位….該怎樣表示?例:給定一個兩位整數(shù)，要求交換個位數(shù)和十位數(shù)的位置，把處理后的數(shù)顯示在窗體上。

VisualBasic語言基礎(chǔ)—常用內(nèi)部函數(shù)命令按鈕的單擊事件過程：PrivateSubCommand1_Click()DimxAsInteger,aAsIntegerDimbAsInteger,cAsIntegerx=Val(Text1.Text)a=Int(x/10)'求十位數(shù)

b=xMod10'求個位數(shù)

c=10*b+aText2.Text=cEndSub

VisualBasic語言基礎(chǔ)—常用內(nèi)部函數(shù)

★

（2）隨機函數(shù)Rnd:

VisualBasic語言基礎(chǔ)—常用內(nèi)部函數(shù)

為了利用函數(shù)Rnd()生成某個范圍內(nèi)的隨機正整數(shù)，可使用以下公式：Int((上限值-下限值+1)*Rnd+下限值)例：表達式Int(-20.9)+Int(20.9+0.5)-Fix(-17.9)的值是（）。

A.-17B.16C.17D.18例:單擊窗體，隨機產(chǎn)生一個三位正整數(shù)，并將其百位、十位、各位分離出來顯示在窗體上。

VisualBasic語言基礎(chǔ)—常用內(nèi)部函數(shù)2.4.2字符串函數(shù)

VisualBasic語言基礎(chǔ)—常用內(nèi)部函數(shù)Asc(C)、Chr(N)Str(N)、Val(C)Len(C)、LenB(C)Ucase(C)、Lcase(C)Space(N)、String(N,C)Left(C,N)、Right(C,N)、Mid(C,N1[,N2])InStr([N,]C1,C2)例：如果a,b,c的值分別是3,2,-3,則下列表達式的值是（）。Abs(b+c)+a*Int(Rnd+3)+Asc(Chr(65+a))

A.10B.68C.69D.78

VisualBasic語言基礎(chǔ)—課后練習(xí)（1）函數(shù)Val()：將數(shù)字字符串轉(zhuǎn)換為數(shù)值型數(shù)據(jù)，會自動將字符串中的空格去掉，并依據(jù)字符串中排列在前面的數(shù)值常量來定值，

Val("A12")的值為0Val("123A12")的值為123Val("1.2e2")的值為120

VisualBasic語言基礎(chǔ)—常用內(nèi)部函數(shù)★

（2）Mid(C,N1[,N2])函數(shù):從C的第N1開始取N2個字符如:Mid("ABCDEF",2,3)返回值為"BCD"

VisualBasic語言基礎(chǔ)—常用內(nèi)部函數(shù)例：設(shè)A=“12345678”，則表達式

Val(Left(A,4)+Mid(A,4,2))的值是（）。

A．123456B．123445C．8D．6

VisualBasic語言基礎(chǔ)—課后練習(xí)例:使用字符串操作函數(shù)。將含有一個空格的字符串如”VisualBasic”,從空格處拆分開，并在窗體上輸出拆分后的結(jié)果。編寫窗體的Activate事件過程的代碼如下：PrivateSubForm_Activate()

DimaAsString,bAsString,cAsString,nAsIntegera="VisualBasic"n=InStr(a,"")'查找空格位置

b=Left(a,n-1)'取空格左邊部分

c=Mid(a,n+1)'取空格右邊部分

PrintbPrintcEndSub2.4.3日期與時間函數(shù)

VisualBasic語言基礎(chǔ)—常用內(nèi)部函數(shù)★Time：返回系統(tǒng)時間PrivateSubForm_Click()PrintDatePrintTimePrintNowPrintYear(Date);Month(Date);Day(Date);Weekday(Date)PrintHour(Time);Minute(Time);Second(Time)EndSub2.4.4類型轉(zhuǎn)換函數(shù)（略）2.4.5格式輸出函數(shù)使用格式輸出函數(shù)Format()可以使數(shù)值、日期或字符串型數(shù)據(jù)按指定的格式輸出。Format函數(shù)的語法格式為：Format(表達式，格式字符串)表2-9常用數(shù)值格式化符號符號作用數(shù)值表達式格式化字符串顯示結(jié)果0實際數(shù)字小于格式符號位數(shù)時，數(shù)字前后加01234.5671234.567"00000.0000""000.0"01234.56701234.6#實際數(shù)字小于格式符號位數(shù)時，數(shù)字前后不加01234.5671234.567"#####.####""###.#"1234.5671234.6.加小數(shù)點12345"00000.00"12345.00,千分位1234.567"##,##0.00"1,234.5670%數(shù)值乘以100,加百分號1234.567"####.##%"123456.7%$在數(shù)字前強加$1234.567"$###.##"$1234.57+在數(shù)字前強加+-124.567"+###.##"+-124.57-在數(shù)字前強加-1234.567"-###.##"-1234.57E+用指數(shù)表示.1234"0.00E+00"1.23E-01E-用指數(shù)表示1234.567"0.00E-00"1.23E032.5編碼規(guī)則

VisualBasic語言基礎(chǔ)—編碼規(guī)則2.5.1語句及語法編寫程序語句時所必須遵循的構(gòu)建規(guī)則稱為語法。程序語句是VB關(guān)鍵字、對象屬性、函數(shù)、運算符以及其它VB編譯解釋器能識別的符號的有序組合，一般占用一行。例如賦值語句：

Label1.Caption

=Time↑

↑

↑

↑

對象名屬性名賦值號VB函數(shù)

VisualBasic語言基礎(chǔ)—編碼規(guī)則2.5.2代碼書寫規(guī)則2.5.3程序的基本結(jié)構(gòu)其基本結(jié)構(gòu)只有三種，即順序結(jié)構(gòu)、選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu)，而且這三種基本結(jié)構(gòu)具有單入口、單出口的特點。

VisualBasic語言基礎(chǔ)—編碼規(guī)則課后練習(xí)

VisualBasic語言基礎(chǔ)—課后練習(xí)一．單選題1．下列①各項中，只有

才是常量；②各項中，

不是常量。

①A.E-3B.E+03C.10^3D.1.E03②A.1E-3B.13C."abc"D.Xl*32.下列①各項中，可以作為變量名的是

；②各項中，

不能作為變量名。

①A.a1_0B.DimC.K6/600D.CD[1]②A.ABCabcB.A12345C.18ABD.Namel

VisualBasic語言基礎(chǔ)—課后練習(xí)3.空字符串是指。

A.長度為0的字符串B.只包含空格字符的字符串

C.長度為1的字符串D.不定長的字符串4.使用變量x存放數(shù)據(jù)12345678.987654，應(yīng)該將x聲明為類型。

A.單精度(Single)B.雙精度(Double)C.長整型(Long)D.貨幣型(Currency)5.表達式3^2*12-4^(2/4)的值為。

A.104B.106C.108D.出錯6.表達式33Mod17\3*2的值為。

A.10B.1C.2D.3

VisualBasic語言基礎(chǔ)—課后練習(xí)7.表達式Int(-20.9)+Int(20.9+0.5)-Fix(-17.9)的值是

A.-17B.16C.17D.188.如果a,b,c的值分別是3,2,-3,則下列表達式的值是。

Abs(b+c)+a*Int(Rnd+3)+Asc(Chr(65+a))

A.10B.68C.69D.78

VisualBasic語言基礎(chǔ)—課后練習(xí)9.設(shè)m="morning"，下列表達式的值是"mor"。

A.Mid(m,5,3)B.Left(m,3)C.Right(m,4,3)D.Mid(m,3,1)10.表達式Sin(a+b)^6所對應(yīng)的數(shù)式是。

A.sin(a+b)6B.sin6(a+b)C.sin6(a+b)D.6sin(a+b)

VisualBasic語言基礎(chǔ)—課后練習(xí)11.如果x是一個正實數(shù)，對x的第3位小數(shù)四舍五入的表達式是。

A.0.01*Int(100*x+0.5)B.0.01*Int(10*x+0.5)C.0.01*Int(x+0.5)D.0.01*Int(x+5)12.求一個三位正整數(shù)n的十位數(shù)的方法是。

A．Int(n/l0)-Int(n/100)*10B．Int(n/l0)-Int(n/100)C．n-Int(n／100)*100D．Int(n-Int(n/100)*100)

VisualBasic語言基礎(chǔ)—課后練習(xí)13．設(shè)A=“12345678”，則表達式

Val(Left(A,4)+Mid(A,4,2))的值是。

A．123456B．123445C．8D．614．要使右列式子成立，x應(yīng)取。

Int(x+2)=16A．14≤x<15B．14<x≤15C．14<x<15D．14≤x≤15

VisualBasic語言基礎(chǔ)—課后練習(xí)15．在下列函數(shù)中，函數(shù)的執(zhí)行結(jié)果與其他三個不一樣。(都一樣)A．String(3,"5")B．Str(555)C．Right("5555",3)D．Left("55555",3)16．設(shè)變量A的值為-2，則函數(shù)的執(zhí)行結(jié)果與其他三個不一樣。

A．Val("A")B．Int(A)C．Fix(A)D．-Abs(A)

VisualBasic語言基礎(chǔ)—課后練習(xí)17．要在窗體Forml的標(biāo)題欄上顯示"統(tǒng)計程序"，可用語句。

A．Forml.Name="統(tǒng)計程序"B．Form1.Caption="統(tǒng)計程序"C.Forml.Caption=統(tǒng)計程序

D．Forml.Name=統(tǒng)計程序18．函數(shù)String(n,"str")的功能是。

A．把數(shù)值型數(shù)據(jù)轉(zhuǎn)換為字符串

B．返回由n個字符組成的字符串

C．從字符串中取出n個字符

D．從字符串中第n個字符的位置開始取子字符串

VisualBasic語言基礎(chǔ)—課后練習(xí)二.多選題1．從字符串變量S中取出最后(右邊)2個字符，可以采用函數(shù)。

A．Instr(1,S,2)B．Mid(S,Len(S)-1)C．Mid(S,2,2)D．Right(S,2)E．Right(S,Len(S)-2)2．已知A=Space(1)，要產(chǎn)生3個空格，可以采用函數(shù)。

A．Right(A,3)B．Space(3*A)C．String(3,A)D．A&A&AE．3*A

VisualBasic語言基礎(chǔ)—課后練習(xí)3．已知a>b，c>d，下列表達式中其值為0的有.A．Sgn(b-a)+Sgn(c-d)B．Sgn(a-b)-Sgn(d-c)C．Sgn(b-a)-Sgn(d-c)D．Sgn(a-b)+Sgn(c-d)E．Sgn(b-a)+Sgn(d-c)4．要求一個正整數(shù)n除以8所得的余數(shù)，可以采用

A．nMod8B．n-Int(n/8)C．n\8D．n-Int(n／8)*8E．n-Int(n\8)

VisualBasic語言基礎(chǔ)—課后練習(xí)三.填空題1．把下列數(shù)學(xué)式寫成等價的VB表達式。(1)sin50°寫成。(2)寫成。(3)寫成。

(4)寫成。

VisualBasic語言基礎(chǔ)—課后練習(xí)2．要產(chǎn)生50～55范圍內(nèi)(含50及55)的隨機整數(shù)，采用的VB表達式是Int(6*rnd+50)

。3．寫出下列表達式的值。(1)Val("153")-Val("15-1a3")的值是138

。(2)7Mod3+8Mod5*1.2-Int(Rnd)的值是3

。(3)Val("120")+Asc("abc")-Ins