24h購物| | PChome| 登入
2007-12-13 09:22:18| 人氣92| 回應0 | 上一篇 | 下一篇

圓面積的計算

推薦 0 收藏 0 轉貼0 訂閱站台

Module Module1

Sub Main()
Dim r1 As Single
Dim R2 As Single
Dim B As String

Console.Write(”請輸第一個圓的半徑:”)
r1 = Console.ReadLine
Console.Write(”請輸第二個圓的半徑:”)
R2 = Console.ReadLine
If r1 > R2 Then
B = area(r1) - AREA(R2)
Else
B = area(R2) - AREA(r1)
End If
Console.Write(”第一個圓的面積為:” & AREA(r1))
Console.WriteLine()
Console.Write(”第一個圓的面積為:” & AREA(R2))
Console.WriteLine()
Console.Write(”兩圓所為成的面積為:” & B)
Console.WriteLine()
MySub()
End Sub

Function AREA(ByVal R As Single) As Double
Dim A As Single
A = R * R * 3.14159
Return A
End Function

Sub MySub()
Console.WriteLine()
Console.Write(”請按一下程式繼續執行”)
Console.ReadKey()

End Sub

End Module

我要檢舉
台長： ,,飛ㄦ*

您可能對以下文章有興趣

人氣(92) | 回應(0)| 推薦 (0)| 收藏 (0)| 轉寄
全站分類: 不分類 | 個人分類: 程式設計篇 |
此分類下一篇:販賣機
此分類上一篇:BMI的計算

我要回應
否 是 (若未登入"個人新聞台帳號"則看不到回覆唷!)
* 請輸入識別碼：
請輸入圖片中算式的結果(可能為0) 
(有*為必填)
TOP
詳全文