编程问题,随机产生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 Integer Randomize For i = 1 To 20 n = Int(Rnd * 90 + 10) If n Mod 2 = 0 Then count = count + 1 sum = sum + n End If Next i MsgBox "count, sum = " & count & ", " & sum End Sub
别用Print,可以用Text1.text=text1.text+ vbnewline +"字符串",因为Windows窗体的Print没有滚动文本 Randomize放在最开始就行了,没必要放在For循环中执行那么多次
问:数学五个连续偶数,已知第三个数比第一个数与第五个数的和的1/4多18,这五个偶数的和是多少?
答:设中间那个偶数为N吧,那这五个连续偶数依次为N-4.N-2,N,N+2,N+4. 这五个偶数的和是5N. 根据题意有:N-(N-4+N+4)/4=18 解得N=...详情>>