Vb计算机真题

私有子命令1_Click()

将()作为整数变暗

n = Val(InputBox("N= "))

雷迪姆

打印“之前:”

对于i = 1到n

a(I)= Int(101 * Rnd)-50

打印a(一);

如果我Mod 10 = 0,则打印

接下来我

i = 1: j = n

而我& ltj

t = a(i): a(i) = a(j): a(j) = t

i = i + 1: j = j - 1

打印“之后:”

对于i = 1到n

打印a(一);

如果我Mod 10 = 0,则打印

接下来我

末端接头