vb 长方体侧面记积代码

vb 长方体侧面记积代码

长方体的侧面积为：

（长*宽+长*高+宽*高）*2

添加四个文本框，分别用来输入长、宽、高的值和显示侧面积的值，一个命令按钮

程序功能：在三个文本框中分别输入长、宽和高的值，单击命令按钮后，第四个文本框中显示长方体的侧面积

所以代码如下：

private sub command1_click()

dim 长,宽,高,侧面积 as integer

长=val(text1.text) '将文本框中的内容转化为数值型数据然后赋值给长

宽=val(text1.text) '将文本框中的内容转化为数值型数据然后赋值给宽

高=val(text3.text) '将文本框中的内容转化为数值型数据然后赋值给高

侧面积=（长*宽+长*高+宽*高）*2

text4.text=str(侧面积) '将侧面积转化为字符串型后将它赋给文本框4，在文本框4中显示侧面积的值

end sub

'可以有3个答案，因为有3种不同的放法 Option Explicit Private Sub Form_Activate() Dim a, b, h a = 3: b = 2: h = 1 Print "侧面积1：" & 2 * (a * b + a * h) Print "侧面积2：" & 2 * (a * b + b * h) Print "侧面积3：" & 2 * (a * h + b * h) Print "表面积：" & 2 * (a * b + a * h + b * h) End Sub