您当前浏览:魔域999一区>banana"
用b来贮存出现过3次及以上的字符数
例如：word="banana"，则a=1（字母n呈现过2次）,b=1（字母a涌现过3次）
答：
Private Sub Form_Click()
Dim a As Integer, b As Integer, m As Integer, i As Integer
Dim word As String, s As String
word = "bananafdsgffsdghjfgjhgwrewerfdfsdfdsfdsfas"
a = 0
b = 0
Do While Len(word) > 0
s = Left(word, 1)
i = 1
m = 0
Do While i > 0
m = m + 1
i = InStr(i + 1, word, s)
Loop
If m > 2 Then
b = b + 1
ElseIf m = 2 Then
a = a + 1
End If
word = Replace(word, s, "")
Loop
Print "a="; a
Print "b="; b
End Sub
百度晓得网址：http://zhidao.baidu.com/question/132695825.html