如何编写一个可把输入的英文句子中的单词拆分出来的vb程序

Private Sub command1_click()

stri = "启配饥闭hello how are you"

a = Split(stri, " "悄肢指)

For i = 0 To UBound(a)

Print a(i)

Next i

End Sub

1、新建一个文本文档，把Word上的内容全部复制到文本文档，然后关闭并保存。

2、新建excel表格并打开。然后点击：数据 - 导入外部数据 - 导入数据。

3、d窗中【文件类型】吵亩选“所有文件”，然后找到刚保存的文本文档并选中它，再点“打开”按钮。

4、在接下来的文本导入向导中：选中“分割符号”下一步；勾选“空格”，下一步；完成。

5、如果excel中除了第一列为“英文单毕碰雹词”外，后面的“释义”部分导入后放在多列。

为了方便说明，假设“释义”部分导入后放在了B、C、D三列，那么，在E2单元格中输入公式：

=B2&C2&D2

公式完成后，沿手帆着E列向下复制公式一直到最后一个数据行。

全选E列，右键“复制”，再右键“选择性粘贴”-“数值”。

删除B、C、D三列即可。。。

Text1.Text = ""

List1.Clear

Text1.SetFocus

st = Text1.Text

for i = 0 to n

p = Mid(Text1.Text, i, 1)

q = q + p

q = "塌余配"团指毁做

---