前言
人做事情要從小事做起，就是再厲害的武林高手也要每天運功采氣，所以，最基礎的也是最重要的，一定要打好根基??！
基本概念
變量,常量和數據類(lèi)型
VB語(yǔ)句與控制流
過(guò)程
常用函數
VB的基本概念之一:標識符
標識符:變量,常量,數據類(lèi)型,過(guò)程,函數,類(lèi)等定義的名字.
規則:必須以字母(A-Z,a-z),數字(0-9)或下劃線(xiàn),長(cháng)度不能超過(guò)255個(gè)字符,且標識符不能與VB的關(guān)鍵字同名.
例如:Dim Mystring As String Const Pi=3.1415926 Public function getvalue() As Integer
VB6的關(guān)鍵字
VB6的關(guān)鍵字有:As Binary ByRef ByVal Date Else Empty Error False For Friend Get Input Is Len Let Lock Me Mid New Next Nothing Null On Option Optional ParamArray Print Private Property Public Resume Seek Set Static Setp String Then Time To True WithEvents
VB的數據類(lèi)型(一)
Boolean(布爾型):占用2字節
Byte(字節):占用1字節.
Integer(整型):類(lèi)型標識%,占用2字節.
Long(長(cháng)整型):標識"&",4字節.
Single(單精度型):標識"!",占用4字節.
Double(雙精度型):標識"#",8字節.
Currency(貨幣型):標識"@",8字節.
Date(日期型):8字節.
String(字符串,變長(cháng)):標識"$",10字節+串長(cháng).
VB的數據類(lèi)型(二)
String(字符串,定長(cháng)):標識"$",串長(cháng).
Object(對象型):占用4字節.
Variant(變體,數值):占用16字節.
自定義(User_define):元素申請的長(cháng)度之和.
VB的變量
變量名的命名遵從標識符命名規則.
變量的聲明:VB可以使用不聲明的變量.如:Form的Click過(guò)程,加入下列代碼:Private sub Form_click() Stringtext$="Hello,World!" print "*********",Stringtext$ end sub
VB變量的聲明
格式:Dim 變量 AS 類(lèi)型 :說(shuō)明局部變量
格式2:Private 變量 As 類(lèi)型 :說(shuō)明私有變量
格式3:Public 變量 As 類(lèi)型 :說(shuō)明公告全局變量
格式4:Static 變量 As 類(lèi)型 : 說(shuō)明靜態(tài)變量
VB變量聲明示例
變量聲明
變量聲明應注意的問(wèn)題
Dim a,b,c As Integer是錯誤的.本意是將a,b,c都說(shuō)明為Integer ,但實(shí)際上只有c被聲明成Integer,而a,b缺省為Variant類(lèi)型.
使用不帶As的Dim語(yǔ)句,會(huì )被聲明成Variant類(lèi)型的變量.
對于聲明boolean型的變量,其缺省值為False.
為聲明為Date類(lèi)型的變量賦值時(shí),日期值應放在一對#之間,且多種日期和時(shí)間格式在VB中都是有效的.如: date1=#1-10-98#:date2=#10-1-98 12:20am#
VB變量的作用域和生存期
變量的作用域是指變量的有效作用范圍,也就是變量可以被訪(fǎng)問(wèn)的范圍.
VB按三種方式來(lái)定義變量的作用范圍:過(guò)程(在過(guò)程內部使用Dim或Static),私有(在模塊開(kāi)頭加上Dim或Private),公共(在模塊開(kāi)頭加上Public)
變量的生存期是指VB保存該變量值的時(shí)間,是變量在整個(gè)程序運行過(guò)程中的有效生存時(shí)間.
過(guò)程變量
是指在過(guò)程或函數內部定義的變量,這種變量無(wú)論是用Dim還是Static聲明,其作用域都只是該過(guò)程或函數體,在過(guò)程函數外不能引用.因此,在不同的過(guò)程或函數中可以存在相同名字的變量.
使用Dim和Static聲明的過(guò)程變量的作用域都是一樣的,但生存期不一樣.用Dim聲明變量時(shí),它的生存隨著(zhù)包含它的過(guò)程或函數的運行而終止,VB不再保留其值.用Static聲明的變量,其生存期為整個(gè)程序,在包含它的過(guò)程或函數再次被調用時(shí),VB將不會(huì )再次對它初始化,其值為上次過(guò)程或函數調用完成后的值.
過(guò)程變量示例一
過(guò)程變量示例二
窗體層變量
它是在窗體的通用部分聲明的變量,即不是在任何一個(gè)窗體內的過(guò)程或函數中聲明的變量.它的作用范圍至少是窗體的存在范圍,即是在窗體內的每個(gè)過(guò)程或函數中都可以使用窗體層變量.可以用Dim\Private\Public聲明.
對于用Dim和Private聲明的窗體層變量,其作用范圍都是在所聲明的窗體范圍內.用Public聲明的窗體變量作為窗體公用數據成員,作用可以大于當前窗體范圍.引用方式是"窗體名.變量名".
窗體層變量示例
模塊層變量
在模塊通用部分dim\private\global\public聲明的變量."模塊"在"工程"中選擇"添加模塊"菜單項來(lái)實(shí)現.
用dim\private 聲明的模塊層變量作用域為所在模塊范圍,用public\global定義的模塊層變量則可以全局使用.引用方式是"模塊名.變量名".
變量作用范圍總結
過(guò)程
局域變量
過(guò)程
局域變量
窗體
窗體級變量在通用中聲明,專(zhuān)用變量?jì)H在此窗體中可見(jiàn)
模塊
模塊級變量在通用中聲明專(zhuān)用變量?jì)H在此模塊中可見(jiàn)
全局變量 用public\global在模塊聲明
VB的常量
VB中的常量可分為:系統內在常量和符號常量.
系統內在常量:是系統提供的自身?yè)碛械某Ａ?如:表示顏色的常量P36).可與應用程序的對象,方法和屬性一起使用.
符號常量:程序中用Const聲明的常量,聲明后,我們就可以用常量名來(lái)引用其代表的常數.
例如:const pi=3.1415926
VB符號常量的定義
語(yǔ)法:[Public|Private] Const 變量名[As 數據類(lèi)型]=表達式.
其中Public 公有聲明,使用Public聲明的常量可在整個(gè)應用程序中使用,它必須在標準模塊的聲明區中使用.在窗體模塊或類(lèi)模塊中不能聲明Public常量.
Private 是私有聲明,可用在模塊級聲明常量(是指放在窗體,類(lèi)或標準模塊內的聲明;Private關(guān)鍵字不能在過(guò)程聲明變量時(shí)使用.
使用VB常量應注意的問(wèn)題
用const聲明的常量在程序運行過(guò)程中是不能被重新賦值的.
在常量聲明的同時(shí)賦值.
可以為聲明的常量指定數據類(lèi)型,如 const conVal As Currency=3.78
VB中的數組
數組是有相同數據類(lèi)型的一組變量的集合.用Private,Public,Global或Dim語(yǔ)句來(lái)聲明.
格式:Dim 數組名(lower,upper) As (type)
如:Dim record(5) As Integer Dim Matrix(2,3) As Integer
動(dòng)態(tài)數組:帶有空()的Dim 可以聲明一個(gè)動(dòng)態(tài)數組.如:Dim dnyArray()
靜態(tài)數組
是指數組元素的個(gè)數是固定不變的,即它們占用的內存空間大小是固定不變的.
根據維數的不同,可分為一維數組和多維數組.
VB動(dòng)態(tài)數組
目的:根據需要來(lái)確定數目.
格式:Dim MyArry( ) As Integer
在用時(shí),必須使用ReDim語(yǔ)句把它重新定義(即具體化).
靜態(tài)數組和動(dòng)態(tài)數組
靜態(tài)數組是指數組元素的個(gè)數是不變的.
動(dòng)態(tài)數組,可以在程序運行時(shí)根據需要,精確定義數組的大小.在聲明數組時(shí),不給出維數列表就是將數組聲明為動(dòng)態(tài)數組.如:Dim MyArry () As Integer
但使用時(shí),還需使用ReDim語(yǔ)句把它重新定義,如ReDim MyArry(10,10)
Lbound,Ubound函數與數組
LBound函數和Ubound函數都是返回一個(gè)Long型數據,前者得到的值為指定數組維可用的最小下標,而后者得到的是最大下標.
格式:Lbound(數組名[,指定的維數]) Ubound(數值組名[,指定的維數])
使用數組時(shí)應注意
數組名命名規則和變量名的相同.
數組名后是用圓括弧,不能用方括弧.
下標的下界必須不能大于其上界.
記錄類(lèi)型數據
記錄類(lèi)型定義: [Private|Public] Type 記錄類(lèi)型名 成員列 End Type
在記錄類(lèi)型中聲明靜態(tài)數時(shí),必須用數字文字或常量而不能用變量來(lái)聲明.
定義記錄類(lèi)型變量:用來(lái)說(shuō)明擁有這種類(lèi)型的變量,如:Dim stu1,stu2 As stu.
記錄類(lèi)型變量的賦值和檢索.
VB的運算符
賦值運算符:用來(lái)給變量,變長(cháng)數組或對象的屬性賦值.把運算符右邊的內容(包括常量,變量,函數返回值或對象的屬性)
格式:variable=value variable可以是變量,數組的元素,變長(cháng)數組或對象的屬性 value可以是常數,常量,變量,表達式或函數調用
VB賦值運算示例
"="運算
左 邊 是
對象.屬性
運算符使用示例
Value=10
Value=sin(3.14/4)
10=pi
3+x=40
使用賦值號應注意: 1,賦值號左邊必須是變量或對象的屬性,不能是數值,常量和表達式. 2,賦值號兩端的數據類(lèi)型應該匹配,不匹配時(shí)應進(jìn)行適當轉換. 3,給對象賦值時(shí),只有運行時(shí)可改寫(xiě)的對象屬性才能被賦值.
VB運算符之一:數學(xué)運算符
∧:指數運算
-:負號運算符
* /:乘除運算,其中除法所得到的結果為實(shí)數
\ :整除,所得到結果為實(shí)際結果的整數部分.
MOD:取模運算,兩數相除取余數.
+ - :加減運算.
&,+: 連接字符.
&與+連接運算符的區別
&強制兩個(gè)表達式(它們的類(lèi)型可能不同)做字符串連接;而當+運算符兩邊的表達式中混有數值字符串及數值,其結果會(huì )是數值的求和,如果都是字符串則作"相加",返回連接起來(lái)的字符串.
示例:Var1="34":Var2=6 MyNumber=Var1+Var2 返回40 MyNumber=Var1&Var2 返回346
VB數學(xué)運算符使用示例
數學(xué)運算
VB運算符之一:關(guān)系運算符
=:比較兩表達式是否相等.等為真,否則為假.
:比較表達式是否不等.不等為真,相等為假.
> 或=或<=:大小比較.
LIKE:用于比較兩個(gè)字符串,模式匹配為真,否則為假.
IS:比較兩個(gè)對象是否一致,一致為真,否則為假.
VB關(guān)系運算符使用示例
關(guān)系運算
IS比較示例
有下列語(yǔ)句: Dim_ myobject,yourobject,thisobject,otherobject,mycheck set yourobject=myobject set thisobject=myobject set thatobject=otherobject mycheck=yourobject is thisobject 'true mycheck=thatobject is thisobject 'false
LIKE示例
如:Dim Mycheck Mycheck="aBBBa" like "a*a" 'BBB與*相匹配,返回結果True
見(jiàn)書(shū)P58
VB的邏輯運算符
邏輯非(NOT)運算:
邏輯與運算(AND)
邏輯或(OR)運算
邏輯異或(XOR)和邏輯等(EQV)運算
隱含(Imp)運算
VB語(yǔ)句與控制
賦值語(yǔ)句
注釋語(yǔ)句:VB中用'和rem來(lái)標識一條注釋語(yǔ)句.
條件分支結構:if 語(yǔ)句
循環(huán)語(yǔ)句
END語(yǔ)句
VB賦值語(yǔ)句
包括兩種:一種用來(lái)對一般的變量進(jìn)行賦值的賦值語(yǔ)句,用關(guān)鍵字LET描述,但一般都省略.另一種是用來(lái)對對象的變量進(jìn)行賦值的賦值語(yǔ)句,用關(guān)鍵字SET描述,不能省略.
格式:[let]變量或屬性=表達式 set 變量(對象)=表達式
VB注釋語(yǔ)句
引入目的:為程序的閱讀和修改提供信息,提高程序的可讀性和可維護性.
注釋方法有兩種:'或REM關(guān)鍵字.
二者區別:在一行中做注釋時(shí),REM必須使用:與前面的語(yǔ)句隔開(kāi),撇號則不必.
條件分支——IF語(yǔ)句
第一種格式:if 條件 then
語(yǔ)句
end if 如果條件為true,則執行"語(yǔ)句",否則執行end if后面語(yǔ)句.
第二種格式:if 條件 then
語(yǔ)句
else
語(yǔ)句
end if
IF語(yǔ)句的第三種格式
If 條件1 then
語(yǔ)句1
else if 條件2 then
語(yǔ)句2
else
語(yǔ)句3
end if 如果條件1為true,則執行語(yǔ)句1,如果為false,則檢查條件2,如果條件2為true,則執行語(yǔ)句2,如果條件2為false,則執行語(yǔ)句3.
條件語(yǔ)句——select case語(yǔ)句
格式: select case 測試表達式
case 條件1
語(yǔ)句1
………
case else
語(yǔ)句
end select
VB將測試表達式的值與此同時(shí)結構中的每個(gè)case的值進(jìn)行比較,如果相等,就執行與該case 相關(guān)的程序段,如果都不等,則執行case else所對應的程序段.
Case 語(yǔ)句舉例一
用select case…….語(yǔ)句判斷0-9范圍內整樹(shù)的奇偶性.
select case Num_ten
case 0,2,4,6,8
print "偶數"
case 1,3,5,7,9
print "奇數"
end select
循環(huán)語(yǔ)句:Do……Loop語(yǔ)句
第一種格式:Do While 條件式
[程序段]
Loop
當條件為true時(shí),循環(huán)繼續,直到條件變?yōu)镕alse為止.
示例一
Private Sub Form_Click()
Dim I As Integer
I=1
Do While I5
Print I
I=I+1
Loop
End sub
Do……Loop第三種格式
Do
[程序段]
Loop While 條件式
當條件式為true時(shí),循環(huán)繼續進(jìn)行,直到條件式變?yōu)閒alse為止.
示例三
Private Sub Form_Click()
Dim I As Integer
I=6
Do
Print I
I=I+1
Loop While I5
End Sub
For …Next 語(yǔ)句
語(yǔ)法規則:
For 計數器=初值室 To 終值 [step增量]
語(yǔ)句
[If 條件式 Then Exit For]'特定條件下退出
語(yǔ)句
next [計數器]
示例:P69
For Each …Next
For each 元素In 數組或集合
[程序段]
[IF條件式Then exit for]'特定條件下退出
[程序段]
next [元素]
這里的元素變量只能是variant類(lèi)型或對象類(lèi)型.
使用時(shí)應注意的問(wèn)題
與for…next的區別在于前者是對于指定集合或集合中的每個(gè)元素重復執行某個(gè)程序段,而后者使用計數器變量控制循環(huán)過(guò)程.
每次循環(huán)時(shí),元素變量所代表的是數組中當前元素的值,而不是元素本身.
示例
For Each I In Form1.Controls
I.Enabled=False
Next I
While…… Wend語(yǔ)句
While 條件式
程序段
wend
如果條件式為true,則所有的語(yǔ)句都會(huì )執行,一直執行到wend語(yǔ)句.然后再回到while語(yǔ)句檢查條件式,如果條件式為true,則重復執行.如果不為true,則wend之后的語(yǔ)句繼續執行.
Do Events函數與閑置循環(huán)
在Windows 的多任務(wù)環(huán)境下,就算有程序運行在運行一個(gè)長(cháng)時(shí)間循環(huán),其他應用程序也會(huì )分到CPU時(shí)間,但是該程序在運行循環(huán)時(shí),對該程序中的其它事件不作響應.
因此,我們在寫(xiě)程序時(shí),"事件過(guò)程"不宜寫(xiě)的太長(cháng),更不可以有太長(cháng)的循環(huán).如果要用長(cháng)的循環(huán),又要避免能夠及時(shí)響應其它事件的發(fā)生,只有采用兩種方法:其一,使用DoEvents函數;其二,寫(xiě)成"閑置循環(huán)".
DoEvents 函數
DoEvents 函數將控制權轉交給操作系統,以便讓系統有機會(huì )去檢查是否有其他事件需要提供服務(wù),他的語(yǔ)法說(shuō)明如下:
語(yǔ)法:DoEvents( )
DoEvents 函數會(huì )返回 VB應用程序中打開(kāi)窗體的數目.
NumForms = DoEvents( )
DoEvents 會(huì )將控制權傳給操作系統.當操作系統處理完隊列中的事件,并且在 SendKeys 隊列中的所有鍵也都已送出之后,返回控制權.
閑置循環(huán)
對VB 應用程序來(lái)說(shuō),事件之間的時(shí)間叫做"空閑時(shí)間".在"空閑時(shí)間"里,VB 自動(dòng)將控制權交還給Windows.當某個(gè)應用程序中的一個(gè)事件發(fā)生時(shí)VB 再為它向Windows 請求CPU時(shí)間.
如果你想編一個(gè)只在"空閑時(shí)間"里執行的循環(huán),在代碼模塊中使用SubMain過(guò)程,使應用程序馬上開(kāi)始執行程序(而不必等待窗體上發(fā)生事件).
VB的數學(xué)函數
表 3-20 數學(xué)函數功能表
函數名
功能
Abs
求絕對值
Atn
反正切函數
Cos
余弦函數
Exp
求指數
Fix
取整數,對負數取較大的
Int
取整數,對負數取較小的
Log
求對數
Rnd
產(chǎn)生一個(gè)0～1間的隨機數
Sgn
求數字符號
Sin
正弦函數
Sqr
求平方根
Tan
正切函數
VB日期和時(shí)間函數
表3-21 日期函數功能表
函數名
功能
Date
取得系統當前日期
Time
取得系統當前時(shí)間
Now
取得系統當前日期和時(shí)間
Year
返回指定日期中的年份
Month
返回指定日期中的月份(1-12)
Day
返回指定日期中天(1-31)
Weekday
返回指定日期為星期幾
Hour
返回指定時(shí)間量中的小時(shí)
Minute
返回指定時(shí)間量中的分鐘
Second
返回指定時(shí)間量中的秒
DateSerial
返回指定年月日的日期
TimeSerial
返回指定小時(shí)分秒的時(shí)間
DateValue
將字符串表示的日期轉化為Variant日期
TimeValue
將字符串表示的時(shí)間轉化為Variant時(shí)間
DateAdd
返回指定日期加上一定時(shí)間間隔后的日期
DateDiff
返回兩個(gè)日期的時(shí)間間隔
DatePart
返回指定日期的特定部分
字符串函數
表3-22 字符串函數功能表
函數名
功能
StrComp
兩個(gè)字符串比較
Lcase,Ucase
轉換大小寫(xiě)
Space,String
返回指定長(cháng)度的字符串
Len
求字符串長(cháng)度
Lset,Rset語(yǔ)句
給字符串變量賦值,賦在左邊或右邊
Instr
子串定位
Mid
取給定字符串的子串
Left,Right
從字符串的左邊或右邊取指定長(cháng)度的子串
Ltrim,Rtrim,Trim
去掉字符串的前導空格,尾隨空格
StrConv
轉換字符串
目錄和文件函數
表表3-23 文件系統函數列表
函數或語(yǔ)句名
功能
ChDir
改變當前目錄
ChDrive
改變當前驅動(dòng)器
CurDir
返回當前目錄
MkDir
創(chuàng )建目錄
RmDir
刪除目錄
FileCopy
拷貝文件
Kill
刪除文件
FileLen
取得文件的長(cháng)度(字節數)
Dir
查找指定的文件和目錄
本站僅提供存儲服務(wù)，所有內容均由用戶(hù)發(fā)布，如發(fā)現有害或侵權內容，請
點(diǎn)擊舉報。
