vb~~~~~~~~~~~~~~~急求!

来源：百度知道 编辑：UC知道 时间：2024/05/14 07:04:21
1 2 3 4 5
2 4 6 8
3 6 9
4 8
5
这个的程序是怎么编的啊
还有一个类似的
1
2 4
3 6 9
4 8 10 12
5 10 15 20 25

Private Sub Command1_Click()
Dim i As Long, j As Long, k As Long
Dim St As String

For i = 1 To 5
St = ""
k = 0
For j = 6 - i To 1 Step -1
k = k + i
St = St & CStr(k) & " "
Next
Print St
Next
End Sub

Private Sub Command2_Click()
Dim i As Long, j As Long, k As Long
Dim St As String

For i = 1 To 5
St = ""
k = 0
For j = 1 To i
k = k + i
St = St & CStr(k) & " "
Next
Print St
Next
End Sub

Private Sub Command2_Click()
n = 5
For i = 1 To n
For j = 1 To n - i + 1
a = j * i
Print a,
Next
Print
Next
End Sub

Private Sub Command3_Click()
n = 1
Do While n <= 5
For i = 1 To