求救。。。vb题目

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

Private Sub Command1_Click()
Dim A(1 To 10)
Text1 = ""
Text2 = ""

Randomize
For I = 1 To 10
A(I) = Int(Rnd * 100 + 1)
Text1.Text = Text1 & A(I) & " "
Next

Max = A(1)
For I = 2 To 10
If Max < A(I) Then
Max = A(I)
T = I
End If
Next I

Min = A(1)
For I = 2 To 10
If Min > A(I) Then
Min = A(I)
T1 = I
End If
Next I

Text3 = Max
Text4 = Min

TEMP = A(1)
A(1) = A(T)
A(T) = TEMP

TEMP1 = A(10)
A(10) = A(T1)
A(T1) = TEMP1

For I = 1 To 10
Text2 = Text2 & A(I) & " "
Next I

End Sub

Private Sub Command1_Click()
Dim X(1 To 10) As Inte