导读 Private Sub Command1_Click() Const PAI = 3.1415926 r = InputBox("请输入圆柱体半径") h = InputBox("请输入圆柱体高") ms...
Private Sub Command1_Click() Const PAI = 3.1415926 r = InputBox("请输入圆柱体半径") h = InputBox("请输入圆柱体高") msg = "圆柱体体积为" & PAI * Val(r) * Val(r) * Val(h) MsgBox msg End Sub。