假定两个单选按钮为Option1和Option2,两个文本框为Text1和Text2
Private Sub Option1_Click()Text1.Enabled = TrueText2.Enabled = FalseEnd SubPrivate Sub Option2_Click()Text1.Enabled = FalseText2.Enabled = TrueEnd Sub