菜鸟求助VB

来源：百度知道编辑：UC知道时间：2024/06/11 20:54:24

请高手帮我看一下这段程序
Private Sub Command1_Click()
Dim a(1 To 26) As Integer, textlen As Integer
Dim i As Integer, j As Integer, c As String * 1
Label1.Caption = ""
textlen = Len(Text1)
For i = 1 To textlen
c = UCase(Mid(Text1, i, 1))
If (c >= "A" And c <= "Z") Then
j = Asc(c) - 65 + 1
a(j) = a(j) + 1
End If
Next i
For j = 1 To 26
If a(j) > 0 Then
Label1.Caption = Label1.Caption & Chr$(j + 64) & "=" & a(j) & ""
End If
Next j
End Sub
其中的
For i = 1 To textlen
c = UCase(Mid(Text1, i, 1))
If (c >= "A" And c <= "Z") Then
j = Asc(c) - 65 + 1
a(j) = a(j) + 1
End If
Next i
是什么意思啊

For i = 1 To textlen '从1循环到textlen
c = UCase(Mid(Text1, i, 1)) 'c =text1内字符串的第一个字符并转换成大写
If (c >= "A" And c <= "Z") Then '如果C在A-Z范围内那么
j = Asc(c) - 65 + 1
a(j) = a(j) + 1
End If
Next i

剩下的应该不用我说了吧

菜鸟求助VB程序菜鸟求助VB VB菜鸟求助菜鸟求助vb数据库 vb菜鸟求助，懂vb的帮帮忙~~ [求助]我是个VB.NET菜鸟菜鸟求助：VB如何读取大文件？ VB菜鸟？？？？？？？？？？？？？？哦！小小菜鸟求助一道VB程序题。用vb编写一个刚刚接触VB的菜鸟～求助ing