1、僅供個人參考回轉體體積計算VB課程設計報告班級：03015103學號：03304095姓名：趙嚴明(1)打字練習游戲的功能本程序使用來計算復雜回轉體的體積的。簡單的回轉體可以認為是由多個回轉體體素構成的組合體。回轉體體素包括圓柱體、圓臺(既截錐體)、圓錐體、球冠(既局部球體)和母線為圓弧的球臺這五種情況。(2) 課程設計的詳細設計本程序是由兩個窗口組成，結構比較簡單。設計的第一點是它的布局，鑒于課程設計已經給出很合理的結構布局，因此沒有進行更改。程序第一個主窗口是由列表框，文本框，單選框和標簽等組成。為方便設計，將"確定"按鍵做為計算的作用，而"計算”按鍵僅僅作為

2、呼出顯示結果的列表框的作用。Forpersonaluseonlyinstudyandresearch;notforcommercialuse(3) 調試程序的過程<1>發現"重置”命令不能使所有的有效數據歸零。以致影響了以后幾次的計算結果。還有發現幾處類型不匹配的錯誤。<2>Forpersonaluseonlyinstudyandresearch;notforcommercialuse(4) 輸入輸出數據通過兩個文本框輸入數字，例如回轉體特征段的半徑，高度等；通過列表框選擇段號；通過單選框進行特征的選擇。通過第二個窗口(為一列表框)進行計算結果的輸出。Forp

3、ersonaluseonlyinstudyandresearch;notforcommercialuse(5) 課程設計總結曾經覺得編程是件很困難的事情，后來聽老師講課后又發現很簡單，但是當我又實際操作的時候卻再次發現真的很不容易。需要注意的東西太多，遠遠不是剛懂得編程是怎么一回事的時候一口氣可以做的出來的。對于這次課程設計中遇到的問題，更是能讓我感受到這一點。譬如開始的時候，將布局做完的時候，就開始不知道怎樣下手了。可能東西都是知道的，但是一下子卻不能取的出來。(6) 附件Forpersonaluseonlyinstudyandresearch;notforcommercialuseForm

4、1：OptionExplicit'強制聲明PublicVVAsInteger,aAsInteger,vAsDouble,mAsInteger,sAsSingle定義變量類型Constpi=3.14159'常量聲明PrivateSubCommand1_Click()DimnAsIntegera=Val(textcount.Text)'賦值Ifa=0ThenMsgBox"請先輸入回轉體特征段數!",vbOKOnly+vbExclamation,"Vol"'若值為0，則提示錯誤ElseList1.Clear'ReDimX

5、D(0Toa-1)Forn=1ToaList1.AddItemnNextFrame1.Enabled=TrueSelectCaseVV清除列表框 重新定義數組添加段號指定類型，顯示對應類型Label1.Caption = "Label2.Caption = "Label3.Visible = FalseText3.Visible = FalseCase 2Label1.Caption = "Label2.Caption = "Label3.Caption = "Label3.Visible = TrueText3.Visible = TrueC

6、ase 3Label1.Caption = "Label2.Caption = "Label3.Visible = FalseText3.Visible = FalseCase 4Label1.Caption = "Label2.Caption = "Label3.Visible = False底面直徑 "圓柱高度 "下底直徑 "圓臺高度 "上底直徑 "底面直徑 "圓錐高度 "底面直徑 "球冠高度 "Text3.Visible = FalseCase 5Label1

7、.Caption = "Label2.Caption = "Label3.Visible = False小端半徑 "大端半徑 "Text3.Visible = FalseEnd SelectEnd IfEnd SubCase1PrivateSubCommand2_Click()'Ifa=0ThenMsgBox"請先生成回轉體結構并設置尺寸，然后計算"Vol"'輸入錯誤的提示ElseDimjAsInteger'Forj=0ToList1.ListCount-1'IfXD(j).T=0Then&#

8、39;v=0MsgBox"第"&j+1&"段沒有數據"'ExitSubElsev=v+XD(j).T'EndIfNextForm2.ShowEndIfEndSubPrivateSubCommand3_Click()List1.Clearv=0textcount.Text=""'Frame1.Enabled=False'Frame1UnloadForm2'EndSubPrivateSubCommand4_Click()End'EndSubPrivateSubCommand5

9、_Click()DimiAsInteger'Fori=0ToList1.ListCount-1'IfList1.Selected(i)=TrueThen'm=i'EndIfNextDimDAsSingle,HAsSingle,d1AsSingle'D=Val(Text1.Text)'總體積", vbOKOnly + vbExclamation定義變量利用循環某一特征體數計算結果為 0跳出信息對話框，指出讀數有誤累加各段之和清空重置不響應關閉窗體 2結束程序定義變量 利用循環，循環個數為體數總數 列表框中某項被選中 賦值定義變量賦值H=V

