niusouti.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

相似考题

1.在窗体上画一个名称为 \"Command1\" 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）Dim a As StringA="123456789"For i=1 To 5Print Space（6-i）;Mid $ （a,______ ,2*i-1）Next iEnd Sub程序运行后，单击命令按钮，窗体上的输出结果是5456345672345678123456789请填空。

2.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）Dim a（5） As StringFor i = 1 To 5a（i） = Chr（Asc（"A"） + （i - 1））Next iFor Each b In aPrint b;NextEnd Sub程序运行后，单击命令按钮，输出结果是（ ）。A．ABCDEB．1 2 3 4 5C．abcdeD．出错信息

3.在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程：程序运行后，单击命令按钮，其输出结果为__________。

4.（ 8 ）在窗体上画一个名称为 “ Command1 ” 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim a As Stringa = "123456789"For i = 1 To 5Print Space(6 - i); Mid$(a, 【 8 】 , 2 * i - 1)Next iEnd Sub程序运行后，单击命令按钮，窗体上的输出结果是5456345672345678123456789请填空。

更多“在窗体上画一个命令按钮,然后编写如下事件过程: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

相关内容