在窗体中添加1个命令按钮(其Name属性为Command1)和1个标签(其Name属性为Lable1)，然后编写如下代码：
Private Sub Commandl_Cliek()
Dim arrayl(10, 10)As Integer
Dim i, j, Sum AsInteger
Sum＝0
For i=1 To 10
Forj=1 To 10
arrayl(i, j)=i+j
Nextj
Next i
End Sub
此程序的功能是求数组arrayl主对角线元素的和，并把结果显示在标签中，为实现此功能，省略号处的程序段应该是 ( )
A．For i=1 To 10
For j=1 To 10
If i=j Then
Sum = Sum+ arrayl (i,j)
End If
Next j
Next i
Labelt. Caption=Sum
B．For i=l TO 10
Forj=1 To 10
If i= =j Then
Sum=Sum+array1 (i,j)
End If
Next j
Next i
Labell. Caption=Sum
C．For i=1 To 10
For j=1 To l0
If i=j Then
Sum=Sum+arrayl (i,j)
End If
Next i
Next j
Lahell. Caption=Sum
D．For i=1 To 10
For j=1 To l0
If i=j Then
Sum=arrayl (i,j)
End If
Next j
Next i
Labell. Caption=Sum
参考答案：A
解析： 选项B中条件表达式i＝ =j有误，在VB中表示i等于j，应写成i＝j。排除选项B。选项C中的For......Next语句使用有误，内层应该是Next j，外层为Next i。选项D中的求和语句有误。应为Sum＝ Sum+array1(i，j)。只有A项是正确的。