Private Sub Command1_Click ()
Dim x As Single, y As Single
x=Val(Text1.Text)
y=((x+52.8) * 5 - 3.9343) / 0.5–x * 10
Text2.Text=”我要对你说:”+ Str(y)
End Sub
Dim x As Single, y As Single
x=Val(Text1.Text)
y=((x+52.8) * 5 - 3.9343) / 0.5–x * 10
Text2.Text=”我要对你说:”+ Str(y)
End Sub