前言

自己从最开始接触的VB百例、红皮书、学生管理系统到前一段时间结束的机房收费系统。来给大家分享在机房收费系统的代码片段！

- VB中的EOF与BOF

EOF含义：当前记录位置位于Recordest对象的最后一个记录之后
返回值类型：布尔类型
作用：确定Recordest对象是否包含记录，或者从一个记录移到另一个记录时是否超出Recordest对象的限制
BOF含义：当前记录位置位于Recordest对象的第一个记录之前
返回值类型：布尔型
作用：确定Recordest对象是否包含记录，或者从一个记录移到另一个记录时是否超出Recordest对象的限制

- VB组合查询

这里是自己在机房收费系统感觉有点乱的一部分，分享给大家看看！

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 “请将第二行选项内容填写完整！”,“提示” 
Exit Sub 
Else 
txtsql = txtsql & ” ” & Change(comboRelation1.Text) & ” ” & Change(comboField2.Text) & ” ” & comsign2.Text & “’” & Trim(txtContent2.Text) & “’” 
‘将前两行的条件联系起来，完成sql语句 
If comboRelation2.Text <> “” Then 
‘判断第二个组合关系是否选中 
If comboField3.Text = “” Or comsign3.Text = “” Or txtContent3.Text = “” Then 
‘如果选中，判断第二行内容是否填写完整，且符合要求 
MsgBox “请将第三行选项内容填写完整！”,“提示” 
Exit Sub 
Else 
txtsql = txtsql & ” ” & Change(comboRelation2.Text) & ” ” & Change(comboField3.Text) & ” ” & Trim(comsign3.Text) & “’” & Trim(txtContent3.Text) & “’” 
‘将三行的条件联系起来，完成sql语句

在接触这么久的VB程序后发现自己用的最对的还是if语句，下面跟大家汇报下：
1. 简单if语句
“If…Then”分支结构在程序中计算条件值，并根据条件值决定下一步执行的操作。最简单的“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子句及其相应的执行语句]   

Else      

    Statements    

End If

重点内容
Visual Basic还支持在程序中使用“Select Case”分支结构来控制语句的执行。 “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”子句下的语句被执行，然后Visual Basic执行“End Select”语句后面的语句。“Select Case”结构中可以使用任意多个“Case”子句，“Case”子句中也可以包括多个“Value”值，多个“Value”值之间使用逗号分隔。
本文部分参考编程入门网：http://www.bianceng.cn/Programming/VB_NET/200705/1268.htm