求助啊，大佬们看看吧！我写了一点儿，路过的大佬帮帮忙吧

就会一点点啊

Private Sub Form Click（）
a=Array（63,13,72,16,92,29,45,59,98,30）
For i=1To 5

嗯，可以。
①在你的for之上，加下面几行：
？“原数组：”
for i=0 to 9
？a（i）；
next i
？
②然后就接着你的最后一行代码，但范围改为0 to 4，然后接着：
t=a（i）
a（i）=a（i+5）
a（i+5）=t
next i
③接着输出交换后的数组，跟上面的①差不多：
？“交换后的数组：”
for i=0 to 9
？a（i）；
next i
？
④接着输出指定元素
？“第三个元素为：”；a（2）
？“第六个元素为：”；a（5）
？“第八个元素为：”；a（7）