Question

求VB程序设计典型例题

Answer 1

修改好了测试成功，但是，基本上，偶数和会大于所有的数
private
sub
command1_click()
dim
a(10)
as
double
dim
t
as
double
randomize
for
i
=
1
to
10
a(i)
=
int(rnd
*
100
+
2)
'设十个数，给十个数随机赋值
if
a(i)
mod
2
=
0
then
t
=
t
+
a(i):
print
"偶数为";
a(i)
next
i
print
"偶数的和为";
t
for
i
=
1
to
10
if
a(i)
<
t
then
print
"小于偶数和的数";
a(i)
next
i
end
sub