《第四章 VB程序設(shè)計(jì)初步——. 基本數(shù)據(jù)類型、常量和變量課件》高中信息技術(shù)浙教版

1、基本數(shù)據(jù)類型基本數(shù)據(jù)類型、常量和變量常量和變量及常用標(biāo)準(zhǔn)函數(shù)及常用標(biāo)準(zhǔn)函數(shù)授課人：陳秋龍數(shù)據(jù)與數(shù)據(jù)類型數(shù)據(jù)與數(shù)據(jù)類型 一個(gè)程序要運(yùn)行，就要先描述其一個(gè)程序要運(yùn)行，就要先描述其表達(dá)式表達(dá)式。描述一個(gè)表達(dá)式應(yīng)先說(shuō)明表達(dá)式中。描述一個(gè)表達(dá)式應(yīng)先說(shuō)明表達(dá)式中要用的要用的數(shù)據(jù)數(shù)據(jù)，數(shù)據(jù)以，數(shù)據(jù)以變量或常量變量或常量的形式來(lái)描述。每個(gè)變量或常量都有的形式來(lái)描述。每個(gè)變量或常量都有數(shù)據(jù)類型數(shù)據(jù)類型。（在Excel的單元格中可輸入數(shù)據(jù)值，并可通過單元格的數(shù)字設(shè)置進(jìn)行數(shù)據(jù)類型的設(shè)置） 數(shù)據(jù)是信息的一種記錄形式，所有數(shù)據(jù)在計(jì)算機(jī)內(nèi)都以二進(jìn)制的形式存放。例如8位二進(jìn)制01000001，可能是數(shù)值65，也可能是字符“

2、A”，如何正確識(shí)別和操作他們就由數(shù)據(jù)類型來(lái)決定。 數(shù)據(jù)類型是對(duì)所存儲(chǔ)的數(shù)據(jù)進(jìn)行的抽象，它包含一組數(shù)據(jù)類型是對(duì)所存儲(chǔ)的數(shù)據(jù)進(jìn)行的抽象，它包含一組值值和一組和一組操作操作。例如8位二進(jìn)制01000001的數(shù)據(jù)類型定義為“Byte”，則它是65，可進(jìn)行數(shù)學(xué)中的算術(shù)運(yùn)算；若定義為“String”,則它是“A”，可進(jìn)行字符串運(yùn)算。類型名稱類型名稱類型說(shuō)明類型說(shuō)明表示范圍表示范圍字節(jié)數(shù)字節(jié)數(shù)類型說(shuō)明符類型說(shuō)明符ByteByte字節(jié)型字節(jié)型02551IntegerInteger整數(shù)型整數(shù)型-32768327672% LongLong長(zhǎng)整數(shù)型長(zhǎng)整數(shù)型-214748364821474836474&Sin

3、gleSingle單精度實(shí)數(shù)單精度實(shí)數(shù)1.401298E-453.402823E38有效數(shù)字7位4！DoubleDouble雙精度實(shí)數(shù)雙精度實(shí)數(shù)4.9406E-3241.7976E308有效數(shù)字15位8#StringString字符串型字符串型一段文字與符號(hào)，最多231個(gè)字符 4+2X字符數(shù)$BooleanBoolean邏輯型邏輯型值為真（TrueTrue）或假（FalseFalse）2DateDate日期型日期型日期和時(shí)間8下：練習(xí)類型選擇姓姓 名名性性 別別家庭住址家庭住址聯(lián)系電話聯(lián)系電話是否黨員是否黨員出生日期出生日期年年 齡齡基本工資基本工資實(shí)發(fā)工資實(shí)發(fā)工資數(shù)據(jù)與數(shù)據(jù)類型數(shù)據(jù)與數(shù)據(jù)類型

4、StringStringString/BooleanString/BooleanStringStringStringStringBooleanBooleanDateDateInteger/ByteInteger/ByteSingle/DoubleSingle/DoubleSingle/DoubleSingle/Double請(qǐng)為下列表格的字段選擇合適的數(shù)據(jù)類型請(qǐng)為下列表格的字段選擇合適的數(shù)據(jù)類型類型名稱類型名稱類型說(shuō)明類型說(shuō)明ByteByte字節(jié)型字節(jié)型IntegerInteger整數(shù)型整數(shù)型 LongLong長(zhǎng)整數(shù)型長(zhǎng)整數(shù)型SingleSingle單精度實(shí)數(shù)單精度實(shí)數(shù)類型名稱類型名稱類型說(shuō)明類

