问题要求:
定义一个数组, 包含5个元素, 都是随机整数(随便输入), 要求把他们按照从大到小的顺序排列起来并输出
dim a(4)
dim i,temp
for i = 0 to 4
a(i) = inputbox("输入第" & i + 1 & "个数")
next
for i = 0 to 4
if a(i) < a(i + 1) then
temp = a(i)
a(i) = a(i + 1)
a(i + 1) = temp
next
msgbox("从大到小排列为" & a(i))
我这样写的,编译不过,怎么改?
用冒泡的方法实现排序:
Dim a(4)
Dim i, temp, j, s '加了j和s变量
For i = 0 To 4
a(i) = Val(InputBox("输入第" & i + 1 & "个数")) '加了Val()
Next
For i = 0 To 3
For j = i + 1 To 4'要多加一层循环
If a(i) < a(j) Then '把i+1换成j
temp = a(i)
a(i) = a(j)
a(j) =