例4-1设计一个程序,由用户输入一个华氏温度F,程序可将 其转换为摄氏温度C。转换公式为C=(9/5)(F-32) Private Sub Command1_Click Dim F, C As Long F=Vol( nputBox(请输入华氏温度""例4-1") C=5/9*(F-32) Text1. Text=F Text2Text=C End sub Private Sub Command2_Click( End End sul b 到VB环境下运行例4－1 设计一个程序，由用户输入一个华氏温度F，程序可将 其转换为摄氏温度C。转换公式为C＝（9/5)(F-32) PrivateSub Command1_Click() Dim F, C As Long F = Val(InputBox("请输入华氏温度", "例4-1")) C = 5 / 9 * (F - 32) Text1.Text = F Text2.Text = C End Sub PrivateSub Command2_Click() End End Sub 到VB环境下运行