—
本帖被 幻想. 执行取消锁定操作(2009-01-19)
—
虽然按键里并没有提供在高级语言里我们所熟悉的
select 表达式
case ……
end select
但可以调用VBS来达到同样的效果。不过格式必须写在一行里。并且里面不能带有按键的关键词，换句话说里面只能做写运算赋值类的操作。
格式 VBS select case 表达式:case 常量表达式:语句1:case 常量表达式:语句2:case else:语句3:end select
例子：
ss=""
VBS If df6_time="Y" then:ss=ss+"1":Else If df6_time="N" then:ss=ss+"0":end if
VBS If df7_time="Y" then:ss=ss+"1":Else If df7_time="N" then:ss=ss+"0":end if
VBS If df8_time="Y" then:ss=ss+"1":Else If df8_time="N" then:ss=ss+"0":end if
VBS select case ss:case "1000":g1=2.5:case "1100":g1=5:case "1110":g1=7.5:case "1111":g1=10:case else:g1=10000:end select
如果换成IF语句的话可能要写很多行。利用此语句一行就能搞定
