vb程序数组循环选择

Dim a(1 to 10), i%, t%, s%, avg#
For i = 1 To 10
a(i) = Int((Rnd * 71 + 30))
s = s + a(i)
avg = s / 10
Print a(i):
Next i
For i = 1 To 9
If a(i) > a(i + 1) Then t = a(i + 1): a(i + 1) = a(i): a(i) = t: Min = i + 1
ElseIf a(i) < a(i + 1) Then
t = a(i + 1): a(i + 1) = a(i): a(i) = t: Max = i
End If
Next i
Print "Min="; a(Min); " Max="; a(Max); s, "Avg = "; avg
End Sub
运行后怎么会出现，不是已经用了if else吗？

哈哈，书写代码不规范，自己都看不懂了吧。

If a(i) > a(i + 1) Then

t = a(i + 1): a(i + 1) = a(i): a(i) = t: Min = i + 1
Else

If a(i) < a(i + 1) Then
t = a(i + 1): a(i + 1) = a(i): a(i) = t: Max = i
End If

end if '你差个end if

你这个问题我以前也碰到过，我只是初略看一下，在for循环语句中，必须是这样的用法

for i =1 to 5

if i=5 then 运行语句（在循环中运行语句和条件if 必须在同一行，且不需要加end if）

next

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息