我還記得
這是我一年級上電腦課ㄉ作業
當時有很多人ㄅ會
我今天去整理信箱
看到這ㄍ
哈哈
還記的當時很多人收到就複製
然後叫老師打分數...





Private Sub Form_Click()
Cls
Const r As Integer = 50
Const pi As Single = 3.1415926
Const t As Integer = 60
Print "角度t="; t
Print "半徑r="; r
Print "圓週率pi="; pi
Dim A As Single
A = r * 2 * pi
Print "[宣告A]""圓周長A="; A
Dim B As Single
B = r * r * pi
Print "[宣告B]""圓面積B="; B


End Sub