Visual Basic語言基礎 實驗

一、實驗目的
(1)掌握Visual Basic的數據類型和變量定義方法。
(2)正確使用Visual Basic的運算符和表達式。
(3)掌握Visual Basic中數據輸入、輸出的方法。
(4)掌握Visual Basic常用函數的使用方法。
(5)學會用賦值語句構造簡單的順序結構程序。
二、相關知識
1．VB的數據類型
??? VB提供了豐富的數據類型，所有的數據都具有數據類型，如果數據的數值和數據類型不匹配，就會出現錯誤或者造成內存空間的浪費。VB將數據類型分為標準數據類型和自定義類型。
??? 標準數據類型包括數值型數據類型、非數值型數據類型和變體數據類型。其中數值型數據類型包括整型、長整型、單精度型、雙精度型、貨幣型和字節型；非數值類型包括日期型、邏輯型、字符型和對象數據類型。
??? 除了以上標準數據類型外，用戶還可以根據自己的需要自定義數據類型，稱為自定義類型，形式如下：
??? [Public|Private]Type? 自定義類型名
??? 元素名[(下標)]As類型名
[元素名[(下標)]As類型名]
…………
End Type
2．VB變量的聲明
??? 變量是用來在程序運行期間臨時存儲數值的。聲明變量包括名稱和數據類型。
3．VB的表達式
??? 表達式是指用運算符或圓括號將運算元素連接起來的一個有意義的式子。VB的表達式有下列形式：
??? ●? 算術表達式：由算術運算符連接。其運算符的含義、優先級和數學中的相同，只是??? 整除運算符(＼)和取模運算符(mod)是新概念，讀者應倍加注意。
??? ●? 關系表達式：由關系運算符連接，其運算結果是一個邏輯量。運算符兩邊的操作數如果是數值型，則按其大小比較；如果是字符型，則按其字符編碼的碼值從左到右一一比較。
邏輯表達式：由邏輯運算符連接，運算結果為邏輯值。
字符串表達式：由字符串運算符“+”和“&”連接。它們的功能都是將兩個字符串拼接起來。? “+”運算符兩邊的操作數應均為字符型；“&”運算符兩邊的操作數可以是字符型或者是數值型。
4．VB的內部函數
VB提供了大量的內部函數供用戶編程時使用。內部函數按功能分為數學函數、轉換函數、字符串函數、日期函數和格式輸出函數。用戶可以通過VB的“幫助”菜單獲得所有內部函數的使用方法。
三、實驗舉例
(實例1)? 邏輯型數據的使用。
??? Private? Sub? Form_cliCk()
??? Dim a AS? Boolean，? b AS? Boolean
??? Dim X? AS? Integer，? y? AS? Integer
X? =? 0
y = -2
a =? X
b =? y
Print a,b,x,y
a? =? True
b? =? FalSe
X? =? a
Y=b
Print x,y,a,b
End Sub
(實例2)? 日期型數據。
??? Private Sub Form_cliCk()
??? Dim? a? AS? Date，? S? AS? Date，? d? AS? Date
??? Dim? f? AS? Date，? S1? AS? Date，? S2? AS? Date
??? a = #5／9／2002#
??? s = #5／12／1999? 12：30：15 PM#
??? d? =? 2001．12
??? f? =? -2001．12
??? S1? =? 0．5
??? S2? =? 0
??? Print a，? S
??? Print d，? f
??? Print? Sl，? S2
??? End Sub
?(實例3)關系運算符。
??? Private Sub Form_cliCk()
??? Print? ”abcde”? =? ”abd”
??? Print? ”abcde，’? >? ”aba”
??? Print? ”BC”? >=? ”ABCFF”
??? Print? 31? ??? Print? ”34”? ??? Print? ”abc”? <>? ”ABC”
??? End Sub
?在比較時注意以下原則：
(1)如果兩個操作數是數值型，則按其大小進行比較。
(2)如果兩個操作數是字符型，則按字符的ASCⅡ碼值從左到右一一比較，也就是說，先比較兩個字符串中的第一個字符，其ASCⅡ碼值大的字符串大，如果第一個字符相同，則比較第二個字符，依此類推，直到比出結果為止。
?(實例4)? 算術運算函數的使用。
??? Private? Sub? Form_cliCk()
??? Print? Abs(-1.7)，? Log(12)，? Sqr(9)
??? Print? Exp(3)，? Sin(30? *? 3.1415926/180)
??? Print??? Int(-3.5)，??? Fix(-3.5),
??? Round(1.5)，? Round(1.512,2)
??? End? Sub
(實例5)? 求余數(模)運算符的使用。
Private? Sub? Form_cliCk()
Print 20 Mod 3
Print 20 Mod -3
Print -20 Mod 3
Print -20 Mod –3
End Sub
觀察運行結果。