查看完整版本: 新手 遇到障礙 求解

論壇 › Visual Basic 語言 › 新手 遇到障礙 求解

qsc5560 發表於 2014-12-28 08:25 PM

新手 遇到障礙 求解

要把成績由低到高 除了成績 x號也要跟著成績連動
最下面我用氣泡排序法
只是成績能動出來不過用MsgBox 不論怎麼嘗試,就是不知道改怎麼把x號也跟著成績,連動由低到高.undefined



Public Class Form1
    Dim high, h_num As Integer
    Dim min, k_num As Integer

    Dim A(40) As Integer
    Dim sum As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer

        For i = 1 To 6
            A(i) = InputBox("請輸入第" & i & "號同學成績")
        Next i
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        sum = 0

        For i = 1 To 6
            sum = sum + A(i)
        Next i

        MsgBox("平均為" & (sum / 6))
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        high = A(1)
        h_num = 1

        For i = 1 To 6
            If A(i) >...<div class='locked'><em>瀏覽完整內容，請先 <a href='member.php?mod=register'>註冊</a> 或 <a href='javascript:;' onclick="lsSubmit()">登入會員</a></em></div><div></div>

darkjack 發表於 2014-12-30 07:30 PM

你的全局陣列有些問題...
如果你要作連動...不是這樣寫法的..
你要把整個按鍵 全部整合再一起 你就知道問題出在哪邊了