private sub command1_click()
dim js,os,i,a
for i=1 to 20
a=int(Rnd*99)+1
if a mod 2=0 then js=js+i else os=os+i
next
print "奇數(shù)之和=" & js
print "偶數(shù)之和=" & os
end sub