vb输入一个数字（1～7），分别通过Select语句和Choose函数两种方法用英文显示对应的星期一～星期日

Question

Private Sub Command2_Click()
n = Val(Text1.Text)
If Int(n) <> n Then
MsgBox ("请输入整数")
End If
If n > 7 Or n < 1 Then
MsgBox ("数字超出范围")
Text1.Text = ""
End If
Text3.Text = Choose(n, "Mon", "Tue", "Wed", "Tur", "Fri", "Sat", "Sun")
End Sub
总是提示使用无效参数Null，请问为什么？

Answer 1

病情分析：
您好，对于过个药物是用于静脉点滴的，不能用于外用，对于你的霉菌性的阴道炎，这个只是浅表的真菌感染，建议采用局部抗真菌的药物治疗为佳，不提倡使用注射用药，因为这个是抗深部真菌感染的，而且对于肝肾功能损伤很大的。
指导意见：
这种情况下，建议先去药店买点一般的妇科洗剂和达克宁栓剂或是克霉唑阴道泡腾片，先用一般的妇科洗剂清洗下外阴和阴道后，塞入达克宁栓剂或是克霉唑阴道泡腾片，在入睡前上药，保证药物在体内存留八小时左右，连用一周左右可以解决问题的。

希望我的回答对您有所帮助，祝您健康快乐

病情分析：
女性28岁

霉菌性阴道炎
指导意见：
您好，这种药物主要用于深部的霉菌感染，需要氟康唑氯将本品加入5%葡萄糖或0.9%氯化钠输液中静脉滴注。静脉滴注速度应控制在0.2g/小时以内。所以不太适合。
医生询问：
您是否去过医院，有没有医生给您开的药物？

Answer 2

        dim n as Integer

        If(Text1.Text.Trim().Length<=0) Then Exit Sub

        n = Val(Text1.Text)
        If 0 > n < 7 Then
            MsgBox ("Val Only Between 1-7")
            Exit Sub
        End If

        'Select
        dim Dt as String
        Select Case n
            Case 1
                Dt = "Mon"
            Case 2
                Dt = "Tue"
            Case 3
                Dt = "Wed"
            Case 4
                Dt = "Tur"
            Case 5
                Dt = "Fri"
            Case 6
                Dt = "Sat"
            Case 7
                Dt = "Sun"
            Case Else

        End Select
        Text3.Text = Dt

        'Choose
        Text3.Text = Choose(n, "Mon", "Tue", "Wed", "Tur", "Fri", "Sat", "Sun")

本回答被提问者和网友采纳