(沒有vb環(huán)境,所以只寫了開始和結(jié)束語之間的語句)在窗體的單擊事件中:
fori=1to20
a=int(rnd*(200-100+1)+100)
ifamod3=0then
printa
s=s+a
endif
nexti
ifs>0thenprints
(沒有vb環(huán)境,所以只寫了開始和結(jié)束語之間的語句)在窗體的單擊事件中:
fori=1to20
a=int(rnd*(200-100+1)+100)
ifamod3=0then
printa
s=s+a
endif
nexti
ifs>0thenprints