随机产生20个两位正整数,求其中偶数的个数及和。
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
云之的程序没有回答个数的问题还是后面一个更完整
trythis的回答要比云之泪的回答好,云的回答将永远不能取到99
答:你可以把程序贴上来大家分析分析详情>>