流雲2011.07.14 回答

Private Sub Command1_Click（）

Dim r As Single， l As Single， s As Single

r = Val（Text1。Text）

If r < 0 Then

Label2。Caption = “It。s wrong，”

Else

l = 2 * 3。14 * r： s = 3。14 * r * r

Label2。Caption = “半徑” & Str（r） & l & Str（l） & s & Str（s）

End If

End Sub

你執行這個程式碼看對不對，我幫你修改過了

一笑青天/xin2011.07.10 回答

（r），明顯左右不一樣

.2011.07.09 回答

它提示哪一句？？？？？？

藍冰☆無心淚2011.07.08 回答

倒數第三行，半徑後面的引號為中文符號，需要該成英文符號

我不是神2011.07.08 回答

你的程式程式碼我運行了，沒有問題。請仔細檢查是否引號用成了中文輸入法的引號