高分求用VB做个小程序

2024-11-09 09:57:16

推荐回答（4个）

回答（1）：

Private Sub Command1_Click()
    Call 查询班次("2013-6-23")
End Sub

Private Sub 查询班次(sDate As Date)
    Dim d As Integer
    
    d = DateDiff("d", "2013-6-19", sDate)
    Select Case d Mod 5
    Case 0, 3
        MsgBox sDate & " 是早班"
    Case 1
        MsgBox sDate & " 是中班"
    Case 2, 5
        MsgBox sDate & " 休息天"
    Case 4
        MsgBox sDate & " 是夜班"
    End Select
End Sub

回答（2）：

必须要VB的程序吗

回答（3）：

不知道高分求用VB做个小程序

回答（4）：

已在猪八戒交稿了