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 個或兩個。 簡化問題。