5、型說(shuō)明DoubleDouble雙精度實(shí)數(shù)雙精度實(shí)數(shù)StringString字符串型字符串型BooleanBoolean邏輯型邏輯型(T(T、F)F)DateDate日期型日期型下：變量變變 量量 變量是指程序執(zhí)行期間可以被改變執(zhí)行期間可以被改變的存儲(chǔ)單元，變量可以多次被賦值。程序需要的原始數(shù)據(jù)、計(jì)算產(chǎn)生的中間值或最終的計(jì)算結(jié)果，都可以存儲(chǔ)在適當(dāng)?shù)淖兞恐?。（類似于Excel中的單元格名稱，可通過單元格名稱，來(lái)引用單元格的值） VB中變量說(shuō)明用Dim語(yǔ)句聲明，其定義格式為： Dim Dim 變量名變量名 As As 變量的類型變量的類型,變量名變量名 As As 變量的類型變量的類型 例：Dim

6、sg As Integer 定義一個(gè)表示身高的整數(shù)型變量 Dim tz As Single 定義一個(gè)表示體重的單精度實(shí)數(shù)型變量 變量是指程序在運(yùn)行時(shí)其值可改變的存儲(chǔ)單元。每個(gè)變量由一個(gè)變量名變量是指程序在運(yùn)行時(shí)其值可改變的存儲(chǔ)單元。每個(gè)變量由一個(gè)變量名惟一標(biāo)識(shí)，同時(shí)，每個(gè)變量又具有一個(gè)特定的數(shù)據(jù)類型。惟一標(biāo)識(shí)，同時(shí)，每個(gè)變量又具有一個(gè)特定的數(shù)據(jù)類型。不同類型的變量在內(nèi)存中占有存儲(chǔ)單元的個(gè)數(shù)不同。變量有三個(gè)特征變量有三個(gè)特征： 每一個(gè)變量只有一個(gè)惟一 名字名字。 每一個(gè)變量只有一種 類型類型。 每一個(gè)變量只保存一個(gè)值，但可以在程序運(yùn)行期間對(duì)其進(jìn)行賦值更改賦值更改。例： Dim x As Doub

7、le,y As Double x和y都是雙精度實(shí)數(shù)類型的變量 x = 5.6 y = 0.5 x = x * y本：特征下：常量常常 量量 常量是指在程序執(zhí)行過程中其值不能改變其值不能改變的存儲(chǔ)單元或數(shù)據(jù)，它與變量的不同之處在于，程序運(yùn)行的過程中不能被修改，也不能對(duì)常量賦以新值。直接用數(shù)字或字符書寫的常量叫“直接常量直接常量”。如： sg2 = (sg1 * 0.9230.923 + sg2) / 2 另一種是用一個(gè)符號(hào)(通常是一個(gè)有意義的名字)來(lái)代表一個(gè)常量，這樣的常量也被稱為“符號(hào)常量符號(hào)常量”。使用符號(hào)常量的好處之一是可以使程序具有更好的可閱讀性更好的可閱讀性，其次也使程序的修改和調(diào)試變

8、得更為方便修改和調(diào)試變得更為方便。VBVB程序設(shè)計(jì)中使用程序設(shè)計(jì)中使用ConstConst語(yǔ)句定義符號(hào)常量語(yǔ)句定義符號(hào)常量 定義格式：定義格式：Const Const 符號(hào)常量名字符號(hào)常量名字 As As 數(shù)據(jù)類型數(shù)據(jù)類型=表達(dá)式表達(dá)式 （注： 中括號(hào)及其內(nèi)容可以省略） 例如： Const xs = 0.923 定義一個(gè)表示系數(shù)的常量 sg2 = (sg1 * xsxs + sg2) / 2注意：如果在此后的語(yǔ)句中出現(xiàn)： xsxs = 0.9 = 0.91111 將會(huì)報(bào)錯(cuò)，因?yàn)榉?hào)常量xsxs不允許再進(jìn)行賦值更改。下：練習(xí)2常常 量量VB VB 變量名、常量名的命名規(guī)則：變量名、常量名的命名規(guī)

9、則：1、由字母、數(shù)字和下劃線等字符組成，但必須以字母開頭必須以字母開頭，在變量名中對(duì)大小寫字母是不加區(qū)分的。2、不能使用VB中的關(guān)鍵字關(guān)鍵字，并盡量不與VB中的標(biāo)準(zhǔn)函數(shù)標(biāo)準(zhǔn)函數(shù)名相同。如Dim,If,Single,Rnd等。以下可以作為以下可以作為VBVB變量名的是：變量名的是： A A、F1.1 BF1.1 B、Val CVal C、F2A DF2A D、2FA2FA練一練練一練2 2： 在VB6.0中，完善標(biāo)題為“女性身高預(yù)測(cè)”的Command1按鈕單擊事件，定義一個(gè)常量，二個(gè)變量。Private Sub Command1_Click() Const xs = 0.923 定義一個(gè)表示系數(shù)

