Question

VB输出菱形图形

5
545
54345
5432345
543212345
5432345
54345
545
5
如何输出此图形

Answer 1

1、启动VB6.0，新建一个标准exe工程。

2、在窗体上绘制一个命令按钮，名称为Command1。

3、双击命令按钮进入代码窗口。

4、编写命令按钮单击事件（代码详情可参考图中的绿色字体部分的注释）。

5、按F5运行测试，输出菱形图形。

Answer 2

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

Answer 3

 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
Next

For 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
Next

End 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 = ""
Next

End Sub

Answer 4

Option Explicit

Private Sub Command1_Click()
Dim h As Integer
Dim i As Integer
Dim j As Integer
Dim s As String
Dim Dt As Integer
Dim t As Integer
Dim k As Integer
Dim p As Integer
Dim YesNo As Boolean
p = 0
h = Val(InputBox("输入一个[1,9]之间的正整数！"))
For i = 1 To 2 * h - 1
t = Abs(h - i)
If t > 0 Then
s = Space(t)
Else
s = ""
End If
If Not YesNo Then
p = p + 1
Else
p = p - 1
End If
If p > h Then
YesNo = True
p = p - 2
End If
Dt = h
k = 0
For j = 1 To 2 * p - 1
s = s & CStr(Dt)
k = k + 1
If k < p Then
Dt = Dt - 1
Else
Dt = Dt + 1
End If
Next j
Print s
Next i

End Sub

Answer 5

Option Explicit

Private Sub Command1_Click()
Dim h As Integer
Dim i As Integer
Dim j As Integer
Dim s As String
Dim Dt As Integer
Dim t As Integer
Dim k As Integer
Dim p As Integer
Dim YesNo As Boolean
p = 0
h = Val(InputBox("输入一个[1,9]之间的正整数！"))
For i = 1 To 2 * h - 1
t = Abs(h - i)
If t > 0 Then
s = Space(t)
Else
s = ""
End If
If Not YesNo Then
p = p + 1
Else
p = p - 1
End If
If p > h Then
YesNo = True
p = p - 2
End If
Dt = h
k = 0
For j = 1 To 2 * p - 1
s = s & CStr(Dt)
k = k + 1
If k < p Then
Dt = Dt - 1
Else
Dt = Dt + 1
End If
Next j
Print s
Next i

End Sub