VB 代码 帮帮忙啊，帮我写代码，就要交作业了

来源：百度知道 编辑：UC知道 时间：2024/05/21 16:25:39
编写一个文本框中对输入字符进行转换的程序，将其中的大写字母转换成小写字母，而小写字母则转换成大写字母，空格不转换，其余字符转换成“*”号，要求每输入一个字符马上就进行判断和转换

此试验用文本框的Change 事件和大小写转换函数

谢谢了！

全部帮你写好像对你也不好 给你一点思路和提示吧

输入的内容到底是大写还是小写 可以通过获取字符的ascii码来判断 字符转换成ascii码用Asc函数

转换大小写用 ucase 和 lcase 函数
替换字符用replace函数

希望对你有帮助

Function ChangeCase(Src As String) As String
Dim a As String
Dim s As String
Dim i As Long

For i = 1 To Len(Src)
s = Mid$(Src, i, 1)
If s >= "A" And s <= "Z" Then
a = a & Chr$(Asc(s) + 32)
ElseIf s >= "a" And s <= "z" Then
a = a & Chr$(Asc(s) - 32)
ElseIf s = " " Then
a = a & s
Else
a = a & "*"
End If
Next i

ChangeCase = a

End Function

Private Sub Text1_Change()
Dim a As String
a = ChangeCase(Text1.Text)
Print a

End Sub

逻辑流程：（判断均按ascii比较）
1.是否是空格，是，放过，转5；不是，继续2；
2.是否是在大写字母的区间范围，是，转换为小写，转5；不是，继续3；
3.是否在小写字母的的区间范围，是，转换为大写，转5；不是，继续4；
4.将其转为“*”；
5.结束。

Pri