在窗体中添加1个命令按钮(其Name属性为Command1)和1个标签(其Name属性为Lable1),然后编写如下代码: Private Sub Commandl_Cliek() Dim arrayl(10, 10)As Integer

admin2010-03-30  31

问题 在窗体中添加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

答案1

解析 选项B中条件表达式i= =j有误,在VB中表示i等于j,应写成i=j。排除选项B。选项C中的For......Next语句使用有误,内层应该是Next j,外层为Next i。选项D中的求和语句有误。应为Sum= Sum+array1(i,j)。只有A项是正确的。
转载请注明原文地址:https://jikaoti.com/ti/XFq0FFFM
0

最新回复(0)