VB程序设计，求代码

来源：百度知道 编辑：UC知道 时间：2024/06/09 04:09:34
用随机数产生10个整数（其取值范围为1~100），存放在数组x中，查找x数组中的最大元素及最小元素，并将最大元素及最小元素分别与数组的第1个和最后一个元素交换，分别输出x数组交换前后各元素的值。

Dim a(1 To 10) As Integer, i As Integer, Temp As Integer
Dim Max As Integer, Maxsign As Integer, Min As Integer, Minsign As Integer
Private Sub Form_Load()
Me.Show
Randomize
Max = Int(Rnd * 99) + 1: Maxsign = 1: a(1) = Max
Min = Max: Minsign = 1
Print "交换前:"
Print a(1)
For i = 2 To 10
a(i) = Int(Rnd * 99) + 1 'r=M+int((N-M)*rnd)
If a(i) > Max Then Max = a(i): Maxsign = i
If a(i) < Min Then Min = a(i): Minsign = i
Print a(i)
Next i
Me.CurrentX = 1000: Me.CurrentY = 0
Print "交换后:"
Temp = a(1): a(1) = a(Maxsign): a(Maxsign) = Temp
Temp = a(10): a(10) = a(Minsign): a(Minsign) = Temp
For i = 1 To 10
Me.CurrentX = 1000: Print a(i)
Next i
Print "max=" & Max, "min=" & Min
End Sub

VB语法貌似忘了，这到题类似选择排序