VB题，急需解答，谢谢

Question

在窗体中设置2个标签、2个命令按钮、2个文本框，当我们在文本框1中输入1--7的数字时，点击“转换”命令按钮，在文本框2中就会转换成与数字相对应的星期序列，如验入的数字不是1--7，则显示”非法数值，无法转换!”，点击"结束”命令按钮，则程序结东运行。

Answer 1

Private Sub Command1_Click()

Dim i As Integer

i = Val(Text1.Text)

Select Case i

Case 1: Text2.Text = "Monday"

Case 2: Text2.Text = "Tuesday"

Case 3: Text2.Text = "Wednesday"

Case 4: Text2.Text = "Thursday"

Case 5: Text2.Text = "Friday"

Case 6: Text2.Text = "Saturday"

Case 7: Text2.Text = "Sunday"

Case Else: Text2.Text = "非法数值，无法转换！"

End Select

End Sub

Private Sub Command2_Click()

End

End Sub

Answer 2

也可尝试使用weekdayname()函数