如何在Visual Basic中解决这个三角问题？我不知道我是否做对了

Question

制作一个程序，该程序读取一个正整数不超过10的程序，并打印出数字的三角形，如下所示：
如果读数为5，则应打印：

1

22

333

4444

55555

该程序必须重读另一个数字，直到输入的数字大于10。

我尝试过 this ，但我不知道它是否正确：

    Dim num As Integer
    Dim i As Integer
    num = InputBox(" enter a number")
    For i = 1 To num Step 1
        If i = 1 Then

            ListBox1.Items.Add(1)

        ElseIf i = 2 Then
            ListBox1.Items.Add(22)

        ElseIf i = 3 Then
            ListBox1.Items.Add(333)
        ElseIf i = 4 Then
            ListBox1.Items.Add(4444)
        ElseIf i = 5 Then
            ListBox1.Items.Add(55555)
        ElseIf i = 6 Then
            ListBox1.Items.Add(666666)

        ElseIf i = 7 Then
            ListBox1.Items.Add(7777777)
        ElseIf i = 8 Then
            ListBox1.Items.Add(88888888)
        ElseIf i = 9 Then
            ListBox1.Items.Add(999999999)
        ElseIf i = 10 Then
            ListBox1.Items.Add(1010101010101010101010)

        End If
    Next