vb用代码算出两个圆柱体的直径之差,可两个圆柱体都不是规则通径的圆柱体.只有圆心是一样的,
来源:学生作业帮 编辑:搜搜考试网作业帮 分类:数学作业 时间:2024/08/18 19:35:24
vb用代码算出两个圆柱体的直径之差,可两个圆柱体都不是规则通径的圆柱体.只有圆心是一样的,
![](http://img.wesiedu.com/upload/7/8d/78d29b5ed59d4670504c65a87035c82f.jpg)
两个圆柱直径都是变化的 ,外圆最多变化六次,里圆最多十次,怎么算各段之差啊?
![](http://img.wesiedu.com/upload/7/8d/78d29b5ed59d4670504c65a87035c82f.jpg)
两个圆柱直径都是变化的 ,外圆最多变化六次,里圆最多十次,怎么算各段之差啊?
![vb用代码算出两个圆柱体的直径之差,可两个圆柱体都不是规则通径的圆柱体.只有圆心是一样的,](/uploads/image/z/17423940-12-0.jpg?t=vb%E7%94%A8%E4%BB%A3%E7%A0%81%E7%AE%97%E5%87%BA%E4%B8%A4%E4%B8%AA%E5%9C%86%E6%9F%B1%E4%BD%93%E7%9A%84%E7%9B%B4%E5%BE%84%E4%B9%8B%E5%B7%AE%2C%E5%8F%AF%E4%B8%A4%E4%B8%AA%E5%9C%86%E6%9F%B1%E4%BD%93%E9%83%BD%E4%B8%8D%E6%98%AF%E8%A7%84%E5%88%99%E9%80%9A%E5%BE%84%E7%9A%84%E5%9C%86%E6%9F%B1%E4%BD%93.%E5%8F%AA%E6%9C%89%E5%9C%86%E5%BF%83%E6%98%AF%E4%B8%80%E6%A0%B7%E7%9A%84%2C)
你是要算钢管的壁厚吧,你建两个二维数组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表格,而且编辑了,怎样把这张表自定义另存为?
存好后,比如我要查长度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厘米