24h購物| | PChome| 登入
2007-11-29 09:56:04| 人氣85| 回應0 | 上一篇 | 下一篇

BMI的計算

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

Module Module1

Sub Main()
Dim A, B As Single
Console.Write(”請輸入身高:”)
A = Console.ReadLine
Console.Write(”請輸入體重:”)
B = Console.ReadLine
Console.Write(”您的BMI值為:” & bmi(A, B))
PAUSE()
End Sub
Function bmi(ByVal A As Single, ByVal B As Single) As Double
Dim COMPUTATION As Double
COMPUTATION = B / (A * A)
Return COMPUTATION
End Function
Sub PAUSE()
Console.WriteLine()
Console.WriteLine()
Console.Write(”>>>>>>>>>>程式暫停中<<<<<<<<<<”)
Console.ReadKey()
End Sub
End Module

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

您可能對以下文章有興趣

人氣(85) | 回應(0)| 推薦 (0)| 收藏 (0)| 轉寄
全站分類: 不分類 | 個人分類: 程式設計篇 |
此分類下一篇:圓面積的計算
此分類上一篇:分數的計算

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