也可以编写一个外部函数如下：Function optfunc(opt As Object) As Integer
If opt.Value = True Then optfunc = 1
If opt.Value = False Then optfunc = 0
End Function
在程序中编写该代码，即可调用函数optfunc，格式如下：变量 = optfunc(object)若单选按钮object被选中，则变量的值为1，否则为0注意：变量必须为Integer类型，object可以使任何有value值、且value有True、False值的控件
If opt.Value = True Then optfunc = 1
If opt.Value = False Then optfunc = 0
End Function
在程序中编写该代码，即可调用函数optfunc，格式如下：变量 = optfunc(object)若单选按钮object被选中，则变量的值为1，否则为0注意：变量必须为Integer类型，object可以使任何有value值、且value有True、False值的控件
温馨提示：内容为网友见解，仅供参考
第1个回答 2013-11-24
有If语句搭配即可：If object.value = True Then '但单选框被选中时 ...... '所执行的语句Else '当单选框没有被选中时 ...... '所执行的语句End If其中，object是需要被判断的单选框名称本回答被网友采纳
相似回答
