手机扫描二维码答题
00:00:00
2.4 程序的循环结构
录音中...
程序的循环结构
总分130分
*
您的姓名：
*
您的学号：
*
您的班级：
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
评价对象得分