itgle.com

在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()For i=1 To 4x=4For j=1 To 3X=3For k=1 To 2x=x+6NextNextNextPrint xEnd Sub 程序运行后,单击命令按钮,输出的结果是A.7B.15C.157D.538

题目

在窗体上画一个命令按钮,然后编写如下事件过程:

Private Sub Command1_Click()

For i=1 To 4

x=4

For j=1 To 3

X=3

For k=1 To 2

x=x+6

Next

Next

Next

Print x

End Sub 程序运行后,单击命令按钮,输出的结果是

A.7

B.15

C.157

D.538


相似考题
更多“在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()For i=1 To 4x=4For ”相关问题
  • 第1题:

    在窗体上画一个命令按钮,然后编写如下事件过程:

    运行后的输出结果是______。

    A.5

    B.1

    C.2

    D.6


    正确答案:B
    解析:“IIf(条件,表达式1,表达式2)”根据“条件”返回“表达式”或“表达式2”的值。

  • 第2题:

    在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_ Click() Dim arr (10) For i = 1 To 10 arr (i) = i ^ 2 Next i Print arr(i - 2) End Sub程序运行后,单击命令按钮,在窗体上输出的是______。

    A.49

    B.64

    C.81

    D.100


    正确答案:C

  • 第3题:

    在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim a(5)As String For i=1 T0 5 a(i)=Chr(Asc("A")+(i-1)) Next i For Each b In a Print b; Next End Sub 程序运行后,单击命令按钮,输出结果是______。

    A.ABCDE

    B.1 2 3 4 5

    C.abode

    D.出错信息


    正确答案:A
    解析:本程序段首先定义了一维数组a,然后用For循环为其赋值,Asc()函数的作用是返回字符的ASCII码,字符“A”的ASCII码为65,Chr()函数的作用是将ASCII码值变为相应的字符,而“a(i)=Chr(Asc("A")+(i-1))”的作用是将每次比原来大1的ASCII码值变为字符赋给a,所以a的元素是A、B、C、D、E。For Each-In用于输出a中元素的值。

  • 第4题:

    在窗体上画一个命令按钮,其名称为Commandl,然后编写如下事件过程:

    Private Sub Corrtmandl Click()

    a$=”Nationalcomputer rank Examination”

    n=Len(a$)

    S=0

    For i=1 To n

    b$=Mid(a$,i,1)

    Ifb$=”n”Then

    s=s+1

    End If

    Next i

    Print s

    End Sub

    程序运行后,单击命令按钮,输出结果是【 】。


    正确答案:4
    4 解析:此题实际上是从左自右逐个提取a$中的字符,判断是不是等于“n”,统计其中“n',的个数。

  • 第5题:

    在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Commandl_Click() Dim a(5)As String Fori=1 To 5 a(i)=Chr(Asc("A")+(11)) Nexti For Each b In a Print b Next End Sub 程序运行后,单击命令按钮,输出结果是( )。

    A.ABCDE

    B.1 2 3 4 5

    C.abcde

    D.出错信息


    正确答案:A

  • 第6题:

    在窗体上画一个命令按钮,然后编写如下事件过程:

    程序运行后,依次输入3,2,1,0,-1,-2,则输出结果是__________。


    正确答案:
    -3【解析】本题考查VBA中循环的知识。对于这种循环结构,首先看条件判断在循环体的前面还是后面,如果是先判断条件,则有可能一次也不执行循环体;如果是后判断条件,则无论条件如何至少执行一次循环体。在Until循环中条件为False时执行循环体,条件为True时退出循环;在While循环中条件为True时执行循环体,条件为False时退出循环,这一点要注意区分清楚。本题是一个先判断条件的While循环,每次循环中有两次输入,共循环3次;由于在每次循环中均会重新对a、b、C进行赋值,所以只需要考虑最后一次循环就可以,在最后一次循环中c等于最后两次输入的值之和也就是-3