我自己寫了個程序,請大家看看,如果不對的地方請指教!誰有更好的方法,請寫出來!程序如下:PrivateSubCommand1_Click()Constn=20Dima(n)AsInteger,tAsInteger,sAsIntegerRandomizeTimerFori=1Tona(i)=Int(Rnd*90+10):Printa(i); 求偶數個數及其和Fori=1TonIfa(i)Mod2=0Thent=t+1s=s+a(i)EndIfNextiPrint"共有偶數";tPrint"偶數的和";sEndSub

熱心網友

Randomize放到第一個初始化的For循環中，這樣得到真正的隨機數

熱心網友

一個循環，不用數組：Private Sub Command1_Click()Dim i As Integer, count As Integer, n As Integer, sum As IntegerRandomizeFor i = 1 To 20n = Int(Rnd * 90 + 10)If n Mod 2 = 0 Thencount = count + 1sum = sum + nEnd IfNext iMsgBox "count, sum = " & count & ", " & sumEnd Sub

熱心網友

別用Print，可以用Text1.text=text1.text+ vbnewline +"字符串",因為Windows窗體的Print沒有滾動文本Randomize放在最開始就行了，沒必要放在For循環中執行那么多次