| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 317 人关注过本帖
标题:比较数值大小问题
只看楼主 加入收藏
建生65
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2018-5-10
结帖率:100%
  已结贴   问题点数:20  回复次数:5   
比较数值大小问题
        If i = 45 Then
            MsgBox Xstockline(Nbatch + 1, 1): MsgBox Xstockline(Nbatch + 1, 2): MsgBox Xratio(i)
        End If
        For j = 1 To m1
            If Xratio(i) >= Xstockline(Nbatch + 1, j) And Xratio(i) <= Xstockline(Nbatch + 1, j + 1) Then
                Yratio1(i) = Kratio1(j) * (Xratio(i) - Xstockline(Nbatch + 1, j)) + Ystockline(Nbatch + 1, j)
                Exit For
            End If
        Next j
        If i = 45 Then
            MsgBox j
        End If
第一个if之后输出的数值分别是:-3.0,-0.9,-1.35,m1的值为2。我的理解是j=1时,条件成立然后执行第二个if中的语句后跳出第一个循环,最后第3个if中应该输出j的值是1。
但是我运行之后,第一个if输出的数值确实是-3.0,-0.9,-1.35.但第三个if输出的j为3.这就意味着第二个if的条件不成立,从而没有执行里面的语句,请问是什么原因。
在此谢谢版主老哥对上个帖子的热心解答,也请路过知道本帖问题的老哥给点意见,谢谢

[此贴子已经被作者于2018-5-14 18:28编辑过]

2018-05-14 16:30
wds1
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:22
帖 子:240
专家分:1350
注 册:2016-3-10
  得分:10 
看看用没用  on error resume next,如果用用了取消,可能是语句报错,跳句了。


2018-05-14 17:17
建生65
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2018-5-10
  得分:0 
回复 2楼 wds1
没有用这个语句,
2018-05-14 19:43
建生65
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2018-5-10
  得分:0 
回复 2楼 wds1
我利用断点调试了下,结果如下:

就显示第二个变量值的时候有"3",而其他没有,估计是这出了问题
将Xstockline(Nbatch+1,1)改为Val(Xstockline(Nbatch+1,1))能够正常运行,但我定义变量的时候是 dim Xstockline(1 to 100,1 to 20) as double
之后有一步是把-3而不是-3.0的值赋值给了Xstockline(Nbatch+1,1)
有点不理解怎么把Xstockline(Nbatch+1,1)的值认为是"-3"了,

[此贴子已经被作者于2018-5-14 20:18编辑过]

附件: 您没有浏览附件的权限,请 登录注册
2018-05-14 20:02
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:99
帖 子:4196
专家分:28789
注 册:2009-4-8
  得分:10 
Xstockline(Nbatch+1,j)值是字符串

[此贴子已经被作者于2018-5-14 21:56编辑过]


无知
2018-05-14 21:54
建生65
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2018-5-10
  得分:0 
回复 5楼 Artless
但我定义的Xstockline(Nbatch+1,1)为双精度浮点型,不知道怎么就变字符串了。

[此贴子已经被作者于2018-5-15 08:56编辑过]

2018-05-15 08:47







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

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