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