在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()For i=1 To 4x=4For

题目

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

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

参考答案和解析
正确答案:B
解析:本题的难点在于循环体外的变量初值问题。虽然该段程序中有3重循环,但仔细观察发现,x=3将前面的内容替代了,只剩下最后的结果,即3+6+6=15。
如果没有搜索结果或未解决您的问题,请直接 联系老师 获取答案。
相似问题和答案

第1题:

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

Private Sub Command1_Click()

Dim a(5) As String

For i = 1 To 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.abcde

D.出错信息


正确答案:A

第2题:

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

运行后的输出结果是______。

A.5

B.1

C.2

D.6


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

第3题:

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

Private Sub Command1_Click()

Dim a As String

A="123456789"

For i=1 To 5

Print Space(6-i);Mid $ (a,______ ,2*i-1)

Next i

End Sub

程序运行后,单击命令按钮,窗体上的输出结果是

5

456

34567

2345678

123456789

请填空。


正确答案:
6-i
MiD $( 字符串,起始位置 \[ ,个数 \]) 函数用于取出字符串从指定位置开始的含指定个数字符的字符串。本题 MiD $ 的作用在于依次取出字符串居中位置的 1 、 3 、 5 、 7 、 9 个字符。故取字符串起始位置为 6-i ,即依次为 5 、 4 、 3 、 2 、 1 。

第4题:

在窗体上画一个命令按钮,然后编写如下事件过程: 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中元素的值。

第5题:

在窗体上画一个命令按钮,其名称为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

第6题:

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

程序运行后,单击命令按钮,其输出结果为__________。


正确答案:
9【解析】本题考查VBA中程序设计的知识。对于这个问题,首先注意到循环的次数为6次;然后注意到循环内的两个If语句为顺序关系而不是嵌套关系,第一个If语句只有第一次循环时才会满足;第一次循环时首先执行第一个If语句把x赋值为1,然后执行第二个If语句;以后各次循环均照此分析,前4次循环x自加l,后两次循环X自加2,最后输出结果为9。

第7题:

在窗体上画一个命令按钮,其名称为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',的个数。

第8题:

( 8 )在窗体上画一个名称为 “ Command1 ” 的命令按钮,然后编写如下事件过程:

Private Sub Command1_Click()

Dim a As String

a = "123456789"

For i = 1 To 5

Print Space(6 - i); Mid$(a, 【 8 】 , 2 * i - 1)

Next i

End Sub

程序运行后,单击命令按钮,窗体上的输出结果是

5

456

34567

2345678

123456789

请填空。


正确答案:

第9题:

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

第10题:

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

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


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