UC知道VB程序代码，帮忙找错
来源：百度知道 编辑：UC知道 时间：2024/05/26 19:00:07
用随机数产生10个整数（其取值范围为1~100），存放在数组x中，查找x数组中的最大元素及最小元素，并将最大元素及最小元素分别与数组的第1个和最后一个元素交换，分别输出x数组交换前后各元素的值。
Private Sub Form_Click()
Dim x(1 To 10) As Integer
Print "x数组："
For i = 1 To 100
x(i) = Int(Rnd * 100 + 1)
Print x(i);
Next i
Print
Print
mmax = x(1): imax = 1
mmin = x(1): imin = 1
For i = 1 To 10
If x(i) > imax Then
mmax = x(i)
imax = i
End If
If x(i) < mmix Then
mmin = x(i)
imin = i
End If
Next i
t = x(1): x(1) = x(imax): x(imax) = t
t = x(10): x(10) = x(imin): x(imin) = t
Print "交换后的x数组："
For i = 1 To 100
Print x(i);
Next i
Print
End Sub
此程序有错误，帮忙找出茬
Private Sub Form_Click()
Dim x(1 To 10) As Integer
Print "x数组："
For i = 1 To 100
x(i) = Int(Rnd * 100 + 1)
Print x(i);
Next i
mmax = x(1): imax = 1
mmin = x(1): imin = 1
For i = 1 To 10
If x(i) > imax Then
mmax = x(i)
imax = i
End If
If x(i) < mmix Then
mmin = x(i)
imin = i
End If
Next i
t = x(1): x(1) = x(imax): x(imax) = t
t = x(10): x(10) = x(imin): x(imin) = t
Print "交换后的x数组："
For i = 1 To 100
Print x(i);
Next i
End Sub
此程序有错误，帮忙找出茬
'编程可不能马虎
Private Sub Form_Click()
Dim x(1 To 10) As Integer
Print "x数组："
For i = 1 To 10 '第一处
x(i) = Int(Rnd * 100 + 1)
Print x(i);
Next i
Print
Print
mmax = x(1): imax = 1
mmin = x(1): imin = 1
For i = 1 To 10
If x(i) > mmax Then '第二处
mmax = x(i)
imax = i
End If
If x(i) < mmin Then '第三处
mmin = x(i)
imin = i
End If
Next i
t = x(1): x(1) = x(imax): x(imax) = t
t = x(10): x(10) = x(imin): x(imin) = t
Print "交换后的x数组："
For i = 1 To 10 '第四处
Print x(i);
Next i
Print
End Sub
Private Sub Form_Click()
Dim x(1 To 10) As Integer
Dim max As Integer, min As Integer, t As Integer ,maxi as integer,mini as integer
max = 1
maxi = 1
min = 100
mini = 1
Print "x数组："
For i = 1 To 10
x(i) = Int(Rnd * 100 + 1)
Prin