10、的常量 Dim sg1 As Single, sg2 As Single 定義二個(gè)表示身高的變量本：命名規(guī)則本：練習(xí)下：標(biāo)準(zhǔn)函數(shù)常用標(biāo)準(zhǔn)函數(shù)常用標(biāo)準(zhǔn)函數(shù)函數(shù)名函數(shù)名函數(shù)的功能函數(shù)的功能應(yīng)用舉例應(yīng)用舉例函數(shù)返回值函數(shù)返回值A(chǔ)bs(X)Abs(X)求X的絕對(duì)值A(chǔ)bsAbs(-2.5)2.5Int(X)Int(X)求不大于X的最大整數(shù)IntInt(5.1)5Sqr(X)Sqr(X)求X的算術(shù)平方根SqrSqr(4)2Rnd()Rnd()得到 0,1)之間的隨機(jī)數(shù)RndRnd()或 RndRnd0Rnd0Rnd1Asc(X)Asc(X)字符轉(zhuǎn)換為ASCIIAscAsc(A)65Chr(X)Chr(X)

11、ASCII轉(zhuǎn)換為字符ChrChr(48)0Val(X)Val(X)數(shù)字字串轉(zhuǎn)換為數(shù)字ValVal(-170)-170Str(X)Str(X)數(shù)值轉(zhuǎn)化成字符串StrStr(-170)-170Len(X)Len(X)計(jì)算字符串的長(zhǎng)度LenLen(A+B)3 3Mid(X,n,k)Mid(X,n,k)取字符串X中第n個(gè)字符起長(zhǎng)度為k的子串MidMid(sanguo,3,2) ngng 注：用Len()函數(shù)計(jì)算正數(shù)長(zhǎng)度時(shí)，因還含有數(shù)值的符號(hào)位（空格），得到的值要比看到的值大1。為了為了幫助程序設(shè)計(jì)者完成特定的功能，幫助程序設(shè)計(jì)者完成特定的功能，VBVB提供了許多內(nèi)建的函數(shù)提供了許多內(nèi)建的函數(shù)（其中許多

12、函數(shù)與Excel中的函數(shù)相似）。函數(shù)在數(shù)學(xué)課程里邊是一個(gè)方程式，你給出具體的變量值，就能求出這個(gè)方程式的函數(shù)值了。在編程里邊函數(shù)基本上也是這個(gè)定義，但是要寬泛一點(diǎn)：函數(shù)不是一個(gè)數(shù)，而是能計(jì)算出一個(gè)數(shù)值或者給出一個(gè)結(jié)果的過程，實(shí)現(xiàn)這個(gè)過程的代碼段，平時(shí)也可以稱為函數(shù)。而且這些代碼段可以被調(diào)用到其他的代碼中，就是常說(shuō)的函數(shù)調(diào)用。下：運(yùn)算符基本運(yùn)算符基本運(yùn)算符 表達(dá)式是將常量、變量和函數(shù)用運(yùn)算符和圓括號(hào)按一定規(guī)則連接起來(lái)，使計(jì)算接受，完成某項(xiàng)功能的式子。VB基本運(yùn)算包括算術(shù)運(yùn)算、字符串運(yùn)算、關(guān)系運(yùn)算和邏輯運(yùn)算。 同一表達(dá)式中先做算法運(yùn)算，后做字符串運(yùn)算，再做關(guān)系運(yùn)算，最后做邏輯運(yùn)算。優(yōu)先級(jí)相同的按自

13、左向右順序執(zhí)行，有括號(hào)的先計(jì)算括號(hào)內(nèi)的。類別類別基本運(yùn)算基本運(yùn)算運(yùn)算符運(yùn)算符優(yōu)先級(jí)優(yōu)先級(jí)表達(dá)式表達(dá)式結(jié)果結(jié)果算術(shù)運(yùn)算 乘冪1329取負(fù)-2-55乘法*33*2.57.5實(shí)數(shù)除法/35/22.5整數(shù)除法 4522求余數(shù)（取模）ModMod58 Mod 53加法+65+49減法-65-41字符串運(yùn)算符先轉(zhuǎn)換成字符串再相連& &7“123”& 45“12345”將兩個(gè)字符串相連+7“123”+“45”“123”+45“12345”出錯(cuò)下：運(yùn)算符基本運(yùn)算符基本運(yùn)算符類別基本運(yùn)算運(yùn)算符優(yōu)先級(jí)表達(dá)式表達(dá)式的值關(guān)系運(yùn)算 相等=710 Mod 4=0FalseFalse不相等7“san

