做一个句子中单词数目的提取系统，我用vb只是计算的空格数，后来发现输入两个空格以上就会出错，回车的时候也出错，哪位帮忙指点一下，谢谢了
Dim a As String
a = Text2.Text
Dim c As Integer
Dim m As Integer
m = 0
c = Len(a)
ReDim d(c)
For i = 1 To c
If Mid(a, i, 1) = \" \" Then
m = m + 1
End If
Next i

Text1.Text = m + 1
End Sub

输入一个空格还行，两个以上就不行了，还有就是回车的时候也不行

谢谢了,你做的很精简,我在我的第一个循环后面又加上了你那个while循环,也差不多了
   If Mid(a, i, 1) = " " Then   
    m = m + 1
   While Mid(a, i, 1) = " "
      i = i + 1
     Wend
     
   
   End If

$这个字符小弟还没有用过呢     说 If Mid(a, i, 1) = " "是错误的,但是程序还可以执行啊,而且结果也对, 那是为什么啊?

就是我不知道怎么在窗体中添加一个菜单，里面有一“打开”选项，可以打开本机内部的文本文件，把文件内容添加到text2中去,然后再进行统计工作
   请帮我看一下吧,谢谢了

谢谢大家了!!! Private Sub Command4_Click() '点命令按纽.执行下列代码 Dim filename1 As String ' 定义一个字符串变量 Dim fsomes As New FileSystemObject, txtmes As TextStream '创建 FSO 对象的一个实例 dia1.ShowOpen '打开对话框, filename1 = dia1.FileName '将对话框选取的路径给字符串 Set txtmes = fsomes.OpenTextFile(filename1, ForReading) '通过FSO 对象的一个实例读取文件,并把文件内容送给文本框,text2 Text2.Text = txtmes.ReadAll txtmes.Close '关闭 Exit Sub End Sub

Private Sub Form_Load() '添加Windows XP Blue风格 BSE1.SchemeStyle = 0 BSE1.EndSubClassing BSE1.InitSubClassing End Sub Private Sub Combo1_Change()

End Sub Private Sub Command1_Click() '点命令按纽.执行下列代码 Dim a As String Dim m As Integer '定义am为字符串变量 Dim c As Integer '定义c为整形变量

a = Text2.Text 'a得到text2中输入的内容 m = 0 c = Len(a) 'c得到a的长度.计字符个数 If a = "" Then '判断a是否为空. Text1.Text = 0 '为空是,在text1中输出0 Else '不为空是执行下面6行代码 For i = 1 To c '循环c次,即有几个字符,就判断几次 If Mid(a, i, 1) = " " Then '判断如果a中的第i个字符为空格,让m加一. m = m + 1 While Mid(a, i, 1) = " " '如果a中的第i个字符为空格,就让i加一,直到i个字符不为空格为止, i = i + 1 Wend End If '判断结束 Next i '循环结束

Text1.Text = m + 1 '输出m的值 End If

End Sub

Private Sub Command2_Click() Text1.Text = "" Text2.Text = ""

End Sub

Private Sub Command3_Click() Unload Me

End Sub 我想再加上一点特色的，不知道该加点什么，大家给提点意见吧！！！

[此贴子已经被作者于2005-7-11 9:21:39编辑过]

谢谢，我已经设置好了