VB程序设计—计算圆柱体表面积和体积

2022届14班 何偲玉蝶  指导教师：唐军

圆柱体，一个对我而言比较麻烦的立体几何图形。上初中以来，数学课本中关于圆柱体等几何问题的计算我就弄错过多次。本学期我正在学习VB程序设计选修课程，于是设计了一个利用VB来计算机圆柱体表面积和体积的程序。

VB，全称visual basic，是Microsoft旗下开发的结构化、模块化、面向对象的可视化程序设计语言。相较于其它语言，VB更适合我们这样的初学者学习。通过该课程的学习，我们可以解决生活中和学习中的一些小问题，也可以设计一些简单的娱乐小程序，还可以培养、锻炼我们的逻辑思维。接下来，由我来向大家介绍我的这个小程序。

首先，设计一个窗体（如图），5个用于显示文字的label标签，四个用于输入输出数据的text输入框，两个用于计算和退出的command命令按钮。打开代码窗口，定义四个变量r，h，s，v，类型为single。设置输入框text1.text为半径r，text2.text为高h，输出框text3.text为表面积s，text4.text为体积v。在计算出s与v的数据后，使用if语句判断s、v的数值是否溢出，否则msgbox提示警告。

详细代码如下：

Private Sub Command1_Click()

Dim r, h, s, v As Single

r = val(Text1.Text)

h =val( Text2.Text)

s = r * r * 2 * 3.14+ 2 * r * h *3.14

v = r * 2 * 3.14 * h

If s > 0 And s < 1.1E+19 Then

Text3.Text = s

Else

MsgBox "数字太大了！", 16, "警告"

Text1.Text = ""

Text2.Text = ""

End If

If v > 0 And v < 1.1E+19 Then                                   

Text4.Text = v

Else

MsgBox "数字太大了！", 16, "警告"

Text1.Text = ""

Text2.Text = ""

End If

End Sub

Private Sub Command2_Click()

End                                                       

End Sub

虽然这是一个最简单的程序，但实现过程也并非一帆风顺，如一开始我尝试用coust定义圆周率Π的值，想给圆周率设制更多小数位，使计算结果更精确。但在调试运行程序的时候，计算结果总是出现溢出问题，后来还是老老实实的将代码改成了直接*3.14，经过多次修改，最后才达到我的预想。

计算机程序运行高效，快速，准确，编写程序来解决数学问题可以带来很多便利。最近数学老师又布置了“鸡兔同笼”的问题，同学们觉得用程序来解决这个问题又该如何实现呢？联系我，一起解决吧。