132个偶数,包括0
Dim a(10), i, j, 统计偶数,偶数,统计
统计偶数 = 0
偶数 = 0
统计 = 0
For i = 0 To 10
num = 10 + Int(11 * rnd)
For J = 0 To i
If num = a(j) Then
Exit For
End If
TracePrint j
If j=0 or j = 2 or j = 4 or j = 6 or j = 8 or j=10 Then
统计偶数 = 统计偶数 + 1
End If
Next
If j > i Then
a(i) = num
Else
i = i - 1
End If
If i=0 or i = 2 or i = 4 or i = 6 or i = 8 or i = 10 Then
偶数 = 偶数 + 1
End If
TracePrint i
Next
For i = 0 To 10
TracePrint a(i)
If a(i)=0 or a(i) = 2 or a(i) = 4 or a(i) = 6 or a(i) = 8 or a(i) = 12 or a(i) = 14 or a(i) = 16 or a(i) = 18 or a(i) = 20 Then
统计 = 统计+1
End If
Next
TracePrint (统计偶数+偶数+统计)
这样算行不行