Option ExplicitPrivate Sub Command1_Click()Dim LineStr As String
'用来存放文本文件的内容Dim N As IntegerN = 0Open "c:\1.txt" For Input As #1Do While Not EOF(1) ' 循环至文件尾 N = N + 1 Line Input #1, LineStr '读入一行 If (N - 1) Mod 4 = 0 Then
Print LineStr End IfLoopClose #1 ' 关闭文件。End Sub...