熱心網友

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