填空题

以下程序的功能是在程序运行后，单击命令按钮，输出如下结果： 1 4 7 2 5 8 3 6 9 请完善以下程序。 Private Sub Command1_Click() Dim Arr(3，3)As Integer For i=1 To 3 For j=1 To 3 Arr(i，j)= 【15】 Print Arr(i，j)； Next j Print NeXt i End Sub

【参考答案】

i+(j-1)*3 或 (i-1)+j*3-2

<上一题目录下一题>

热门试题

填空题

为了使一个标签透明且没有边框，必须将它的【11】属性设置为0，并将BackStyle属性设置为0。

填空题

在窗体上画一个列表框、一个命令按钮和一个标签。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数。下面是实现上述功能的程序，请填空。Private Sub Form_Load()List1.AddItem AAAAA List1.AddItem BBBBB List1.AddItem CCCCC List1.AddItem DDDDD End SubPrivate Sub Command1_Click()Dim L1 As IntegerL1= 【12】 If L1 ＞=0 ThenList1.RemoveItem 【13】 Labell.Caption= 【14】 ElseMsgBox( 请选择要删除的项目 )End IfEnd Sub

相关试题