神马品牌网禾青镇:一个VB的问题 谢谢帮忙啊
来源：百度文库 编辑：神马品牌网 时间：2024/04/25 18:18:26
编写Form_Click（）事件过程，利用随机函数生成一个长度为10的一维整型数组（数值范围为[20，50]，包括20和50的正整数），将数组中的前5个元素与后5个元素交换，即：第1个和第6个交换，第2个和第7个交换……第5个和第10个交换。在窗体上先输出生成的随机数组，再输出交换后的数组。
Private Sub Form_Click()
Dim a(9) As Integer
Dim i As Long
Dim n As Integer
Me.Cls
'随机数初始化
Randomize
'取得随机数据
For i = 0 To 9
a(i) = Int(Rnd * 30) + 20
Print a(i); '显示每个数据
Next i
'打印一个空行，为了使前后的数据区分开
Print
'前5个数据跟后5个数据进行交换
For i = 0 To 4
n = a(i)
a(i) = a(i + 5)
a(i + 5) = n
Next i
'显示交换后的10个数据
For i = 0 To 9
Print a(i);
Next i
End Sub