VBA編程題: 1.用整數0—6依次表示星期日，星期壹，。。。。。星期六，編程實現下列功能

Dim x As Integer

week = Val(InputBox("請輸入x"))

If x = 0 Then

Debug.Print "星期日"

ElseIf x = 1 Then

Debug.Print "星期壹"

ElseIf x = 2 Then

Debug.Print "星期二"

ElseIf x = 3 Then

Debug.Print "星期三"

ElseIf x = 4 Then

Debug.Print "星期四"

ElseIf x = 5 Then

Debug.Print "星期五"

ElseIf x = 6 Then

Debug.Print "星期六"

ElseIf x = -1 Then

Debug.Print "終止程序"

Else

Debug.Print "妳的輸入有誤"

End If

End Sub