vb作业

1.

dim(a) as integer

n=1

while n<=10

a(n)=int(rnd*1000)

n=n+1

wend

dim s as integer

s=0

n=1

while n<=10

s=s+a(n)

n=n+1

wend

print s

end sub

2.

dim a as integer

dim sum as integer

dim i as integer

sum=0

for 1 to 10

a=int(rnd*1000)

sum=sum+a

next

3.

dim a as integer

dim sum as integer

dim i as integer

sum=0:i=1

a=int(rnd*1000)

do while i<=10

sum=sum+a

i=i+1

loop

print sum

end sub

4.

dim a as integer

dim sum as integer

dim i as integer

sum=0:i=1

a=int(rnd*1000)

do until i>10

sum=sum+a

i=i+1

loop

print sum

end sub

5.

dim a as integer

dim sum as integer

dim i as integer

sum=0:i=1

a=int(rnd*1000)

do

sum=sum+a

i=i+1

if i>10 then exit do

loop

print sum

end sub

6.

dim a as integer

dim sum as integer

dim i as integer(通用)

private sub command1 click()

sum=0

for i=1to 10

a=int(rnd*1000)

sum=sum+a

next i

print sum

end sub

7.dim a (1 to 10) as long,sum as long,t as long,n as integer

t=0

for n =1 to 10

t=t+1

a(n)=t

next n

sum =0

for each x ina

sum=sum+x

next x

print sum

end sub