设圆半径r=1.5,圆柱高h=3,求圆周长、圆面积及圆柱体积。用InputBox函数输入数据,结果在文本框中输出
来源:百度知道 编辑:UC知道 时间:2024/09/23 06:29:12
利用VB编写,谢谢
Option Explicit
Dim r As Single
Dim h As Single
Dim A As Double
Dim L As Double
Dim V As Double
Dim pi As Single
Private Sub Form_Load()
pi = 3.14159
r = InputBox("请输入半径") '圆柱高
h = InputBox("请圆柱高")
L = pi * 2 * r
Text1 = L
A = pi * r ^ 2
Text2 = A
V = h * A
Text3 = V
End Sub
题目:设圆半径r=1.5,圆柱高h=3。
设圆半径r=1.5,圆柱高h=3,求圆周长、圆面积及圆柱体积。用InputBox函数输入数据,结果在文本框中输出
半径为R的球的内接正四面体的高为H,则H/R=?
如图中两个圆,一个正方形部分,恰好能围成一圆柱,设圆半径为r
体积为V的圆柱中,底面半径r和高h为多少时,其表面积最小
在一个半径为r的球内嵌入一个内接圆柱,试将圆柱的体积V表示为圆柱的高h的函数,并确定此函数的定义域。
要造一个容积为V的圆柱闭合油罐,问低半径r和高h等于多少时,能使
已知圆椎底面半径为R,高为3R,它的内接圆柱半径为3/4R,该圆柱的全面积为多少?
△ABC中,AB等=15,AC等=13,高AD=12,设能完全覆盖△ABC的圆的半径为R ,则R的最小值为多少
△ABC中,AC=15,AC=13,高AD=12,设能完全覆盖△ABC的圆的半径为R,求R的最小值。