vb的一编程题

编程输出下列数字图案(lx2.frm)
1                         1             1 2 3 4 5 6 7 8
2 3                      2 3             9 1 2 3 4 5 6 7
4 5 6                   4 5 6             8 9 1 2 3 4 5 6
7 8 9 1                7 8 9 1             7 8 9 1 2 3 4 5
2 3 4 5 6             2 3 4 5 6             6 7 8 9 1 2 3 4
…                  …                  5 6 7 8 9 1 2 3
4 5 6 7 8 9 1 2
3 4 5 6 7 8 9 1

答案：Private Sub Form_Load()
Dim k As Integer
For i = 1 To 5
     Text1.Text = Text1.Text & Space(5 - i)
   For j = 1 To i
            k = k + 1
            If k >= 10 Then k = 1
            Text1.Text = Text1.Text & k & " "
    Next j
        Text1.Text = Text1.Text & vbCrLf
    Next i
    
k = 0
For i = 1 To 7
    For j = 1 To i
        k = k + 1
        If k >= 10 Then k = 1
        Text2.Text = Text2.Text & k & " "
    Next j
        Text2.Text = Text2.Text & vbCrLf
Next i

k = 0
For i = 1 To 5
    Text3.Text = Text3.Text & Space(i - 1)
   For j = 1 To 8
        k = k + 1
        If k >= 10 Then k = 1
        Text3.Text = Text3.Text & k & ""
    Next j
        Text3.Text = Text3.Text & vbCrLf
 Next i
End Sub

上一个：编程VB计时怎么编
下一个：用VB.NET编程有什么好处?

更多图片编程知识: