Private Sub Option1_Click()
If Option1.Value = True Then
Text1.Text = Option1.Caption
Else
Text1.Text = Option2.Caption
End If
End Sub
Private Sub Option2_Click()
If Option2.Value = True Then
Text1.Text = Option2.Caption
Else
Text1.Text = Option1.Caption
End If
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除！