可以试着用典型的VB字符串函数UCase解决。
创新互联专注为客户提供全方位的互联网综合服务，包含不限于网站建设、成都网站制作、平度网络推广、小程序制作、平度网络营销、平度企业策划、平度品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；创新互联为所有大学生创业者提供平度建站搭建服务，24小时服务热线：18980820575，官方网址：www.cdcxhl.com
比如先把输入的内容放到字符串A$中，若A$="a",则经
A$=UCase(A$)转换后，结果即是A$="A"。
我在程序中是这麽处理的。行不行，试试就知道了。
String的成员函数中就有 ToUpper() 和 ToLower()啊
Dim a As String = "abcEd"
Dim b As String = a.ToUpper() //大写
Dim c As String = a.ToLower() //小写
'给数组赋值
dim d(6) as integer
d(1)=11
d(2)=32
d(3)=25
d(4)=45
d(5)=9
d(6)=5
'获取最大值（采用打擂台的思路）
dim MyMax as integer
dim i as integer
MyMax = d(1) '假设第1个元素最大
for i = 2 To Ubound(d) '从第2个元素开始到最后一个元素
'如果当前元素比MyMax的值大，就把当前元素保存到MyMax
if d(i) MyMax Then
MyMax = d(i)
end if
next i
msgbox MyMax
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
那就是不能初始长度了，而且结构中定义个无参数的构造函数也不行，所以无法初始长度。
这有必要吗，在使用时重定义它的长度也可以。
Structure MODULEENTRY32
Dim Size As Integer
Dim Mid As Integer
Dim pid As Integer
Dim gusage As Integer
Dim pusage As Integer
Dim base As Integer
Dim 大小 As Integer
Dim 句柄 As Integer
Dim 文件名() As Byte
Dim 完整路径() As Byte
Sub t()
文件名 = Array.CreateInstance(GetType(Byte), 45) '建立数组
ReDim 文件名(45) '定义数组长度，其实数组也是对象，相当生成个实例。
文件名 = System.Text.ASCIIEncoding.ASCII.GetBytes("c:\windows\test.txt") '这两个数组内容多半是从字符串转换而来的，根本就不需要初始长度
End Sub
dim a(x to n,m to i) 就是定义了个有(n-m+1)*(i-m+1)个元素的数组其他一维和多维的类似
