查看完整版本: 作業......
頁: [1]

lat125 發表於 2010-9-18 10:08 AM

作業......

我們上課有再用VB

老師說要用個abcd排列出數字大小(就是說亂打 然後他執行後數字由小排到大自動出現)
以下是我弄的東西
第三個加進來就出事了

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a1, b1, c1, d1 As Single
        Dim v1, v2, v3, v4 As Single
        Dim k1, k2, k3, k4 As Single
        a1 = Val(a.Text)
        b1 = Val(b.Text)
        c1 = Val(c.Text)
        d1 = Val(d.Text)
        If a1 >...<div class='locked'><em>瀏覽完整內容,請先 <a href='member.php?mod=register'>註冊</a> 或 <a href='javascript:;' onclick="lsSubmit()">登入會員</a></em></div><div></div>

teshuva 發表於 2010-10-3 02:21 AM

你可以上網去找 bubble sort
這個排列法應該就是你要用的
頁: [1]