《旋轉体体积计算》VB课程设计报告.docVIP

《回转体体积计算》VB课程设计报告 班级 学号姓名：赵严明 （1） 打字练习游戏的功能 本程序使用来计算复杂回转体的体积的。 简单的回转体可以认为是由多个回转体体素构成的组合体。回转体体素包括圆柱体、圆台（既截锥体）、圆锥体、 球冠（既局部球体）和母线为圆弧的球台这五种情况。 （2） 课程设计的详细设计 本程序是由两个窗口组成，结构比较简单。设计的第一点是它的布局，鉴于课程设计已经给出很合理的结构布局，因此没有进行更改。程序第一个主窗口是由列表框，文本框，单选框和标签等组成。为方便设计，将“确定”按键做为计算的作用，而“计算”按键仅仅作为呼出显示结果的列表框的作用。 （3） 调试程序的过程 1发现“重置”命令不能使所有的有效数据归零。以致影响了以后几次的计算结果。还有发现几处类型不匹配的错误。 2 （4） 输入输出数据 通过两个文本框输入数字，例如回转体特征段的半径，高度等；通过列表框选择段号；通过单选框进行特征的选择。 通过第二个窗口（为一列表框）进行计算结果的输出。 （5） 课程设计总结 曾经觉得编程是件很困难的事情，后来听老师讲课后又发现很简单，但是当我又实际操作的时候却再次发现真的很不容易。需要注意的东西太多，远远不是刚懂得编程是怎么一回事的时候一口气可以做的出来的。对于这次课程设计中遇到的问题，更是能让我感受到这一点。譬如开始的时候，将布局做完的时候，就开始不知道怎样下手了。可能东西都是知道的，但是一下子却不能取的出来。 （6） 附件 Form1： Option Explicit 强制声明 Public VV As Integer, a As Integer, v As Double, m As Integer, s As Single 定义变量类型 Const pi = 3.14159 常量声明 Private Sub Command1_Click() Dim n As Integer a = Val(textcount.Text) 赋值 If a = 0 Then MsgBox 请先输入回转体特征段数!, vbOKOnly + vbExclamation, Vol 若值为0，则提示错误 Else List1.Clear 清除列表框 ReDim XD(0 To a - 1) 重新定义数组 For n = 1 To a List1.AddItem n 添加段号 Next Frame1.Enabled = True Select Case VV 指定类型，显示对应类型 Case 1 Label1.Caption = 底面直径 Label2.Caption = 圆柱高度 Label3.Visible = False Text3.Visible = False Case 2 Label1.Caption = 下底直径 Label2.Caption = 圆台高度 Label3.Caption = 上底直径 Label3.Visible = True Text3.Visible = True Case 3 Label1.Caption = 底面直径 Label2.Caption = 圆锥高度 Label3.Visible = False Text3.Visible = False Case 4 Label1.Caption = 底面直径 Label2.Caption = 球冠高度 Label3.Visible = False Text3.Visible = False Case 5 Label1.Caption = 小端半径 Label2.Caption = 大端半径 Label3.Visible = False Text3.Visible = False End Select End If End Sub Private Sub Command2_Click() 总体积 If a = 0 Then MsgBox 请先