2.4 程序的循环结构

* 您的姓名：

* 您的学号：

* 您的班级：

1班
2班
3班
4班
5班
6班
7班
8班
9班
10班
11班
12班
13班
14班
15班
16班
17班
18班
19班
20班
21班
22班
23班
24班
25班
26班
27班
28班
29班
30班

*1.

该程序的功能是求s=1+2+3+……+100，请将程序缺失部分补充完整
Function func()
Dim i As Integer, s As Integer
s = 0
For i = 1 To 100
s = s + ___
Next i
func = s
End Function

*2.

该程序的功能是求s=2+4+6……+100，请将程序缺失部分补充完整
Function func()
Dim i As Integer, s As Integer
s = 0
For i = 2 To 100 Step ___
s = s + i
Next i
func = s
End Function

*3.

该程序的功能是求s=1*2*3*4*5，请将程序缺失部分补充完整
Function func()
Dim i As Integer
Dim s As Integer
s = 1
For i = 1 To 5
s = s * i
Next _________
func = "s=" & s

End Function

*4.

该程序的功能是求s=1+2+3+……+100，请将程序缺失部分补充完整
Function func()
Dim i As Integer, s As Integer
s = 0
For i =1 To ____
s = s + i
Next i
func = s
End Function

*5.

该程序的功能是求s=1+3+5……+99，请将程序缺失部分补充完整
Function func()
Dim i As Integer, s As Integer
s = 0
For i = 1 To 99 Step ____
s = s + i
Next i
func = s

*6.

该程序的功能是求s=2+4+6……+100，请将程序缺失部分补充完整
Function func()
Dim i As Integer, s As Integer
s = 0
For i =___ To 100 Step 2
s = s + i
Next i
func = s
End Function

*7.

该程序的功能是求s=5+10+15……+100，请将程序缺失部分补充完整
Function func()
Dim i As Integer, s As Integer
s = 0
For i = 5 To 100 Step ____
s = s + i
Next i
func = s
End Function

*8.

该程序的功能是求s=1+3+5……+99，请将程序缺失部分补充完整
Function func()
Dim i As Integer, s As Integer
s = 0
For i =___ To 99 Step 2
s = s + i
Next i
func = s
End Function

*9.

该程序的功能是求s=5+10+15……+100，请将程序缺失部分补充完整
Function func()
Dim i As Integer, s As Integer
s = 0
For ____ =5 To 100 Step 5
s = s + i
Next i
func = s
End Function

*10.

该程序的功能是求s=5+10+15……+100，请将程序缺失部分补充完整
Function func()
Dim i As Integer, s As Integer
s = 0
For i =___ To 100 Step 5
s = s + i
Next i
func = s
End Function

*11.

该程序的功能是求s=5+10+15……+100，请将程序缺失部分补充完整
Function func()
Dim i As Integer, s As Integer
s = 0
For i =5 To ___ Step 5
s = s + i
Next i
func = s
End Function

*12.

该程序的功能是求s=1+3+5……+99，请将程序缺失部分补充完整
Function func()
Dim i As Integer, s As Integer
s = 0
For i =1 To ___ Step 2
s = s + i
Next i
func = s
End Function

*13.

该程序的功能是求s=10+20+30……+100，请将程序缺失部分补充完整
Function func()
Dim i As Integer
Dim s As Integer
s = 0
For _______ = 10 To 100 Step 10
s = s + i
Next i
func = "s=" & s

End Function

*14.

该程序的功能是求s=5+10+15……+100，请将程序缺失部分补充完整
Function func()
Dim i As Integer, s As Integer
s = 0
For i = 5 To 100 Step 5
s = s + i
Next ___
func = s
End Function

*15.

该程序的功能是求s=1+3+5……+99，请将程序缺失部分补充完整
Function func()
Dim i As Integer, s As Integer
s = 0
For ___ = 1 To 99 Step 2
s = s + i
Next i
func = s
End Function

*16.

该程序的功能是求s=1*2*3*4*5，请将程序缺失部分补充完整
Function func()
Dim i As Integer
Dim s As Integer
s = 1
For i = 1 To 5
s = __________
Next i
func = "s=" & s

End Function

*17.

该程序的功能是求s=10+20+30……+100，请将程序缺失部分补充完整
Function func()
Dim i As Integer
Dim s As Integer
s = 0
For i = 10 To 100 Step 10
s = ___________
Next i
func = "s=" & s

End Function

*18.

该程序的功能是求s=1*2*3*4*5，请将程序缺失部分补充完整
Function func()
Dim i As Integer
Dim s As Integer
s = 1
For i =_______ To 5
s = s * i
Next i
func = "s=" & s

End Function

*19.

该程序的功能是求s=5+10+15……+100，请将程序缺失部分补充完整
Function func()
Dim i As Integer, s As Integer
s = 0
For i = 5 To 100 Step 5
s = s + ___
Next i
func = s
End Function

*20.

该程序的功能是求s=10+20+30……+100，请将程序缺失部分补充完整
Function func()
Dim i As Integer
Dim s As Integer
s = 0
For i = ______ To 100 Step 10
s = s + i
Next i
func = "s=" & s

End Function

*21.

该程序的功能是求s=2+4+6……+100，请将程序缺失部分补充完整
Function func()
Dim i As Integer, s As Integer
s = 0
For i = 2 To 100 Step 2
s = s + ___
Next i
func = s
End Function

*22.

该程序的功能是求s=1*2*3*4*5，请将程序缺失部分补充完整
Function func()
Dim i As Integer
Dim s As Integer
s = _________
For i = 1 To 5
s = s * i
Next i
func = "s=" & s

End Function

*23.

该程序的功能是求s=10+20+30……+100，请将程序缺失部分补充完整
Function func()
Dim i As Integer
Dim s As Integer
s = 0
For i = 10 To _______ Step 10
s = s + i
Next i
func = "s=" & s

End Function

*24.

该程序的功能是求s=1+3+5……+99，请将程序缺失部分补充完整
Function func()
Dim i As Integer, s As Integer
s = 0
For i = 1 To 99 Step 2
s = s + ___
Next i
func = s
End Function

评价对象得分