用VBA代码打印出1～12月份对应的季节（以3、4、5月为春季）

以下是用VBA代码打印出1～12月份对应的季节的代码：

Sub PrintSeason()
    Dim month As Integer
    month = InputBox("请输入月份（1-12）：")
    Select Case month
        Case 1, 2, 12
            MsgBox "冬季"
        Case 3, 4, 5
            MsgBox "春季"
        Case 6, 7, 8
            MsgBox "夏季"
        Case 9, 10, 11
            MsgBox "秋季"
        Case Else
            MsgBox "输入有误，请重新输入！"
    End Select
End Sub

当输入1-12之间的数字时，会弹出对应的季节。例如，输入3时，会弹出“春季”。

相关问题

使用VBA语言在某个工作表中打印出1900～2019年之间哪些是闰年

你可以使用以下代码来打印出1900～2019年之间的闰年：

Sub PrintLeapYears()
Dim i As Integer
For i = 1900 To 2019
If (i Mod 4 = 0 And i Mod 100 <> 0) Or i Mod 400 = 0 Then
Debug.Print i & " is a leap year."
End If
Next i
End Sub

这段代码会在 VBA 的调试窗口中打印出所有的闰年。

用VBA写一个a1减B1，最终以分钟为单位赋值给c1的代码

Sub SubtractTime()
Range("C1").Value = (Range("A1").Value - Range("B1").Value) * 144
End Sub

解释：这个代码使用 VBA 编写，通过将 A1 单元格的值减去 B1 单元格的值，得到两个时间之间的分钟数，最后将结果赋值给 C1 单元格。其中，* 144 是将结果转换为分钟的单位。