vb6.0程序编写设计满足如下要求的程序，实现摄氏度与华氏度的转换。摄氏度转华氏度公式：F=9C/5+32;华氏度转摄氏度公式：C=5(F-32)/9，要求：（1）当“摄氏—〉华氏”选中时，“华氏度”文

Question

vb6.0程序编写
设计满足如下要求的程序，实现摄氏度与华氏度的转换。摄氏度转华氏度公式：F=9C/5+32;华氏度转摄氏度公式：C=5(F-32)/9，要求：
（1）当“摄氏—〉华氏”选中时，“华氏度”文本框不能输入；而当“华氏—〉摄氏”选中时，“摄氏度”文本框不能输入。
（2）“转换”按钮仅当相应的文本框中有数时方为可用。
（3）单击“转换”按钮时，执行转换操作。
提示：
（1） 在单选按钮的Click事件中更改文本框的Locked属性。
（2） 在文本框的Change事件中更改命令按钮的Enabled属性。

Answer 1

Dim D
Private Sub Command1_Click()
If D = 0 Then
Text2 = 5 * (Val(Text1) - 32) / 9
Else
Text1 = 9 * Val(Text2) / 5 + 32
End If
Command1.Enabled = False
D = 0
End Sub
Private Sub Text1_Change()
Command1.Enabled = True
D = 0
End Sub
Private Sub Text2_Change()
Command1.Enabled = True
D = 1
End Sub