看流星社区 › 其它编程技术 › vb 大小写转换函数 大写换小写。。小写换大写、。。急！！！

clarexxg 发表于 2014-7-10 09:20:54

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

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

让一切随风 发表于 2014-7-10 09:21:07

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

查看完整版本: vb 大小写转换函数 大写换小写。。小写换大写、。。急！！！