51Testing软件测试论坛

标题: 这段脚本有错么？ [打印本页]

作者: S小虾米 时间: 2010-4-1 14:42
标题: 这段脚本有错么？
各位战友帮助看看哈，下面的脚本哪儿不对哈？现在print(Error1)出来的结果直接是未比较前的Error1的结果
Dim a
a = Array(0.04,0.04,0.04,0.03,0.03,0.015,0.015,0.01,0.01)
For i = 0 To 8 step 1
   Error1 = obj.GetSubItem(i*3,0)
   No1 = obj.GetSubItem(i*3+2,3)
   If No1 > a（i)  Then
   print(Error1)
   End If
Next

作者: S小虾米 时间: 2010-4-1 14:44
Error1分别为-1，2，-2，3，-3......
No1的值分别为0.004，0.025，0.036.......
想让No1分别和a(i)作比较后，返回不符合的Error1的值

作者: S小虾米 时间: 2010-4-1 14:49
自己在顶下，不知道哪儿不对了，战友们帮帮忙

作者: lantianwei 时间: 2010-4-1 15:19
对No1 进行下数据转换估计数据类型不一致

作者: k4124k 时间: 2010-4-1 15:28
首先：a（i) 中i的左括号与右括号不一样哦~~~
其次：你的obj对象没有声明
然后：你的GetSubItem函数是哪里来的。。。起码你帖的东西里看不到~~

[ 本帖最后由 k4124k 于 2010-4-1 15:34 编辑 ]

作者: S小虾米 时间: 2010-4-1 15:55
哦，括号是刚刚输进来的时候打错了。然后obj在前面定义了，没有贴出来：（

作者: S小虾米 时间: 2010-4-1 15:56
谢谢4楼的版主哈，我去试下：）

作者: lantianwei 时间: 2010-4-1 16:00
Try
If CDbl(No1) > a(i) Then

作者: shotstar 时间: 2010-4-1 16:17
不太清楚LZ的那个方法的作用是干什么，只通过命名知道估计去获取数组里的元素的，不过不清楚你那2个参数的含义。
如果可以请发一下GetSubItem的代码，谢谢。

作者: S小虾米 时间: 2010-4-1 17:10

原帖由 lantianwei 于 2010-4-1 16:00 发表
Try
If CDbl(No1) > a(i) Then

好了，就是数据类型的原因，谢谢版主
谢谢各位战友了：）

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)