【正文】 453創(chuàng)新工作中有創(chuàng)新意識(shí)，對(duì)前人工作有一些改進(jìn)或有一定應(yīng)用價(jià)值。數(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 = 進(jìn)度為： amp。X軸次要網(wǎng)格數(shù)量 .(VtChAxisIdY). = 0 39。 井深（m) .(VtChAxisIdY). = Combo1 amp。設(shè)置XY軸 .(VtChAxisIdX). = False .(VtChAxisIdY). = False 39。設(shè)置圖線的外觀 .(1). = 30 39。第二維定義為0到1，第一維代表了第幾點(diǎn)數(shù)據(jù)ReDim MyData(NN, 1) As Single 39。設(shè)置每一列的單元格內(nèi)容居中Next i.ColWidth(0) = 800.ColWidth(1) = 900.ColWidth(2) = 1300End With39。點(diǎn)線 .(VtChAxisIdY). = VtPenStyleDotted = False 39。X軸主要網(wǎng)格數(shù)量 .(VtChAxisIdY). = SHUZUT(NN) \ 5 + 1 39。// 設(shè)置最小值 .(VtChAxisIdY). = (min \ 5) * 5 .(VtChAxisIdX). = 0 39。實(shí)線39。Mschart圖外觀設(shè)置With MSChart1 .TitleText = 39。對(duì)于二維散點(diǎn)圖來說，第一列代表了X軸坐標(biāo)，第二列代表了Y軸坐標(biāo)39。點(diǎn)線 .(VtChAxisIdY). = VtPenStyleDotted = False = False = VtChChartType2dXY 39。X軸主要網(wǎng)格數(shù)量 .(VtChAxisIdY). = SHUZUP(NN) \ 1 + 1 39。// 設(shè)置最小值 .(VtChAxisIdY). = 0 .(VtChAxisIdX). = 0 39。實(shí)線39。Mschart圖外觀設(shè)置With MSChart1 .TitleText = 39。對(duì)于二維散點(diǎn)圖來說，第一列代表了X軸坐標(biāo)，第二列代表了Y軸坐標(biāo)39。 , vbOKOnly, 提示End IfEnd SubPrivate Sub shuju_Click()MsgBox 需要幫助請(qǐng)與趙二猛聯(lián)系, vbOKOnly, 提示End SubPrivate Sub wenduquxian_Click()End SubPrivate Sub yali_Click()End SubPrivate Sub yijian_Click()MsgBox 有建議請(qǐng)與趙二猛聯(lián)系, vbOKOnly, 提示End Sub（4） 窗體3中的程序Private Sub Form_Load()With MFG.Cols = 11.Rows = NN + 1.TextMatrix(0, 0) = 計(jì)算點(diǎn): .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。 fname = amp。以井底為零點(diǎn)的深度t = (W * gr + q1) / gC * (1 Exp(gC / W * l)) + (twf gr * l) 39。水當(dāng)量Dim q1 As Single 39。() Rel = d * qo * (miduo + gdg * Rs(P, t) + miduw * WO) / AP / (ul / 1000) 39。求壓力梯度函數(shù)Public Function r(P As Single, t As Single) As SingleDim m As Integer, n As IntegerDim K As Single, a As Single, b As SingleDim a0 As Single, a1 As Single, a2 As SingleDim Reg As Single, Rel As Single, Re2 As SingleDim f As Single 39。求水粘度uw(t)函數(shù)Public Function uw(t As Single) As Single uw = Exp( ( * 10 ^ (2) * ( * t + 32)) + ( * 10 ^ (5) * ( * t + 32) ^ 2))End Function39。求管道條件下天然氣密度dg(p,t)函數(shù)Public Function dg(P As Single, t As Single) As Single dg = midug * P * ( + t0) / (Z(P, t) * p0 * ( + t)) 39。富氣為1,貧氣為0Public Function Z(P As Single, t As Single) As Single Dim Tc As Single, Pc As Single Dim Tr As Single, Pr As Single, dr As Single 39。水的粘度mPas39。計(jì)算溶解油氣比Public SHUZUBo(2000) As Single 39。計(jì)算點(diǎn)壓力MPaPublic SHUZUT(2000) As Single 39。油管截面積m2 不變量在調(diào)用時(shí)需賦值Public NN As Single 39?？諝饷芏菿g/m3 常量在調(diào)用時(shí)需賦值Public t0 As Single 39。井筒條件下產(chǎn)出Wt油氣水混合物所對(duì)應(yīng)的體積Public dgr689 As Single 39。天然氣比熱Public Flag As Integer 39。傳熱系數(shù)Public Pb As Single 39。水相對(duì)密度Public WO As Single 39。天然氣密度Public miduw As Single 39。油壓Public qo As Single 39。參考文獻(xiàn)[1] 王鴻勛，張琪. 采油工藝原理[M]. 石油工業(yè)出版社，北京，2000，7485.[2] 衣治安，吳雅娟主編. 實(shí)用計(jì)算機(jī)基礎(chǔ)教程[M]. 石油工業(yè)出版社，2002.[3] 陳濤平等. 石油工程[M]. 石油工業(yè)出版社，2000.[4] 蔣加伏， Basic程序設(shè)計(jì)教程. 北京郵電大學(xué)出版社，2009.附錄程序內(nèi)容：（1） . 模塊中的程序：Public jinghao As String 39。切實(shí)體會(huì)到了把課堂所學(xué)的知識(shí)應(yīng)用于實(shí)際資料來解決實(shí)際問題，從而把理論與實(shí)踐有機(jī)結(jié)合起來。另外，VB看似簡(jiǎn)單，但是有許多技巧可言，在這幾周里，在張文老師的指導(dǎo)下，學(xué)到了非常多的知識(shí)，實(shí)際在編寫代碼和運(yùn)行程序的過程中會(huì)出現(xiàn)各種各樣的問題，需要把各個(gè)窗體、模塊聯(lián)系起來，稍有差錯(cuò)，就不會(huì)得到正確的結(jié)果。這時(shí)由氣液混合物平均密度公式可知?dú)庖夯旌衔锲骄芏戎慌c生產(chǎn)油氣比有關(guān)，而生產(chǎn)油氣比隨井深增加變化不大，所以混合物平均密度隨井深增加變化不大，即表現(xiàn)為混合物平均密度曲線中曲線斜率變化較小。由壓力與深度曲線可知，隨著井深增加管內(nèi)壓力增大。因此，井溫總是比地溫要高。由地面到油層溫度是按地溫梯度逐漸增加的。s)200 220 240 260 280 300 320 340 360 380 400 420 440 460 480 500 520 540 560 580 600 620 640 660 680 700 720 740 760 780 800 820 840 860 880 900 920 續(xù)表井深壓力溫度平均密度原油粘度溶解油氣比原油體積系數(shù)天然氣壓縮系數(shù)天然氣粘度水的粘度(m)(MPa)(℃)(Kg/m3)(mPas)(m3/m3)(m3/m3)(mPa?s)（mPa=500KPa，假設(shè)對(duì)應(yīng)的深度增量=50m,：平均壓力根據(jù)井口溫度、地溫梯度及假定的Δh1算得的平均溫度=(℃)。故在一定的地層條件及井筒狀況下，也可近似地認(rèn)為為一常數(shù)。 流體的物性參數(shù)隨溫度變化，因此，計(jì)算應(yīng)采用井溫來進(jìn)行流體參數(shù)計(jì)算。所謂地溫梯度，即深度每增加100m地層溫度的升高值。一般從設(shè)Z=1開始，迭代五次即可。，再利用下式即可求得溶解油氣比：式中　CCC3——系數(shù)，其值見表； P ——壓力（絕對(duì)），kPa。 油、水、氣三相混合物的液相粘度在未發(fā)生乳化的情況下，可根據(jù)相應(yīng)條件下油的粘度。 摩擦損失系數(shù)是利用由礦場(chǎng)資料相關(guān)的~關(guān)系確定。其它隨壓力和溫度而變化的各值如Bo、Z、Rs等也應(yīng)該采用Pavg和Tavg下的值。所以原來在壓力P和溫度T時(shí)，伴隨每生產(chǎn)1m3地面脫氣原油的天然在標(biāo)準(zhǔn)狀態(tài)下所占有的體積為：但是，還需要?dú)庑轄顟B(tài)方程式將Vg0換算到某壓力P與溫度T下的體積。由于水壓縮性很小，可以認(rèn)為井筒內(nèi)各流過斷面