Question

VB 如何指定要读取txt文本中的多行字符串

比喻要读取第8行到第18行
1. 叭拉狗咬月亮 —— 不知天多高
2. 包米面做元宵 —— 捏不到一块儿
3. 苞谷面做元宵 —— 捏不拢
4. 踩凳子够月亮 —— 差远了
5. 茶壶里下元宵 —— 只进不出
6. 茶壶里煮元宵 —— 满腹心事
7. 初二三的月亮 —— 不明不白
8. 初七八的月亮 —— 半边阴
9. 初一吃十五的饭 —— 前吃后空
10. 大年初一拜年 —— 你好我也好
11. 大年初一吃面条 —— 移风易俗
12. 大年初一打灯笼 —— 年年都一样；年年如此
13. 大年初一打拼伙 —— 穷鬼们聚到一块了
14. 大年初一打平伙 —— 穷凑合
15. 大年初一逮兔子 —— 有它过年，无它也过年
16. 大年初一的袍子 —— 借不得
17. 大年初一翻皇历 —— 头一回；头一遭
18. 大年初一见于面 —— 尽说好话
19. 大年初一借袍子 —— 不识时务；不是时候
20. 大年初一看历书 —— 日子长着哩
21. 大年初一没月亮 —— 年年都一样
22. 大年初一生娃娃 —— 双喜临门
23. 大年初一贴福字 —— 吉庆有余
24. 大年初一早上见面 —— 你好我也好
25. 大年三十的案板 —— 家家忙

结果是：
8. 初七八的月亮 —— 半边阴
9. 初一吃十五的饭 —— 前吃后空
10. 大年初一拜年 —— 你好我也好
11. 大年初一吃面条 —— 移风易俗
12. 大年初一打灯笼 —— 年年都一样；年年如此
13. 大年初一打拼伙 —— 穷鬼们聚到一块了
14. 大年初一打平伙 —— 穷凑合
15. 大年初一逮兔子 —— 有它过年，无它也过年
16. 大年初一的袍子 —— 借不得
17. 大年初一翻皇历 —— 头一回；头一遭
18. 大年初一见于面 —— 尽说好话

Answer 1

Private Sub Command1_Click()
Dim s() As String, i As Integer
Open "txt文本文件名" For Binary As #1
s = Split(Input(LOF(1), #1), vbCrLf)
Close #1
For i = 7 To 17  '第8行到第18行
    Print s(i)
Next
End Sub

追问

到 Print s(i) 时错误 提示下标越界