《旋转体体积计算》VB课程设计报告.doc

回转体体积计算VB课程设计报告班级：03015103 学号：03304095 姓名：赵严明（1）打字练习游戏的功能本程序使用来计算复杂回转体的体积的。 简单的回转体可以认为是由多个回转体体素构成的组合体。回转体体素包括圆柱体、圆台（既截锥体）、圆锥体、 球冠（既局部球体）和母线为圆弧的球台这五种情况。（2）课程设计的详细设计 本程序是由两个窗口组成，结构比较简单。设计的第一点是它的布局，鉴于课程设计已经给出很合理的结构布局，因此没有进行更改。程序第一个主窗口是由列表框，文本框，单选框和标签等组成。为方便设计，将确定按键做为计算的作用，而计算按键仅仅作为呼出显示结果的列表框的作用。（3）调试程序的过程 发现重置命令不能使所有的有效数据归零。以致影响了以后几次的计算结果。还有发现几处类型不匹配的错误。 （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 = TrueSelect 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 SubPrivate Sub Command2_Click() 总体积 If a = 0 Then MsgBox 请先生成回转体结构并设置尺寸，然后计算, vbOKOnly + vbExclamation, Vol 输入错误的提示 Else Dim j As Integer 定义变量 For j = 0 To List1.ListCount - 1 利用循环 If XD(j).T = 0 Then 某一特征体数计算结果为0 v = 0 MsgBox 第 & j + 1 & 段没有数据 跳出信息对话框，指出读数有误 Exit Sub Else v = v + XD(j).T 累加各段之和 End If Next Form2.Show End If End SubPrivate Sub Command3_Click() List1.Clear v = 0 textcount.Text = 清空重置 Frame1.Enabled = False Frame1不响应 Unload Form2 关闭窗体2 End SubPrivate Sub Command4_Click() End 结束程序End SubPrivate Sub Command5_Click()Dim i As Integer 定义变量For i = 0 To List1.ListCount - 1 利用循环，循环个数为体数总数 If List1.Selected(i) = True Then 列表框中某项被选中 m = i 赋值 End If Next Dim D As Single, H As Single, d1 As Single 定义变量 D = Val(Text1.Text) 赋值 H = Val(Text2.Text) d1 = Val(Text3.Text) Select Case VV Case 1 If D = 0 Or H = 0 Then 若输入有误则提示 MsgBox 输入有误, vbOKOnly + vbExclamation, 注意！ Exit Sub End If XD(m).T = Format(pi * D * D * H / 4, #.#) 计算圆柱体体积并记录在自定义函数数组中 Case 2 If D = 0 Or H = 0 Or d1 = 0 Then MsgBox 输入有误, vbOKOnly + vbExclamation, 注意！ Exit Sub End If XD(m).T = Format(pi * d1 * (D 2 + H 2 + D * H) / 12, #.#) 计算圆台体积并记录在自定义函数数组中 Case 3 If D = 0 Or H = 0 Then MsgBox 输入有误, vbOKOnly + vbExclamation, 注意！ Exit Sub End If XD(m).T = Format(pi * D 2 * H / 12, #,#) 计算圆锥体体积并记录在自定义函数数组中 Case 4 If D = 0 Or H = 0 Then MsgBox 输入有误, vbOKOnly + vbExclamation, 注意！ Exit Sub End If XD(m).T = Format(pi * (3 * D 2 / 4 + H 2) / 6, #.#) 计算球冠体积并记录在自定义函数数组中 Case 5 If D = 0 Or H = 0 Then MsgBox 输入有误, vbOKOnly + vbExclamation, 注意！ Exit Sub End If If D H Then 小端大于大端时提示 MsgBox 小端大于大端, vbOKOnly + vbExclamation, 注意 Exit Sub End If XD(m).T = qt(D, H) 计算球台体积并记录在自定义函数数组中 End Select If XD(m).T = 0 Then MsgBox 运行时错误13，类型不匹配, vbOKOnly + vbExclamation, Vol 错误时提示 End If Text1.Text = 清空数据为下次输入准备 Text2.Text = Text3.Text = End SubPrivate Sub Form_Load() Label1.Caption = 底面直径 Label2.Caption = 圆柱高度 Label3.Visible = False Text3.Visible = False VV = 1 初始状态尺寸显示 Frame1.Enabled = FalseEnd Sub Private Sub Option1_Click(Index As Integer) Dim i As Integer For i = 0 To List1.ListCount - 1 If List1.Selected(i) = True Then 记录选中哪一段段号 m = i End If NextSelect Case Index Case 0 显示圆柱体尺寸框 Label1.Caption = 底面直径 Label2.Caption = 圆柱高度 Label3.Visible = False Text3.Visible = False VV = 1 XD(m).name = 圆柱体 自定义函数数组赋值 Case 1 显示圆台体尺寸框 Label1.Caption = 上底直径 Label2.Caption = 下底直径 Label3.Caption = 圆台高度 Text3.Visible = True Label3.Visible = True VV = 2 XD(m).name = 圆台体 自定义函数数组赋值 Case 2 显示圆锥体尺寸框 Label1.Caption = 底面直径 Label2.Caption = 圆锥高度 Label3.Visible = False Text3.Visible = False VV = 3 XD(m).name = 圆锥体 自定义函数数组赋值 Case 3 显示球冠尺寸框 Label1.Caption = 底面直径 Label2.Caption = 球冠高度 Label3.Visible = False Text3.Visible = False VV = 4 XD(m).name = 球冠 自定义函数数组赋值 Case 4 显示球台尺寸框 Label1.Caption = 小端半径 Label2.Caption = 大端半径 Label3.Visible = False Text3.Visible = False VV = 5 XD(m).name = 球台 自定义函数数组赋值 End SelectEnd SubFunction qt(ByVal X As Integer, ByVal Y As Integer)Dim ti As SingleDim m As LongDim pi As Singlem = 1pi = 3.14Dim n As IntegerDo Until (Y - X) / m 0.0001m = m + 1Loopn = 1Do Until n = mti = ti + (X + (Y - X) * n / m) * 4 * (X + (Y - X) * n / m) * (Y - X) / mn = n + 1Loopqt = tiEnd Function -Form2：Option ExplicitPrivate Sub Command1_Click()Unload Form2 显示窗体1End SubPrivate Sub Form_Load() List1.Clear Dim i As Integer For i = 0 To Form1.a - 1 List1.AddItem 第 & i + 1 & 段 & Module1.XD(i).name & Module1.XD(i).T 列表框中显示每段短号对应的体素及相应体积 Next List1.AddItem - List1.AddItem 总体积 & Form1.v 添加显示总体积 End SubPrivate Sub List1_Click()End Sub模块：Option ExplicitPrivate Type Fg 定义自