石油工程開發(fā)課程設(shè)計(jì)報(bào)告-資料下載頁(yè)
2025-04-11 22:57本頁(yè)面
【正文】 = = End SubPrivate Sub Command9_Click()k = 10 ^ Val()l = 1 / ( * Val()) = k * l / 2 = * k * l ^ (1 / 2) = * l ^ (1 / 2) = * k * l / 2Dim a() As StringDim b() As StringDim c() As StringDim d() As StringDim i As Integeri = 1Open d:\ For Input As 1On Error GoTo hDo While Not EOF(1)ReDim Preserve a(i)ReDim Preserve b(i)ReDim Preserve c(i)ReDim Preserve d(i)Input 1, a(i), b(i), c(i), d(i)i = i + 1Looph:Close 1With MSFlexGrid4.Rows = UBound(a)For i = 1 To UBound(a)(i 1, 0) = a(i)(i 1, 1) = b(i)(i 1, 2) = c(i)(i 1, 3) = d(i)Next iEnd WithEnd SubPrivate Sub Form_Load()Dim Msgd As String With MSFlexGrid1 .Clear Msgd = 年份|開發(fā)時(shí)間|年產(chǎn)量|累積產(chǎn)量 .FormatString = Msgd End With With MSFlexGrid4 .Clear Msgd = 年份|開發(fā)時(shí)間|年產(chǎn)量|累積產(chǎn)量|預(yù)測(cè)年產(chǎn)量|預(yù)測(cè)累積產(chǎn)量 .FormatString = Msgd End With = False With MSFlexGrid1.ColWidth(0) = 1000 39。表格行寬.ColWidth(1) = 1200.ColWidth(2) = 1200.ColWidth(3) = 1200End WithWith MSFlexGrid4.ColWidth(0) = 1000 39。表格行寬.ColWidth(1) = 1200.ColWidth(2) = 1200.ColWidth(3) = 1200.ColWidth(4) = 1200.ColWidth(5) = 1200End WithSkinH_AttachEnd SubSub ShowTextBox() With MSFlexGrid1 39。隱藏文本框，設(shè)置高度和寬度 = False = .RowHeight(.Row) () * 2 = .ColWidth(.Col) 39。 計(jì)算文本框左坐標(biāo) = .CellLeft + .Left = .CellTop + .Top = True End With End SubPrivate Sub MSChart1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button 2 Then Exit Sub = (X 1185) / 21 = (3600 Y) / 1080End SubPrivate Sub MSChart1_Mousemove(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button 2 Then Exit Sub = (X 1185) / 21 = (3600 Y) / 1080End Sub Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer) Dim char As String If KeyAscii = 13 Then = = Len() Else char = Chr$(KeyAscii) = char = 1 End If ShowTextBox KeyAscii = 0 End Sub Private Sub MSFlexGrid1_LeaveCell() = If = 0 And 0 And _ = 1 And Then = + 1 End If End Sub Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) = False End Sub Private Sub MSFlexGrid1_RowColChange() = End Sub Private Sub MSFlexGrid1_DblClick() If 0 And = 0 Then MSFlexGrid1_KeyPress 13 End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then = = False If ( 1) Then = + 1 ElseIf 1 Then = + 1 = 0 End If KeyAscii = 0 End IfEnd Sub模塊程序：Public Declare Function SkinH_Attach Lib () As Long運(yùn)行結(jié)果數(shù)據(jù)處理及線性回歸年產(chǎn)量與累積產(chǎn)量的曲線東北石油大學(xué)課程設(shè)計(jì)成績(jī)?cè)u(píng)價(jià)表課程名稱石油工程課程設(shè)計(jì)題目名稱瑞利(Rayleigh)模型的應(yīng)用學(xué)生姓名學(xué)號(hào)指導(dǎo)教師姓名王立軍職稱教授序號(hào)評(píng)價(jià)項(xiàng)目指 標(biāo)滿分評(píng)分1工作量、工作態(tài)度和出勤率按期圓滿的完成了規(guī)定的任務(wù)，難易程度和工作量符合教學(xué)要求，工作努力，遵守紀(jì)律，出勤率高，工作作風(fēng)嚴(yán)謹(jǐn)，善于與他人合作。202課程設(shè)計(jì)質(zhì)量課程設(shè)計(jì)選題合理，計(jì)算過(guò)程簡(jiǎn)練準(zhǔn)確，分析問(wèn)題思路清晰，結(jié)構(gòu)嚴(yán)謹(jǐn)，文理通順，撰寫規(guī)范，圖表完備正確。453創(chuàng)新工作中有創(chuàng)新意識(shí)，對(duì)前人工作有一些改進(jìn)或有一定應(yīng)用價(jià)值。54答辯能正確回答指導(dǎo)教師所提出的問(wèn)題。30總分評(píng)語(yǔ)：指導(dǎo)教師： 2013年 7 月 19 日32
高考資料相關(guān)推薦
鄂ICP備17016276號(hào)-1