txtL.Text = Str(-Option1(0).Value - 2 * Option1(1).Value - 3 * Option1(2).Value-1)
我写的就是不在Option1_Click(Index As Integer)事件中也可以呀
-Option1(0).Value - 2 * Option1(1).Value - 3 * Option1(2).Value-1,这个值就是选中的OPtion1的下标呀
Dim a
Private Sub Option1_Click(Index As Integer)
a = Index
End Sub