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中填入的數是幾,得到的結果都是一樣的
-->
程式前沿 幫助程式設計師解決問題,增加專業技能,提升個人能力與未來世界競爭力。
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中填入的數是幾,得到的結果都是一樣的
写评论
很抱歉,必須登入網站才能發佈留言。