VB数组问题

2025-06-22 00:14:04

推荐回答（2个）

回答1：

这个你只要了解
1.怎么产生随机数。（谷歌，或者likespc.com/ben，我都用这个）
2。计算平均分（谁都会）
3.比较分数，保存到数组（应该也会把，除非新手）
这样就可以做了。

回答2：

Dim
n(10),
b()
aven
=
0
k
=
0
Randomize
For
i
=
1
To
10
n(i)
=
Int(Rnd
*
10)
+
90
aven
=
aven
+
n(i)
/
10
Next
i
For
i
=
1
To
10
If
n(i)
>
aven
Then
k
=
k
+
1
ReDim
Preserve
b(k)
b(k)
=
n(i)
End
If
Next
i
'要获得一维动态数组b的上限，请使用UBound函数，如UBound(b)。