VB 以 5 行和 5 行的顺序将文本内容读入程序（紧急！！ （再加30分！ ）

VB 获取文本内容的方式：

zhangdegong then

1 dim hello as variant 2 if 语句必须明确：

如果条件，那么

elseend if

3、hello(1, 1) = zhangdegong 。

4. 如果=张德宫，那么在张德宫。

你还在用VB6，我用的是VS2008，我还没有发布。

你的程序中有很多我不知道的问题，比如变量？ 变量从何而来？ 张德宫、男人、大学、河北、立德盛、男人、大学、北津、万里、女人、河北等到底是什么？

如果=张德公，那么准备好了的判断是什么？ 因此，无法为您修改！

存在很多问题：1.dim hello as variant 定义了一个变量，但随后使用了一个数组：hello（1， 1） 等，不会通过;

2. if 语句必须明确：

如果条件那么必须！

否则是可有可无的。

如果需要，请结束！

3. hello（1， 1） = 张德宫，不知道张德宫是不是变量，如果是变量就没有问题，如果是字符串，就是有问题。

4. 同样，如果 = 张德公，那么张德公是一个变量吗？ 但特定字符串的内容不会是可变的。

等等等等，再检查一次！

else if 应该在一行上，而 end if 在最后丢失，当然它不会通过。

对于对话，每个 if 都没有结束 if。

字符串应加引号 （""），例如：="zhangdegong"，则未添加您的字符串""

如果 ="zhangdegong" then...elseif = "lidesheng" then...elseif = "wanli" then...else

.end if

这并不难，但解释起来并不容易。 比较这个特定的目标文本很容易。

** 如下：arr = split（， vbcrlf）。'用换行符分隔 text1 中的文本，并将其放入数组 arr 中。

arr(0)'label1 的标题内容分配给数组的第一个元素，即文本中的第一行文本。

arr(1)'label1 的标题内容被分配给数组的第二个元素，即 text = arr（2） 中的第二行文本。'label1 的标题内容分配给数组的第三个元素，即文本中的第三行文本。

split 函数根据分隔返回一个数组，其中包含特定数量的拆分器。

VBCRLF 代表 VB 中的换行符。

只要将 Text 的 Multiline 属性设置为 true，Text 就可以显示多行文本，标签的 Caption 属性的显示如下所示： 暗淡 TEM

tem = split(, vbcrlf)= tem(0)

tem(1)

tem(2)

呵呵，已经调试好了，一切都还好

放置一个文本框，将其多行属性设置为 true，然后放置三个标签：1、2、3

放一个按钮。

**如下： Private Sub Command1 Click（）On Error Resume Next

dim s() as string

s = split(, vbcrlf)

s(0) s(1)

s(2)end sub

它应该易于实施。 具体要求更明确，是只导入一个文件，还是导入所有文件。

用户是否需要选择目录或文件？

为什么是 5 个，而不是 1 个或两个。 简化问题。