VB在文本框中输入一些字符和数字,有什么办法让字符中的大小写同时转换并且其他字符保留???

 我来答
在晴天的雨伞
2016-06-07 · TA获得超过6869个赞
知道大有可为答主
回答量:5761
采纳率:86%
帮助的人:1211万
展开全部
转换小写为大写:LCase函数,例如XX = LCase("abcd"),返回值:XX = "ABCD"
转换大写为小写:UCase函数,例如XX = UCase("ABCD"),返回值:XX = "abcd"
可以:XX = LCase(Text1.Text) 或 XX = UCase(Text1.Text),全部转换为大写或小写;如果 Text1.Text 中的大写转换为小写,小写转换为大写,需要逐字符检测并转换。

代码如下:
Private Sub Command1_Click()
Dim XX As String, YY As String, ZZ As String, AA As Integer, I As Integer
XX = Text1.Text
AA = Len(XX)
For I = 1 To AA
ZZ = Mid(XX, I, 1)
If Asc(ZZ) >= 65 And Asc(ZZ) <= 90 Then
ZZ = LCase(ZZ)
ElseIf Asc(ZZ) >= 97 And Asc(ZZ) <= 122 Then
ZZ = UCase(ZZ)
End If
YY = YY & ZZ
Next I
Text1.Text = YY
End Sub
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式