10、al(Text2.Text)d1=Val(Text3.Text)SelectCaseVVCase 1IfD=0OrH=0Then'若輸入有誤'則提示MsgBox"輸入有誤",vbOKOnly+vbExclamation,"注意！"ExitSubEndIfXD(m).T=Format(pi*D*D*H/4,"#.#")'計算圓柱體體積并記錄在自定義函數數組中Case 2IfD=0OrH=0Ord1=0ThenMsgBox"輸入有誤",vbOKOnly+vbExclamation,"注

11、意！"ExitSubEndIfXD(m).T=Format(pi*di*(D人2+HA2+D*H)/12,"#.#")'計算圓臺體積并記錄在自定義函數數組中Case 3IfD=0OrH=0ThenMsgBox"輸入有誤",vbOKOnly+vbExclamation,"注意！"ExitSubEndIfXD(m).T=Format(pi*DA2*H/12,"#,#")'計算圓錐體體積并記錄在自定義函數數組中Case 4IfD=0OrH=0ThenMsgBox"輸入有誤",

12、vbOKOnly+vbExclamation,"注意！"ExitSubEndIfXD(m).T=Format(pi*(3*DA2/4+HA2)/6,"#.#")'計算球冠體積并記錄在自定義函數數組中Case 5IfD=0OrH=0ThenMsgBox"輸入有誤",vbOKOnly+vbExclamation,"注意！"ExitSubEndIfIfD>HThen'小端大于大端時提示MsgBox"小端大于大端",vbOKOnly+vbExclamation,"注意&q

13、uot;ExitSubEndIfXD(m).T=qt(D,H)'計算球臺體積并記錄在自定義函數數組中EndSelectIfXD(m).T=0ThenMsgBox"運行時錯誤13，類型不匹配",vbOKOnly+vbExclamation,"Vol"不得用于商業用途'錯誤時提示EndIfText1.Text=""'Text2.Text=""Text3.Text=""EndSubPrivateSubForm_Load()Label1.Caption="底面直徑Lab

14、el2.Caption="圓柱高度Label3.Visible=FalseText3.Visible=FalseVV=1'Frame1.Enabled=FalseEndSub清空數據為下次輸入準備初始狀態尺寸顯示PrivateSubOption1_Click(IndexAsInteger)DimiAsIntegerFori=0ToList1.ListCount-1IfList1.Selected(i)=TrueThen'm=iEndIfNext記錄選中哪一段段號SelectCaseIndexCase0Label1.Caption="底面直徑Label2.Ca

15、ption="圓柱高度Label3.Visible=FalseText3.Visible=FalseVV=1XD(m).name="圓柱體"Case1Label1.Caption="上底直徑Label2.Caption="下底直徑Label3.Caption="圓臺高度Text3.Visible=TrueLabel3.Visible=TrueVV=2XD(m).name="圓臺體"顯示圓柱體尺寸框自定義函數數組賦值顯示圓臺體尺寸框自定義函數數組賦值Case2'Label1.Caption="底面直

16、徑"Label2.Caption="圓錐高度"Label3.Visible=FalseText3.Visible=FalseVV=3XD(m).name="圓錐體"Case3'Label1.Caption="底面直徑"Label2.Caption="球冠高度"Label3.Visible=FalseText3.Visible=FalseVV=4XD(m).name="球冠"Case4'Label1.Caption="小端半徑"Label2.Capti

17、on="大端半徑"Label3.Visible=FalseText3.Visible=FalseVV=5XD(m).name="球臺"顯示圓錐體尺寸框自定義函數數組賦值顯示球冠尺寸框自定義函數數組賦值顯示球臺尺寸框自定義函數數組賦值EndSelectEndSubFunctionqt(ByValXAsInteger,ByValYAsInteger)DimtiAsSingleDimmAsLongDimpiAsSinglem=1pi=3.14DimnAsIntegerDoUntil(Y-X)/m<0.0001m=m+1Loopn=1DoUntiln=mt

18、i=ti+(X+(Y-X)*n/m)*4*(X+(Y-X)*n/m)*(Y-X)/mn=n+1Loopqt=tiEndFunctionForm2：OptionExplicitPrivateSubCommand1_Click()顯示窗體 1UnloadForm2EndSubPrivateSubForm_Load()List1.ClearDimiAsIntegerFori=0ToForm1.a-1List1.AddItem"第"&i+1&"段"&Module1.XD(i).name&Module1.XD(i).T'列表框中顯示每段短號對應的體素及相應體積NextList1.AddItem""List1.AddItem"總體積"&Form1.v'添加顯示總體積EndSubPri