不知道符合不符合你的要求,如果你是做好多题目,然后总得计算结果的话只要参考下面的也可以,只是定义换个对象就行了。然后用加法求出来。
Private Sub Command1_Click()
a = Option1 = 2
b = Option2 = 3
c = Option3 = 4
If Option1.Value = True Then
Text1.Text = 2
End If
If Option2.Value = True Then
Text1.Text = 3
End If
If Option3.Value = True Then
Text1.Text = 4
End If
End Sub
这段程序是我按照VB上的控件名称写的,你只要对照下WORD上的名称改下就好了。
[此贴子已经被作者于2007-5-9 23:43:41编辑过]
[此贴子已经被作者于2007-5-10 14:32:40编辑过]