Question

寻找vb高手

输入一个数字（1~7），分别通过Select语句和Choose函数两种方法用英文显示对应的星期一~星期日。
要准确的代码！！！

Answer 1

Private Sub Form_Load()

    Dim ind As Integer

    Dim RT1 As String, RT2 As String

    Do  '保证输入的值在范围内

        ind = InputBox("输入一个数字,范围为1到7", "输入一个数字", 1)

        If ind >= 1 And ind <= 7 Then Exit Do

    Loop

    

    Select Case ind

        Case 1: RT1 = "Monday"

        Case 2: RT2 = "Tuesday"

        Case 3: RT1 = "Wednesday"

        Case 4: RT1 = "Thursday"

        Case 5: RT1 = "Friday"

        Case 6: RT1 = "Saturday"

        Case 7: RT1 = "Sunday"

    End Select

    

    RT2 = Choose(ind, "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday")

    

    MsgBox RT1

    MsgBox RT2

End Sub

如果认为代码格式难看，就看附图吧。