更多“ 在程序中添加一个命令按钮,并编写如下代码。己知程序的运行结果为如下矩阵,请在[ ]和[ ]处填上正确答案使程序完整。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