【正文】 As Single, Rel As Single, Re2 As SingleDim f As Single 39。平均溫度和平均壓力下的液體粘度Dim AP As Single 39。() Rel = d * qo * (miduo + gdg * Rs(P, t) + miduw * WO) / AP / (ul / 1000) 39。求摩擦損失系數(shù)f a0 = / ((100 * K) ^ 5 + ) + * (100 * K) + * (100 * K) ^ 2 a1 = / ((100 * K) ^ + ) + * (100 * K) * (100 * K) ^ 2 a2 = / ((100 * K) ^ 5 + ) + * (100 * K) + * (100 * K) ^ 2 f = 10 ^ (a0 + a1 * Log10(Re2) + a2 * (Log10(Re2)) ^ 2) r = dm(P, t) * g + f * qo ^ 2 * Wt ^ 2 / ( * d ^ 5 * dm(P, t))End Function39。水當量Dim q1 As Single 39。井底溫度q1 = 0Mo = qo * miduo: Mw = qo * WO * miduw: Mg = qg * midugW = Mo * Co + Mw * Cw + Mg * Cgtwf = gt + gr * H 39。以井底為零點的深度t = (W * gr + q1) / gC * (1 Exp(gC / W * l)) + (twf gr * l) 39。打開打印機對話框End SubPrivate Sub quit_Click()EndEnd SubPrivate Sub saveyuanshi_Click()Dim aa As StringDim fname As StringDim responsefname = Replace(Text1(0).Text, Chr(13) amp。 fname = amp。 fname Open fname For Output As 1 For i = 0 To 16 aa = Text1(i).Text Write 1, aa Next i If = True Then Write 1, 1 ElseIf = True Then Write 1, 0 Else Write 1, End If Close 1 response = MsgBox(保存原始數(shù)據(jù)?, 33, 提示) If response = vbOK Then MsgBox 原始數(shù)據(jù)已保存在程序所在文件夾，文件名為： amp。 , vbOKOnly, 提示End IfEnd SubPrivate Sub shuju_Click()MsgBox 需要幫助請與趙二猛聯(lián)系, vbOKOnly, 提示End SubPrivate Sub wenduquxian_Click()End SubPrivate Sub yali_Click()End SubPrivate Sub yijian_Click()MsgBox 有建議請與趙二猛聯(lián)系, vbOKOnly, 提示End Sub（4） 窗體3中的程序Private Sub Form_Load()With MFG.Cols = 11.Rows = NN + 1.TextMatrix(0, 0) = 計算點: .TextMatrix(0, 1) = 井深（m): .TextMatrix(0, 2) = 壓力(MPa): .TextMatrix(0, 3) = 溫度(℃) .TextMatrix(0, 4) = 混合物密度(Kg/m3): .TextMatrix(0, 5) = 原油粘度(mPas): .TextMatrix(0, 6) = 溶解油氣比(m3/m3): .TextMatrix(0, 8) = 原油體積系數(shù).TextMatrix(0, 9) = 天然氣壓縮系數(shù) : .TextMatrix(0, 10) = 天然氣粘度(mPas): .TextMatrix(0, 7) = 水的粘度(mPas)For i = 1 To (NN) .TextMatrix(i, 0) = (i) .TextMatrix(i, 1) = SHUZUH(i) .TextMatrix(i, 2) = Format(SHUZUP(i), ) 39。設置每一列的單元格內容居中Next i.ColWidth(0) = 800.ColWidth(1) = 800.ColWidth(2) = 1000.ColWidth(3) = 1000.ColWidth(4) = 1600.ColWidth(5) = 1500.ColWidth(6) = 1600.ColWidth(7) = 1500.ColWidth(8) = 1200.ColWidth(9) = 1400.ColWidth(10) = 1600End WithEnd SubPrivate Sub yalijingshen_Click()End SubPrivate Sub yalijingwen_Click()End SubPrivate Sub yalimiduquxian_Click()End Sub（5） 窗體4中的程序Private Sub Form_Load()With MFG.Cols = 3.Rows = NN + 1.TextMatrix(0, 0) = 計算點: .TextMatrix(0, 1) = 井深(m): .TextMatrix(0, 2) = 壓力(MPa)For i = 1 To (NN) .TextMatrix(i, 0) = (i) .TextMatrix(i, 1) = SHUZUH(i) .TextMatrix(i, 2) = Format(SHUZUP(i), ) Next i For i = 0 To 2.ColAlignment(i) = 4 39。對于二維散點圖來說，第一列代表了X軸坐標，第二列代表了Y軸坐標39。第二維定義為0到1，第一維代表了第幾點數(shù)據(jù)ReDim MyData(NN, 1) As Single 39。Mschart圖外觀設置With MSChart1 .TitleText = 39。設置圖線的外觀 .(1). = 30 39。實線39。設置XY軸 .(VtChAxisIdX). = False .(VtChAxisIdY). = False 39。// 設置最小值 .(VtChAxisIdY). = 0 .(VtChAxisIdX). = 0 39。 井深（m) .(VtChAxisIdY). = Combo1 amp。X軸主要網格數(shù)量 .(VtChAxisIdY). = SHUZUP(NN) \ 1 + 1 39。X軸次要網格數(shù)量 .(VtChAxisIdY). = 0 39。點線 .(VtChAxisIdY). = VtPenStyleDotted = False = False = VtChChartType2dXY 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。對于二維散點圖來說，第一列代表了X軸坐標，第二列代表了Y軸坐標39。第二維定義為0到1，第一維代表了第幾點數(shù)據(jù)ReDim MyData(NN, 1) As Single 39。Mschart圖外觀設置With MSChart1 .TitleText = 39。設置圖線的外觀 .(1). = 30 39。實線39。設置XY軸 .(VtChAxisIdX). = False .(VtChAxisIdY). = False 39。// 設置最小值 .(VtChAxisIdY). = (min \ 5) * 5 .(VtChAxisIdX). = 0 39。 井深（m) .(VtChAxisIdY). = Combo1 amp。X軸主要網格數(shù)量 .(VtChAxisIdY). = SHUZUT(NN) \ 5 + 1 39。X軸次要網格數(shù)量 .(VtChAxisIdY). = 0 39。點線 .(VtChAxisIdY). = VtPenStyleDotted = False 39。設置圖形為二維散點圖 = MyData 39。設置每一列的單元格內容居中Next i.ColWidth(0) = 800.ColWidth(1) = 900.ColWidth(2) = 1300End With39。對于二維散點圖來說，第一列代表了X軸坐標，第二列代表了Y軸坐標39。第二維定義為0到1，第一維代表了第幾點數(shù)據(jù)ReDim MyData(NN, 1) As Single 39。Mschart圖外觀設置With MSChart1 .TitleText = 39。設置圖線的外觀 .(1). = 30 39。實線39。設置XY軸 .(VtChAxisIdX). = False .(VtChAxisIdY). = False 39。// 設置最小值 .(VtChAxisIdY). = (min \ 100) * 100 .(VtChAxisIdX). = 0 39。 井深（m) .(VtChAxisIdY). = Combo1 amp。X軸主要網格數(shù)量 .(VtChAxisIdY). = SHUZUd(NN) \ 100 + 1 39。X軸次要網格數(shù)量 .(VtChAxisIdY). = 0 39。點線 .(VtChAxisIdY). = VtPenStyleDotted = False = False = VtChChartType2dXY 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。 %......End IfIf = 100 ThenUnload Me: End IfEnd Sub東北石油大學課程設計成績評價表課程名稱石油工程課程設計題目名稱井筒壓力分布計算學生姓名趙二猛學號100302240115指導教師姓名張文職稱教授序號評價項目指 標滿分評分1工作量、工作態(tài)度和出勤率按期圓滿的完成了規(guī)定的任務，難易程度和工作量符合教學要求，工作努力，遵守紀律，出勤率高，工作作風嚴謹，善于與他人合作。453創(chuàng)新工作中有創(chuàng)新意識，對前人工作有一些改進或有一定應用價值。30總分評語：指導教師： 年 月