vb用代码算出两个圆柱体的直径之差,可两个圆柱体都不是规则通径的圆柱体.只有圆心是一样的,两个圆柱直径都是变化的 ,外圆最多变化六次,里圆最多十次,怎么算各段之差啊?

来源：学生作业帮助网 编辑：六六作业网 时间：2024/12/19 02:16:51
vb用代码算出两个圆柱体的直径之差,可两个圆柱体都不是规则通径的圆柱体.只有圆心是一样的,两个圆柱直径都是变化的,外圆最多变化六次,里圆最多十次,怎么算各段之差啊?vb用代码算出两个圆柱体的直径之差,

vb用代码算出两个圆柱体的直径之差,可两个圆柱体都不是规则通径的圆柱体.只有圆心是一样的,两个圆柱直径都是变化的 ,外圆最多变化六次,里圆最多十次,怎么算各段之差啊?
vb用代码算出两个圆柱体的直径之差,可两个圆柱体都不是规则通径的圆柱体.只有圆心是一样的,

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

vb用代码算出两个圆柱体的直径之差,可两个圆柱体都不是规则通径的圆柱体.只有圆心是一样的,两个圆柱直径都是变化的 ,外圆最多变化六次,里圆最多十次,怎么算各段之差啊?
你是要算钢管的壁厚吧,你建两个二维数组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)

vb用代码算出两个圆柱体的直径之差,可两个圆柱体都不是规则通径的圆柱体.只有圆心是一样的,两个圆柱直径都是变化的 ,外圆最多变化六次,里圆最多十次,怎么算各段之差啊? 两段圆柱体木材的体积差是314立方厘米若将他加工成底面是最大正方形的长方体两个长方体的体积之差是? 圆柱体立方怎么算?一根上两米直径两米的木材 怎么算出它有多少方? 已知两圆的半径之比是5:3,两圆的周长之差是12.56分米.求这两个圆的直径 用VB画圆柱体怎样用VB画三维的圆柱体?要有实体效果! 提问两段圆柱体木材的体积差是314立方厘米.若将他加工成底面是最大正方形的长方体两个长方体的体积之差是多少?为什么R*R*H-r*r*h=100? 用PROE拉伸去除两相交实体材料失败如图,我先拉伸了两个圆柱体,然后扫描混合出两圆柱间的跨接部分,可再在圆柱体上进行拉伸去除材料时却失败,用孔工具也不行,求大神指点 如何用VB求两个数的最大公约数和最小公倍数?请列出代码! 【VB代码】求两个并联电阻的总阻值Dim R1 As Double,R2 As Double____________________________________________________________________________________________ 用VB编程写一个圆柱体体积的函数过程 VB随机产生3位数的代码 A Bl两球用细线让过半径为R的圆柱体,静止在水平直径两端,两球质量为M1和M2,M1>M2,可看成质点,当M2刚好圆柱体顶端时,对圆柱体压力为零,求两球质量之比 设所有可表示为两整数的平方差的整数组成的集合为M.证明属于M的两个整数之积属于M. 用VB编程设计一个类似于Windows附件中的计算器,如图所示,可进行简单的算术运算、三角函数和自然对数运算求代码,如果每条代码后面有说明就更好了,可以追加100 知道圆柱体的直径和高度,能否算出面积,怎么算才行? 请教直径130CM,高405CM的圆柱体怎样算出体积? 高度相同,体积不同的铁圆柱体,已知两圆柱体体积Va=2Vb,他们对桌面的压强之比A、1:1 B、2：1 C、4:1 D、1:2 从1到6中任意选两个数(可重复),两个数字之差是偶数的情况一共有多少种?详细解答