輸入以下的程式碼,這在前面有提到,

1、輸入以下的程式碼，這在前面有提到， 數(shù)值變數(shù)在VB裡面被區(qū)分成布林?jǐn)?shù)(Boolean)、位元組(Byte)、整數(shù)(Integer)、長整數(shù)(Long)、單精度浮點(diǎn)數(shù)(Single)及雙精度浮點(diǎn)數(shù)(Double) 布林?jǐn)?shù)：能儲(chǔ)存0(False)及-1(True)兩種整數(shù)的變數(shù)，也就是一個(gè)bit大小的記憶體空間所能表示的資料(但事實(shí)上它還是佔(zhàn)用1Byte的記憶體空間)。 Private Sub Command1_Click() Dim MyVal As Boolean MyVal = True MyVal = False MyVal = 0 MyVal = -1 Print MyVal End S

2、ub 當(dāng)MyVal的數(shù)值不為0及-1時(shí)，會(huì)自動(dòng)轉(zhuǎn)成-1(True)，數(shù)值為小數(shù)時(shí)則自動(dòng)截去小數(shù)。 在上面的程式碼裡，Print是一個(gè)VB的表單所提供的方法，可以在表單上顯示出資料，而Print MyVal也就是顯示MyVal的內(nèi)容到表單上。位元組：能儲(chǔ)存8組以0、1表示數(shù)值的變數(shù)，也就是用了1Byte的記憶體空間，值的範(fàn)圍為0 255。 Private Sub Command1_Click() Dim MyVal As Byte MyVal = 0 MyVal = 1 Print MyVal MyVal = 15 Print MyVal MyVal = 106 Print MyVal MyVa

3、l = 255 Print MyVal End Sub 當(dāng)MyVal的數(shù)值小於0及大於255時(shí)，則會(huì)造成OverFlow(溢位錯(cuò)誤)，要小心，數(shù)值為小數(shù)時(shí)則自動(dòng)截去小數(shù)。整數(shù)：能存16組以0、1表示數(shù)值的變數(shù)，用了記憶體2Byte的大小，值的範(fàn)圍為-32768 32767。 Private Sub Command1_Click() Dim MyVal As Integer MyVal = -32768 Print MyVal MyVal = -1050 Print MyVal MyVal = 0 Print MyVal MyVal = 15 Print MyVal MyVal = 1024 P

4、rint MyVal MyVal = 31000 Print MyVal End Sub 當(dāng)MyVal的數(shù)值小於-32768及大於32767時(shí)，則會(huì)造成OverFlow(溢位錯(cuò)誤)，要小心，數(shù)值為小數(shù)時(shí)則自動(dòng)截去小數(shù)。長整數(shù)：能存32以0、1表示數(shù)值的組變數(shù)，佔(zhàn)記憶體4Byte的空間，值的範(fàn)圍為-2,147,483,648 2,147,483,647。 Private Sub Command1_Click() Dim MyVal As Long MyVal = -423532768 Print MyVal MyVal = -12332768 Print MyVal MyVal = -10540

5、 Print MyVal MyVal = 0 Print MyVal MyVal = 15345 Print MyVal MyVal = 1024535 Print MyVal MyVal = 31000654 Print MyVal End Sub 當(dāng)MyVal的數(shù)值小於-2147483648及大於2147483647時(shí)，則會(huì)造成OverFlow(溢位錯(cuò)誤)，要小心，數(shù)值為小數(shù)時(shí)則自動(dòng)截去小數(shù)。單精度浮點(diǎn)數(shù)：使用32位元(4Byte=32bit)來表示可包含小數(shù)數(shù)值的變數(shù)，值的範(fàn)圍為，負(fù)數(shù)-3.402823E38 -1.401298E-45，正數(shù)1.401298E-45 3.402823E3

6、8。 Private Sub Command1_Click() Dim MyVal As Single MyVal = -3.14159 Print MyVal MyVal = -2E+20 Print MyVal MyVal = -1.45E-15 Print MyVal MyVal = -1576 Print MyVal MyVal = 0 Print MyVal MyVal = 1345 Print MyVal MyVal = 1.2E-30 Print MyVal MyVal = 9.999999E+20 Print MyVal End Sub 9.999999E+20表示9.9999

7、99*1020 當(dāng)MyVal的數(shù)值超出範(fàn)圍時(shí)，則會(huì)造成OverFlow(溢位錯(cuò)誤)，要小心使用。雙精度浮點(diǎn)數(shù)：使用64位元(8Byte)來表示可包含小數(shù)數(shù)值的變數(shù)，值的範(fàn)圍為，負(fù)數(shù)-1.79769313486231E308 -4.94065645841247E-324，正數(shù)4.94065645841247E-324 1.79769313486231E308。 Private Sub Command1_Click() Dim MyVal As Double MyVal = -3.14159 Print MyVal MyVal = -2E+20 Print MyVal MyVal = -1.45E

8、-15 Print MyVal MyVal = -1576 Print MyVal MyVal = 0 Print MyVal MyVal = 1345 Print MyVal MyVal = 1.2E-30 Print MyVal MyVal = 9.999999E+20 Print MyVal End Sub 當(dāng)MyVal的數(shù)值超出範(fàn)圍時(shí)，則會(huì)造成OverFlow(溢位錯(cuò)誤)，要小心使用。Currency：使用64位元來表示可包含小數(shù)數(shù)值的變數(shù)，15位數(shù)整及4位小數(shù)，值的範(fàn)圍為-922,337,203,685,477.5808 922,337,203,685,477.5807。 Priva

