我想知道，用vb编程，生成10个0-100之间的随机数，要求分别求出其中所有基数之和以及所有偶数之和，该怎么

Question

如题所述

Answer 1

for i=1 to 10
a=int(rnd*100)+a
if a mod 2 then
b=b+a
else
c=c+a
next i

print "奇数和=" & b
print "偶数和=" & c

Answer 2

Private Sub Command1_Click()
Dim oushu%, danshu%, sum%
oushu = 0
danshu = 0
For i = 1 To 10
Randomize
sum = Int(Rnd * 100)
If sum Mod 2 = 0 Then
oushu = oushu + sum
Else
danshu = danshu + sum
End If
Next i
Text1.Text = oushu
Text2.Text = danshu
End Sub本回答被网友采纳