如图所示vb这道题的代码怎么写?谢谢!
Option Explicit
Private Sub Option1_Click(Index As Integer)
Text1.Text = "": Text2.Text = ""
If Index = 0 Then Text1.Enabled = False: Text2.Enabled = True
If Index = 1 Then Text2.Enabled = False: Text1.Enabled = True
End Sub
Private Sub Command1_Click()
If Option1(0).Value = True Then Text1.Text = 9 * Val(Text2.Text) / 5 + 32
If Option1(1).Value = True Then Text2.Text = (5 * (Val(Text1.Text) - 32)) / 9
Command1.Enabled = False
End Sub
Private Sub Form_Load()
Command1.Enabled = False
Text1.Enabled = False
Text2.Enabled = False
End Sub
Private Sub Text1_Change()
Command1.Enabled = True
End Sub
Private Sub Text2_Change()
Command1.Enabled = True
End Sub