实验时间     1号室压力     2号室压力          速度        1号室温度        2号室温度
0.2          0.01        0.06        200          116.1        116
0.4          0.01        0.03        200          116.1        116
0.6          0.01        0.03        200          116.1        116
0.8          0.01        0.03        200          116.1        116
1          0        0.03        200          116.1        116
1.2          0        0.07        200          116.1        116
1.4          0.01        0.07        200          116.1        116
1.6          0.01        0.04        200          116.1        115.9
1.8          0.01        0.04        200          116.1        115.9
2          0.01        0.04        200          116.1        115.9
2.2          0        0.04        200          116.1        115.9
2.4          0        0.04        200          116.1        115.9
2.6          0        0.04        200          116.1        115.9
2.8          0        0.04        200          116.1        115.9

Private Sub Command1_Click()
    Dim a1(), b1(), c1(), d1(), e1(), f1() As Single
    Dim a, b, c, d, e, f
    Open "c:\test.txt" For Input As #1
    Dim i As Long
    i = 1
    Do While Not EOF(1)
        Input #1, a, b, c, d, e, f
        ReDim Preserve a1(i)
        ReDim Preserve b1(i)
        ReDim Preserve c1(i)
        ReDim Preserve d1(i)
        ReDim Preserve e1(i)
        ReDim Preserve f1(i)
        a1(i) = a
        b1(i) = b
        c1(i) = c
        d1(i) = d
        e1(i) = e
        f1(i) = f
        i = i + 1
    Loop
    Close #1
    Dim n As Integer
    n = i
    For i = 1 To n - 1
        Print Format(a1(i), "0.00"); ","; Format(b1(i), "0.00"); ","; Format(c1(i), "0.00"); ","; Format(d1(i), "0.00"); ","; Format(e1(i), "0.00"); ","; Format(f1(i), "0.00")
    Next
End Sub

关注