Question

VB语言程序，程序实现字母大写变小写，小写变大写~~

要写个程序可以实现字符串从大写变小写，小写变大写！！

Answer 1

函数：
UCase将字符串转换为大写；
LCase将字符串转换为小写；
准备：2个Textbox控件，2个Commond控件.
注：Text2作为转化的结果.
代码如下：
Private Sub Form_Load() '运行程序时,
Text1.Text = "" '将Text1中Text属性清空.
Text2.Text = "" '将Text2中Text属性清空.
End Sub

Private Sub Command1_Click() '单击Command1按钮时,将Text1.Text中的字符串转化成大写,切将值赋给Text2.Text.
If Trim(Text1.Text) = "" Then '先判断text1的text是否为空 为空则给出提示信息 trim（）是去掉空格
MsgBox "请输入需要转换的字母"
Else
Text2.Text = "" '先清Text2中Text属性清空,
Text2.Text = UCase(Trim(Text1.Text)) '将Text1.Text中的字符串转化成大写,切将值赋给Text2.Text. trim（）为去掉空格显示
End If
End Sub

Private Sub Command2_Click() '单击Command2按钮时,

Text2.Text = LCase(Text1.Text) '将Text1.Text中的字符串转化成小写,切将值赋给Text2.Text.

End Sub

Answer 2

函数：
UCase将字符串转换为大写；
UCase将字符串转换为小写；
准备：2个Textbox控件，2个Commond控件.
注：Text2作为转化的结果.
代码如下：
Private Sub Form_Load()'运行程序时,
Text1.Text = ""'将Text1中Text属性清空.
Text2.Text = ""'将Text2中Text属性清空.
End Sub

Private Sub Command1_Click()'单击Command1按钮时,将Text1.Text中的字符串转化成大写,切将值赋给Text2.Text.
Text2.Text = ""'先清Text2中Text属性清空,
Text2.Text = UCase(Text1.Text)'将Text1.Text中的字符串转化成大写,切将值赋给Text2.Text.
End Sub

Private Sub Command2_Click()'单击Command2按钮时,
Text2.Text = ""'先清Text2中Text属性清空,
Text2.Text = LCase(Text1.Text)'将Text1.Text中的字符串转化成小写,切将值赋给Text2.Text.
End Sub

Answer 3

如是是输入的同时变成大小写的就用Chr(m +/- 32)这种，如果只是要在系统里进行算的时候就可以用那UCASE/LCASE这种就行了

Answer 4

同时转换?

Private Sub Command1_Click()
Text2 = ZuanHuan(Text1)
End Sub

Function ZuanHuan(ByVal St As String) As String
n = Len(St)
For i = 1 To n
st1 = Mid(St, i, 1)
m = Asc(st1)
Select Case m
Case 65 To 91
ZuanHuan = ZuanHuan & Chr(m + 32)
Case 97 To 123
ZuanHuan = ZuanHuan & Chr(m - 32)
Case Else
ZuanHuan = ZuanHuan & st1
End Select
Next

End Function