word版可編輯-油氣儲(chǔ)存技術(shù)與管理課程設(shè)計(jì)報(bào)告精心整理doc-資料下載頁(yè)
2025-07-15 12:20本頁(yè)面
【正文】 xt2_Change()If Not IsNumeric() ThenMsgBox 輸入類型有誤, , 錯(cuò)誤 = End IfD = Val()End SubPrivate Sub Text3_Change()If Not IsNumeric() ThenMsgBox 輸入類型有誤, , 錯(cuò)誤 = End IfV = Val()End SubPrivate Sub Text4_Change()If Not IsNumeric() ThenMsgBox 輸入類型有誤, , 錯(cuò)誤 = End Ifda = Val()End SubPrivate Sub Text5_Change()If Not IsNumeric() ThenMsgBox 輸入類型有誤, , 錯(cuò)誤 = End IfT = Val()End SubPrivate Sub Text6_Change()If Not IsNumeric() ThenMsgBox 輸入類型有誤, , 錯(cuò)誤 = End IfK = Val()End SubPrivate Sub Command1_Click()Dim Lw As IntegerDim Ls As IntegerKs = P = Uy = 50Kc = Ef = 1Kl = Y = C = 39。大呼吸計(jì)算公式:Lw = 4 * K * Vs * Y * C * da / (1000 * D) 39。發(fā)油損耗Ls = Kc * Ks * V ^ * P * D * Uy * Ef * Kl 39。靜止儲(chǔ)存損耗L = Ls + Lw 39?？倱p耗 = LEnd Sub’小呼吸損耗計(jì)算Private Sub Command2_Click()39。瓦廖夫斯基契爾尼金公式計(jì)算Dim Py1!, Py2!, Py!, V!, P2!, P1!, S1!, T1!, T2!, Uy!, R!, D As SingleLabel14 = Py1 = 28Py2 = 40Py = 34P2 = P1 = V = 1132T1 = T2 = Uy = R = Pp = (P1 + P2) / 2S1 = (P1 Py1) / T1 (P2 Py2) / T2S2 = Py / (Pp Py)Lvs = V * S1 * S2 * Uy / RLabel14 = LvsLabel15 = kgEnd SubPrivate Sub Command3_Click() 39。API公式計(jì)算Dim Uy!, Py!, K!, Py1!, Py2!, T1!, T2!, V!Label14 = Uy = K = Py = Py1 = 33Py2 = 40T1 = T2 = V = 1132Z = (690 4 * Uy) * K / PyS3 = ( Py1) / ( Py2)Vy = V * (S3 * T2 / T1 1) / ZLapi = * Uy * VyLabel14 = LapiLabel15 = kgEnd SubPrivate Sub Command4_Click() 39。康士坦丁諾夫公式計(jì)算Dim Py1!, Py2!, V!, R!, Uy!, T1!, T2!Label14 = Py1 = 28Py2 = 40V = 1132Uy = R = T1 = T2 = S3 = ( Py1) / ( Py2)Lkst = V * (Py1 + Py2) / (T1 + T2) * Uy / R * Label14 = LkstLabel15 = kgEnd SubPrivate Sub Command5_Click()39。日本資源能源廳公式計(jì)算Dim K1!, V!, K2!, Uy!Label14 = K1 = V = 1132K2 = 16Uy = Lrb = * K1 * V ^ () * K2 * * Uy / ( * / 273)Label14 = LrbLabel15 = kgEnd SubPrivate Sub Command6_Click() 39。API經(jīng)驗(yàn)公式計(jì)算Dim V!, D!, K1!, K2!, Py!, Pa!, T!, Fp!, C!, Uy!Label14 = V = 1132D = K1 = K2 = 1Py = Pa = T = 12Fp = C = 1Uy = H = 4 * V / ( * D ^ 2)S4 = Py / (Pa Py)Ly = * K1 * K2 * S4 ^ * D ^ * H ^ * T ^ * Fp * CLjy = * Uy * Ly / 365Label14 = LjyLabel15 = kgEnd SubPrivate Sub Command7_Click() 39。美國(guó)環(huán)保局公式計(jì)算Dim V!, D!, K1!, K2!, Py!, Pa!, T!, Fp!, C!, Uy!Label14 = V = 1132D = K1 = K2 = 1Py = Pa = T = 12Fp = C = 1Uy = H = 4 * V / ( * D ^ 2)Lmg = * K1 * K2 * Uy * (Py / (Pa Py)) ^ * D ^ * H ^ * T ^ * Fp * C / 365Label14 = LmgLabel15 = kg/dEnd Sub2
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1