编程问题，随机产生20个两位整数，求其中偶数的个数及和。

我自己写了个程序,请大家看看,如果不对的地方请指教!谁有更好的方法,请写出来!程序如下: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循环中执行那么多次