經過三個多星期的工作，機房收費系統結束了，機房收費系統是自己接受的第二個系統，不論程式碼量還是邏輯結構都要比第一個接觸的學生資訊管理系統複雜的多。老實說，自己對這個系統理解的還是皮毛，還需要自己以後不斷的加深理解。

總體的介紹

功能完善

問題描述：

Private Sub Combo1_click(Index As Integer)
    For b = 0 To 2
     If Combo1(b).Text = "姓名" Or Combo1(b).Text = "備註" Then
     
        Combo2(b).clear
        Combo2(b).AddItem ""
        Combo2(b).AddItem "="
        Combo2(b).AddItem "<>"
    Else
        Combo2(b).clear
        Combo2(b).AddItem ""
        
        Combo2(b).AddItem "="
        Combo2(b).AddItem "<"
        Combo2(b).AddItem ">"
        Combo2(b).AddItem "<>"
    End If
    Next b
'****************************************************************************
    For a = 0 To 2
        If Combo1(a).Text = "上機時間" Or Combo1(a).Text = "下機時間" Then
            DTPicker1(a).Visible = True
            DTPicker1(a).Format = dtpTime
            
            Style = "color:#009900;" '設定成時間格式
            Text1(a).Text = DTPicker1(a).Value
        ElseIf Combo1(a).Text = "上機日期" Or Combo1(a).Text = "下機日期" Then
        
            DTPicker1(a).Visible = True
            DTPicker1(a).Format = dtpShortDate
            Style = "color:#009900;"    '設定成日期格式
            Text1(a).Text = DTPicker1(a).Value
            
            Else
             DTPicker1(a).Visible = False
             Text1(a).Text = ""
        End If
        Next a
End Sub
 

感受

收穫

通常：
MsgBox nName

應該： 

If nNum = 0 Then
sName = "sancy"
Else
sName = "Xu"
End If

簡單的程式碼：
sName=IIf(nNum=0,"sancy","Xu")