Question

编一VB程序，输入一个数字（1~7），用英文显示对应的星期一至星期日

Answer 1

Private Sub text1_Change()
if text1.text="1" then
print "Monday"
else
if text1.text="2" then
print "Tuesday"
else
if text1.text="3" then
print "Wednesday"
else
if text1.text="4" then
print "Thursday"
else
if text1.text="5" then
print "Friday"
else
if text1.text="6" then
print "Saturday"
else
if text1.text="7" then
print "Sunday"
end if
end if
end if
end if
end if
end if
end if
End Sub
Private Sub Form_Load()
Text1.MaxLength = "1"
End Sub

Answer 2

Private Sub Form_click()
Dim ww As String
ww = InputBox("输入数字1-7")
Select Case ww
Case "1"
MsgBox ("Monday")
Case "2"
MsgBox ("Tuesday")
Case "3"
MsgBox ("Wednesday")
Case "4"
MsgBox ("Thursday")
Case "5"
MsgBox ("Friday")
Case "6"
MsgBox ("Saturday")
Case "7"
MsgBox ("Sunday")
End Select
End Sub

Answer 3

select
case
a
=
text1
改为
a
=
text1.text
select
case
a