就是你在寫代碼是用大寫字母和小寫字母vb.net認為都一樣,沒區(qū)別。你定義變量時Abc
網站建設公司,為您提供網站建設,網站制作,網頁設計及定制網站建設服務,專注于成都企業(yè)網站定制,高端網頁制作,對成都石雕等多個行業(yè)擁有豐富的網站建設經驗的網站建設公司。專業(yè)網站設計,網站優(yōu)化推廣哪家好,專業(yè)成都網站推廣優(yōu)化,H5建站,響應式網站。
使用時 用abc 它自動會把 abc改成Abc。
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"。
我在程序中是這麼處理的。行不行,試試就知道了。
'代碼來源:代碼街codejie.net
'由于在vb.net里變量名不區(qū)分大小寫(StuName和stuname是一樣的),所以個別變量名需要修改
'在vb.net中,模塊級變量的命名原則是以m_開頭
Public Class Student
Private m_stuNo As String '學生號字段
Private m_stuName As String '學生姓名字段
Private m_stuAge As Integer '學生年齡字段
Private m_stuAddress As String '學生住址字段
'無參構造方法
Public Sub New()
End Sub
'有參構造方法
Public Sub New(ByVal stuNo As String, ByVal stuName As String, ByVal stuAge As Integer, ByVal stuAddress As String)
m_stuNo = stuNo
m_stuName = stuName
m_stuAge = stuAge
m_stuAddress = stuAddress
End Sub
'學生號屬性
Public Property StuNo() As String
Get
Return m_stuNo
End Get
Set(ByVal value As String)
m_stuNo = value
End Set
End Property
'學生姓名屬性
Public Property StuName() As String
Get
Return m_stuName
End Get
Set(ByVal value As String)
m_stuName = value
End Set
End Property
'學生年齡屬性
Public Property StuAge() As Integer
Get
Return m_stuAge
End Get
Set(ByVal value As Integer)
m_stuAge = value
End Set
End Property
'學生住址屬性
Public Property StuAddress() As String
Get
Return m_stuAddress
End Get
Set(ByVal value As String)
m_stuAddress = value
End Set
End Property
End Class
1:將文件拷貝到WORD中
2:點擊菜單“格式”——更改大小寫,出現對話框
3:可以選擇“大寫”或者“切換大小寫”,就都可以換過來了
最后,再復制回到你所需要的文檔中即可!
String的成員函數中就有 ToUpper() 和 ToLower()啊
Dim a As String = "abcEd"
Dim b As String = a.ToUpper() //大寫
Dim c As String = a.ToLower() //小寫