小白求助:

输入一个数字(1~7),用英文显示对应的星期一至星期日



老师作业,上课没有听课.
先谢谢大家帮忙了.

dim i as integer

i = InputBox("请输入一个数","转换星期数",7)
Select Case i
case 1:
msgbox "星期一"
case 2:
msgbox "星期二"
case 3:
msgbox "星期三"
case 4:
msgbox "星期四"
case 5:
msgbox "星期五"
case 6:
msgbox "星期六"
case 7:
msgbox "星期天"
case else:
msgbox "请输入1~7之间的数"
End Select

private sub command1_click()
dim daynum as integer
daynum=inputbox("请输入数字1~7之间")
select case daynum
case 1
print "星期1"
case 2
print "星期2"
case 3
print "星期3"
case 4
print "星期4"
case 5
print "星期5"
case 6
print "星期6"
case 7
print "星期天"
case else
print "输入错误"
end select
end sub

倒...慢一步了..

刚好和Purana一起发的贴，呵呵