vb 大小写转换函数大写换小写。。小写换大写、。。急!!!

发布网友发布时间：2022-07-03 08:25

共3个回答

热心网友时间：2023-11-05 07:30

Private Sub Command1_Click()
Dim X As String
Dim I As Long
Dim S As String
Dim CH As String

X = Text1.Text
For I = 1 To Len(X)
CH = Mid(X, I, 1)
If CH >= "a " And CH <= "z" Then
S = S + UCase(CH)
ElseIf CH >= "A" And CH <= "Z" Then
S = S + LCase(CH)
End If
Next I
Text2.Text = S
End Sub

热心网友时间：2023-11-05 07:30

Ucase转大写
Lcase转小写

热心网友时间：2023-11-05 07:31

UCase
LCase追问郁闷啊。。。我说的不清楚。。就是要从头到尾的代码。。最好有窗口图像。。

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com

vb 大小写转换函数 大写换小写。。小写换大写、。。急!!!

vb 大小写转换函数大写换小写。。小写换大写、。。急!!!