前言

自己從最開始接觸的VB百例、紅皮書、學生管理系統(tǒng)到前一段時間結束的機房收費系統(tǒng)。來給大家分享在機房收費系統(tǒng)的代碼片段！

- VB中的EOF與BOF

EOF含義：當前記錄位置位于Recordest對象的最后一個記錄之后
返回值類型：布爾類型
作用：確定Recordest對象是否包含記錄，或者從一個記錄移到另一個記錄時是否超出Recordest對象的限制
BOF含義：當前記錄位置位于Recordest對象的第一個記錄之前
返回值類型：布爾型
作用：確定Recordest對象是否包含記錄，或者從一個記錄移到另一個記錄時是否超出Recordest對象的限制

- VB組合查詢

這里是自己在機房收費系統(tǒng)感覺有點亂的一部分，分享給大家看看！

If Trim(comboField1.Text) = “” Or Trim(comsign1.Text) = “” Or Trim(txtContent1.Text) = “” Then MsgBox “請將選項內容填寫完整！”, vbOKOnly, “提示” Exit Sub Else txtSQL = txtSQL & ” ” & Change(comboField1.Text) & ” ” & comsign1.Text & “’” & Trim(txtContent1.Text) & “’”If comboRelation1.Text <> “” Then ‘判斷第一個組合關系是否選中 If comboField2.Text = “” Or comsign2.Text = “” Or txtContent2.Text = “” Then ‘如果選中,判斷第二行內容是否填寫完整，且符合要求 MsgBox “請將第二行選項內容填寫完整！”, vbOKOnly, “提示” Exit Sub Else txtSQL = txtSQL & ” ” & Change(comboRelation1.Text) & ” ” & Change(comboField2.Text) & ” ” & comsign2.Text & “’” & Trim(txtContent2.Text) & “’” ‘將前兩行的條件聯(lián)系起來，完成SQL語句 If comboRelation2.Text <> “” Then ‘判斷第二個組合關系是否選中 If comboField3.Text = “” Or comsign3.Text = “” Or txtContent3.Text = “” Then ‘如果選中，判斷第二行內容是否填寫完整，且符合要求 MsgBox “請將第三行選項內容填寫完整！”, vbOKOnly, “提示” Exit Sub Else txtSQL = txtSQL & ” ” & Change(comboRelation2.Text) & ” ” & Change(comboField3.Text) & ” ” & Trim(comsign3.Text) & “’” & Trim(txtContent3.Text) & “’” ‘將三行的條件聯(lián)系起來，完成SQL語句

在接觸這么久的VB程序后發(fā)現(xiàn)自己用的最對的還是if語句，下面跟大家匯報下：
1. 簡單if語句
“If…Then”分支結構在程序中計算條件值，并根據條件值決定下一步執(zhí)行的操作。最簡單的“If…Then”分支結構可以只寫在一行：

If Condition Then Statement[Else statement]

2.If…Then…Else語句
VB還支持另一種格式的“If…Then”分支結構，該結構中包含幾個條件表達式，由多行語句組成，其中包含了重要關鍵字“ElseIf”、“Else”以及“End If”。

If Condition1 Then Statements ElseIf Condition2 Then Statements [其他ElseIf子句及其相應的執(zhí)行語句] Else Statements End If

重點內容
Visual Basic還支持在程序中使用“Select Case”分支結構來控制語句的執(zhí)行。 “Select Case”結構與“If…Then…Else”結構相似，但在處理依賴于某個關鍵變量或稱作測試情況的分支時效率更高。并且，使用“Select Case”結構可以提高程序的可讀性。“Select Case”結構的語法如下所示：

Select Case Variable Case Value1 Statements Case Value2 Statements Case Value3 Statements ... End Select

Select Case”結構以關鍵字“Select case”開始，以關鍵字“End Select”結束。“Select Case”結構中的“Variable”可以是變量、屬性或者是表達式，“Value1”、“Value2”，“Value3”可以是數值、字符串或與要測試的其他情況相關的其他值，如果其中某個值與變量相匹配，那么該“Case”子句下的語句被執(zhí)行，然后Visual Basic執(zhí)行“End Select”語句后面的語句。“Select Case”結構中可以使用任意多個“Case”子句，“Case”子句中也可以包括多個“Value”值，多個“Value”值之間使用逗號分隔。
本文部分參考編程入門網：http://www.bianceng.cn/Programming/VB_NET/200705/1268.htm

總結

以上是生活随笔為你收集整理的VB—代码片总结的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。