VB编程，急求！！！输入一个整数n（大于0，小于10）后，显示如下图像

显示全部楼层 · 2011-4-6 12:36:25

1

222

33333

4444444
555555555

6666666

77777

888

9

千问 · 2011-4-6 12:36:25

<pre id=\"best-answer-content\" class=\"reply-text mb10\">写成函数，直接调用

Function print_num(ByVal num As Integer)

Dim i, n, k, j As Integer

Dim str As String

n = Int(num / 2)

k = 0

If num Mod 2 = 1 Then k = 1

n = n k

For i = 1 To n Step 1

For j = k To n - i Step 1

str = str defds123 \" \"

Next

For j = 0 To (i - 1) * 2 Step 1

str = str defds123 i

Next

str = str defds123 vbCrLf

Next

For i = n 1 To num Step 1

For j = 1 To i - n Step 1

str = str defds123 \" \"

Next

For j = 0 To (num - i) * 2 Step 1

str = str defds123 i

Next

str = str defds123 vbCrLf

Next

print_num = str

End Function

VB编程，急求！！！ 输入一个整数n（大于0，小于10）后，显示如下图像

VB编程，急求！！！输入一个整数n（大于0，小于10）后，显示如下图像