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

 我来答
百度网友f73bdb1
2011-03-10 · TA获得超过2176个赞
知道小有建树答主
回答量:1077
采纳率:90%
帮助的人:372万
展开全部
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
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
killme2008
2011-03-10 · TA获得超过1529个赞
知道小有建树答主
回答量:1020
采纳率:25%
帮助的人:267万
展开全部
Ucase转大写
Lcase转小写
更多追问追答
追问
我要完整的代码啊
追答
.....你问的不是函数么?
这个函数就是啊,例如:
Ucase("abcde")
执行结果就是ABCDE
我写个完整的程序
SUB 转为小写()
dim x as string
x=inputbox("请输入英文字母:")
msgbox x & "变为小写之后是" & Lcase(x)
End Sub
这个写得够明白了吧
SUB 转为大写()
dim x as string
x=inputbox("请输入英文字母:")
msgbox x & "变为大写之后是" & Ucase(x)
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友305f36e55
2011-03-10 · 超过10用户采纳过TA的回答
知道答主
回答量:30
采纳率:0%
帮助的人:24.8万
展开全部
UCase
LCase
追问
郁闷啊。。。   我说的不清楚。。 就是要从头到尾的代码。。  最好有窗口图像。。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

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

类别

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

说明

0/200

提交
取消

辅 助

模 式