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
String的成員函數中就有 ToUpper() 和 ToLower()啊
Dim a As String = "abcEd"
Dim b As String = a.ToUpper() //大寫
Dim c As String = a.ToLower() //小寫
可以試著用典型的VB字符串函數UCase解決。
比如先把輸入的內容放到字符串A$中,若A$="a",則經
A$=UCase(A$)轉換后,結果即是A$="A"。
我在程序中是這麼處理的。行不行,試試就知道了。
當前題目:vb.net小寫轉大寫 vb將大寫轉換成小寫
網站鏈接:http://vcdvsql.cn/article24/dooojce.html
成都網站建設公司_創新互聯,為您提供網站設計、自適應網站、網站導航、商城網站、網站收錄、網站策劃
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