随机取10个数第十种

Cls

Dim n As Integer ,s As Integer

Dim t As Integer

Dim a(10) As Integer

n=1

While n<=10

a(n)=Int(Rnd*1000)

n=n+1

Wend

n=1

Whilen<=10

Print a(n)

n=n+1

Wend

s=0

n=0

For Each t In a

s=s+t

Next

Print s

                                                      我终于写完了，虽然没有图片，但是我还是很开心的完成了。我不会再被你。。。。。。。。。。。。。。。