Posted on 2007-04-29 11:18
大大毛 閱讀(1425)
評論(3) 編輯 收藏 所屬分類:
VB培訓
培訓目標：
???掌握各種基本數(shù)據(jù)類型以及流程控制語句的語法，感受VB編程。
培訓內(nèi)容：
???1.?VB中的數(shù)據(jù)類型；
???2. VB中的常量與變量；
???3. VB中的運算符；
???4. VB中的流程控制語句。
課后練習：
???改進第一次培訓布置的“計算器”，要求實現(xiàn)四則運算，并充分利用流程控制語句來實現(xiàn)語句的改進及對數(shù)據(jù)長度、數(shù)據(jù)類型以及除零等異常的防范。
???1、VB中的數(shù)據(jù)類型
??????基本數(shù)據(jù)類型
-
比較特別的有對象類型和變體類型。Object 對象類型可以簡單的理解成為對控件對象的引用；Variant 變體類型可以算是VB中的特殊類型，由于它的存在常常讓人對VB的數(shù)據(jù)類型檢查產(chǎn)生誤解。VB在變量聲明時，如果不指定變量類型則VB就將為該變量指定為 Variant 類型。
-
在最常用的數(shù)據(jù)類型中，特別要注意的就是 Integer 整型，之所以要特點注意就是因為它的值域很小，在使用中可能會產(chǎn)生數(shù)值溢出，通常的做法是在VB中直接使用 Long 來替換全部的 Integer 。
-
表中可以看到有個“類型符”列，它是聲明變量類型的簡化形式。
???自定義數(shù)據(jù)類型 /
枚舉類型
PPT中只簡述了類型的聲明語法，實際上這兩種類型的用處極大，通過對它們的使用可以讓你的程序更加具有有讀性和面向?qū)ο蟮奶攸c，呵呵。來看看俺的示例代碼，從中應該可以有點感覺(在VB6中書寫枚舉類型的變量時可是會有彈出提示的喲
)。
自定義類型和枚舉類型的使用
Option
?
Explicit
'
這里使用了一個自定義類型來表現(xiàn)登錄中的關(guān)鍵信息
'
通過這里的使用將登錄中相互關(guān)聯(lián)的3個屬性綁在一起
Private
?Type?typLogInfo
????UserName?
As
?
String
??????????????
'
登錄用戶名
????Pwd?
As
?
String
???????????????????????????
'
登錄密碼
????LogState?
As
?enuLogState????
'
登錄結(jié)果
End
?Type
'
這里的枚舉類型表現(xiàn)了登錄的結(jié)果,從下面可以看到對于代碼的可讀性可以有很大的改善
Public
?
Enum
?enuLogState
????Success?
=
?
0
?????????????????????????????
'
登錄成功
????Faile????????????????????????????????????????????
'
登錄失敗
End?Enum
'
這是登錄窗體上的"登錄"按鈕的Click事件
Private
?
Sub
?cmdOK_Click()
????
Dim
?LoginInfo?
As
?typLogInfo?
'
聲明變量
????
'
存入登錄的用戶名以及密碼以便下面的檢查時使用
????LoginInfo.UserName?
=
?
Trim
(txtUserName.Text)
????LoginInfo.Pwd?
=
?
Trim
(txtPassword.Text)
????
'
檢查登錄的名稱及密碼是否正確
????
Call
?loginCheck(LoginInfo)
????
'
根據(jù)檢查的結(jié)果來分支邏輯
????
If
?LoginInfo.LogState?
=
?Success?
Then
????
'
這里可以看到枚舉對于改善代碼的可讀性提供了極大幫助
????????
MsgBox
?
"
歡迎您:
"
?
&
?LoginInfo.UserName
????
Else
????????
MsgBox
?
"
登錄失敗
"
????
End
?
If
End?Sub
'
這是一個自定義的過程,利用它來做登錄檢查
'
過程具有一個typLogInfo類型的參數(shù),外部將登錄的信息傳進來
Private
?
Sub
?loginCheck(logInfo?
As
?typLogInfo)
????
'
檢查登錄的名稱及密碼是否正確
????
If
?txtUserName?
=
?
"
ddm
"
?
And
?txtPassword?
=
?
"
123
"
?
Then
????????
'
通過了登錄檢查
????????logInfo.LogState?
=
?Success
????
Else
????????
'
登錄失敗
????????logInfo.LogState?
=
?Faile
????
End
?
If
End?Sub
如果你是一位VB的新手(寫過幾段小程序)，看過上面的代碼后就應該能夠體會到這兩種類型的優(yōu)勢所在。不過就培訓后的效果來看，這段代碼對于真正的初學者是一點效果也沒有，哎...。
???2、VB中的常量與變量
-
常量，在VB中最為常見的就是VB常量；常量的最大用處就是助記(VB支持中文，但是中文編程也不能濫用，因此在常量中使用是比較好的選擇)
Public
?
Const
?單位資料表?
As
?
String
?
=
?
"
DAD6CPP
"
-
變量，變量的聲明需要注意。因為VB支持隱式聲明(就是不聲明)和聲明時省略數(shù)據(jù)類型，這兩種情況下變量并不是沒有類型，而是 Variant 類型。
Public
?
Sub
?doSomthing()
????x?
=
?
1
????
Dim
?y
????
Dim
?i1,?i2,?i3?
As
?
Long
End?Sub
這是三個例子，其中的變量 X 和 Y 都是 Variant 類型，這個比較看出，注意的是第3行聲明，這是極易出錯的地方，只有 i3 是Long，i1、i2 都是 Variant。
???3、VB中的運算符
-
連接運算符多用 & 就好，+ 對兩邊操作數(shù)會有類型要求
-
全部的運算符沒什么可好說的，按規(guī)矩來即可，只是要注意一點在使用運算符時多用括號比依賴記憶的效果要好
。
???4、VB中的流程控制語句
-
條件語句 IF ... Then? ...? Else ... EndIF，如果是單條語句用 IIF函數(shù) 來替換也是不錯的，在使用IF語句時必須注意將 Else 寫全，這對于日后的調(diào)試有很大的益處(當你找半天都沒能發(fā)現(xiàn)錯誤所在時就知道了)。
-
分支語句 Select Case ... Case ... Case Else ... End Select，Case表達式所支持的語法非常的靈活性，這樣使得分支語句可使用的范圍非常的廣，它在特定情況下可有效改善 多IF條件 代碼可讀性下降的問題。下面來看看對上面示例的改善過程：
使用多條IF
Option
?
Explicit
'
這里使用了一個自定義類型來表現(xiàn)登錄中的關(guān)鍵信息
'
通過這里的使用將登錄中相互關(guān)聯(lián)的3個屬性綁在一起
Private
?Type?typLogInfo
????UserName?
As
?
String
??????????
'
登錄用戶名
????Pwd?
As
?
String
???????????????
'
登錄密碼
????LogState?
As
?enuLogState?????
'
登錄結(jié)果
End
?Type
'
這里的枚舉類型表現(xiàn)了登錄的結(jié)果,從下面可以看到對于代碼的可讀性可以有很大的改善
Public
?
Enum
?enuLogState
????Success?
=
?
0
?????????????????
'
登錄成功
????PwdFaile????????????????????
'
密碼錯誤
????Faile???????????????????????
'
登錄失敗
End?Enum
'
這是登錄窗體上的"登錄"按鈕的Click事件
Private
?
Sub
?cmdOK_Click()
????
Dim
?LoginInfo?
As
?typLogInfo?
'
聲明變量
????
'
存入登錄的用戶名以及密碼以便下面的檢查時使用
????LoginInfo.UserName?
=
?
Trim
(txtUserName.Text)
????LoginInfo.Pwd?
=
?
Trim
(txtPassword.Text)
????
'
檢查登錄的名稱及密碼是否正確
????
Call
?loginCheck(LoginInfo)
????
'
根據(jù)檢查的結(jié)果來分支邏輯,這里示例的是IF嵌套
????
If
?LoginInfo.LogState?
=
?Success?
Then
????
'
這里可以看到枚舉對于改善代碼的可讀性提供了極大幫助
????????
MsgBox
?
"
歡迎您:
"
?
&
?LoginInfo.UserName
????
Else
????????
If
?LoginInfo.LogState?
=
?PwdFaile?
Then
????????????
MsgBox
?
"
密碼錯誤
"
????????
Else
????????????
MsgBox
?
"
用戶不存在
"
????????
End
?
If
????
End
?
If
End?Sub
'
這是一個自定義的過程,利用它來做登錄檢查
'
過程具有一個typLogInfo類型的參數(shù),外部將登錄的信息傳進來
Private
?
Sub
?loginCheck(logInfo?
As
?typLogInfo)
????
'
檢查登錄的名稱及密碼是否正確,這里示例了使用ElseIf語句
????
If
?txtUserName?
=
?
"
ddm
"
?
And
?txtPassword?
=
?
"
123
"
?
Then
????????
'
通過了登錄檢查
????????logInfo.LogState?
=
?Success
????
ElseIf
?txtUserName?
=
?
"
ddm
"
?
Then
????????
'
用戶名正確,密碼錯誤
????????logInfo.LogState?
=
?PwdFaile
????
Else
????????
'
用戶名錯誤
????????logInfo.LogState?
=
?Faile
????
End
?
If
End?Sub
這里的登錄狀態(tài)只使用了3種狀態(tài)，可以看到 cmdOK_Click 事件中對狀態(tài)的檢查使用的是多條IF，如果狀態(tài)更多的話那么這里的代碼會顯得更加的繁瑣，看看CASE能夠給我們帶來什么。
使用CASE分支來替換IF
'
這是登錄窗體上的"登錄"按鈕的Click事件
Private
?
Sub
?cmdOK_Click()
????
Dim
?LoginInfo?
As
?typLogInfo?
'
聲明變量
????
'
存入登錄的用戶名以及密碼以便下面的檢查時使用
????LoginInfo.UserName?
=
?
Trim
(txtUserName.Text)
????LoginInfo.Pwd?
=
?
Trim
(txtPassword.Text)
????
'
檢查登錄的名稱及密碼是否正確
????
Call
?loginCheck(LoginInfo)
????
'
根據(jù)檢查的結(jié)果來分支邏輯
????
Select
?
Case
?LoginInfo.LogState
????????
Case
?enuLogState.Success
????????????
MsgBox
?
"
歡迎您:
"
?
&
?LoginInfo.UserName
????????
Case
?enuLogState.PwdFaile
????????????
MsgBox
?
"
密碼錯誤
"
????????
Case
?enuLogState.Faile
????????????
MsgBox
?
"
用戶不存在
"
????????
Case
?
Else
????????????
MsgBox
?
"
未知結(jié)果
"
????
End
?
Select
End?Sub
這里的分支比較少，如果多的話優(yōu)勢則更明顯。
-
循環(huán)語句 For ... Next / For Each ... Next，這里舉一個使用 For Each 語句的示例，這種形式的運用比較多：
使用For Each遍歷
'
清空文本框的內(nèi)容
Private
?
Sub
?clearText()
????
Dim
?objTextBox?
As
?Control
????
For
?
Each
?objTextBox?
In
?
Me
.Controls??
'
使用FOR?EACH在窗體的控件集合中遍歷
????????
If
?
TypeName
(objTextBox)?
=
?
"
TextBox
"
?
Then
????????????objTextBox.Text?
=
?
""
????????
End
?
If
????
Next
End?Sub
Private
?
Sub
?Form_Load()
????
Call
?clearText??
'
清空窗體上文本框的內(nèi)容
End?Sub
-
循環(huán)語句 Do ... Loop，這個需要注意的一點就是要在適當?shù)臅r候記住要能夠終止。
-
循環(huán)語句中選用 For ... Next 還是 Do ... Loop 沒有特定的要求。For 更適于循環(huán)次數(shù)明確的情況，而 Do 適于循環(huán)次數(shù)不明，但終止條件了解的情況。
??????培訓課件PPT