itgle.com
在程序中添加一个命令按钮，并编写如下代码。己知程序的运行结果为如下矩阵，请在[ ]和[ ]处填上正确答案使程序完整。1 0 0 00 1 1 00 1 1 01 0 0 1
题目
在程序中添加一个命令按钮，并编写如下代码。己知程序的运行结果为如下矩阵，请在[ ]和[ ]处填上正确答案使程序完整。
1 0 0 0
0 1 1 0
0 1 1 0
1 0 0 1
相似考题
更多“ 在程序中添加一个命令按钮，并编写如下代码。己知程序的运行结果为如下矩阵，请在[ ]和[ ]处填上正确答案使程序完整。1 0 0 00 1 1 00 1 1 01 0 0 1 ”相关问题
-
第1题：
在窗体上画一个命令按钮，名称为Command1。然后编写如下程序： Private Sub Command1_Click() Dim a As Integer，b As Integer，c As Integer If a=0 Then x=x-1 Else If b＜＞0 Then End If End If If c＜＞0 Then x=3 Else x=4 End If Print x End Sub 程序运行后，单击命令按钮，其输出结果为 ______。
A．34
B．4
C．35
D．3
正确答案：B
解析：本题先定义了三个变量a、b和c，由于没有给它们赋值，因此他们的值都为0。接着执行后面的If语句，条件“a=0”为True，执行“x=x-1”后x的值为-1。接着执行第二个If语句，判断条件“c＞0”为False，执行Else后面的语句后x的值为4。所以最后输出x的值为4。 -
第2题：
窗体上画一个命令按钮，然后编写如下代码：Private Type Record ID As Integer Name As String * 20End TypePrivate Sub command1 _ Click( Open "c: \file. txt" for Input As MaxSize = LOF (1) for NextChar =MaxSize To Step-1 Seek #1, NextChar MyChar=Input(1，#1) Next NextChar Print EOF(1) Close #1 End Sub程序运行后，单击命令按钮，其输出结果为______。
A．True
B．False
C．0
D．Null
正确答案：B
解析：本题的难点是如何确定文件的指针是否指在文件的末尾处。Seek语句把相应文件的文件指针由后向前移动，当循环结束时，文件指针在文件的开始处，所以EOF(1)为False。 -
第3题：
在窗体上画一个名称为Command1的命令按钮和一个名称为Label1的标签，然后编写如下程序代码： Option Base 0 Private Sub Command1_Click（) Dim a（5) As Integer, n As Integer For i = 0 To 5 a（i) = i n = n + a（i) Next i Label1 = n End Sub 运行程序，单击命令按钮，在标签中显示的内容是________。
A．5
B．10
C．15
D．20
B -
第4题：
在窗体中添加一个命令按钮，并编写如下程序： Private Sub Command1_CliCk() X=1∶Y=2∶Z=3 X=Y∶Y=Z∶Z=X Print Z End Sub 程序执行后，输出的结果是______。
A．3
B．0
C．2
D．1
正确答案：C
-
第5题：
在窗体上画一个命令按钮，然后编写如下事件过程：
程序运行后，依次输入3，2，1，0，-1，-2，则输出结果是__________。
正确答案：
-3【解析】本题考查VBA中循环的知识。对于这种循环结构，首先看条件判断在循环体的前面还是后面，如果是先判断条件，则有可能一次也不执行循环体；如果是后判断条件，则无论条件如何至少执行一次循环体。在Until循环中条件为False时执行循环体，条件为True时退出循环；在While循环中条件为True时执行循环体，条件为False时退出循环，这一点要注意区分清楚。本题是一个先判断条件的While循环，每次循环中有两次输入，共循环3次；由于在每次循环中均会重新对a、b、C进行赋值，所以只需要考虑最后一次循环就可以，在最后一次循环中c等于最后两次输入的值之和也就是-3