石油工程開發(fā)課程設(shè)計(jì)報(bào)告-文庫吧資料
2025-04-17 22:57本頁面
【正文】 0).AxisTitle = LogQ/t Dim Index As Integer Index = 1 39。Y軸次要網(wǎng)格數(shù)量 .(VtChAxisIdX). = VtPenStyleDotted .(VtChAxisIdY). = VtPenStyleDotted = False = False = VtChChartType2dXY 39。Y軸主要網(wǎng)格數(shù)量 .(VtChAxisIdX). = 0 39。// .(VtChAxisIdX). = 20 39。// 設(shè)置最大值 .(VtChAxisIdX). = 300 .(VtChAxisIdY). = 3 39。 39。 39。本句代表了：第一點(diǎn)數(shù)據(jù)的X軸坐標(biāo)，Y軸坐標(biāo) Next i MyData(0, 2) = : MyData(0, 3) = For i = 1 To UBound(a) 2 MyData(i, 2) = : MyData(i, 3) = Next i 39。同樣這個(gè)也必須設(shè)置，否則中間有默認(rèn)的顏色 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:\ 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, 3) As Double 39。顏色不自動填充 . 400, 40, 400 39。散點(diǎn)的大小 .Style = VtMarkerStyleFilledDiamond 39。去除連線(Index). = False With (Index).(1).Marker .Visible = True 39。數(shù)據(jù) Dim Index As Integer Index = 1 39。Y軸次要網(wǎng)格數(shù)量 .(VtChAxisIdX). = VtPenStyleDotted .(VtChAxisIdY). = VtPenStyleDotted = False = False = VtChChartType2dXY 39。Y軸主要網(wǎng)格數(shù)量 .(VtChAxisIdX). = 0 39。// .(VtChAxisIdX). = 20 39。// 設(shè)置最大值 .(VtChAxisIdX). = 300 .(VtChAxisIdY). = 3 39。 39。 39。本句代表了：第一點(diǎn)數(shù)據(jù)的X軸坐標(biāo),Y軸坐標(biāo) Next i39。同樣這個(gè)也必須設(shè)置，否則中間有默認(rèn)的顏色 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。顏色不自動填充 . 400, 40, 400 39。散點(diǎn)的大小 .Style = VtMarkerStyleFilledDiamond 39。去除連線(Index). = False With (Index).(1).Marker .Visible = True 39。數(shù)據(jù)Dim Index As Integer Index = 1 39。Y軸次要網(wǎng)格數(shù)量.(VtChAxisIdX). = VtPenStyleDotted.(VtChAxisIdY). = VtPenStyleDotted = False = False = VtChChartType2dXY 39。Y軸主要網(wǎng)格數(shù)量.(VtChAxisIdX). = 0 39。//.(VtChAxisIdX). = 12 39。// 設(shè)置最大值.(VtChAxisIdX). = 18.(VtChAxisIdY). = 1200039。 39。 39。本句代表了：第一點(diǎn)數(shù)據(jù)的X軸坐標(biāo)，Y軸坐標(biāo)Next iFor i = 0 To 15MyData(i, 0) = b(i + 2): MyData(i, 1) = d(i + 2)Next i39。同樣這個(gè)也必須設(shè)置，否則中間有默認(rèn)的顏色 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。
高考資料相關(guān)推薦
鄂ICP備17016276號-1