Question

VB编程 编写一个转换大小写的程序

编写一个对输入的字符进行大小写转换的程序。规则为：将大写字母转换为小写，小写转换为大写，空格不转换，其余都转换成“*”。要求每输入一个字符后就立马进行判断和转换。

Answer 1

'文字控件Text1
Dim a As String

Private Sub Text1_Change()
If Text1.Text = a$ Then Exit Sub
a = Text1.Text
If a$ <> "" Then
For i = 1 To Len(a)
t$ = Mid$(a, i, 1)
If t$ <= "Z" And t$ >= "A" Then
t$ = LCase$(t$)
ElseIf t$ <= "z" And t$ >= "a" Then
t$ = UCase$(t$)
Else
If t$ <> " " Then t$ = "*"
End If
Mid$(a, i, 1) = t$
Next i
Text1.Text = a
End If
End Sub