vb
这段程序里n = (Len(s1) - Len(Replace(s1, s2, ""))) / Len(s2)什么意思啊
Private Sub Command1_Click()
Open "E:\123.txt" For Binary As #1
s1 = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1
s2 = " "
n = (Len(s1) - Len(Replace(s1, s2, ""))) / Len(s2)
Text1.Text = Val(n)
End Sub