jacky
问题补充说明：我最先画的标签控件，总提示错误后换成文本框了。如果用label1.caption=s,运行程序后提示着句错误。我换成text1.text=s,则程序正常运行，请我这是哪儿的问题呢？... 我最先画的标签控件，总提示错误后换成文本框了。如果用label1.caption=s,运行程序后提示着句错误。我换成text1.text=s,则程序正常运行，请我这是哪儿的问题呢？ 展开
Private Sub Cmd1_Click() Dim r As Double D剂飞样im h As Double
Const Pi = 3.1415926
'先用InputBox函数引入底面半径和高
r = Val(InputBox("请输入圆柱体底面半径："))
h = Val(InputBox("请输入圆柱体的高："))
'圆柱体的表面积=侧面积+两来自个底面积
Dim s As Double
s = Pi * 2 * r * h + 2 * Pi * r * r
Lab1.Caption = s
End Sub
Private Sub Cmd2_Click()
Dim r As Double
Dim h As Double
Const Pi = 3.14360问答15926
'先用InputBox函数引东娘朝牛伤入底面半径和高
r = Val(InputBox("请输入圆柱体底面半径："))
h = Val(I节刘氧继抗洲年消更销居nputBox("请输入圆柱体的高："))
'圆柱体的体积=底面积*高
Dim v As Double
v = Pi * r * r * h
Lab2.Capt眼音兴略口始界子心试民ion = v
End Sub
代码不难，简单的公式处理而已，希望你自己好好消化一下，好好学习，天天向上，祝愉快！！！
遵照“浪花飘零2000”这位朋友的意见，表构压找每应电叶面积公司略作修改完善！！
你仔细检查一下Label1这些控件的名称是否正确！！
