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

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/11 03:53:16

VB编程,输入一个整数n（大于0,小于10）后,显示如下图像
1
222
33333
4444444
555555555
6666666
77777
888
9
用的是循环语句的嵌套
例如：输入7
输出
1
222
33333
4444444
55555
666
7

写成函数,直接调用
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

VB编程,输入一个整数n（大于0,小于10）后,显示如下图像 VB编程,输入n个整数,求它们的最大公约数. c编程实现：输入一个整数将其数值按照①小于10,②10～99,③100～999,④1000以上四个类别分类并显示急求vb编写程序,输入一个十进制数N(0 < N < 100),求出能被3整除且小于N的整数. VB程序设计题：由输入对话框输入n（n必须为大于零且小于30的自然数）, 编写一个VB程序,计算m和n值的最大公约数t,其中m,n是整数且大于0,要求输入m和n. vb:输入10个整数求平均值,并求出大于、等于、小于平均值的数的个数（使用选择结构、循环结构、数组）. 使EXCEL单元格中输入一个数字大于60显示红色,小于60显示黄色,0显示绿色 vb编程：随机产生10个0~100之间整数放到一个数组中,单击窗体,在窗体上显示这10个数以及10个数中的最小值输入一个大于2且小于10的整数n,定义一个二维整形数组（n*n）,初始化该数组,将数最大元素与最小元对调. 首先输入一个大于2且小于10的整数n,然后定义一个二维整形数组（n*n）,初始化该数组,将数组中最大元素所在的行和最小元 VB 编程题,产生50个1～100之间的随机整数,显示所有小于60的数.