匿名使用者
匿名使用者 發問時間: 電腦與網際網路程式設計 · 10 年前

Visual Basic 2008製作問題 高手幫忙

圖片參考:http://imgcld.yimg.com/8/n/AE03662226/o/1610122502...

我要做一個BMI計算器

公式是 "體重/身高的平方"

我這樣寫

可是跑不出來

請高手幫忙修改 謝謝

Public Class Form1

Private Sub Command1_Click()

Dim h As Integer, w As Single, bmi As Single

h = Val(A.Text) / 100 '身高單位換算成公尺

w = Val(A.Text) bmi = Format(w / (h ^ 2), "##.#") = Val(C.Text)

End Sub

End Class

3 個解答

評分
  • 10 年前
    最佳解答

    題目:BMI=體重(kg)/身高的平方(m)體重過輕:BMI<18.5 正常範圍:18.5<=BMI<24 體重過重:24<=BMI<27 輕度肥胖:27<=BMI<30 中度肥胖:30<=BMI<35 重度肥胖:BMI>=35 請設計一個程式,輸入身高及體重,計算BMI並告知體位。首先我們先宣告2個變數儲存身高及體重並要求使用者輸入,且第三個變數計算BMI值Label5為輸出結果!

    Dim hight, weight As Double

    hight = InputBox("請輸入身高(公尺)")

    weight = InputBox("請輸入體重(公斤)")

    Dim bmi As Double

    bmi = Round(weight / (hight ^ 2), 3)

    此時先輸出身高、體重、BMI之資訊至Label5最後以Select輸出體位名稱!

    Label5.Caption = "身高:" & hight & "公尺 體重:" & weight & "公斤 bmi:" & bmi

    Select Case bmi

    Case Is < 18.5

    Label5.Caption = Label5.Caption & " 您是體重過輕"

    Case Is < 24

    Label5.Caption = Label5.Caption & " 您是正常範圍"

    Case Is < 27

    Label5.Caption = Label5.Caption & " 您是體重過重"

    Case Is < 30

    Label5.Caption = Label5.Caption & " 您是輕度肥胖"

    Case Is < 35

    Label5.Caption = Label5.Caption & " 您是中度肥胖"

    Case Else

    Label5.Caption = Label5.Caption & " 您是重度肥胖"

    End Select

    搞定!

    2010-12-26 15:20:36 補充:

    這是我之前寫過的題目

    給你參考一下

    2010-12-26 15:21:36 補充:

    如果你要輸入公分

    變數一定要是single或是double才可以儲存小數

  • 6 年前

    下面的網址應該對你有幫助

    http://phi008780508.pixnet.net/blog

  • 10 年前

    Command1_Click()是vb6的東西吧

    h是否應該宣告為Single或是Double,Integer是整數

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

     Dim h, w As Single

     h = A.Text / 100

     w = B.Text

     C.Text = Format(w / (h ^ 2), "##.#")

    End Sub

還有問題?馬上發問,尋求解答。