作业帮 > 综合 > 作业

寻VB程序代码:输入一个数字(1~7),通过choose函数显示对应的星期一到星期日

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/16 00:21:02
寻VB程序代码:输入一个数字(1~7),通过choose函数显示对应的星期一到星期日
Private Sub form_click()
Dim n As Integer
n = InputBox("请输入:")
If n < 1 Or n > 7 Then
MsgBox ("输入的数必须在1-7之间")
End If
Print choose(n)
End Sub
Function choose(m As Integer)
choose = WeekdayName(m)
End Function