编写程序:统计文本框中输入的一段英文字母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="A" And C<="D" Then 判断句,如果C大于或等于A且C小于等于D的时候A(Asc(C)-64)=A(Asc(C)-64)+1做这个运算法则End If (结束判断语句 =V=Next For i=1 to 4 穷举次上诉结果Print Chr(64+i) & "出现:" & A(i)
|