【正文】 54答辯能正確回答指導教師所提出的問題。202課程設計質量課程設計選題合理，計算過程簡練準確，分析問題思路清晰，結構嚴謹，文理通順，撰寫規(guī)范，圖表完備正確。同樣這個也必須設置，否則中間有默認的顏色 End With39。顏色不自動填充 . 400, 40, 400 39。散點的大小 .Style = VtMarkerStyleFilledDiamond 39。去除連線 (Index). = False With (Index).(1).Marker .Visible = True 39。散點 Dim Index As Integer Index = 1 39。乙型水驅規(guī)律曲線 = TrueReDim px(ub), py(ub), s(ub, 3)s(0, 0) = 0s(0, 1) = aas(1, 0) = np(ub)s(1, 1) = aa + ab * np(ub)For i = 0 To ub Step 1s(i, 0) = np(i) 39。顏色不自動填充 . 300, 30, 300 39。散點的大小 .Style = VtMarkerStyleFilledDiamond 39。去除連線 (Index). = False With (Index).(1).Marker .Visible = True 39。散點 Dim Index As Integer Index = 1 39。實際散點s(i, 2) = t(i) ^ (bb1 + 1)s(i, 3) = a1 + a2 * t(i) ^ (bb1 + 1)Next i39。自動調節(jié)圖形大小 = sEnd SubPrivate Sub z1_Click()39。同樣這個也必須設置，否則中間有默認的顏色 End With With .(VtChAxisIdX, 0).AxisTitle = t .(VtChAxisIdY, 0).AxisTitle = fw . = fw與t關系曲線End With 39。顏色不自動填充 . 400, 15, 400 39。散點的大小 .Style = VtMarkerStyleFilledDiamond 39。去除連線?。? (Index). = False With (Index).(1).Marker .Visible = True 39。散點 Dim Index As Integer Index = 1 39。實際散點s(i, 0) = px(i)s(i, 1) = fw(i)39。st = yt / 500For i = 1 To mnpx(i) = ipy(i) = 100 * (1 10 ^ ((aa + ab * ynp(i) + Log( * ab) / Log(10)))) 39。自動調節(jié)圖形大小 = sEnd SubPrivate Sub d3_Click()39。同樣這個也必須設置，否則中間有默認的顏色 End With With .(VtChAxisIdX, 0).AxisTitle = t .(VtChAxisIdY, 0).AxisTitle = Np . = Np與t關系曲線End With 39。顏色不自動填充 . 400, 15, 400 39。散點的大小 .Style = VtMarkerStyleFilledDiamond 39。去除連線??！ (Index). = False With (Index).(1).Marker .Visible = True 39。散點 Dim Index As Integer Index = 1 39。實際散點s(i, 0) = px(i)s(i, 1) = np(i)39。st = yt / 500For i = 1 To mnpx(i) = ipy(i) = aa1 * cc1 * (1 (e ^ (px(i) ^ (bb1 + 1) / cc1))) / (bb1 + 1) 39。顯示圖形End SubPrivate Sub d2_Click()39。同樣這個也必須設置，否則中間有默認的顏色 End With 39。顏色不自動填充 . 400, 15, 400 39。散點的大小 .Style = VtMarkerStyleFilledDiamond 39。去除連線??！ (Index). = False With (Index).(1).Marker .Visible = True 39。散點 Dim Index As Integer Index = 1 39。實際散點s(i, 0) = px(i)s(i, 1) = q0(i)39。st = yt / 500For i = 1 To mnpx(i) = ipy(i) = aa1 * (px(i) ^ bb1) * (e ^ (px(i) ^ (bb1 + 1) / cc1)) 39。文件輸出Open + For Output As 2Print 2, 年份, 時間, 預測產量, 預測累計產量, 預測含水率For i = 0 To ytPrint 2, ye(0) + i, i + 1, yq0(i), ynp(i), yfw(i)Next iClose 2PrintEnd SubPrivate Sub c4_Click()EndEnd SubPrivate Sub d1_Click()39。二維坐標 .Column = 1End WithWith MSChart2.ColumnCount = 2 .(1). = 15 .(1). = VtPenStyleSolid .(VtChAxisIdX). = True .(VtChAxisIdY). = True .(VtChAxisIdY). = 0 .(VtChAxisIdX). = 0 .(VtChAxisIdX). = 6 .(VtChAxisIdY). = 6 .(VtChAxisIdX). = 0 .(VtChAxisIdY). = 0 .(VtChAxisIdX). = VtPenStyleDotted .(VtChAxisIdY). = VtPenStyleDotted = False = False = VtChChartType2dXY .Column = 1 End With With MSChart3.ColumnCount = 2 .(1). = 15 .(1). = VtPenStyleSolid .(VtChAxisIdX). = True .(VtChAxisIdY). = True .(VtChAxisIdY). = 0 .(VtChAxisIdX). = 0 .(VtChAxisIdX). = 6 .(VtChAxisIdY). = 6 .(VtChAxisIdX). = 0 .(VtChAxisIdY). = 0 .(VtChAxisIdX). = VtPenStyleDotted .(VtChAxisIdY). = VtPenStyleDotted = False = False = VtChChartType2dXY .Column = 1End WithEnd SubPrivate Sub c2_Click() = True 39。 = (1) * + * 12(0, 0) = 時間/a(0, 1) = 實際產量(0, 2) = 預測產量(0, 3