String的成員函數(shù)中就有 ToUpper() 和 ToLower()啊
創(chuàng)新互聯(lián)公司是一家集網(wǎng)站建設(shè),丹寨企業(yè)網(wǎng)站建設(shè),丹寨品牌網(wǎng)站建設(shè),網(wǎng)站定制,丹寨網(wǎng)站建設(shè)報價,網(wǎng)絡(luò)營銷,網(wǎng)絡(luò)優(yōu)化,丹寨網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè),幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強企業(yè)競爭力??沙浞譂M足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時我們時刻保持專業(yè)、時尚、前沿,時刻以成就客戶成長自我,堅持不斷學(xué)習(xí)、思考、沉淀、凈化自己,讓我們?yōu)楦嗟钠髽I(yè)打造出實用型網(wǎng)站。
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字符串函數(shù)UCase解決。
比如先把輸入的內(nèi)容放到字符串A$中,若A$="a",則經(jīng)
A$=UCase(A$)轉(zhuǎn)換后,結(jié)果即是A$="A"。
我在程序中是這麼處理的。行不行,試試就知道了。