For i= 1 To 6
a(i)=i+1
Next i
程序运行后，变量i的值是：

A．7

B．6

C．1

D．0

有如下VB程序段：
Dim i As Integer，c As String，s As String，t As String
s＝“China2014IT”：t＝“”
For i＝1 To Len(s)
　c＝Mid(s，i，1)
　If c＞＝“a” And c＜＝“z” Then t＝t＋c
Next i
Label1.Caption＝t
该程序段运行后，标签Label1中显示的内容是( )

A．2014	B．ChinaIT
C．hina	D．CIT

分析完善程序。
“完数”是指一个自然数恰好等于它的因子（不包含本身）之和。如6的因子为1，2，3，而6=1+2+3，因此6就是完数。再如28的因子为1，2，4，7，14，而28=1+2+4+7+14，因而28也是完数。
问题：输入一个正整数n，判断该正整数是否为完数。
要判断一个正整数n是否为完数，最简单的方法是：求出1到n-1之间的所有因子和为Sum，如果Sum的值和n的值相同，则n就是完数。
以下代码是判断n是否为完数的程序片段，请你补全代码：
Dim  n  As  Long
Dim  Sum  As  Long   ' Sum用来记录n的因子和
n = InputBox(“n=”)
For i = 1 To n-1     ' 求n的因子和Sum
If  n Mod i = 0  Then  Sum =_________
Next  i
If _____________  Then
Print   n  &  “是完数”
Else
Print   n  &  “不是完数”
End If

某算法流程图如图所示，执行该算法，循环结束时i的值是

A．0

B．5

C．14

D．21

在窗体上画一个命令按钮Command1，然后编写如下代码：
Private Sub Command1_Click()
Dim arr1(10)，arr2(10) As Integer
n＝3
For i＝1 To 5
arr1(n)＝i
arr2(i)＝2*arr1(n)＋1
Next i
Print arr1(n)，arr2(n)；
End Sub
程序运行后，单击命令按钮，输出结果是________。
解析 本题考查的是循环结构。i的初值为1，终值为5，步长为1。

i	arr1(n)	arr2(i)
1	arr1(3)＝1	arr2(1)＝2*1＋1
2	arr1(3)＝2	arr2(2)＝2*2＋1
3	arr1(3)＝3	arr2(i)＝2*3＋1
4	arr1(3)＝4	arr2(i)＝2*4＋1
5	arr1(3)＝5	arr2(i)＝2*5＋1
6	/

循环执行结束后n为3，执行最后一次循环arr1(3)＝5；arr2(3)＝7。