Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
創(chuàng)新互聯(lián)建站是一家專注網(wǎng)站建設、網(wǎng)絡營銷策劃、重慶小程序開發(fā)、電子商務建設、網(wǎng)絡推廣、移動互聯(lián)開發(fā)、研究、服務為一體的技術型公司。公司成立10年以來,已經(jīng)為成百上千家成都酒店設計各業(yè)的企業(yè)公司提供互聯(lián)網(wǎng)服務?,F(xiàn)在,服務的成百上千家客戶與我們一路同行,見證我們的成長;未來,我們一起分享成功的喜悅。
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"。
我在程序中是這麼處理的。行不行,試試就知道了。
dim a(x to n,m to i) 就是定義了個有(n-m+1)*(i-m+1)個元素的數(shù)組其他一維和多維的類似