Question

求解答VB题3题和6题 有没有会做的大神啊

Answer 1

第三题Sub 10numbers()'定义过程

Dim a(1 to 10) as Integer

For i = 1 to 10 '产生十个0~100随机整数

Randomize

a(i) = Int(Rnd(1)*101)

Next

For i = 1 to 10'从大到小排序

For j = i to 10

if a(i)>a(j) then t = a(j):a(j) = a(i):a(i) = t

Next

Next

End Sub'过程结束

第六题

man_age = 10

For i = 1 to 4

man_age = man_age + 2

Next

Print man_age