随机产生20个两位正整数，求其中偶数的个数及和。

热心网友

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

热心网友

云之的程序没有回答个数的问题还是后面一个更完整

热心网友

trythis的回答要比云之泪的回答好，云的回答将永远不能取到99