Private Sub btnCompute2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCompute2.Click
Dim count As Integer = 0, i As Integer
For i = 0 To (txtShuru.Text.Length() - 1)
If (txtShuru.Text(i).Equals(" "c)) Then Continue For
count += 1
Next
lblshow2.Text = "总共有" & count.ToString() & "字符！"
End Sub
这段代码是为了计算字符数时把空格不计算在内，为啥Equals(" "c)引号好面要加个c？小弟初学VB2005,
望高手赐教，小弟先谢谢了。

用来标示" "是一个字符. 而不 是一个字符串.  

谢了

Private Sub btnCompute2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCompute2.Click
lblshow2.Text = "总共有" & len(txtshuru.replace(" ","")).tostring & "字符！"
End Sub

一行就可以实现了