if Text1.text = "Ficker,Pause(0S),Continue,Time,Quiescence" then
a = "11111"
elseif Text1.text = "Ficker," then
a = "10000"
.
.
.
如果有相应的选项就是1，没有就以0代替；
Text1中最多可以有五项：Ficker,Pause(0S),Continue,Time,Quiescence，其余的可以互相存在，这个要怎么写？请大家帮忙，谢谢！

[此贴子已经被作者于2007-6-1 8:32:08编辑过]

select case 看看

TEXT可以用选项?

赋字符串，以分隔符分割赋值，然后看每个值是否为空，不可以么？