Private Sub Command1_Click()
s = Text1
Text1 = ""
Text1 = Chr(Asc(s) - 32)
End Sub
Private Sub Command2_Click()
s = Text1
Text1 = ""
Text1 = Chr(Asc(s) + 32)
End Sub
Private Sub Form_Load()
Text1 = ""
Command1.Caption = "小转大"
Command2.Caption = "大转小"
End Sub
'以上是一个字符窜的代码,如果要多字符窜,你自己加入if吧,因为你要不用if ,选择我为最佳,我之前的号被无情的盗号都盗了,百度也找不回,所以在此严重鄙视一下万恶的盗号者`
A 65
a 97
大写转小写 +31
小写转大写 -31