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

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

2、ub 當MyVal的數(shù)值不為0及-1時，會自動轉(zhuǎn)成-1(True)，數(shù)值為小數(shù)時則自動截去小數(shù)。 在上面的程式碼裡，Print是一個VB的表單所提供的方法，可以在表單上顯示出資料，而Print MyVal也就是顯示MyVal的內(nèi)容到表單上。位元組：能儲存8組以0、1表示數(shù)值的變數(shù)，也就是用了1Byte的記憶體空間，值的範圍為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 當MyVal的數(shù)值小於0及大於255時，則會造成OverFlow(溢位錯誤)，要小心，數(shù)值為小數(shù)時則自動截去小數(shù)。整數(shù)：能存16組以0、1表示數(shù)值的變數(shù)，用了記憶體2Byte的大小，值的範圍為-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 當MyVal的數(shù)值小於-32768及大於32767時，則會造成OverFlow(溢位錯誤)，要小心，數(shù)值為小數(shù)時則自動截去小數(shù)。長整數(shù)：能存32以0、1表示數(shù)值的組變數(shù)，佔記憶體4Byte的空間，值的範圍為-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 當MyVal的數(shù)值小於-2147483648及大於2147483647時，則會造成OverFlow(溢位錯誤)，要小心，數(shù)值為小數(shù)時則自動截去小數(shù)。單精度浮點數(shù)：使用32位元(4Byte=32bit)來表示可包含小數(shù)數(shù)值的變數(shù)，值的範圍為，負數(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 當MyVal的數(shù)值超出範圍時，則會造成OverFlow(溢位錯誤)，要小心使用。雙精度浮點數(shù)：使用64位元(8Byte)來表示可包含小數(shù)數(shù)值的變數(shù)，值的範圍為，負數(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 當MyVal的數(shù)值超出範圍時，則會造成OverFlow(溢位錯誤)，要小心使用。Currency：使用64位元來表示可包含小數(shù)數(shù)值的變數(shù)，15位數(shù)整及4位小數(shù)，值的範圍為-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 當MyVal的數(shù)值超出範圍時，則會造成OverFlow(溢位錯誤)，要小心使用，若小數(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ù)，無論文字資料的長短，儲存的資料長度不變。 Private Sub Command1_Click() Dim MyStr As String * 5 MyStr = "小瓜瓜" 結果MyStr = "小瓜瓜 "；也就是MyStr = "小瓜瓜" & Null & Null MyStr = "Abcdefghijklmn

11、opqrstuvwxyz" Print MyStr MyStr = "Abcde"，"fghijklmnopqrstuvwxyz"被截去 Print MyStr End Sub 字串變數(shù)的種類變數(shù)種類佔用記憶體大小字數(shù)範圍不固定長度22 + 字數(shù) * 2Bytes0 用完所有實體及虛擬記憶體固定長度10 + 字數(shù) * 2Bytes使用者設定為固定大小時間變數(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)之前被加上 ' 符號，之後的程式碼都會被VB視為說明文字而不會執(zhí)行 在第六課裡，雖然把變數(shù)分成數(shù)值變數(shù)與字串變數(shù)，但變數(shù)都未先經(jīng)過宣告，因此第六課裡所使用的

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

17、rint MyObj.SelStart End SubControl：提共32位元的空間來存放Class號碼，以指定某一個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(十進數(shù))、Hex(十六進數(shù))及Oct(八進數(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)成十六進制數(shù)後以字串變數(shù)表示。 Hex不可以使用宣告方式得到，而是用Hex函數(shù)轉(zhuǎn)換整數(shù)數(shù)值變數(shù)而來。 Private Sub Command