VB6.0做计算器

2024-12-31 04:51:44

推荐回答（3个）

回答1：

'在窗体上放5个文本框，1个按钮，名字默认，使用以下代码
'半径：Text1
'高:Text2
'底面积：Text3
'侧面积：Text4
'体积：Text5
Private Sub Command1_Click()
On Error Goto 1
Text3.Text = Text1.Text * Text1.Text * 3.14
Text4.Text = Text1.Text * 6.28 * Text2.Text
Text5.Text = Text1.Text * Text1.Text * 3.14 * Text2.Text
Exit Sub
1:
msgbox "数据有错",,"提示"
End Sub

回答2：

假设半径为r，高度为h，pi为圆周率

底面积=pi*r^2
侧面积=2*r*pi*h
体积=pi*r^2*h

回答3：

套上公式就行