14、”“guo”TrueTrue小于75715115FalseFalse小于等于=79=711=21FalseFalse邏輯運(yùn)算 非Not8NotNot(53)FalseFalse與And8(26=11) AndAnd (20150) OrOr (10020)FalseFalse說(shuō)明：Not：非運(yùn)算，假變真，真變假。And：與運(yùn)算，只有同為真時(shí)才為真，其他為假。Or：或運(yùn)算，只有同為假時(shí)才為假，其他為真。下：本節(jié)練習(xí)運(yùn)行運(yùn)行VB6.0VB6.0，打開，打開“人體公式計(jì)算人體公式計(jì)算”文件夾中的文件夾中的“工程工程1.vbp”1.vbp”文件（可參考：操作要求文件（可參考：操作要求.doc.doc）

15、。實(shí)現(xiàn)：）。實(shí)現(xiàn)：1 1、女性身高預(yù)測(cè)的功能女性身高預(yù)測(cè)的功能女性身高女性身高=(父親身高父親身高0.923+母親身高母親身高)2(厘米厘米) 2、男性身高預(yù)測(cè)的功能、男性身高預(yù)測(cè)的功能男性身高男性身高=(父親身高父親身高+母親身高母親身高)1.082(厘米厘米) 3 3、計(jì)算女性標(biāo)準(zhǔn)體重、計(jì)算女性標(biāo)準(zhǔn)體重標(biāo)準(zhǔn)體重標(biāo)準(zhǔn)體重( (女女)=()=(身高身高cm-100)cm-100) (kg)-2.5(kg) (kg)-2.5(kg)正常體重：標(biāo)準(zhǔn)體重正常體重：標(biāo)準(zhǔn)體重( (多少）多少）10104、計(jì)算男性標(biāo)準(zhǔn)體重、計(jì)算男性標(biāo)準(zhǔn)體重標(biāo)準(zhǔn)體重標(biāo)準(zhǔn)體重(男男)=(身高身高cm-100) (kg)正常體

16、重：標(biāo)準(zhǔn)體重正常體重：標(biāo)準(zhǔn)體重(多少）多少）10提高：提高：能否對(duì)計(jì)算出來(lái)的未來(lái)身高或標(biāo)準(zhǔn)體重，能否對(duì)計(jì)算出來(lái)的未來(lái)身高或標(biāo)準(zhǔn)體重， 進(jìn)行取整或四舍五入運(yùn)算。進(jìn)行取整或四舍五入運(yùn)算。提示：提示：可用可用Int(XInt(X) )、Mid(X,n,kMid(X,n,k) )函數(shù)，或者改變數(shù)據(jù)類型。函數(shù)，或者改變數(shù)據(jù)類型。 本節(jié)上機(jī)練習(xí)作業(yè)本節(jié)上機(jī)練習(xí)作業(yè)812. 0812. 0下：本節(jié)練習(xí)1 1、請(qǐng)為體重這一數(shù)據(jù)選擇合適的數(shù)據(jù)類型：、請(qǐng)為體重這一數(shù)據(jù)選擇合適的數(shù)據(jù)類型： Dim Dim tztz As _ As _? ?_A A、Byte BByte B、Integer CInteger C、L

17、ong DLong D、Single ESingle E、Double Double F F、String GString G、Boolean HBoolean H、DateDate本節(jié)書面練習(xí)題本節(jié)書面練習(xí)題2 2、請(qǐng)為身份證號(hào)碼這一數(shù)據(jù)選擇合適的變量名和數(shù)據(jù)類型、請(qǐng)為身份證號(hào)碼這一數(shù)據(jù)選擇合適的變量名和數(shù)據(jù)類型（選項(xiàng)如題（選項(xiàng)如題1 1） Dim _Dim _? ?_ As _ As _? ?_A A、IntInt B B、StrStr C C、3ds D3ds D、sfzhsfzh E E、cardidcardid F F、id_4 Gid_4 G、MP.3MP.3請(qǐng)依次計(jì)算下列請(qǐng)依次計(jì)

18、算下列Text4.TextText4.Text的值的值?(?(回答回答3535題題) )Dim tz1 As SingleDim tz1 As Singletz1=62.51tz1=62.51Text4.Text = Str(tz1)Text4.Text = Str(tz1) 3 3、請(qǐng)問：、請(qǐng)問：Text4.Text =_Text4.Text =_? ?_Text4.Text = Mid(Text4.Text,2,4)Text4.Text = Mid(Text4.Text,2,4) 4 4、請(qǐng)問：、請(qǐng)問：Text4.Text=_Text4.Text=_? ?_Text4.Text = Str(Int(tz1+0.5)Text4.Text = Str(Int(tz1+0.5) 5 5、請(qǐng)問：、請(qǐng)問：Text4.Text =_Text4.Text =_? ?_“ 62.51”“ 62.51”“62.5”“62.5”“ 63”“ 63”下：知識(shí)總結(jié)本節(jié)主要知識(shí)點(diǎn)本節(jié)主要知識(shí)點(diǎn)VB中變量說(shuō)明用中變量說(shuō)明用Dim語(yǔ)句聲明，其定義格式為：語(yǔ)句聲明，其定