【正文】 s(P, t)) * midug / (miduo + gdg * Rs(P, t) + miduw * WO) m = 10: n = 1 a = m * K / (m * K + 1): b = 1 / Exp(n * K) Re2 = Reg ^ a * Rel ^ b 39。內(nèi)熱源，對(duì)于常規(guī)采油，q1=0Dim Mo As Single, Mw As Single, Mg As SingleDim twf As Single 39。井底為零點(diǎn)深度l處的溫度l = H lEnd Function（2）窗體1中的程序Private Sub Command1_Click()End SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load() = LoadPicture(C:\Documents and Settings\Administrator\桌面\井筒壓力分布\)End Sub（3） 窗體2中的程序Private Sub midu_Click()End SubPrivate Sub open_Click() = 數(shù)據(jù)文件（*.txt)|*.txt = Open For Input As 1Dim a As String For i = 0 To 16 Input 1, a If a Then Text1(i).Text = a Next i Input 1, a If a = 1 Then = True Else = True End IfClose 1End SubPrivate Sub print_Click() = 5 39。 \ amp。保留小數(shù)點(diǎn)3位數(shù) .TextMatrix(i, 3) = Format(SHUZUT(i), ) .TextMatrix(i, 4) = Format(SHUZUd(i), ) .TextMatrix(i, 5) = Format(SHUZUuo(i), ) .TextMatrix(i, 6) = Format(SHUZURs(i), ) .TextMatrix(i, 8) = Format(SHUZUBo(i), ) .TextMatrix(i, 9) = Format(SHUZUZ(i), ) .TextMatrix(i, 10) = Format(SHUZUug(i), ) .TextMatrix(i, 7) = Format(SHUZUuw(i), )Next iFor i = 0 To 10.ColAlignment(i) = 4 39。因此在定義二維數(shù)據(jù)時(shí)，看采用二維數(shù)組。 39。 39。// 設(shè)置繪圖區(qū)網(wǎng)格 .(VtChAxisIdX). = Combo1 amp。Y軸主要網(wǎng)格數(shù)量 .(VtChAxisIdX). = 0 39。設(shè)置圖形為二維散點(diǎn)圖 = MyData 39。因此在定義二維數(shù)據(jù)時(shí)，看采用二維數(shù)組。 39。 39。// 設(shè)置繪圖區(qū)網(wǎng)格 .(VtChAxisIdX). = Combo1 amp。Y軸主要網(wǎng)格數(shù)量 .(VtChAxisIdX). = 0 39。坐標(biāo)布局人工還是自動(dòng) = False = VtChChartType2dXY 39。求最值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軸坐標(biāo)值Y軸坐標(biāo)值 For i = 0 To NN MyData(i, 0) = SHUZUH(i): MyData(i, 1) = SHUZUd(i) Next i39。線寬 .(1). = VtPenStyleSolid 39。// 設(shè)置最大值 .(VtChAxisIdX). = (SHUZUH(NN) \ 100 + 1) * 100 .(VtChAxisIdY). = (max \ 100 + 1) * 100 39。 密度(Kg/m3) .(VtChAxisIdX). = SHUZUH(NN) \ 100 + 1 39。Y軸次要網(wǎng)格數(shù)量 .(VtChAxisIdX). = VtPenStyleDotted 39。 amp。54答辯能正確回答指導(dǎo)教師所提出的問題。202課程設(shè)計(jì)質(zhì)量課程設(shè)計(jì)選題合理，計(jì)算過程簡(jiǎn)練準(zhǔn)確，分析問題思路清晰，結(jié)構(gòu)嚴(yán)謹(jǐn)，文理通順，撰寫規(guī)范，圖表完備正確。設(shè)置圖形為二維散點(diǎn)圖 = MyData 39。Y軸主要網(wǎng)格數(shù)量 .(VtChAxisIdX). = 0 39。// 設(shè)置繪圖區(qū)網(wǎng)格 .(VtChAxisIdX). = Combo1 amp。 39。 39。因此在定義二維數(shù)據(jù)時(shí)，看采用二維數(shù)組。數(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) = 計(jì)算點(diǎn): .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。Y軸次要網(wǎng)格數(shù)量 .(VtChAxisIdX). = VtPenStyleDotted 39。 井溫(℃) .(VtChAxisIdX). = SHUZUH(NN) \ 100 + 1 39。// 設(shè)置最大值 .(VtChAxisIdX). = (SHUZUH(NN) \ 100 + 1) * 100 .(VtChAxisIdY). = (SHUZUT(NN) \ 5 + 1) * 5 39。線寬 .(1). = VtPenStyleSolid 39。x軸坐標(biāo)值Y軸坐標(biāo)值 For i = 0 To NN MyData(i, 0) = SHUZUH(i): MyData(i, 1) = SHUZUT(i) Next i39。設(shè)置每一列的單元格內(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。Y軸次要網(wǎng)格數(shù)量 .(VtChAxisIdX). = VtPenStyleDotted 39。 壓力(MPa) .(VtChAxisIdX). = SHUZUH(NN) \ 100 + 1 39。// 設(shè)置最大值 .(VtChAxisIdX). = (SHUZUH(NN) \ 100 + 1) * 100 .(VtChAxisIdY). = (SHUZUP(NN) \ 1 + 1) * 1 39。線寬 .(1). = VtPenStyleSolid 39。x軸坐標(biāo)值Y軸坐標(biāo)值 For i = 0 To NN MyData(i, 0) = SHUZUH(i): MyData(i, 1) = SHUZUP(i) Next i39。設(shè)置每一列的單元格內(nèi)容居中Next i.ColWidth(0) = 800.ColWidth(1) = 900.ColWidth(2) = 900End With39。 Text1(0).Text amp。 Chr(10), ) amp。油層溫度等于井口溫度加上井深與地溫梯度的乘積l = H l 39。井溫分布計(jì)算Public Function t(l As Single) As SingleDim W As Single 39。求氣相、液相雷諾數(shù) ul = uo(P, t) * (1 fw) + uw(t) * fw AP = * d ^ 2 / 4 Reg = d * qo * Abs(Rp Rs(P, t)) * midug / AP / (ug(P, t) / 1000) 39?；旌衔锏钠骄芏菶nd Function39。求天然氣粘度ug(t)函數(shù)Public Function ug(P As Single, t As Single) As SingleDim x As Single, y As Single, c As Singlex = + 548 / (t + ) + * midugry = * xc = ( + * midugr) * (273 + t) ^ / (116 + 306 * midugr + (273 + t))ug = c * 10 ^ (3) * Exp(x * (dg(P, t) * 10 ^ (3)) ^ y)End Function39。地面脫氣原油溫度取15℃ ，對(duì)結(jié)果影響較大 uon = 10 ^ x 1 a = * ( * Rs(P, t) + 100) ^ () b = * ( * Rs(P, t) + 150) ^ () uo = a * uon ^ bEnd Function39。求天然氣壓縮系數(shù)Z(p,t)函數(shù)39。計(jì)算點(diǎn)天然氣粘度mPasPublic SHUZUuw(2000) As Single 39。計(jì)算點(diǎn)原油粘度mPasPublic SHUZURs(2000) As Single 39。計(jì)算點(diǎn)深度mPublic SHUZUP(2000) As Single 39。生產(chǎn)油氣比 不變量在調(diào)用時(shí)需賦值Public AP As Single 39。標(biāo)準(zhǔn)狀態(tài)下壓力KPa 常量在調(diào)用時(shí)需賦值Public gd0 As Single 39。1m3地面脫氣原油同時(shí)產(chǎn)出的油、水、氣混合物的總質(zhì)量 Kg/m3Public Vt As Single 39。地層水比熱Public Cg As Single 39。地溫梯度Public gC As Single 39。天然氣相對(duì)密度Public miduwr As Single 39。地面脫氣原油密度Public midug As Single 39。油管內(nèi)徑Public Pwh As Single 39。最后，真誠(chéng)地感謝張文老師以及所有對(duì)同學(xué)們的知道，在今后的學(xué)習(xí)生活中，我一定會(huì)更加注重專業(yè)素養(yǎng)的提高，為祖國(guó)石油事業(yè)貢獻(xiàn)自己的力量。 與此同時(shí)，我也掌握了相關(guān)的主要內(nèi)容，如：油氣物性參數(shù)的計(jì)算、能量方程的推導(dǎo)、按深度增量迭代的步驟方法等等。首先，我在C語言的基礎(chǔ)上，有學(xué)習(xí)了一種新的語言，經(jīng)過使用這兩種語言，發(fā)現(xiàn)它們各有特色，C語言由于指針的存在而特別靈活，但是VB卻有比較好的界面，更方便我們編制小軟件，通俗易懂。井深達(dá)到1000m時(shí)，隨著井深增加，溶解油氣比不再發(fā)生變化，恒等于生產(chǎn)油氣比。（3）混合物平均密度——井深曲線：圖543 密度井深曲線 由密度——井深曲線可知，當(dāng)井深小于1000m時(shí)，密度隨著井深的增加而增加，當(dāng)井深大于1000m時(shí)，混合物的平均密度變化幅度比較小。通過套管、水泥環(huán)向地層傳導(dǎo)。（2）溫度—井深曲線圖542