求教“VB”编程

Question

大家帮帮忙啊 ....明天要考试了啊！！！！！！！！！！
  题目：     （1）  555555555      （2）  12345     （3）  111111          （4） 54321
                                                  4444444               2345              111111               4321
                                                  33333                 345                111111              321
                                                  222                   45                  111111             21
                                                  1                     5                    111111            1
求编写代码，，，在线等！！

Answer 1

第一题:Private Sub Command1_Click()
Dim i%, j%
For i = 5 To 1 Step -1
     For j = 1 To 2 * i - 1
       Print i;
     Next j
     Print
 Next i
End Sub

Answer 2

第二题:
Private Sub Command2_Click()
Dim s As String
Dim i As Integer
s = "12345"
For i = 5 To 1 Step -1
 Print Right(s, i)
Next
End Sub

Answer 3

第三题:
Private Sub Command3_Click()
Dim i As Integer
Dim s As String
s = "111111"
For i = 1 To 5
  Print s
Next
End Sub

Answer 4

第二题：Private Sub Command1_Click()
Dim s As String
Dim i As Integer
Dim j As Integer
s = "12345"
For i = 5 To 1 Step -1
    For j = i - 1 To 1 Step -1
        Print " ";
    Next
 Print Right(s, i)
Next
End Sub

Answer 5

第三题：Private Sub Command1_Click()
Dim i As Integer
Dim s As String
Dim j As Integer
s = "111111"
For i = 5 To 1 Step -1
    For j = i - 1 To 1 Step -1
        Print " ";
    Next
  Print s
Next
End Sub

Answer 6

我也来凑个热闹吧
第四题
Private Sub Form_Click()
Dim I As String
Dim j As Integer
I = "54321"
For j = 5 To 1 Step -1
    Print Right(I, j)
Next j
End Sub