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
我终于写完了,虽然没有图片,但是我还是很开心的完成了。我不会再被你。。。。。。。。。。。。。。。