VB如何能按Command1按钮，在窗体上显示10个随机两位正整数，并计算和显示这10个整数的总和。
在窗体上装载一个按钮Command1，当单击该按钮时能在窗体上显示10个随机两位正整数，并计算和显示这10个整数的总和。
第1个回答 2008-12-17
dim a as integer
dim s as integer
for i=1 to 10
a=int(rnd*(99-10+1)+10
print a
s=s+a
next i
print s
在command1.click事件中写本回答被网友采纳
dim s as integer
for i=1 to 10
a=int(rnd*(99-10+1)+10
print a
s=s+a
next i
print s
在command1.click事件中写本回答被网友采纳
第2个回答 2008-12-18
private sub command1_click()
dim i as integer,sum as ingeger
dim a() as integer
for i=0 to 9
a(i)=rnd*100+10
sum=sum+a(i)
next i
for i=0 to 9
print a(i)
next i
print sum
end sub
dim i as integer,sum as ingeger
dim a() as integer
for i=0 to 9
a(i)=rnd*100+10
sum=sum+a(i)
next i
for i=0 to 9
print a(i)
next i
print sum
end sub
第3个回答 2008-12-17
Dim a As Integer
Dim s As Integer
For i = 1 To 10
a = Int(Rnd * (90) + 10)
Print a
s = s + a
Next i
Print s
Dim s As Integer
For i = 1 To 10
a = Int(Rnd * (90) + 10)
Print a
s = s + a
Next i
Print s
相似回答
