Question

vb上的问题

vb上的问题程序代码怎么编写？

Answer 1

Private Sub Command1_Click()

Text2 = Int((Val(Text1) * 9 / 5 + 32) * 100) / 100

End Sub

Private Sub Command2_Click()

Text1 = ""

Text2 = ""

End Sub

Private Sub Command3_Click()

Unload Me

End Sub

Private Sub Form_Load()

Label1.Caption = "摄氏度C"

Label2.Caption = "华氏度F"

Text1 = ""

Text2 = ""

Command1.Caption = "计算"

Command2.Caption = "清除"

Command3.Caption = "退出"

End Sub