VB输出菱形图形

答案:4 悬赏:70 手机版

解决时间 2021-01-15 19:24

提问者网友：萌卜娃娃
2021-01-15 03:55

VB输出菱形图形

最佳答案

五星知识达人网友：孤独的牧羊人
2021-01-15 05:32

Private Sub Command1_Click()
For i = -4 To 4
Print Tab(Abs(i) + 1);
For j = Abs(i) - 4 To 4 - Abs(i)
Print CStr(1 + Abs(i) + Abs(j));
Next j
Print
Next i
End Sub

全部回答

1楼网友：患得患失的劫
2021-01-15 06:42

Private Sub Command1_Click()
For j = 5 To 2 Step -1
Print Tab(3 * j);
For i = 5 To j Step -1
Print i;
Next
For k = j + 1 To 5
Print k;
Next
Print
NextFor j = 1 To 5
Print Tab(3 * j);
For i = 5 To j Step -1
Print i;
Next
For k = j + 1 To 5
Print k;
Next
Print
NextEnd Sub第二种
Private Sub Command2_Click()For j = 5 To 2 Step -1
Print Tab(5 + j);
For i = 5 To j Step -1
b = b & i
Next
For k = j + 1 To 5
b = b & k
Next
Print b
b = ""
Next
For j = 1 To 5
Print Tab(5 + j);
For i = 5 To j Step -1
b = b & i
Next
For k = j + 1 To 5
b = b & k
Next
Print b
b = ""
NextEnd Sub

我要举报

如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！