'第一题
Private Sub Command1_Click()
a = InputBox("")
Select Case Asc(a)
Case Asc("a") To Asc("z")
Print UCase(a)
Case Asc("A") To Asc("Z")
Print LCase(a)
End Select
End Sub
'第二题
Private Sub Command1_Click()
a = Val(InputBox(""))
If (a Mod 4 = 0 And a Mod 100 0) Or a Mod 400 = 0 Then
Print a & "是闰年"
Else
Print a & "不是闰年"
End If
End Sub
