新网创想网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
String的成员函数中就有 ToUpper() 和 ToLower()啊
公司主营业务:成都网站设计、网站建设、移动网站开发等业务。帮助企业客户真正实现互联网宣传,提高企业的竞争能力。创新互联公司是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化,感谢他们对我们的高要求,感谢他们从不同领域给我们带来的挑战,让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联公司推出大埔免费做网站回馈大家。
Dim a As String = "abcEd"
Dim b As String = a.ToUpper() //大写
Dim c As String = a.ToLower() //小写
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim s As String = "0Ff0ajkh04624F"
Dim i As Integer = 0
Dim sTemp As String = ""
Dim ss As String = ""
For i = 1 To Strings.Len(s)
sTemp = Mid(s, i, 1)
If Asc(sTemp) = 65 And Asc(sTemp) = 90 Then
sTemp = LCase(sTemp)
ElseIf Asc(sTemp) = 95 And Asc(sTemp) = 122 Then
sTemp = UCase(sTemp)
Else
sTemp = sTemp
End If
ss = ss sTemp
Next
MsgBox(ss)
End Sub
可以试着用典型的VB字符串函数UCase解决。
比如先把输入的内容放到字符串A$中,若A$="a",则经
A$=UCase(A$)转换后,结果即是A$="A"。
我在程序中是这麽处理的。行不行,试试就知道了。
用Ucase("")函数,("")中放字母
效果:ucase("abc")
结果:ABC