题目内容:
以下程序的功能是:程序产生100个在区间【20,100】中的随机整数,然后求其中所有偶数的和。请在空白处填上适当的内容,将程序补充完整。Option Base l
Private Sub Form_Click()
Dim arr(100)As Integer,S As Integer
For i=l T0 100
arc(i)=20+80$Rnd
Next i
For i=1 T0 100
If arr(i)Mod 2=0Then
End If
Next i
Print S
End Sub
参考答案:
答案解析: