Question

vb题，输入一个数字（1～7），通过Select语句方法用英文显示对应的星期一～星期日。

我编的，但是不管输入几都显示“monday”,是哪里错了？求教，急！
Private Sub Command1_Click()
Select Case a = Text1
Case a = 1
Text2 = "Monday"
Case a = 2
Text2 = "Tuesday"
Case a = 3
Text2 = "Wednesday"
Case a = 4
Text2 = "Thursday"
Case a = 5
Text2 = "Friday"
Case a = 6
Text2 = "Saturday"
Case a = 7
Text2 = "Sunday"
End Select
End Sub

Answer 1

Select Case a = Text1
改为 a = Text1.Text
Select Case a

Answer 2

Private Sub Command1_Click()
a = Text1
Select Case a
Case 1
Text2 = "Monday"
Case 2
Text2 = "Tuesday"
Case 3
Text2 = "Wednesday"
Case 4
Text2 = "Thursday"
Case 5
Text2 = "Friday"
Case 6
Text2 = "Saturday"
Case 7
Text2 = "Sunday"
End Select
End Sub

Answer 3

Select Case a = Text1
Case a = 1 等有问题