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

'第一题

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

用 VB 的函数 LCase 和 UCase 用三个 TextBox 来展现一下这两个函数的大小写转换功能[运行之前在 TextBox1 中输入 几个大写字母，也可混合输入]： PrivateSubCommand1_Click() Text2.Text=LCase(Text1.Text)'将 Text1 的文本全亮历换成小写 Text3.Text=UCase(Text2.Text)'将 Text1 的文本全换成大写 EndSub 说明： LCase 仅将敬姿搜是大写的转换为小写，UCase 则仅将是小写的转换为大写，故当册卖字符串中有 其它不符合转换的内容时将对其忽略。可以在 TextBox1 中输入汉字、阿拉伯数字等观察效 果。

---