UC知道懂VB编程的人进来：一道VB题目
来源：百度知道 编辑：UC知道 时间：2024/05/28 04:43:32
编写程序：统计文本框中输入的一段英文字母A,B,C,D出现的次数及频率（某字母出现的频率=其出现的次数/总字母数*100%）字母不用区分大小写。
Private Sub Command1_Click()
Dim S As String, A(1 To 4) As Integer
S = UCase(Text1.Text)
For i = 1 To Len(S)
c = Mid(S, i, 1)
If c >= "A" And c <= "D" Then
A(Asc(c) - 64) = A(Asc(c) - 64) + 1
End If
Next
Debug.Print "总共输入字符"; Len(S); "个"
For i = 1 To 4
Debug.Print Chr(64 + i) & "出现:" & A(i) & "次,出现频率:" & A(i) * 100 / Len(S) & "%"
Next
End Sub
Private Sub Form_Load()
Text1.Text = ""
End Sub
还是把分给0871love那位大哥吧！他回答得好！
Private Sub Command1_Click()
Dim S as string,A(1 to 4) as integer
S=Ucase(text1.text)
For i=1 to Len(S)
c=(Mid(S,i,1)
If C>="A" And C<="D" Then
A(Asc(C)-64)=A(Asc(C)-64)+1
End If
Next
For i=1 to 4
Print Chr(64+i) & "出现:" & A(i) & "次,出现频率:" & A(i)*100/Len(S) & "%"
Next
End Sub