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