【正文】 = SHUZUH(i) .TextMatrix(i, 2) = Format(SHUZUP(i), ) Next i For i = 0 To 2.ColAlignment(i) = 4 39。設置每一列的單元格內(nèi)容居中Next i.ColWidth(0) = 800.ColWidth(1) = 900.ColWidth(2) = 900End With39。對于二維散點圖來說，第一列代表了X軸坐標，第二列代表了Y軸坐標39。因此在定義二維數(shù)據(jù)時，看采用二維數(shù)組。第二維定義為0到1，第一維代表了第幾點數(shù)據(jù)ReDim MyData(NN, 1) As Single 39。x軸坐標值Y軸坐標值 For i = 0 To NN MyData(i, 0) = SHUZUH(i): MyData(i, 1) = SHUZUP(i) Next i39。Mschart圖外觀設置With MSChart1 .TitleText = 39。 39。設置圖線的外觀 .(1). = 30 39。線寬 .(1). = VtPenStyleSolid 39。實線39。 39。設置XY軸 .(VtChAxisIdX). = False .(VtChAxisIdY). = False 39。// 設置最大值 .(VtChAxisIdX). = (SHUZUH(NN) \ 100 + 1) * 100 .(VtChAxisIdY). = (SHUZUP(NN) \ 1 + 1) * 1 39。// 設置最小值 .(VtChAxisIdY). = 0 .(VtChAxisIdX). = 0 39。// 設置繪圖區(qū)網(wǎng)格 .(VtChAxisIdX). = Combo1 amp。 井深（m) .(VtChAxisIdY). = Combo1 amp。 壓力(MPa) .(VtChAxisIdX). = SHUZUH(NN) \ 100 + 1 39。X軸主要網(wǎng)格數(shù)量 .(VtChAxisIdY). = SHUZUP(NN) \ 1 + 1 39。Y軸主要網(wǎng)格數(shù)量 .(VtChAxisIdX). = 0 39。X軸次要網(wǎng)格數(shù)量 .(VtChAxisIdY). = 0 39。Y軸次要網(wǎng)格數(shù)量 .(VtChAxisIdX). = VtPenStyleDotted 39。點線 .(VtChAxisIdY). = VtPenStyleDotted = False = False = VtChChartType2dXY 39。設置圖形為二維散點圖 = MyData 39。數(shù)據(jù)End WithEnd SubPrivate Sub miduquxian_Click()End SubPrivate Sub yaliquxian_Click()End Sub（6） 窗體5中的程序Private Sub Form_Load()With MFG.Cols = 3.Rows = NN + 1.TextMatrix(0, 0) = 計算點: .TextMatrix(0, 1) = 井深(m): .TextMatrix(0, 2) = 井溫(℃)For i = 1 To (NN) .TextMatrix(i, 0) = (i) .TextMatrix(i, 1) = SHUZUH(i) .TextMatrix(i, 2) = Format(SHUZUT(i), ) Next i For i = 0 To 2.ColAlignment(i) = 4 39。設置每一列的單元格內(nèi)容居中Next iEnd WithDim min As Single, max As Single, tmax As Single, tmin As Singletmin = SHUZUT(1): tmax = SHUZUT(1)For i = 2 To NNIf tmax SHUZUd(i) Then tmax = SHUZUd(i)If tmin SHUZUd(i) Then tmin = SHUZUd(i)Next imin = tminmax = tmax39。對于二維散點圖來說，第一列代表了X軸坐標，第二列代表了Y軸坐標39。因此在定義二維數(shù)據(jù)時，看采用二維數(shù)組。第二維定義為0到1，第一維代表了第幾點數(shù)據(jù)ReDim MyData(NN, 1) As Single 39。x軸坐標值Y軸坐標值 For i = 0 To NN MyData(i, 0) = SHUZUH(i): MyData(i, 1) = SHUZUT(i) Next i39。Mschart圖外觀設置With MSChart1 .TitleText = 39。 39。設置圖線的外觀 .(1). = 30 39。線寬 .(1). = VtPenStyleSolid 39。實線39。 39。設置XY軸 .(VtChAxisIdX). = False .(VtChAxisIdY). = False 39。// 設置最大值 .(VtChAxisIdX). = (SHUZUH(NN) \ 100 + 1) * 100 .(VtChAxisIdY). = (SHUZUT(NN) \ 5 + 1) * 5 39。// 設置最小值 .(VtChAxisIdY). = (min \ 5) * 5 .(VtChAxisIdX). = 0 39。// 設置繪圖區(qū)網(wǎng)格 .(VtChAxisIdX). = Combo1 amp。 井深（m) .(VtChAxisIdY). = Combo1 amp。 井溫(℃) .(VtChAxisIdX). = SHUZUH(NN) \ 100 + 1 39。X軸主要網(wǎng)格數(shù)量 .(VtChAxisIdY). = SHUZUT(NN) \ 5 + 1 39。Y軸主要網(wǎng)格數(shù)量 .(VtChAxisIdX). = 0 39。X軸次要網(wǎng)格數(shù)量 .(VtChAxisIdY). = 0 39。Y軸次要網(wǎng)格數(shù)量 .(VtChAxisIdX). = VtPenStyleDotted 39。點線 .(VtChAxisIdY). = VtPenStyleDotted = False 39。坐標布局人工還是自動 = False = VtChChartType2dXY 39。設置圖形為二維散點圖 = MyData 39。數(shù)據(jù)End WithEnd SubPrivate Sub yalijingshen_Click()End SubPrivate Sub yalimisu_Click()End Sub（7） 窗體6中的程序Private Sub Form_Load()With MFG.Cols = 3.Rows = NN + 1.TextMatrix(0, 0) = 計算點: .TextMatrix(0, 1) = 井深(m): .TextMatrix(0, 2) = 密度(Kg/m3)For i = 1 To (NN) .TextMatrix(i, 0) = (i) .TextMatrix(i, 1) = SHUZUH(i) .TextMatrix(i, 2) = Format(SHUZUd(i), ) Next i For i = 0 To 2.ColAlignment(i) = 4 39。設置每一列的單元格內(nèi)容居中Next i.ColWidth(0) = 800.ColWidth(1) = 900.ColWidth(2) = 1300End With39。求最值Dim min As Single, max As Single, dmax As Single, dmin As Singledmax = SHUZUd(1): dmin = SHUZUd(1)For i = 2 To NNIf dmax SHUZUd(i) Then dmax = SHUZUd(i)If dmin SHUZUd(i) Then dmin = SHUZUd(i)Next imin = dminmax = dmax39。對于二維散點圖來說，第一列代表了X軸坐標，第二列代表了Y軸坐標39。因此在定義二維數(shù)據(jù)時，看采用二維數(shù)組。第二維定義為0到1，第一維代表了第幾點數(shù)據(jù)ReDim MyData(NN, 1) As Single 39。x軸坐標值Y軸坐標值 For i = 0 To NN MyData(i, 0) = SHUZUH(i): MyData(i, 1) = SHUZUd(i) Next i39。Mschart圖外觀設置With MSChart1 .TitleText = 39。 39。設置圖線的外觀 .(1). = 30 39。線寬 .(1). = VtPenStyleSolid 39。實線39。 39。設置XY軸 .(VtChAxisIdX). = False .(VtChAxisIdY). = False 39。// 設置最大值 .(VtChAxisIdX). = (SHUZUH(NN) \ 100 + 1) * 100 .(VtChAxisIdY). = (max \ 100 + 1) * 100 39。// 設置最小值 .(VtChAxisIdY). = (min \ 100) * 100 .(VtChAxisIdX). = 0 39。// 設置繪圖區(qū)網(wǎng)格 .(VtChAxisIdX). = Combo1 amp。 井深（m) .(VtChAxisIdY). = Combo1 amp。 密度(Kg/m3) .(VtChAxisIdX). = SHUZUH(NN) \ 100 + 1 39。X軸主要網(wǎng)格數(shù)量 .(VtChAxisIdY). = SHUZUd(NN) \ 100 + 1 39。Y軸主要網(wǎng)格數(shù)量 .(VtChAxisIdX). = 0 39。X軸次要網(wǎng)格數(shù)量 .(VtChAxisIdY). = 0 39。Y軸次要網(wǎng)格數(shù)量 .(VtChAxisIdX). = VtPenStyleDotted 39。點線 .(VtChAxisIdY). = VtPenStyleDotted = False = False = VtChChartType2dXY 39。設置圖形為二維散點圖 = MyData 39。數(shù)據(jù)End WithEnd SubPrivate Sub yalijingshen_Click()End SubPrivate Sub yalijingwen_Click()End Sub（8） 窗體7中的程序Private Sub Form_Load() = 100 = 0 = TrueEnd SubPrivate Sub Timer1_Timer()If = 100 Then = FalseElse = + 10 = 進度為： amp。 amp。 %......End IfIf = 100 ThenUnload Me: End IfEnd Sub東北石油大學課程設計成績評價表課程名稱石油工程課程設計題目名稱井筒壓力分布計算學生姓名趙二猛學號100302240115指導教師姓名張文職稱教授序號評價項目指 標滿分評分1工作量、工作態(tài)度和出勤率按期圓滿的完成了規(guī)定的任務，難易程度和工作量符合教學要求，工作努力，遵守紀律，出勤率高，工作作風嚴謹，善于與他人合作。202課程設計質(zhì)量課程設計選題合理，計算過程簡練準確，分析問題思路清晰，結(jié)構(gòu)嚴謹，文理通順，撰寫規(guī)范，圖表完備正確。453創(chuàng)新工作中有創(chuàng)新意識，對前人工作有一些改進或有一定應用價值。54答辯能正確回答指導教師所提出的問題。30總分評語：指導教師： 年 月 日