繪制曲線并求定積分vb課設

1、沈 陽 航 空 航 天 大 學 課程設計 學 號 班 級14060109 姓 名 熊 俊指導教師 楊 煦2013年 6 月 24 日沈陽航空航天大學課程設計任務書學院：機電工程學院 專業(yè)：機械師及制造 班級：14060109 學號：題目：繪制曲線并求定積分一、課程設計時間2013年6月17日6月21日（第17周），共計1周。二、課程設計內容繪制曲線y=x3+1，并用“累計梯形面積”法求定積分 的值，要求所求區(qū)間的面積區(qū)域用藍色填充。用戶界面中的菜單(或命令按鈕)至少應包括“輸入a和b的值”、“繪制曲線”、“求定積分”、“退出”4項。三、課程設計要求程序質量：² 貫徹事件驅動的程序設計

2、思想。² 用戶界面友好，功能明確，操作方便；可以增加其它功能或修飾。² 代碼應適當縮進，并給出必要的注釋，以增強程序的可讀性。課程設計說明書：² 課設結束后，上交課程設計說明書和源程序。課程設計說明書的內容參見提供的模板。四、指導教師和學生簽字指導教師：_ 學生簽名：_五、成績六、教師評語目 錄需求分析4設計分析4關鍵技術6總結9完整的源程序10參考文獻11需求分析繪制曲線并求定積分，主要任務就是把y=x*x*x+1的曲線繪制出來與確定a、b的值后求定積分 的值并把這部分的面積用藍色填充要求：用戶界面中的菜單(或命令按鈕)至少應包括“輸入a和b的值”、“繪制曲線”

3、、“求定積分”、“退出”4項能夠打開程序點擊繪制曲線就能把y=x*x*x+1的曲線顯示出來。輸入a、b的值點擊求定積分就能把值顯示并把所對應的面積用藍色填充。藍色填充后原來的函數曲線保留。設計分析（1） 基本原理：“累計梯形面積”法求定積的值與用圖形操作技術繪制圖形與填充顏色。（2） 總體設計：填充顏色 計算定積分繪制曲線（3）詳細設計：開始設計界面繪制圖形輸入a、b的值填充所求區(qū)域求定積分結束關鍵技術1用"累計梯形面積"法求定積分Function fun#(x#) '函數過程 fun = x * x * x + 1End FunctionFunction jife

4、n#(ByVal a#, ByVal b#, ByVal n&) '函數過程Dim sum#, s#, h#, x# '變量聲明 h = (b - a) / n '"累計梯形面積"法求定積分 For i = 0 To n - 1 x = a + i * h s = h * (fun(x) + fun(x + h) / 2 sum = sum + s Next ijifen = sum '面積總和賦值到jifenEnd Function2繪制圖形Private Sub command1_click() Form1.Scale (-7.5

5、, 10)-(7.5, -10) DrawWidth = 2 '設置繪制的線寬 Line (-7.3, 0)-(7.3, 0): Line (0, 9.5)-(0, -9.5) CurrentX = 7.3: CurrentY = 0.2: Print "X" '標記X軸 CurrentX = 0.5: CurrentY = 9.3: Print "Y" '標記Y軸 For i = -7 To 7 Line (i, 0)-(i, 0.1) CurrentX = i - 0.2: CurrentY = -0.1: Print i N

6、ext i For x = -7 To 7 Step 0.005 y = x * x * x + 1 PSet (x, y) Next xEnd Sub窗體-查詢：2填充所求區(qū)域For x = a To b Step 0.005 Form1.Line (x, 0)-(x, x * x * x + 1), vbBlue '用藍色直線填充積分面積區(qū)域 Next x窗體-查詢：總結 這次課設我的題目是繪制曲線并求定積分，通過這次課設讓我了解了VB與數學知識之間有很大的聯(lián)系，比如這個題目就要用數學中的累計面積法求定積分，讓我學到編寫程序要簡單易懂，但要達到效果。界面安排要得當，達到美光。不然雜

7、亂無章，自己也無法看懂，更談何給他人講解呢。 在課設過程中，我遇到了重重困難，例如：在繪制圖形時，圖像不能顯示，界面過小不能顯示全部內容，運行另一指令，把前面的圖像覆蓋了，而且缺少了左半部分，通過老師的指點和自己查閱資料，修改了部分程序，界面修改下合理化，最終順利的完成了任務。 同時我也了解了VB的出現是一場技術革命，它在生活中各個方面都能發(fā)揮巨大的作用，所以，學好VB是社會發(fā)展的需要。完整的源程序Private Sub Command2_Click()End End SubFunction fun#(x#) fun = x * x * x + 1End FunctionFunction ji

8、fen#(ByVal a#, ByVal b#, ByVal n&) Dim sum#, s#, h#, x# h = (b - a) / n For i = 0 To n - 1 x = a + i * h s = h * (fun(x) + fun(x + h) / 2 sum = sum + s Next ijifen = sum End FunctionPrivate Sub Command3_Click() Dim a%, b% a = Val(Text1.Text) b = Val(Text2.Text) Text3.Text = jifen(a, b, 100) Form

9、1.Scale (-7.5, 10)-(7.5, -10) Line (-7.3, 0)-(7.3, 0): Line (0, 9.5)-(0, -9.5) For i = -7 To 7 Line (i, 0)-(i, 0.1) CurrentX = i - 0.2: CurrentY = -0.1: Print i Next i For x = -7 To 7 Step 0.005 y = x * x * x + 1 PSet (x, y) Next x For x = a To b Step 0.005 Form1.Line (x, 0)-(x, x * x * x + 1), vbBl

10、ue Next xEnd SubPrivate Sub command1_click() Form1.Scale (-7.5, 10)-(7.5, -10) DrawWidth = 2 Line (-7.3, 0)-(7.3, 0): Line (0, 9.5)-(0, -9.5) CurrentX = 7.3: CurrentY = 0.2: Print "X" CurrentX = 0.5: CurrentY = 9.3: Print "Y" For i = -7 To 7 Line (i, 0)-(i, 0.1) CurrentX = i - 0.2: CurrentY = -0.1: Print i Next i For x = -7 To 7 Step 0.005 y = x * x * x + 1 PSet (x, y) Next xEnd Sub參考