Question

VB中在文本框Text1中输入个0-6的整数，单击窗体，在文本框Text2中显示星期

Private Sub Form_Click()
Dim Var%
__________=Text1.Text
Select Case Var
Case 0
Text2.Text=Sunday
Case 1
下面几个略
Case Else
Text2.Text="Must be 0 to 6"
______________________
End Sub

请问横线上怎么填

Answer 1

Var
即
Var = Text1.Text'将Text中的数值赋值给变量Var，记得不要将非数字添进Text1，不然会出错。

Answer 2

上面填 var
下面横线填 end select