vb.2010 BMI程式設計

kelly834479

設計完後執行程式實姓名部份只會出現數字而不是文字，如下圖

程式碼如下
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim inN As String, inH As String, inW As String, T As String
        Dim data(5, 2) As Integer
        Dim num, i As Integer
        Do
            inN = InputBox("請輸入第" & num + 1 & "位姓名", "姓名登錄")
            If Trim(inN) = "" Then
                Continue Do
            Else
                inH = InputBox("請輸入第" & num + 1 & "位身高", "身高登錄")
                inW = InputBox("請輸入第" & num + 1 & "位體重", "體重登錄")
                If (Val(inH) >= 0 And Val(inW) >= 0) Then
                    data(num, 0) = Val(inN)
                    data(num, 1) = Val(inH)
                    data(num, 2) = Val(inW)
                    num += 1
                Else
                    MsgBox("不得低於 0")
                    Continue Do
                End If
            End If
        Loop Until num > 5
        T = "姓名" & vbTab & "身高" & vbTab & "體重" & vbTab & "BMI" & vbNewLine
        For i = 0 To 5
            T &= data(inN, 0) & vbTab & data(i, 1) & vbTab & data(i, 2) & vbTab & data(i, 2) / (data(1, 1) / 100) ^ 2 & vbNewLine
        Next

        MsgBox(T)
    End Sub...

瀏覽完整內容，請先 註冊 或 登入會員

darkjack

如果可以， 請寫程式碼的時候 請盡量不要用

Continue 這個功能 ....尤其你又是用 Do Loop 迴圈 很容易造成無限迴圈


至於你的 圖片 會出現都  數字 1
我看你的程式碼真的很亂 ...同一個變數 重複的使用
只是 String 跟 Val 轉來轉去的 ...很容易會變成像你那樣的狂ˋ
至於

T &= data(inN, 0) & vbTab & data(i, 1) & vbTab & data(i, 2) & vbTab & data(i, 2) / (data(1, 1) / 100) ^ 2 & vbNewLine

...

瀏覽完整內容，請先 註冊 或 登入會員

johnwanz

Basic有提供副程式/函式架構. 應該善加利用, 做局部切割.

名字是字串,  data(num, 0) = Val(inN), 變成數值了.
也就是說, 名字跟身高體重的型態不同, 不能用同一個二維陣列.

輸出時, 名稱因為也有依照index區分去讀取, 所以不能寫data(inN, 0).
要跟後面一樣的用法, data(i, 0). (只是型態問題要另外處理)

平均的話, 可以在同一個迴圈裏面, 另外用幾個變數去儲存各項之加總.
...

瀏覽完整內容，請先 註冊 或 登入會員

wl01718226

先把數字存在陣列  再用一個變數來計算  
例如身高是a(0)~a(5)
for x = 1 to 5
ao = ao+a(x)
next x
ao = ao /5
這樣就可以算出平均嘞

除了上述幾位大大的建議
我覺得你也可以使用泛型去做
而且還蠻方便的
Dim newLsit As New List(T)