Question

VB多重循环数字菱形结构怎么弄

随机输入一个整数值n ，要求1<n<10 。比如说输入数值5 那么第一行只有一个数是1，第二行有3个数是2，第三行有5个数是3，第四行有3个数是4，第五行只有一个数是5，问一下这样的代码怎么敲？

Answer 1

Dim n As Integer, i As Integer, k As Integer
n = Val(InputBox("请输入一个大于1小于10的整数"))
If n > 1 And n < 10 Then
    k = n / 2 + 0.5
    For i = 1 To n
        If i > k Then
            Print Tab(i - k + 1); String((n - i + 1) * 2 - 1, CStr(i))
        Else
            Print Tab(k - i + 1); String(i * 2 - 1, CStr(i))
        End If
    Next
End If

你没有说明当n是偶数时菱形要如何画（不明白的话自己手工画个偶数行的菱形就知道了），所以上述代码在n为偶数时会有问题，但奇数的话则是完全准确的。