VB學(xué)習(xí)
一．基本語(yǔ)句
1. 變量和常量
2. 條件語(yǔ)句
4. 其他語(yǔ)句
二．函數(shù)和過程
1． 基本函數(shù)
2． 自定義函數(shù)
3． 基本過程
4． 自定義過程
變量和常量
1.定義變量
格式： Dim 變量名 As 變量類型
說明： 常用的變量類型有： Integer 整型
Long 長(zhǎng)整型
Single 單精度小數(shù)
Double 雙精度小數(shù)
String 字符串
Boolean 布爾型（只有真“True”或假“False”兩個(gè)值）
2．定義常量
格式： Const 常量名=值
說明：
3．定義變量數(shù)組
格式： Dim 變量名（下標(biāo)）As 變量類型
說明： 即定義一組具有相同變量名和不同下標(biāo)的變量。
示例： Dim a ( 9 ) As Integer
這一句定義了a (0),a (1),a (2),a (3)……a (9) 共10個(gè)變量。
注意：下標(biāo)必須是一個(gè)大于0的整數(shù)且下標(biāo)不能為變量。
基本過程
1． 關(guān)于VB標(biāo)準(zhǔn)過程
基本格式： Sub 對(duì)象名_動(dòng)作名（參數(shù)1，參數(shù)2，……，參數(shù)n）
一段程序
End Sub
說明： 對(duì)象名即被操作的對(duì)象的名字。動(dòng)作名即操作的類型。
示例： 假設(shè)我創(chuàng)建了一個(gè)文本框?qū)ο?，名字叫做Text1。我希望在單擊它時(shí)執(zhí)行一段程序。那么只要輸入：
Sub Text1_Click () ‘這里的Click代表單擊
一段程序
End Sub
當(dāng)然，我也可以直接在程序中用鼠標(biāo)選擇它。
2． 關(guān)于動(dòng)作名
由于各個(gè)控件的可執(zhí)行動(dòng)作各不相同，所以在這里我只列出常用的。
（1） Click（）單擊對(duì)象時(shí)執(zhí)行，無(wú)參數(shù)。
（2） DblClick() 雙擊對(duì)象時(shí)執(zhí)行，無(wú)參數(shù)。
（3） KeyDown(KeyCode As Integer, Shift As Integer) 按下某個(gè)鍵時(shí)執(zhí)行，其中變量KeyCode代表所按下的按鍵的號(hào)碼，變量Shift代表是否按下Shift鍵，如果是則Shift=1，否則Shift=0。
（4） KeyPress(KeyAscii As Integer)按下并松開某個(gè)鍵時(shí)執(zhí)行，變量KeyAscii代表按鍵號(hào)碼。
（5） KeyUp(KeyCode As Integer, Shift As Integer) 松開某個(gè)鍵時(shí)執(zhí)行，其中變量KeyCode代表所按下的按鍵的號(hào)碼，變量Shift代表是否按下Shift鍵，如果是則Shift=1，否則Shift=0。
（6） MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)按下鼠標(biāo)按鍵時(shí)執(zhí)行，其中Button是指按下鼠標(biāo)的哪個(gè)鍵（1是左鍵，2是右鍵，4是滾輪），Shift代表是否按下Shift鍵，如果是則Shift=1，否則Shift=0，X代表鼠標(biāo)在對(duì)象上的橫坐標(biāo)位置，Y代表鼠標(biāo)在對(duì)象上的縱坐標(biāo)位置。
（7） MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)松開鼠標(biāo)按鍵時(shí)執(zhí)行，其中各參數(shù)的意義同上。
（8） MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)鼠標(biāo)移動(dòng)時(shí)執(zhí)行，其中各參數(shù)的意義同上。
（9） Load() 當(dāng)打開窗體時(shí)執(zhí)行，無(wú)參數(shù)。
（10） Unload(Cancel As Integer)當(dāng)關(guān)閉窗體時(shí)執(zhí)行，參數(shù)Cancel代表是否關(guān)閉窗體，當(dāng)Cancel=1時(shí)不關(guān)閉。
（11） Resize()當(dāng)對(duì)象大小改變時(shí)執(zhí)行。
（12） Change()當(dāng)顯示內(nèi)容改變時(shí)執(zhí)行。
（13） Timer()定時(shí)執(zhí)行。
基本函數(shù)
一． 數(shù)值型函數(shù)
1． Abs（表達(dá)式）返回表達(dá)式的絕對(duì)值
2． Atn(表達(dá)式) 返回表達(dá)式的反正切值
3． CDbl（表達(dá)式）將表達(dá)式轉(zhuǎn)化為雙精度小數(shù)
4． CInt（表達(dá)式）將表達(dá)式轉(zhuǎn)化為整型（即四舍五入）
5． CLng（表達(dá)式）將表達(dá)式轉(zhuǎn)化為長(zhǎng)整型（即四舍五入）
6． Cos（表達(dá)式）返回表達(dá)式的余弦值
7． CSng（表達(dá)式）將表達(dá)式轉(zhuǎn)化為單精度小數(shù)
8． Exp（表達(dá)式）返回e的平方
9． Int（表達(dá)式）返回表達(dá)式的整數(shù)部分
10． Log（表達(dá)式）返回表達(dá)式的自然對(duì)數(shù)值
11． Randomize（n）初始化第n組隨機(jī)數(shù)
12． Rnd（n）返回0到1之間的一個(gè)隨機(jī)數(shù)
13． Sin（表達(dá)式）返回表達(dá)式的正弦值
14． Sqr（表達(dá)式）返回表達(dá)式的平方根
15． Tan（表達(dá)式）返回表達(dá)式的正切值
16． Val（字符串）返回字符串中包含的數(shù)值
17． Asc（字符串）返回字符串中第1個(gè)字符的ASCII碼
二． 字符串型函數(shù)
1． Chr（n）返回第n個(gè)ASCII字符（n在0到255之間）
2． CStr（表達(dá)式）將表達(dá)式轉(zhuǎn)化為字符串型
3． LCase（字符串）將字符串轉(zhuǎn)化為小寫
4． Left（字符串，n）返回字符串中從左邊起第n個(gè)字符
5． Len（變量）返回變量大小
三． 系統(tǒng)函數(shù)
1． Beep使揚(yáng)聲器發(fā)出一個(gè)聲音
2． ChDir（路徑）修改指定驅(qū)動(dòng)器上的當(dāng)前目錄
3． ChDrive（驅(qū)動(dòng)器名）改變當(dāng)前驅(qū)動(dòng)器
4． CurDir（驅(qū)動(dòng)器名）返回當(dāng)前路徑
5． Dir（路徑，？）
6． EOF（文件序號(hào)）返回一個(gè)值是否到達(dá)文件結(jié)束
7． Err（）返回發(fā)生錯(cuò)誤的錯(cuò)誤號(hào)
8． Error（錯(cuò)誤號(hào)）返回指定錯(cuò)誤號(hào)的錯(cuò)誤信息
9． FileCopy（源文件，目標(biāo)文件）復(fù)制文件
10． FileDateTime（文件路徑）返回文件的時(shí)間和日期
11． FileLen（文件路徑）返回文件大?。ㄒ宰止?jié)為單位）
12． FreeFile（）返回open語(yǔ)句可使用的下一個(gè)文件序號(hào)
13． GetAttr（文件路徑）返回一個(gè)文件的屬性，目錄和文件夾
14． Kill（文件路徑）刪除指定文件
四． 布爾函數(shù)
1． CBool（表達(dá)式）將表達(dá)式轉(zhuǎn)化為布爾型
2． IsArray（變量名）判斷變量是否數(shù)組
3． IsEmpty（變量名）判斷變量是否已被賦值
4． IsError（表達(dá)式）判斷表達(dá)式是否有錯(cuò)
5． IsNumeric（字符串）判斷字符串是否數(shù)據(jù)
其他語(yǔ)句
1． 中途跳出
格式：Exit Sub
說明：用于中途跳出一段程序。
2． 結(jié)束程序
格式：End
說明：中斷整個(gè)程序的運(yùn)行。
3． 顯示窗體
格式：窗體名.show
說明：顯示一個(gè)窗體。
4． 加載窗體
格式：Load 窗體名
說明：將窗體加載到內(nèi)存中。
5． 關(guān)閉窗體
格式：Unload 窗體名
說明：將窗體從內(nèi)存中釋放。
6． 隱藏窗體
格式：窗體名.Hide
說明：把窗體隱藏起來（但還占用內(nèi)存）。
7． 彈出對(duì)話框
格式：MsgBox(內(nèi)容，按鍵，標(biāo)題，幫助文件路徑，……)
說明：除內(nèi)容必須輸入外其他的參數(shù)均為可選。
條件語(yǔ)句
1．格式：If 條件1 Then 語(yǔ)句1
說明：如果 條件1 成立則執(zhí)行語(yǔ)句1，否則執(zhí)行下一句。
2．格式：If 條件1 Then 語(yǔ)句1 Else 語(yǔ)句2
說明：如果 條件1 成立則執(zhí)行語(yǔ)句1，否則執(zhí)行語(yǔ)句2。
3．格式：If 條件1 Then
語(yǔ)句組1
End If
說明：如果 條件1 成立則執(zhí)行語(yǔ)句組1，否則跳過這一句組。
4．格式：If 條件1 Then
語(yǔ)句組1
Else
語(yǔ)句組2
End If
說明：如果 條件1 成立則執(zhí)行語(yǔ)句組1，否則執(zhí)行語(yǔ)句組2
5．格式：If 條件1 Then
語(yǔ)句組1
Else If 條件2 Then
語(yǔ)句組2
Else If 條件3 Then
語(yǔ)句組3
……
Else If 條件n Then
語(yǔ)句組n
Else
語(yǔ)句組n+1
End If
說明：如果條件1成立則執(zhí)行語(yǔ)句組1，如果條件1不成立但條件2成立則執(zhí)行語(yǔ)句組2，如果條件1和條件2都不成立但條件3成立則執(zhí)行語(yǔ)句組3……如果條件n之前的條件都不成立但條件n成立則執(zhí)行語(yǔ)句組n，如果所有條件都不成立則執(zhí)行語(yǔ)句組n+1。
6．格式：Select Case 變量1
Case 表達(dá)式1
語(yǔ)句組1
Case 表達(dá)式2
語(yǔ)句組2
……
Case 表達(dá)式n
語(yǔ)句組n
Case Else
語(yǔ)句組n+1
End Select
說明：如果變量1等于表達(dá)式1則執(zhí)行語(yǔ)句組1，如果變量2等于表達(dá)式2則執(zhí)行語(yǔ)句組2，……，如果變量n等于表達(dá)式n則執(zhí)行語(yǔ)句組n，如果變量1不等于任何一個(gè)表達(dá)式則執(zhí)行語(yǔ)句組n+1。
循環(huán)語(yǔ)句
1． 定量循環(huán)
格式：For 變量a=起始值 To 結(jié)束值 Step 差量
語(yǔ)句組
Next 變量a
說明：反復(fù)執(zhí)行語(yǔ)句組，直到變量a的值由起始值變?yōu)榻K值。其中每執(zhí)行一次語(yǔ)句組變量a都增加一個(gè)差量。
示例：Dim a As Integer
Dim i As Integer
a=0
For i=1 To 5 Step 1
a=a + i
Next i
這段程序的執(zhí)行過程是：a=0 , i=1 , a=a+i=0+1=1 , i=i+差量=1+1=2 , a=a+i=1+2=3 , i=i+差量=2+1=3 , a=a+i=3+3=6 , i=i+差量=3+1=4 , a=a+i=6+4=10, i=i+差量=4+1=5 , a=a+i=10+5=15.最后a=15。
2． 條件循環(huán)
（1） 格式：Do
語(yǔ)句組
Loop Until 條件
說明：執(zhí)行語(yǔ)句組直到條件成立為止。
（2） 格式：Do Until 條件
語(yǔ)句組
Loop
說明：執(zhí)行語(yǔ)句組直到條件成立為止。（與前一種格式的不同之處在于前一種格式中，語(yǔ)句至少要被執(zhí)行一次。而這一種格式中，如果一開始條件成立，則語(yǔ)句組一次都不執(zhí)行。）
（3） 格式：Do
語(yǔ)句組
Loop While 條件
說明：執(zhí)行語(yǔ)句組直到條件不成立為止。
（4） 格式：Do while 條件
語(yǔ)句組
Loop
說明：執(zhí)行語(yǔ)句組直到條件不成立為止。（與前一種格式的不同之處在于前一種格式中，語(yǔ)句至少要被執(zhí)行一次。而這一種格式中，如果一開始條件不成立，則語(yǔ)句組一次都不執(zhí)行。）
自定義過程
定義過程：
Sub 過程名（參數(shù)1 As 變量類型，參數(shù)2 As 變量類型，……，參數(shù)n As 變量類型）
程序內(nèi)容
End Sub
說明：
輸入“過程名（參數(shù)1，參數(shù)2 ，……，參數(shù)n ）”時(shí)即可運(yùn)行程序內(nèi)容。
自定義函數(shù)
1． 格式：
Function 函數(shù)名(變量1 As 變量類型，變量2 As 變量類型，……，變量n As 變量類型) As 變量類型
語(yǔ)句組
End Function
2． 說明：
定義一個(gè)自定義函數(shù)，調(diào)用方法為： 函數(shù)名（參數(shù)1，參數(shù)2，……，參數(shù)n）
3． 示例：
Function 是否偶數(shù)( a As Integer ) As Boolean ‘定義一個(gè)叫做是否偶數(shù)的布爾型函數(shù),這個(gè)函數(shù)有一個(gè)整型參數(shù)a
Dim b As Single ‘定義一個(gè)整型變量b
B = Cint(a /2) ‘B等于a除以2后進(jìn)行四舍五入得到的值
If b = a / 2 Then
是否函數(shù)=True
Else
是否偶數(shù)=False
End If ‘如果b等于a除以2那么函數(shù)值為真，否則函數(shù)值為假
End Function ‘結(jié)束函數(shù)過程
在程序中輸入以上代碼后，我們要判斷變量x是否偶數(shù)，并有一個(gè)布爾變量y，我們只要輸入：y=是否偶數(shù)(x)
如果x是偶數(shù)，則y的值為真；否則為假。
聯(lián)系客服
