程式設計師的愛情表白(我愛你一生一世)

xiaoxiaohai123發表於2007-07-31

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中填入的數是幾,得到的結果都是一樣的
 

相關文章