'第一题
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
版权声明：文章由 百问九 整理收集，来源于互联网或者用户投稿，如有侵权，请联系我们，我们会立即处理。如转载请保留本文链接：https://www.baiwen9.com/article/367702.html
