【正文】 strTemp) 1)Next iEnd WithClose 1End SubPrivate Sub Command3_Click()Dim a() As StringDim b() As StringDim c() As StringDim d() As StringDim e() As StringDim f() As StringDim i As Integeri = 1Open d:\ For Input As 1On Error GoTo hDo While Not EOF(1)ReDim Preserve a(i)ReDim Preserve b(i)ReDim Preserve c(i)ReDim Preserve d(i)Input 1, a(i), b(i), c(i), d(i)i = i + 1Looph:Close 1n = UBound(a)ReDim e(1 To n) As StringReDim f(1 To n) As StringFor i = 2 To UBound(a)e(i) = Str(Log(Val(c(i)) / Val(b(i))) / Log(Val(10)))f(i) = Str(Val(b(i)) ^ 2)Next iWith MSFlexGrid3(0, 0) = 年份(0, 1) = LogQ/t(0, 2) = t2.Rows = UBound(a)For i = 2 To UBound(a)(i 1, 0) = a(i)(i 1, 1) = e(i)(i 1, 2) = f(i)Next iEnd WithEnd SubPrivate Sub Command4_Click()k = 10 ^ Val()l = 1 / ( * Val())Dim a() As StringDim b() As StringDim c() As StringDim d() As StringDim g() As SingleDim i As Integeri = 1Open d:\ For Input As 1On Error GoTo hDo While Not EOF(1)ReDim Preserve a(i)ReDim Preserve b(i)ReDim Preserve c(i)ReDim Preserve d(i)Input 1, a(i), b(i), c(i), d(i)i = i + 1Looph:Close 1n = UBound(a)ReDim g(2 To n + 2) As SingleFor i = 2 To ng(i) = k * Val(b(i)) * Exp((Val(b(i)) ^ 2 / l))Next iWith MSFlexGrid4.Rows = UBound(a)For i = 0 To n 2(i + 1, 4) = g(i + 2)Next iEnd WithReDim MyData(n 2, 3) As Double39。 39。// 設(shè)置最大值.(VtChAxisIdX). = 18.(VtChAxisIdY). = 200039。Y軸主要網(wǎng)格數(shù)量.(VtChAxisIdX). = 0 39。數(shù)據(jù)Dim Index As Integer Index = 1 39。散點的大小 .Style = VtMarkerStyleFilledDiamond 39。同樣這個也必須設(shè)置，否則中間有默認的顏色 End WithEnd WithEnd SubPrivate Sub Command5_Click()k = 10 ^ Val()l = 1 / ( * Val())Dim a() As StringDim b() As StringDim c() As StringDim d() As StringDim h() As SingleDim i As Integeri = 1Open d:\ For Input As 1On Error GoTo hDo While Not EOF(1)ReDim Preserve a(i)ReDim Preserve b(i)ReDim Preserve c(i)ReDim Preserve d(i)Input 1, a(i), b(i), c(i), d(i)i = i + 1Looph:Close 1n = UBound(a)ReDim h(2 To n + 2) As SingleFor i = 2 To nh(i) = k * l / 2 * (1 Exp((Val(b(i)) ^ 2 / l)))Next iWith MSFlexGrid4.Rows = UBound(a)For i = 0 To n 2(i + 1, 5) = h(i + 2)Next iEnd WithReDim MyData(n 2, 3) As Double39。 39。// 設(shè)置最大值.(VtChAxisIdX). = 18.(VtChAxisIdY). = 1200039。Y軸主要網(wǎng)格數(shù)量.(VtChAxisIdX). = 0 39。數(shù)據(jù)Dim Index As Integer Index = 1 39。散點的大小 .Style = VtMarkerStyleFilledDiamond 39。同樣這個也必須設(shè)置，否則中間有默認的顏色 End WithEnd WithEnd SubPrivate Sub Command6_Click()Dim a() As StringDim b() As StringDim c() As StringDim d() As StringDim e() As StringDim f() As StringDim i As Integeri = 1Open d:\ For Input As 1On Error GoTo hDo While Not EOF(1)ReDim Preserve a(i)ReDim Preserve b(i)ReDim Preserve c(i)ReDim Preserve d(i)Input 1, a(i), b(i), c(i), d(i)i = i + 1Looph:Close 1n = UBound(a)ReDim e(2 To n) As StringReDim f(2 To n) As StringFor i = 2 To UBound(a)e(i) = Str(Log(Val(c(i)) / Val(b(i))) / Log(Val(10)))f(i) = Str(Val(b(i)) ^ 2)Next iReDim MyData(n 2, 1) As Double 39。 39。// 設(shè)置最大值 .(VtChAxisIdX). = 300 .(VtChAxisIdY). = 3 39。Y軸主要網(wǎng)格數(shù)量 .(VtChAxisIdX). = 0 39。數(shù)據(jù) Dim Index As Integer Index = 1 39。散點的大小 .Style = VtMarkerStyleFilledDiamond 39。同樣這個也必須設(shè)置，否則中間有默認的顏色 End WithEnd WithEnd SubPrivate Sub Command7_Click()Dim a() As StringDim b() As StringDim c() As StringDim d() As StringDim e() As StringDim f() As StringDim i As Integeri = 1Open d:\