主题：求助！~~~~~ 一个计算编程
firgle
[专家分：0] 发布于 2008-05-29 16:13:00
麻烦VB高手帮我做一个编程，我是新手，请多多指教。在这说声非常感谢。
πd+π(x+2x......+x(i-1)=4500
其中 π、d、x 都为常量 求 i 的的值
回复列表 （共8个回复）
沙发
pariszh [专家分：740] 发布于 2008-05-29 20:28:00
拜托,不要什么事情都求教别人,能自己解决的自己动脑筋
板凳
tanchuhan [专家分：15140] 发布于 2008-05-29 22:46:00
某君的父亲是某国人（变量），请问楼主，他是哪国人？
3 楼
天天学习 [专家分：4570] 发布于 2008-05-29 23:21:00
[quote]πd+π(x+2x......+x(i-1)=4500[/quote]
括号不匹配!
4 楼
tanchuhan [专家分：15140] 发布于 2008-05-29 23:39:00
[quote]I just WANT a JOB!
一说我会VB，招聘人员都意味深长地笑了，然后说："请回去等通知吧！！！"
迷茫中...[/quote]
你不会讲你会汇编吗？汇编应该是计算机系必学的吧？
5 楼
firgle [专家分：0] 发布于 2008-05-29 23:56:00
大哥们啊 小弟是做外贸的 就是大学的时候考的VB 那就是皮毛的东西 我已经琢磨好几天了 但是还是不行
我说的公式是用于计算缠绕圈数的，举例说明：我是生产透明胶布的，胶布牛皮纸内心直径为25MM，宽度为30MM，在此之上残绕厚度为0.12MM的胶布42米。因为客户要求的时候 需要做外包装 我不能特意去做一个 之后确定包装尺寸 所以需要能算出数据来
缠绕圈数算出来后 就可以算出总直径 这样外包装尺寸就出来 小弟才疏学浅 没有专门数学厉害的朋友在 只能借助计算机编程了
希望大家能帮忙坐下 非常感激 以后有时间 我会多学习
6 楼
firgle [专家分：0] 发布于 2008-05-30 11:50:00
不会没人会吧？？？？？？？？？？？？
7 楼
一江秋水 [专家分：9680] 发布于 2008-05-30 12:05:00
给你一个非正规的思路：
Private Sub Command1_Click()
Dim a As Single
Const π = 3.14
Const d = 300
Const x = 1.2
For i = 2 To 100 '这个100根据具体情况取值吧，大一点也无妨
a = a + x * (i - 1)
If d * π + a * π >= 4500 Then Exit For '>=4500就跳出循环
Next
MsgBox "i 的值＝" & i
End Sub
这样计算出来的值都是小数，我也不知道你的那几个常数是多少，自己改一下吧
8 楼
firgle [专家分：0] 发布于 2008-05-30 12:17:00
非常感谢一江秋水 我现在马上修改试下 如有疑问还得麻烦您 辛苦了
我来回复
您所在位置：社区首页 — Visual Basic讨论区 — 求助！~~~~~ 一个计算编程