编写程序：用整数1-12依次表示1-12月，由键盘输入一个月份数，输出对应的季节？
最新回答
ㄍ安于此生
2024-06-05 09:59:30
试试如下子程序：
Sub 计算季度()
月份 = InputBox("请写入1-12之间的整数")
If 月份 / 3 <= 1 Then
MsgBox 月份 & "月份在第一季度"
ElseIf 月份 / 3 <= 2 Then
MsgBox 月份 & "月份在第二季度"
ElseIf 月份 / 3 <= 3 Then
MsgBox 月份 & "月份在第三季度"
Else
MsgBox 月份 & "月份在第四季度"
End If
End Sub
运行效果如下图：
热门标签
