Private Sub Command1_Click() For i=0 To 3 If______=True Then opt=Option1(i).Caption End if Next Select Case ______ Case "+" Result=Val(Text1.Text)+Val(Text2.Text) Case "-" Result=Val(Text1.Text)-Val(Text2.Text) Case "*" Result=Val(Text1.Text)*Va1(Text2.Text) Case"/" Result=Val(Text1.Text)/Val(Text2.Text) End Select ______ =Result End Sub