vb用代码算出两个圆柱体的直径之差,可两个圆柱体都不是规则通径的圆柱体.只有圆心是一样的,

来源：学生作业帮编辑：拍题作业网作业帮分类：数学作业时间：2024/05/19 07:37:41

两个圆柱直径都是变化的 ,外圆最多变化六次,里圆最多十次,怎么算各段之差啊?

你是要算钢管的壁厚吧,你建两个二维数组a(0 to n,0 to 1),b(0 to n,0 to 1),a存外径数据,b存内径数据,a(i,0)是长度,a(i,1)是半径,长度为0时存一组数据,此后每次半径变动都存一组数据,管尾再存一次数据,这要靠你手工录入.
存好后,比如我要查长度100处的壁厚,代码如下：
dim i as double,r1 as double,r2 as double
for i =0 to ubound(a)-1
if a(i,0)100 then exit for
next for
if i=ubound(a) then
msgbox "未找到数据"
exit sub
else
r1=a(i,1)' 取得外径
end if
for i =0 to ubound(b)-1
if b(i,0)100 then exit for
next for
if i=ubound(b) then
msgbox "未找到数据"
exit sub
else
r2=b(i,1)' 取得内径
end if
msgbox "壁厚为：" & (r1=r2)
再问：谢谢啊！能不再问个问题，大神！
添加了一个ole的 excel表格，而且编辑了，怎样把这张表自定义另存为？

一个圆柱体,沿着底面直径,切成两个完全一样的半圆柱,表面积比原来增加了30平方分米,圆柱体原来的表面积是有两个底面直径相等的圆柱体,高的比是2:7,第一个圆柱体的体积比第二个圆柱体少多两个圆柱体的高相等,第一个圆柱体的底面积是第二个圆柱体的三分之二,第二个圆柱体的体积是60立方米,第一一段圆柱体木料，如果截成两个圆柱体，它的表面积就增加628平方厘米；如果沿着直径劈开两个圆柱体，它的表面积就增加240平把一个高为16厘米的圆柱体截成两个圆柱体，表面积之和比原来圆柱体多12平方厘米，原来圆柱体的体积是______立方厘米．把一个圆柱体沿直径竖直切成两个柱体,这两个柱体表面积之和比圆柱体多4a平方厘米,若这个圆柱体的一个圆锥体直径6厘米,一个圆柱体直径4厘米,两个容器高度都是4.2厘米,将圆锥体装满水倒入空着的圆柱体中,圆柱体水深? 一个圆柱体,底面直径是8CM,高是10CM,把它沿着底面直径竖直切开,得到两个一样的立体图形,问一个圆柱体,底面直径是8CM,高是10CM,把它沿着底面直径竖直切开,得到两个一样的立体图形,其中一个立一个圆柱体从直径切开,面积增加了两个长方形,请问长方形的长等于圆柱体的什么? 把一个高10厘米的圆柱体沿着底面直径切割成两个半圆柱,它的表面积增加了240平方厘米,这个圆柱体的体积是( )立方厘米. 将一个圆柱体沿底面直径切成两个形状,大小都相同的两个部分,其中一个底面面积周长是10.28厘米,高是6厘米