vb 急需 作业刚学的数组不怎么会求解求解急需刚学不怎么会明天要交vb?基础[解决办法]今天心情好，给你做一
vb 急需 作业 刚学的数组 不怎么会 求解
求解 急需 刚学 不怎么会 明天要交
vb? 基础
[解决办法]
今天心情好，给你做一题。要另一题答案请先结贴给分。
做第二题吧：
Dim count(0 To 127) As Integer
For i = 1 To Len(Text1.Text)
count(Asc(UCase(Mid(Text1.Text, 1)))) = count(Asc(UCase(Mid(Text1.Text, 1)))) + 1
Next
For i = 65 To 91
Label1.Caption = Label1.Caption + Chr(i) & "=" & Val(count(i)) & " "
Next