'这是在vb6中的代码，在vb.net中基本差不多，你可以参考一下
我们提供的服务有：网站设计制作、做网站、微信公众号开发、网站优化、网站认证、定边ssl等。为上千家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的定边网站制作公司
Private Sub cmdCommand1_Click()
Me.AutoRedraw = True
Dim Grp
Grp = Array(1, 2, 3, 4, 5)
Dim i, j As Long
Dim StrPrt As String
For i = 0 To UBound(Grp)
'i为位移量
StrPrt = ""
For j = i To UBound(Grp)
StrPrt = StrPrt Grp(j)
Next j
For j = 0 To i - 1
StrPrt = StrPrt Grp(j)
Next j
Me.Print StrPrt
Next i
End Sub
一、下面的 _A___ 是合法的变量名。
A) X_yz
B) 123abc
C) Integer
D) X-Y
二、下面的 __A__ 是合法的单精度型变量。
A) num!
B) sum%
C) xinte$
D) mm#
三、下列可以作为变量名的是 _A___。
A) Chinese$
B) X(X+Y)
C) 123BOOK
D) BOOK-1
四、以下各项，可以作为变量名的是 __A__。
A) English
B) 11_English
C) 123.45
D) English-1
五、在 VB.NET 中，认为 __B__ 中的两个变量名是相同的。
A) English 和 EngUsh
B) English 和 ENGLish
C) English 和 Engl
D) English 和 England
六、语句 Dim MyVar 定义的变量 MyVar 为 __D__ 类型的变量。
A) Integer
B) String
C) Boolean
D) Object
七、语句 Dim intX，intY As Double 中所定义的变量 intX 是 __B__ 变量。
A) String
B) Object
C) Single
D) Double
八、下列符号常量的声明中，不合法的是 _B___。
A) Const A As Single = 1.5
B) Const A As Double = Sin(1)
C) Const A = "OK"
D) Const A As Integer = 1.5
九、在默认的状态下，系统对使用的变量要求显式声明，若要对变量不声明而直接使用（隐式声明），须在模块中所有程序代码的最前面加入语句 _B___。
A) Option Base 0
B) Option Explicit Off
C) Option Explicit On
D) Option Compare
十、下述说法不正确的是 __B__。
A) 变量名的长度不能超过1023个字符
B) 变量名可以包含小数点或者内嵌的类型声明字符
C) 变量名不能使用关键字
D) 变量名的第一个字符必须是字母或汉字
还是用数组比较好吧，按钮数组
然后call Button_Click(5，Nothing, Nothing) 就可以了
按钮数组可以先创建一个按钮，然后复制粘贴即可
【1】
New Char()意思是定义一个新的Char型数组并将此数组作为参数传递
基本等同于VB6的Dim tmp() As XXXX
但是此语法要比VB6中的更加灵活
【2】
VB.net中新增了一个Char类型，用来存储Unicode字符，而用引号""括起来的字符默认为ASCII字符，所以要在引号后加上一个小写的c来强制VB将字符转换为Unicode编码。例如：
Dim UniCode As Char,ASCIICode As String
UniCode = "W"c
ASCIICode = "W"
【3】花括号为初始一个新数组时的语法，括号中可以用逗号分隔开数组的初始值。对比：
VB6:
Dim k() As String
k = Array("a","b","c")
VB.net:
Dim k As String(){"a","b","c"}
而数组作为参数传递时，在过程的一开始就定义一个传递用的数组是很麻烦的，
所以用New Char(){ "a"c , "b"c , "c"c }会很方便
【4】
Split方法有很多重载版本，你所说的这一种能够使用
