[rank]

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i, j As Integer
        For i = 1 To 7
            For j = 1 To i
                MsgBox(i, j)
            Next
        Next
    End Sub

j 是MsgBox的樣式

1 001 確定,取消
2 010 中止,重試,略過
3 011 是,否,取消
4 100 是,否
5 101 重試,取消
6 110 確定
7 111 確定

所以才會跑出那樣的結果