VB编程,输入一个整数n（大于0,小于10）后,显示如下图像12223333344444445555555556666666777778889用的是循环语句的嵌套 例如：输入7输出1222333334444444555556667
来源：学生作业帮助网 编辑：六六作业网 时间：2024/11/22 00:48:37
VB编程,输入一个整数n（大于0,小于10）后,显示如下图像12223333344444445555555556666666777778889用的是循环语句的嵌套 例如：输入7输出1222333334444444555556667
VB编程,输入一个整数n（大于0,小于10）后,显示如下图像
1
222
33333
4444444
555555555
6666666
77777
888
9
用的是循环语句的嵌套
例如：输入7
输出
1
222
33333
4444444
55555
666
7
VB编程,输入一个整数n（大于0,小于10）后,显示如下图像12223333344444445555555556666666777778889用的是循环语句的嵌套 例如：输入7输出1222333334444444555556667
写成函数,直接调用
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 & " "
Next
For j = 0 To (i - 1) * 2 Step 1
str = str & i
Next
str = str & vbCrLf
Next
For i = n + 1 To num Step 1
For j = 1 To i - n Step 1
str = str & " "
Next
For j = 0 To (num - i) * 2 Step 1
str = str & i
Next
str = str & vbCrLf
Next
print_num = str
End Function