85问答库 > 寻VB程序代码：输入一个数字（1~7）,通过choose函数显示对应的星期一到星期日

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

2025-06-25 02:37:49

推荐回答（1个）

回答1：

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

最新问答

小女孩叫起来:"奶奶,请把我带走吧!我知道,火柴一灭,您就会不见的."改为第3人称转诉句

后背长了很多小红疙瘩不疼也不痒应该是什么问题

饭卡是PVC材质，用什么酸可以溶解但不会伤到线圈和芯片

皇家博美犬泪痕越来越严重怎么回事？

睑黄疣怎么治

万致外汇平台账户资金安全吗万致平台稳定吗

我的是Windows优化大师V6.9 说能帮我找一下注册码谢谢拉

阅读题《洗脚》

初一解方程应用题的技巧

设函数f(x)=2x+3⼀3x(x＞0)，数列{an}满足a1=1,an=f(1⼀an-1)(n≥2，n∈N*) (1)求数列