某程序功能如下:将自然数从1到100按某种方式排列起来,单击“输出”按钮Command1,在列表框List1中显示排列后的数表,运行结果如图所示。
(1)
下列对象中不具有Caption属性的是(单选,填字母:A .Command1 /B .Form1 /C .List1)
(2)
实现上述功能的VB程序如下,请在划线处填入合适的代码。
Private Sub Command1_Click()
Const n = 10
Dim i As Integer, j As Integer
Dim d(0 To 100) As Integer
For i = 1 To n
For j = 1 To n
If i = 1 Then
d(j) = j ^ 2
Else
If j = 1 Then
①
Else If j < i
d((i - 1) * n +
j) = d((i - 2) * n + j) - 1
Else
②
End If
End If
Next j
Next i
‘在列表框List1中按每行10个输出数组d的所有元素,代码略
End Sub
①处代码为,②处代码为。
(3)
程序中加框处代码有错,请改正。
应改为
答案: 【1】C
【1】d(i- 1)*n +1)= (-1)^2+1【2】d(i- 1)*n +j)= d(i-1)*n+j-1)+1
【1】ElseIf j>i Then