TA的每日心情 | 开心 2015-10-19 13:26 |
---|
签到天数: 2 天 连续签到: 2 天 [LV.1]测试小兵
|
本帖最后由 kavensyw 于 2011-4-13 13:19 编辑
不知道这个是不是你要的逻辑,
把CheckBox分成两组:发售对象和投资品种。
针对每一组使用下面逻辑,具体对象怎么识别,
看checkbox的html id,一般每组都有自己的识别符的
每组选取逻辑如下:
-
- Dim Sales1,Sales2,Sales3 '勾选标志,为0表示不勾选
- Dim selectedSales '必选标志:为1表示有勾选的,为0表示组内都没勾选
- Sales1=0
- Sales2=0
- Sales3=0
- selectedSales= Sales1 or Sales2 or Sales3
- 'Sales组内的CheckBox均初始化为OFF,也可以不用一个个设
- 'checkBox1.set "Off"
- 'checkBox2.set "Off"
- 'checkBox3.set "Off"
- '这儿可以顺便检查一下有没有红字提示符
- '随机选择:如果都没选,则重新选择
- Do while selectedSales=0
- Sales1= RandomNumber(0,1)
- Sales2= RandomNumber(0,1)
- Sales3= RandomNumber(0,1)
- selectedSales= Sales1 or Sales2 or Sales3
- Loop
- If Sales1=1 Then
- MsgBox "Set sales1 on"
- End If
- If Sales2=1 Then
- MsgBox "Set sales2 on"
- End If
- If Sales3=1 Then
- MsgBox "Set sales3 on"
- End If
复制代码 |
|