程序员的爱情表白（我爱你一生一世）

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

 

程序运行后，不管Text1中填入的数是几，得到的结果都是一样的