VB数字菱形求解啊~~~急求！！

发布网友发布时间：2023-09-16 20:22

共3个回答

热心网友时间：2024-11-23 12:18

我就不写代码了，累人，给你分析下吧
这用到了两个for循环，一个是上面的，一个是下面的
第一个循环：
打印空格，再打印数字
根据4的个数，我们确定下来每一行空格及数字的数量
每行数字的数量是i * 2 - 1
空格的数量则是4的个数减去每行数字的个数，再除以2（这是为了居中显示
下面哪个倒三角形，自己想吧，和上面的思路一样

授人以鱼不如授人以渔，代码什么的，虽然直观，但是主要是学会一种思路

热心网友时间：2024-11-23 12:18

Dim n As Integer
n = 7 '(n为奇数，可以变的)
For n1 = 1 To n
For n2 = 1 To n
If n2 = (n - 1) / 2 Then

ElseIf n2 > (n - 1) / 2 Then

Else

End If
Next n2
Next n1
中间的语句根据楼上的两个回答。就可以解决

热心网友时间：2024-11-23 12:19

追问亲，有编程的过程吗？

追答Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim s As String
For i = 1 To 7
Print Spc(4 - i);
s = ""
If i <= 4 Then
For j = 1 To 2 * i - 1
s = s & i
Next
Print s
Else
Print Spc(i - 4);
For j = 5 To (i - 4) * 2 - 1 Step -1
s = s & 8 - i
Next
Print s
End If
Next
End Sub

VB数字菱形 求解啊~~~急求！！

VB数字菱形求解啊~~~急求！！