VB 用循环语句显示以下图案

来源：学生作业帮编辑：搜搜做题作业网作业帮分类：综合作业时间：2024/06/07 23:17:51

VB 用循环语句显示以下图案
1
5 1 6 1 7 12345 8 54321
12 21 1234 4321
123 321 123 321
1234 4321 12 21
12345 54321 1 1
8个按钮显示8个图形在picturebox上

Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 5
If i 5 Then
Picture1.Print Space((i - 1) * 2); String(8 - ((i - 1) * 2), "*")
Else
Picture1.Print Space(7); "*"
End If
Next
End Sub
Private Sub Command2_Click()
Dim i As Integer
For i = 1 To 5
Picture2.Print String(2 * i - 1, "*")
Next
End Sub
Private Sub Command3_Click()
Dim i As Integer
For i = 0 To 4
Picture3.Print Spc(i); String(9, "*")
Next
End Sub
Private Sub Command4_Click()
Dim i As Integer
For i = 4 To 0 Step -1
Picture4.Print Spc(i); String(9, "*")
Next
End Sub
Private Sub Command5_Click()
Dim i As Integer, j As Integer, m As String
For i = 1 To 5
m = ""
For j = 1 To i
m = m + Trim(Str(j))
Next
Picture5.Print m
Next
End Sub
Private Sub Command6_Click()
Dim i As Integer, j As Integer, m As String
For i = 1 To 5
m = ""
For j = i To 1 Step -1
m = m + Trim(Str(j))
Next
Picture6.Print m
Next
End Sub
Private Sub Command7_Click()
Dim i As Integer, j As Integer, m As String
For i = 5 To 1 Step -1
m = ""
For j = 1 To i
m = m + Trim(Str(j))
Next
Picture7.Print m
Next
End Sub
Private Sub Command8_Click()
Dim i As Integer, j As Integer, m As String
For i = 5 To 1 Step -1
m = ""
For j = i To 1 Step -1
m = m + Trim(Str(j))
Next
Picture8.Print m
Next
End Sub
完毕,望采纳.

VB 用循环语句显示以下图案 VB 非常急!用循环语句分别显示下面的图案信息VB 用合适的循环语句实现以下计算：2007年我国粮食总产量 VB编程用For循环语句 VB FOR 循环语句求VB的循环语句 vb 使用循环结构,打印下列图案用循环语句编写程序,输出如下图案：* * * * * * * * * * * * * * * * * * * * * 以下用fortran循环语句怎样输出 * *** ***** *** *** 用VB的do...loop循环写语句! VB的循环语句是怎么样的? 关于VB中的for循环语句?