【正文】 54答辯能正確回答指導(dǎo)教師所提出的問(wèn)題。202課程設(shè)計(jì)質(zhì)量課程設(shè)計(jì)選題合理，計(jì)算過(guò)程簡(jiǎn)練準(zhǔn)確，分析問(wèn)題思路清晰，結(jié)構(gòu)嚴(yán)謹(jǐn)，文理通順，撰寫(xiě)規(guī)范，圖表完備正確。 amp。設(shè)置圖形為二維散點(diǎn)圖 = MyData 39。Y軸次要網(wǎng)格數(shù)量 .(VtChAxisIdX). = VtPenStyleDotted 39。Y軸主要網(wǎng)格數(shù)量 .(VtChAxisIdX). = 0 39。 密度(Kg/m3) .(VtChAxisIdX). = SHUZUH(NN) \ 100 + 1 39。// 設(shè)置繪圖區(qū)網(wǎng)格 .(VtChAxisIdX). = Combo1 amp。// 設(shè)置最大值 .(VtChAxisIdX). = (SHUZUH(NN) \ 100 + 1) * 100 .(VtChAxisIdY). = (max \ 100 + 1) * 100 39。 39。線寬 .(1). = VtPenStyleSolid 39。 39。x軸坐標(biāo)值Y軸坐標(biāo)值 For i = 0 To NN MyData(i, 0) = SHUZUH(i): MyData(i, 1) = SHUZUd(i) Next i39。因此在定義二維數(shù)據(jù)時(shí)，看采用二維數(shù)組。求最值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。數(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。坐標(biāo)布局人工還是自動(dòng) = False = VtChChartType2dXY 39。Y軸次要網(wǎng)格數(shù)量 .(VtChAxisIdX). = VtPenStyleDotted 39。Y軸主要網(wǎng)格數(shù)量 .(VtChAxisIdX). = 0 39。 井溫(℃) .(VtChAxisIdX). = SHUZUH(NN) \ 100 + 1 39。// 設(shè)置繪圖區(qū)網(wǎng)格 .(VtChAxisIdX). = Combo1 amp。// 設(shè)置最大值 .(VtChAxisIdX). = (SHUZUH(NN) \ 100 + 1) * 100 .(VtChAxisIdY). = (SHUZUT(NN) \ 5 + 1) * 5 39。 39。線寬 .(1). = VtPenStyleSolid 39。 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ù)據(jù)時(shí)，看采用二維數(shù)組。設(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。設(shè)置圖形為二維散點(diǎn)圖 = MyData 39。Y軸次要網(wǎng)格數(shù)量 .(VtChAxisIdX). = VtPenStyleDotted 39。Y軸主要網(wǎng)格數(shù)量 .(VtChAxisIdX). = 0 39。 壓力(MPa) .(VtChAxisIdX). = SHUZUH(NN) \ 100 + 1 39。// 設(shè)置繪圖區(qū)網(wǎng)格 .(VtChAxisIdX). = Combo1 amp。// 設(shè)置最大值 .(VtChAxisIdX). = (SHUZUH(NN) \ 100 + 1) * 100 .(VtChAxisIdY). = (SHUZUP(NN) \ 1 + 1) * 1 39。 39。線寬 .(1). = VtPenStyleSolid 39。 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ù)據(jù)時(shí)，看采用二維數(shù)組。設(shè)置每一列的單元格內(nèi)容居中Next i.ColWidth(0) = 800.ColWidth(1) = 900.ColWidth(2) = 900End With39。保留小數(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。 Text1(0).Text amp。 \ amp。 Chr(10), ) amp。井底為零點(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。油層溫度等于井口溫度加上井深與地溫梯度的乘積l = H l 39。內(nèi)熱源，對(duì)于常規(guī)采油，q1=0Dim Mo As Single, Mw As Single, Mg As SingleDim twf As Single 39。井溫分布計(jì)算Public Function t(l As Single) As SingleDim W As Single 39。求兩相雷諾數(shù) K = Abs(Rp Rs(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。求氣相、液相雷諾數(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。摩擦阻力損失系數(shù)Dim ul As Single 39?；旌衔锏钠骄芏菶nd Function39。求以10為底的對(duì)數(shù)log10(x)的函數(shù)Public Function Log10(x As Single) As Single Log10 = Log(x) / Log(10)End 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。根據(jù)氣體狀態(tài)方程推導(dǎo),地面標(biāo)準(zhǔn)條件下Z=1End Function39。地面脫氣原油溫度取15℃ ，對(duì)結(jié)果影響較大 uon = 10 ^ x 1 a = * ( * Rs(P, t) + 100) ^ () b = * ( * Rs(P, t) + 150) ^ () uo = a * uon ^ bEnd Function39。（dr為天然氣的對(duì)比度） Dim i As Integer If Flag = 1 Then If midugr = Then Tc = 132 + * midugr Pc = 5102 * midugr Else Tc = 106 + * midugr Pc = 4778 * midugr End If Else If midugr = Then Tc = 92 + * midugr Pc = 4881 * midugr Else Tc = 92 + * midugr Pc = 4778 * midugr End If End If Z = 1 Tr = (273 + t) / Tc: Pr = P / Pc For i = 1 To 5 dr = * Pr / (Z * Tr) Z = 1 + ( / Tr / Tr ^ 3) * dr + ( / Tr + / Tr ^ 3) * dr ^ 2 Next iEnd Function39。求天然氣壓縮系數(shù)Z(p,t)函數(shù)39。求溶解油氣比Rs（p,t)函數(shù)Public Function Rs(P As Single, t As Single) As SingleDim c1 As Single, c2 As Single If miduor = Then c1 = : c2