输入以下的程式码,这在前面有提到,

1、輸入以下的程式碼，這在前面有提到， 數值變數在VB裡面被區分成布林數(Boolean)、位元組(Byte)、整數(Integer)、長整數(Long)、單精度浮點數(Single)及雙精度浮點數(Double) 布林數：能儲存0(False)及-1(True)兩種整數的變數，也就是一個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的數值不為0及-1時，會自動轉成-1(True)，數值為小數時則自動截去小數。 在上面的程式碼裡，Print是一個VB的表單所提供的方法，可以在表單上顯示出資料，而Print MyVal也就是顯示MyVal的內容到表單上。位元組：能儲存8組以0、1表示數值的變數，也就是用了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的數值小於0及大於255時，則會造成OverFlow(溢位錯誤)，要小心，數值為小數時則自動截去小數。整數：能存16組以0、1表示數值的變數，用了記憶體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的數值小於-32768及大於32767時，則會造成OverFlow(溢位錯誤)，要小心，數值為小數時則自動截去小數。長整數：能存32以0、1表示數值的組變數，佔記憶體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的數值小於-2147483648及大於2147483647時，則會造成OverFlow(溢位錯誤)，要小心，數值為小數時則自動截去小數。單精度浮點數：使用32位元(4Byte=32bit)來表示可包含小數數值的變數，值的範圍為，負數-3.402823E38 -1.401298E-45，正數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的數值超出範圍時，則會造成OverFlow(溢位錯誤)，要小心使用。雙精度浮點數：使用64位元(8Byte)來表示可包含小數數值的變數，值的範圍為，負數-1.79769313486231E308 -4.94065645841247E-324，正數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的數值超出範圍時，則會造成OverFlow(溢位錯誤)，要小心使用。Currency：使用64位元來表示可包含小數數值的變數，15位數整及4位小數，值的範圍為-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的數值超出範圍時，則會造成OverFlow(溢位錯誤)，要小心使用，若小數第5位大於4則小數第4位數加1。字串變數區分成不固定長度兩種與固定長度 不固定長度：沒有限定字串長度的字串變數，一般宣告就是沒有限定長度。 Private Sub Command1_Click() Dim MyStr As String MyStr = "小瓜瓜&quo

10、t; Print MyStr MyStr = "Abcdefghijklmnopqrstuvwxyz" Print MyStr End Sub固定長度：限定字串長度的字串變數，無論文字資料的長短，儲存的資料長度不變。 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 字串變數的種類變數種類佔用記憶體大小字數範圍不固定長度22 + 字數 * 2Bytes0 用完所有實體及虛擬記憶體固定長度10 + 字數 * 2Bytes使用者設定為固定大小時間變數，專門存放日期或時間資料的變數。 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：可以存放各種數值變數或字串變數的資料，沒有宣告的變數即為Variant。 Private Sub Command1_Click(

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

16、變數都是屬於Variant變數。 Variant變數有個好處，可以一下子被當成數值變數，可以一下子又變成了字串變數，對於懶得動腦的人來說是一種很方變型態的變數種類。Object：提共32位元的空間來存放物件代碼，以指定某一個物件。 Private Sub Command1_Click() '這一個變數型態對於初學網友來說不是很重要 '最好不要先弄懂Object或Control變數型態 '不懂無所謂，否則會搞混了，這個型態在後面應用章節再來談 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調理包"轉換後得到的變數：有Decimal(十進數)、Hex(十六進數)及Oct(八進數)。 Decimal不可以使用宣告方式得到，而是用CDec函數轉換數值變數而來。 Private Sub Command1_Click() Dim MyVal As Single MyDec = CDec(MyVal) Print MyDec MyDec = CDec(3.1415926535) Print MyDec End SubHex：為不固定長度字串變數，把數值轉成十六進制數後以字串變數表示。 Hex不可以使用宣告方式得到，而是用Hex函數轉換整數數值變數而來。 Private Sub Command