UC知道VB字符个数统计
来源：百度知道 编辑：UC知道 时间：2024/05/31 11:46:52
文本框1
子,丑,寅,卯,辰,巳,午,未,丑,申,亥,子,寅,戌,辰,卯,丑,亥,寅,申,辰,卯,子,戌,戌,亥,辰,丑,卯,酉,巳,申,亥,卯,
.
子,丑,寅,卯,辰,巳,午,未,丑,申,亥,子,寅,戌,辰,卯,丑,亥,寅,申,辰,卯,子,戌,戌,亥,辰,丑,卯,酉,巳,申,亥,卯,
.
Private Sub Command1_Click()
Text2.Text = CountWords(Text1.Text)
Dim sMsg$, sExm$
sExm = "可以是任意的字符统计, 呵呵!!! 子丑, 寅,亥,戌,亥,酉,巳,申,酉,巳,申,酉,巳,申,酉,巳,申,戌,亥,卯,午,未,丑,午,未,丑,亥,.,卯,辰,巳,午,未,丑,申,亥,子,寅,戌,辰,卯,丑,亥,寅,申,辰,卯,子,戌,戌,亥,辰,丑,卯,酉,巳,申,亥,卯"
sMsg = "原始字符串: " & vbCr & "----------------------------------" & vbCrLf & sExm & vbCrLf & vbCrLf & vbCrLf
sMsg = sMsg & "使用:CountWords(""..."")的统计结果为:" & vbCrLf & "================" & vbCrLf & CountWords(sExm) & vbCrLf & vbCrLf & vbCrLf
sMsg = sMsg & "使用:CountWords(""..."","&quo