Question

一道VB题目，求解答

在名称为form1的窗体上画一个名称为Text1的文本框和一个名称为C1的命令按钮，要求可以把text1中的大写字母转化为小写，把小写字母转化为大写
求编程过程 谢谢

Answer 1

Private Sub C1_Click()
Dim a As String, b As String, c As String, i As Integer
a = StrConv(Text1.Text, vbUpperCase)
b = StrConv(Text1.Text, vbLowerCase)
For i = 1 To Len(Text1.Text)
If Mid(Text1.Text, i, 1) = Mid(a, i, 1) Then
c = c & Mid(b, i, 1)
ElseIf Mid(Text1.Text, i, 1) = Mid(b, i, 1) Then
c = c & Mid(a, i, 1)
Else
c = c & Mid(Text1.Text, i, 1)
End If
Next i
Text1.Text = c
End Sub

Answer 2

小写a-z 的ascii值为：97-122 asc("a")=97 asc("z")=122
大写A-Z 的ascii值为：65-90
小写字母转为大写字母函数：UCase UCase("a")=A
大写字母转为小写字母函数：LCase
字符串遍历可以用Mid函数+For循环

就说这么多了，剩下的你自己琢磨下吧。