AD="12B12B13B13B"
Msgbox"AD包含B的数量是：" （这代码怎么写？）
实现，判断AD字符串内包含多少个相同的字符？
第1个回答 2011-07-11
Msgbox "AD包含B的数量是：" & len(ad)追问
Public Sub test()
Dim i%, AD$
AD = "12B12B13B13B"
i = Len(AD) - Len(Replace(AD, "B", ""))
MsgBox "AD包含B的数量是：" & i, vbInformation, ""
End Sub
这个例子~！
