窗体上有一个名为Commandl的命令按钮,并有如下程序:Private Sub Command_Click()Dim a As Intege

题目

窗体上有一个名为Commandl的命令按钮,并有如下程序:

Private Sub Command_Click()

Dim a As Integer,b As Integer

a=8

b=12

Print Fun(a,b);a;b

End Sub

Private Function Fun(ByVal a As Integer,b As Integer)As Integer

a=a Mod 5

b=b\5

Fun=a

End Function

程序运行时,单击命令按钮,则输出结果是

A.3 3 2

B.3 8 2

C.8 8 12

D.3 8 1 2

参考答案和解析
正确答案:B
如果没有搜索结果或未解决您的问题,请直接 联系老师 获取答案。
相似问题和答案

第1题:

窗体上有一个名为Commandl的命令按钮,并有如下程序:

Private Sub Command 1_Click()

Dim a As Integer, b As Integer

a=8

b=12

Print Fun(a, b);a; b

End Sub

Private Function Fun(ByVal a As Integer, b As Integer)As Integer

a=a Mod 5

b=b、5

Fun=a

End Function

程序运行时,单击命令按钮,则输出结果是

A)3 3 2

B)3 8 2

C)8 8 12

D)3 8 12


正确答案:B

第2题:

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


正确答案:
15【解析】本题考查VBA程序中过程调用的知识。由于VBA中,默认情况下,参数是按地址传递(ByRef),对形参的改变会影响到实参。本题中2的值等于a b,这个z值会返回给实参c,所以文本框中显示的内容为15。

第3题:

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

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


正确答案:
15【解析】本题考查函数调用中参数传递的知识。在VBA的函数调用时,参数有两种传递方式:传址传递和传值传递。如果在函数声明时没有说明传递类型,则默认为传址传递,即形参的结果会传递给实参。本题中形参均为传址传递,即a=x=3,b=y=5,c=z=10。但是在子程序里面对c重新赋值为c=a*b=15,这个值l5会回送给实参2,所以最后显示的值Z也就是l5。

第4题:

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

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


正确答案:
2500【解析】本题考查循环的知识。这个问题比较简单,实际上就是求l到100之间的奇数和,最终结果为2500。

第5题:

在窗体上画一个命令按钮,名称为Commandl,然后编写如下事件过程: Private Sub Commandl_Click() Dim() a=Array(”机床”,”车床”,”钻床”,”轴承”)Printa(2)EndSub程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。

A.机床

B.车床

C.钻床

D.轴承


正确答案:C
暂无解析,请参考用户分享笔记

第6题:

在窗体上画一个名为Commandl的命令按钮,编写如下程序:程序运行后,单击命令按钮,输出的结果是( )。

A. 4

B. 5

C. 6

D. 8


正确答案:A
A)    【解析】本题考查数组中元素的分析。数组中的第k个元素的值为12-k,因此M(6)数据为6,M(8)为4。

第7题:

在窗体上添加一个命令按钮(名为Commandl),编写如下事件过程:打开窗体后,单击命令按钮,消息框的输出结果是( )。

A. 7

B. 15

C. 157

D. 528


正确答案:B
本题考查VBA中多重循环的知识。见 到多重循环的问题不要害怕,认真地分析清楚每一次循环这种问题 就迎刃而解了。本题中,在每一次外循环开始的时候都把x的值置 为4。所以我们只分析最后一次循环就可以了;同理中层循环每一 次开始前都把x的值置为3,所以这个问题最后实际上就是x的初 值为3,执行最内层循环直到结束就可以了。根据程序内循环执行 两次.最后x=3+6+0=15。

第8题:

在窗体上有1个名称为Commandl的命令按钮,并有如下事件过程和函数过程:

Private Sub Commandl Click()

Dim P As Integer

p=m(1)+m(2)+m(3)

Print P

End Sub

Private Function m(n As Integer)As Integer

Static s As Integer

For k=1 To n

s=s+l

Next

m=s

End Function

运行程序,单击命令按钮Commandl后的输出结果为


正确答案:10
10

第9题:

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

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


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