单项选择题

在窗体上画一个命令按钮，并编写如下事件过程：
Private Sub Command1_Click()
Dim a(3, 3)
For m=1 To 3
For n=1 To 3
If n=m Or n=4-m Then
a(m,n)=m+n
Else
a(m,n)=0
End If
Print a(m,n)；
Next n
Print
Next m
End Sub
运行程序，单击命令按钮，窗体上显示的内容为

A．2 0 0
0 4 0
O 0 6
B．2 0 4
0 4 0
4 0 6
C．2 3 0
3 4 0
0 0 6
D．2 0 0
0 4 5
0 5 6
<上一题 目录 下一题>
热门 试题

单项选择题
窗体如图3所示。要求程序运行时，在文本框Text1中输入一个姓氏，单击“删除”按钮(名称为Command1)，则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能： Private Sub Command1_Click() Dim n%, k% n=Len(Text1.Text) For k=0 To List1.ListCount-1 If Left(List1.List(k), n)=Text1.Text Then List1.RemoveItem k End If Next k End Sub 在调试时发现，如输入“陈”，可以正确删除所有姓“陈”的项目，但输入“刘”，则只删除了“刘邦”、“刘备”2项，结果如图4所示。这说明程序不能适应所有情况，需要改正。正确的修改方案是把For k=0 to List1.ListCount-1改为
单项选择题
下列选项中不属于结构化程序设计原则的是
A．可封装
B．自顶向下
C．模块化
D．逐步求精
相关试题