石油工程開(kāi)發(fā)課程設(shè)計(jì)報(bào)告(編輯修改稿)
2025-05-08 22:57 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 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。x軸坐標(biāo)值Y軸坐標(biāo)值For i = 0 To 15MyData(i, 2) = b(i + 2): MyData(i, 3) = g(i + 2) 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) = c(i + 2)Next i39。波形圖外觀設(shè)置With MSChart3.TitleText = 實(shí)際與預(yù)測(cè)年產(chǎn)量隨時(shí)間變化曲線39。 39。設(shè)置圖線的外觀.(1). = 30.(1). = VtPenStyleSolid39。 39。設(shè)置XY軸.(VtChAxisIdX). = False.(VtChAxisIdY). = False39。// 設(shè)置最大值.(VtChAxisIdX). = 18.(VtChAxisIdY). = 200039。// 設(shè)置最小值.(VtChAxisIdY). = 0.(VtChAxisIdX). = 039。//.(VtChAxisIdX). = 12 39。X軸主要網(wǎng)格數(shù)量.(VtChAxisIdY). = 10 39。Y軸主要網(wǎng)格數(shù)量.(VtChAxisIdX). = 0 39。X軸次要網(wǎng)格數(shù)量.(VtChAxisIdY). = 0 39。Y軸次要網(wǎng)格數(shù)量.(VtChAxisIdX). = VtPenStyleDotted.(VtChAxisIdY). = VtPenStyleDotted = False = False = VtChChartType2dXY 39。設(shè)置圖形為二維散點(diǎn)圖 = MyData 39。數(shù)據(jù)Dim Index As Integer Index = 1 39。設(shè)置圖標(biāo)類型為非自動(dòng)選擇，這樣可以設(shè)置為自己需要的類型(Index).ShowLine = False 39。去除連線(Index). = False With (Index).(1).Marker .Visible = True 39。散點(diǎn)的點(diǎn)是否可見(jiàn) .Size = 80 39。散點(diǎn)的大小 .Style = VtMarkerStyleFilledDiamond 39。選擇菱形的 . = False 39。顏色不自動(dòng)填充 . 400, 40, 400 39。設(shè)置為黑色 . 255, 40, 400 39。同樣這個(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。x軸坐標(biāo)值Y軸坐標(biāo)值For i = 0 To 15MyData(i, 2) = b(i + 2): MyData(i, 3) = h(i + 2) 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。波形圖外觀設(shè)置With MSChart2.TitleText = 實(shí)際與預(yù)測(cè)累計(jì)產(chǎn)量隨時(shí)間變化曲線39。 39。設(shè)置圖線的外觀.(1). = 30.(1). = VtPenStyleSolid39。 39。設(shè)置XY軸.(VtChAxisIdX). = False.(VtChAxisIdY). = False39。// 設(shè)置最大值.(VtChAxisIdX). = 18.(VtChAxisIdY). = 1200039。// 設(shè)置最小值.(VtChAxisIdY). = 0.(VtChAxisIdX). = 039。//.(VtChAxisIdX). = 12 39。X軸主要網(wǎng)格數(shù)量.(VtChAxisIdY). = 10 39。Y軸主要網(wǎng)格數(shù)量.(VtChAxisIdX). = 0 39。X軸次要網(wǎng)格數(shù)量.(VtChAxisIdY). = 0 39。Y軸次要網(wǎng)格數(shù)量.(VtChAxisIdX). = VtPenStyleDotted.(VtChAxisIdY). = VtPenStyleDotted = False = False = VtChChartType2dXY 39。設(shè)置圖形為二維散點(diǎn)圖 = MyData 39。數(shù)據(jù)Dim Index As Integer Index = 1 39。設(shè)置圖標(biāo)類型為非自動(dòng)選擇，這樣可以設(shè)置為自己需要的類型(Index).ShowLine = False 39。去除連線(Index). = False With (Index).(1).Marker .Visible = True 39。散點(diǎn)的點(diǎn)是否可見(jiàn) .Size = 80 39。散點(diǎn)的大小 .Style = VtMarkerStyleFilledDiamond 39。選擇菱形的 . = False 39。顏色不自動(dòng)填充 . 400, 40, 400 39。設(shè)置為黑色 . 55, 40, 400 39。同樣這個(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)ReD
高考資料相關(guān)推薦
鄂ICP備17016276號(hào)-1