9、te Sub Command1_Click() Dim MyVal As Currency MyVal = 3.1415 Print MyVal MyVal = -123456789.0123 Print MyVal End Sub 當(dāng)MyVal的數(shù)值超出範(fàn)圍時(shí)，則會(huì)造成OverFlow(溢位錯(cuò)誤)，要小心使用，若小數(shù)第5位大於4則小數(shù)第4位數(shù)加1。字串變數(shù)區(qū)分成不固定長度兩種與固定長度 不固定長度：沒有限定字串長度的字串變數(shù)，一般宣告就是沒有限定長度。 Private Sub Command1_Click() Dim MyStr As String MyStr = "小瓜瓜&quo

10、t; Print MyStr MyStr = "Abcdefghijklmnopqrstuvwxyz" Print MyStr End Sub固定長度：限定字串長度的字串變數(shù)，無論文字資料的長短，儲(chǔ)存的資料長度不變。 Private Sub Command1_Click() Dim MyStr As String * 5 MyStr = "小瓜瓜" 結(jié)果MyStr = "小瓜瓜 "；也就是MyStr = "小瓜瓜" & Null & Null MyStr = "Abcdefghijklmn

11、opqrstuvwxyz" Print MyStr MyStr = "Abcde"，"fghijklmnopqrstuvwxyz"被截去 Print MyStr End Sub 字串變數(shù)的種類變數(shù)種類佔(zhàn)用記憶體大小字?jǐn)?shù)範(fàn)圍不固定長度22 + 字?jǐn)?shù) * 2Bytes0 用完所有實(shí)體及虛擬記憶體固定長度10 + 字?jǐn)?shù) * 2Bytes使用者設(shè)定為固定大小時(shí)間變數(shù)，專門存放日期或時(shí)間資料的變數(shù)。 Private Sub Command1_Click() Dim MyDate As Date MyDate = "1999-01-31"

12、; Print MyDate MyDate = "99-01-31" Print MyDate MyDate = "01-31-1999" Print MyDate MyDate = "01-31-99" Print MyDate MyDate = "01/31/99" Print MyDate MyDate = "01/31/1999" Print MyDate MyDate = "99年1月31日" Print MyDate MyDate = "08:00:05

13、" Print MyDate MyDate = "20:00:05" Print MyDate MyDate = "AM 08:00:05" Print MyDate MyDate = "PM 08:00:05" Print MyDate MyDate = "08:00:05 AM" Print MyDate MyDate = "08:00:05 PM" Print MyDate MyDate = "08:00:05 A" Print MyDate MyDate =

14、 "08:00:05 P" Print MyDate MyDate = "上午 08:00:05" Print MyDate MyDate = "下午 08:00:05" Print MyDate MyDate = "08:00:05 上午" Print MyDate MyDate = "08:00:05 下午" Print MyDate End SubVariant：可以存放各種數(shù)值變數(shù)或字串變數(shù)的資料，沒有宣告的變數(shù)即為Variant。 Private Sub Command1_Click(

15、) 'Dim MyAnyThing '可以去除掉不宣告 'Dim MyAnyThing 可以省略形態(tài) 'Dim MyAnyThing As Variant 宣告成Variant MyAnyThing = 123456.789 Print MyAnyThing MyAnyThing = "123456.789" Print MyAnyThing End Sub 上式中， VB程式碼內(nèi)之前被加上 ' 符號(hào)，之後的程式碼都會(huì)被VB視為說明文字而不會(huì)執(zhí)行 在第六課裡，雖然把變數(shù)分成數(shù)值變數(shù)與字串變數(shù)，但變數(shù)都未先經(jīng)過宣告，因此第六課裡所使用的

16、變數(shù)都是屬於Variant變數(shù)。 Variant變數(shù)有個(gè)好處，可以一下子被當(dāng)成數(shù)值變數(shù)，可以一下子又變成了字串變數(shù)，對(duì)於懶得動(dòng)腦的人來說是一種很方變型態(tài)的變數(shù)種類。Object：提共32位元的空間來存放物件代碼，以指定某一個(gè)物件。 Private Sub Command1_Click() '這一個(gè)變數(shù)型態(tài)對(duì)於初學(xué)網(wǎng)友來說不是很重要 '最好不要先弄懂Object或Control變數(shù)型態(tài) '不懂無所謂，否則會(huì)搞混了，這個(gè)型態(tài)在後面應(yīng)用章節(jié)再來談 Dim MyObj As Object Set MyObj = Form1.Text1 MyObj.SelStart = 10 P

17、rint MyObj.SelStart End SubControl：提共32位元的空間來存放Class號(hào)碼，以指定某一個(gè)Class，Class也可以是物件，因此可以用來指向物件。 Private Sub Command1_Click() Dim MyObj As Control Set MyObj = Label1 Print MyObj.Caption End Sub MyObj.Caption = "小瓜瓜VB調(diào)理包"轉(zhuǎn)換後得到的變數(shù)：有Decimal(十進(jìn)數(shù))、Hex(十六進(jìn)數(shù))及Oct(八進(jìn)數(shù))。 Decimal不可以使用宣告方式得到，而是用CDec函數(shù)轉(zhuǎn)換數(shù)值變數(shù)而來。 Private Sub Command1_Click() Dim MyVal As Single MyDec = CDec(MyVal) Print MyDec MyDec = CDec(3.1415926535) Print MyDec End SubHex：為不固定長度字串變數(shù)，把數(shù)值轉(zhuǎn)成十六進(jìn)制數(shù)後以字串變數(shù)表示。 Hex不可以使用宣告方式得到，而是用Hex函數(shù)轉(zhuǎn)換整數(shù)數(shù)值變數(shù)而來。 Private Sub Command