| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2554 人关注过本帖
标题:已知,DB,m,偏差等级 同时满足三个条件才能选到需要的数据。程序哪里错误呢 ...
只看楼主 加入收藏
sr88csg
Rank: 1
等 级:新手上路
帖 子:32
专家分:0
注 册:2016-1-7
收藏
得分:0 
可以编一段给我试试吗。
2016-01-09 10:16
sr88csg
Rank: 1
等 级:新手上路
帖 子:32
专家分:0
注 册:2016-1-7
收藏
得分:0 
可以编写一段给我试试看嘛
2016-01-09 10:17
wmf2014
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:216
帖 子:2039
专家分:11273
注 册:2014-12-6
收藏
得分:5 
简单写了下,经测试10组不同数据,和你的代码得到的结果一样,代码如下:
Dim i As Integer, j As Integer, k As Integer, a As String
Dim DB As Single, m As Single
Dim d
d = Array(Array(200, 180, 160, 140, 125, 110, 100, 90, 80), Array(180, 162, 144, 126, 112, 99, 90, 81, 72), Array(160, 144, 128, 112, 100, 88, 80, 72, 64), Array(140, 126, 112, 98, 88, 77, 70, 63, 56), Array(120, 108, 96, 84, 75, 66, 60, 54, 48), Array(100, 90, 80, 70, 62, 55, 50, 45, 40), Array(80, 72, 64, 56, 50, 44, 40, 36, 32), Array(60, 54, 48, 42, 37, 33, 30, 27, 24), Array(40, 36, 32, 28, 25, 22, 20, 18, 16), Array(20, 18, 16, 14, 12, 11, 10, 9, 8), Array(0, 0, 0, 0, 0, 0, 0, 0, 0), Array(-20, -18, -16, -14, -12, -11, -10, -9, -8), Array(-40, -36, -32, -28, -25, -22, -20, -18, -16), Array(-60, -54, -48, -42, -37, -33, -30, -27, -24), Array(-80, -72, -64, -56, -50, -44, -40, -36, -32), Array(-120, -108, -96, -84, -75, -66, -60, -54, -48), Array(-160, -144, -128, -112, -100, -88, -80, -72, -64), Array(-200, -180, -160, -140, -125, -110, -100, -90, -80))
a = "vutsrpnmkjhgfedcba"
j = InStr(a, Trim(Text3)) - 1
If j < 0 Then j = 0
DB = Val(Text1.Text)
m = Val(Text2.Text)
i = 1
If m > 4 Then i = 0
If m <= 1.5 Then i = 2
k = 6
While DB > 12
  DB = DB / 2
  k = k - 1
Wend
If k < 0 Then k = 0
i = i + k
MsgBox d(j)(i)

能编个毛线衣吗?
2016-01-09 12:12
sr88csg
Rank: 1
等 级:新手上路
帖 子:32
专家分:0
注 册:2016-1-7
收藏
得分:0 
我的目标是假如已知基准直径Db=12, 模数m=1.5,  偏差代号为v的话  查出Ae为80. 版主能不能采用简单的程序帮我编写一下吗。
2016-01-09 20:28
sr88csg
Rank: 1
等 级:新手上路
帖 子:32
专家分:0
注 册:2016-1-7
收藏
得分:0 
哦,看到了,十分感谢。
2016-01-09 20:29
sr88csg
Rank: 1
等 级:新手上路
帖 子:32
专家分:0
注 册:2016-1-7
收藏
得分:0 
回复 13楼 wmf2014
我试验过了,非常感谢。程序简短实用。
2016-01-09 20:56
sr88csg
Rank: 1
等 级:新手上路
帖 子:32
专家分:0
注 册:2016-1-7
收藏
得分:0 
2016-01-09 22:27
hl2388817942
Rank: 2
等 级:论坛游民
帖 子:9
专家分:10
注 册:2016-1-6
收藏
得分:5 
请帮我解决下代码问题,谢谢大侠
2016-01-11 22:22
快速回复:已知,DB,m,偏差等级 同时满足三个条件才能选到需要的数据。程序哪里 ...
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.022236 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved