Question

vb option控件数组应用举例

Answer 1

你这段程序都乱来。。。
private
sub
command1_click()
dim
index,
r,
s,
p
as
long
'。。。
end
sub
首先，你这里定义了index，且没有初始值，默认为0；
第二，select
case
option1(index)，因为index始终为0，所以这和select
case
option1(0)等效果；
第三，option是单选按钮，默认是value属性，结果就只有2种，false(0)或者true(1)，所以你的select语句貌似没多大用处；
第四，你的select语句那样写有什么意义？
dim
a
as
integer
a
=
int(inputbox("请输入a："))
select
case
a
case
0:
msgbox
"a=0"
case
1:
msgbox
"a=1"
case
2:
msgbox
"a=3"
case
else:
msgbox
"其他内容"
end
select