|
题目为飞机订票
检查Economy、Business、First三类票价满足以下关系:
First=Economy*3 Business=Economy*2
X= Window("Flight Reservation").WinEdit("Price:").GetROProperty("text")
Y= Window("Flight Reservation").WinEdit("Price:").GetROProperty("text")
Z= Window("Flight Reservation").WinEdit("Price:").GetROProperty("text")
先取出每种票价的值为X,Y,Z
M=cdbl(mid(X,2,6))
N=cdbl(mid(Y,2,6))
Q=cdbl(mid(Z,2,6))
由于取出的text值为¥160 前面有个美元符号,我打不出来,这里用人民币符号代替“¥” 所以它是字符串类型的
mid截取字符,从第二位开始取,长度为6, cdbl是将char类型转为double
If ( N = 2 * M ) And ( Q = 3 * M ) Then
msgbox ("符合价格关系")
else
msgbox ("不符合价格关系")
End If
然后用一个条件语句实现,但有时候输出却不符合价格关系,这是为什么呢?
应该每次都符合的,价格都满足条件的哦,我用msgbox每步停下来看价格
这个if语句我看了半天不知道问题在哪儿,估计是if and语句有什么问题
我单用 (N = 2 * M ) 或 ( Q = 3 * M ) 都是符合价格关系的
请教一下高人
谢谢
我的脚本在如下
Window("Flight Reservation").WinRadioButton("Economy").Set
X= Window("Flight Reservation").WinEdit("Price:").GetROProperty("text")
M=cdbl(mid(X,2,6))
Window("Flight Reservation").WinRadioButton("Business").Set
Y= Window("Flight Reservation").WinEdit("Price:").GetROProperty("text")
N=cdbl(mid(Y,2,6))
Window("Flight Reservation").WinRadioButton("First").Set
Z= Window("Flight Reservation").WinEdit("Price:").GetROProperty("text")
Q=cdbl(mid(Z,2,6))
If ( N = 2 * M ) And ( Q = 3 * M ) Then
msgbox ("符合价格关系")
else
msgbox ("不符合价格关系")
End If |
|