vb程序 大写字母转小写，小写转大写

Question

1. 编写程序，完成以下操作：输入一个字符，如果它是大写英文字母，则将其转换为小写英文字母；如果它是小写英文字母，则将其转换为大写英文字母；如果是非英文字母，则不作处理。
2. 编写程序，要求输入一年份，判断出是否为闰年。闰年的条件是能被4整除，但不能被100整除；或者能被4整除又能被400整除（如：1992年，2000年均为闰年）。

用vb的选择性结构方面的知识做

Answer 1

'第一题
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

Answer 2

1.
Private Sub Command1_Click()
Dim strTmp As String, strC As String, strNew As String
Dim i As Integer
strTmp = "fsdfDSFAdfsaafds3424dfDDFEerwqdsfdsfD"
For i = 1 To Len(strTmp)
strC = Mid(strTmp, i, 1)
strNew = strNew & IIf(Asc(strC) >= 97 And Asc(strC) <= 122, UCase(strC), LCase(strC))
Next
Debug.Print strNew
End Sub

2.
Private Sub Form_Load()
Dim strInput As String
strInput = InputBox("请输入年份:")
If Trim(strInput) <> "" Then
strInput = Val(strInput)
Select Case True
Case (strInput Mod 4 = 0 And strInput Mod 100 <> 0) Or (strInput Mod 100 = 0 And strInput Mod 400 = 0)
Debug.Print strInput & "年是闰年"
End Select
'If (strInput Mod 4 = 0 And strInput Mod 100 <> 0) Or (strInput Mod 100 = 0 And strInput Mod 400 = 0) Then
'Debug.Print strInput & "年是闰年"
'End If
End If
End Sub

Answer 3

1,Ucase函数和Lcase函数.大小写转换
2,if a/4=a\4 and a/100<>a\100 then
msgbox "闰年"
else
msgbox "非闰年"
end if