禾青镇:一个VB的问题 谢谢帮忙啊

来源:百度文库 编辑:神马品牌网 时间:2022/10/03 03:40:05
编写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