几道计算机的题：1,以下程序计算2到50间所有偶数的和,请补充完该程序,Submult()DimSumAsIntegerSum=0DimIasintegerForto50IfIMOD2=ThenNextIPrintsumEndSub

Question

几道计算机的题：1,以下程序计算2到50间所有偶数的和,请补充完该程序,
Sub mult()
Dim Sum As Integer
Sum=0
Dim I as integer
For___to 50
If I MOD 2=___Then___
Next I
Print sum
End Sub

Answer 1

Sub mult()
Dim Sum As Integer
Sum=0
Dim I as integer
For i=2 to 50
If I MOD 2=0 Then Sum=Sum+I
Next I
Print sum
End Sub