十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
就是你在写代码是用大写字母和小写字母vb.net认为都一样,没区别。你定义变量时Abc
成都创新互联-专业网站定制、快速模板网站建设、高性价比阿图什网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式阿图什网站制作公司更省心,省钱,快速模板网站建设找我们,业务覆盖阿图什地区。费用合理售后完善,十载实体公司更值得信赖。
使用时 用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"。
我在程序中是这麽处理的。行不行,试试就知道了。