程式前沿 幫助程式設計師解決問題，增加專業技能，提升個人能力與未來世界競爭力。

程式設計師的愛情表白（我愛你一生一世）

NO IMAGE

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