【正文】 = = 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ā)時間|年產(chǎn)量|累積產(chǎn)量 .FormatString = Msgd End With With MSFlexGrid4 .Clear Msgd = 年份|開發(fā)時間|年產(chǎn)量|累積產(chǎn)量|預測年產(chǎn)量|預測累積產(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。隱藏文本框，設置高度和寬度 = False = .RowHeight(.Row) () * 2 = .ColWidth(.Col) 39。 計算文本框左坐標 = .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運行結果數(shù)據(jù)處理及線性回歸年產(chǎn)量與累積產(chǎn)量的曲線東北石油大學課程設計成績評價表課程名稱石油工程課程設計題目名稱瑞利(Rayleigh)模型的應用學生姓名學號指導教師姓名王立軍職稱教授序號評價項目指 標滿分評分1工作量、工作態(tài)度和出勤率按期圓滿的完成了規(guī)定的任務，難易程度和工作量符合教學要求，工作努力，遵守紀律，出勤率高，工作作風嚴謹，善于與他人合作。202課程設計質(zhì)量課程設計選題合理，計算過程簡練準確，分析問題思路清晰，結構嚴謹，文理通順，撰寫規(guī)范，圖表完備正確。453創(chuàng)新工作中有創(chuàng)新意識，對前人工作有一些改進或有一定應用價值。54答辯能正確回答指導教師所提出的問題。30總分評語：指導教師： 2013年 7 月 19 日32