计算机二级

在窗体上添加一个命令按钮(名为Command1),然后编写如下程序:Private Sub Command1_Click()Dim a As Integer,b As Integerx=10y=20End Sub打开窗体运行后,单击命令按钮,消息框的输出结果为( )。

题目

在窗体上添加一个命令按钮(名为Command1),然后编写如下程序:

Private Sub Command1_Click()

Dim a As Integer,b As Integer

x=10

y=20

End Sub

打开窗体运行后,单击命令按钮,消息框的输出结果为( )。

如果没有搜索结果,请直接 联系老师 获取答案。
如果没有搜索结果,请直接 联系老师 获取答案。
相似问题和答案

第1题:

( 15 )在窗体上添加一个命令按钮(名为 Command1 ),然后编写如下事件过程:

Private Sub Command1_Click ()

Dim b,k

For k=1 to 6

b=23+k

Next k

MsgBox b+k

End Sub

打开窗体后,单击命令按钮,消息框的输出结果是 【 15 】 。


正确答案:

第2题:

在窗体上画一个名为Command1的命令按钮,编写如下程序:

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


正确答案:
4
【解析】本题考查了数组的嵌套使用。程序首先通过一个For循环给数组M的各个数组元素赋值,然后通过数组下标嵌套本身。注意:这样的嵌套时,要保证数组下标不出界,否则程序将出错。

第3题:

在窗体上添加一个命令按钮(名为Command1),然后编写如下程序:

Function m(x as Integer,y as Integer) as Integer

m=IIf(x>y,x,y)

End Function

Private Sub Commandl Click()

Dim a as Integer,b as Integer

a=1

b=2

MsgBox m(a,B)

End Sub

打开窗体运行后,单击命令按钮,消息框的输出结果为【 】。


正确答案:2
2 解析:本题考查考生VBA程序设计的能力。在本题中,考生应该掌握IIF条件接口。题目中调用函数m(x,y),并将a的值传给x,将b的值传给y,因此x=1,y=2。对于函数IIf(x>y,x,y)来说,其功能是当x>y为真时返回x的值,当 x>y为假时返回y的值。在本题中,因为x>y为假,因此应该返回y的值,即返回2。

第4题:

在窗体上画一个命令按钮,名称为Command1,然后编写如下程序:

程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。

A.

B.H

C.

D.


正确答案:A
【解析】分析程序,程序开始循环时i=1,j=1to1,PrintSUing(i,“Hello”)语句输出一个H,然后执行Print进行换行;当i=2时,j=1to2,PrintString(i,“Hello”)语句输出两行分别为两个HH,然后执行Print换行:当i=3时,退出循环。

第5题:

在窗体上添加一个命令按钮(名为Command1),然后编写如下事件过程:

Private Sub Command1_Cliek

Dim b, k

For k = 1 to 6

b=23+k

Next k

MsgBox b + k

End Sub

打开窗体后,单击命令按钮,消息框的输出结果是【 】。


正确答案:51
51 解析:本题循环内部完成b=231+2+3+4+5+6的操作,当k=7时,结束循环,故消息框中显示的是51。

第6题:

在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1),然后编写如下事件过程:

打开窗体运行后,单击命令按钮,文本框中显示的内容是( )。


正确答案:12
12 解析: 本题考查的是VBA编程基础、参数传递。由于VBA中,默认情况下,参数是按地址传递(ByRef),结果会返回。本题中z的值等于x+y,所以文本框中显示的内容为12。

第7题:

在窗体上添加一个命令按钮(名为Commandl),然后编写如下程序:

打开窗体运行后,单击命令按钮,消息框的输出结果为__________。


正确答案:
20【解析】本题考查IIf函数的知识。对于Ⅱf函数可用于执行简单的条件判断操作,当第一个参数为真时返回第二个参数值,否则返回第三个参数值。因为x>y为假,所以返回Y的值也就是返回20。

第8题:

在窗体上添加一个名为Command1的命令按钮,然后编写如下程序:

Function m(x As Integer, y As Integer) As Integer

m=IIf(x>y,x,y)

End Function

Private Sub Command1_Click()

Dim a As Integer, b As Integer

a=1

b=2

MsgBox m(a,b)

End Sub

打开窗体运行后,单击命令按钮,消息框中输出结果为【 】。


正确答案:4
4 解析:M(6)的值为12-6=6;则有M(2+6)=M(8)的值为12-8=4。

第9题:

在窗体中添加一个名称为Command1的命令按钮,然后编写如下程序:


正确答案:

36