Question

你好，想问一下vb怎么设置统计字数？

文字数量可用len函数获取，另外需要排除其中的起换行作用的chr(13)和chr(10)两个符号，可使用循环语句用mid函数逐个字符比较；也可以利用这两个符号统计段落数
另外，我是用另外一个窗体打开，这段程序该放到哪呢？
谢谢啦初学vb希望能得到大神指教

Answer 1

拖一个按钮和textbox，代码放在按钮的点击事件中（双击按钮生成事件）。文本框用来显示。

追问

字数和段落的统计代码分别怎么写啊~

追答

Private Sub Command1_Click()
Me.Cls
Dim a() As String
Dim s As String
s = Replace(Text1.Text, vbLf, "")
a = Split(s, vbCr)
Dim line As Integer
line = UBound(a) + 1
Print "Text1文本框中共有："; line; "行。"
Dim num As Integer
Dim char As Integer
For i = 0 To line - 1
Dim v As String
v = a(i)
Dim vc As Integer
vc = Len(v)
For j = 1 To vc
Dim vl As String
vl = Mid(v, j, 1)
Select Case Asc(vl)
Case 48, 49, 50, 51, 52, 53, 54, 55, 56, 57 '数字
num = num + 1
Case Else
char = char + 1
End Select
Next
Next
Print "数字共"; num; "个；"; "非数字（不包括数字和换行符）共"; char; "个。其他字符查询ASCII表。"
End Sub