本人纯菜鸟。问题是这样的：txt中有两列数据，类似下面的样式。想前面一列数据作为纵坐标，后面一列数据作为横坐标。坐标原点在左下角，X轴范围为0到0.1，Y轴范围为0到1000。如何编写代码啊？想用picture box或者新的窗口来输出图像。万分感谢！
235.000000      0.003119
237.800000      0.003340
240.600000      0.003579
243.400000      0.003839
246.200000      0.004120
249.000000      0.004425
251.800000      0.004755
254.600000      0.005111
257.400000      0.005496
260.200000      0.005913
263.000000      0.006362
265.800000      0.006847
268.600000      0.007369
271.400000      0.007932
274.200000      0.008538
277.000000      0.009190
279.800000      0.009892
282.600000      0.010646
285.400000      0.011455
288.200000      0.012324
291.000000      0.013256
293.800000      0.014256
296.600000      0.015326
299.400000      0.016473
302.200000      0.017700
305.000000      0.019012
307.800000      0.020414
310.600000      0.021913
313.400000      0.023513
316.200000      0.025220
319.000000      0.027041
321.800000      0.028982
324.600000      0.031050
327.400000      0.033252
330.200000      0.035596
333.000000      0.038089
335.800000      0.040741
338.600000      0.043558
341.400000      0.046551
344.200000      0.049728
347.000000      0.053100
349.800000      0.056676
352.600000      0.060468
355.400000      0.064486
358.200000      0.068743
361.000000      0.073250
363.800000      0.078019
366.600000      0.083065
369.400000      0.088401
372.200000      0.094041
375.000000      0.100000

感谢大神回复。我尝试着运行，提示以下错误。
实时错误9，下标越界。点击调试，提示下面一行有问题，麻烦再帮忙看看啊。感激！
Xx(i) = Split(St)(1)

还真的是！我把txt文件换成你给的就行，换回我的文件就不行。不知道为啥啊？我把代码附上。你看看是不是我输出txt的代码有问题啊？
还有，如果我的坐标轴需要根据数据的最小值和最大值来定义，应该怎么弄呢？研究了好久，还是不会，希望大神你能帮忙，万分谢谢！
Private Sub Command1_Click()
Dim a As Double
Dim b As Double
Dim c As Double
Dim d As Double
Dim e As Double
Dim f As Double
Dim n As Double
Dim ST As String
Dim SN As String
Dim TS As String
Dim TP As String
Dim PN As String
Dim i As Integer
Dim iMsg1 As String
Dim iMsg2 As String
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
c = Val(TextBox3.Text)
d = Val(TextBox4.Text)
e = Log(((d / 100) - b / c) / 0.002)
f = Log(b / a)
n = e / f
For i = 0 To 50 Step 1   
        ST = FormatNumber(a + (b - a) / 50 * i, 6, vbTrue)
        SN = FormatNumber((ST / c) + (0.002) * (ST / a) ^ n, 6, vbTrue)
        TS = FormatNumber(ST * (1 + SN), 6, vbTrue)
        TP = Log(1 + SN)   
        PN = FormatNumber(TP - TS / c, 6, vbTrue)
        iMsg1 = iMsg1 & ST & Space(6) & SN & vbCrLf
        iMsg2 = iMsg2 & TS & Space(6) & PN & vbCrLf   
       Open App.Path & "/Engineer Stress_Engineer strain.txt" For Output As #1
       Print #1, iMsg1
       Close #1
       Open App.Path & "/True Stress_Plastic strain.txt" For Output As #2
       Print #2, iMsg2
       Close #2
       Next i
End sub

太感谢了！好人一生平安，阖家幸福安康！测试没有问题了。

感谢回复！已经解决了！