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

题目

窗体上有一个名为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

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

第1题:

标准模块中有如下程序代码:

Public x As Integer,Y As Integer

Sub vat_pub()

x=10:Y=20

End Sub

在窗体上有1个命令按钮,并有如下事件过程:

Private Sub Commandl—Click()

Dim X As Integer

Call vat_pub

x=x 4-loo

Y=Y+100

Print x;Y

End Sub

运行程序后单击命令按钮,窗体上显示的是

A.100 100

B.100 120

C.110 100

D.110 120


正确答案:B
解析:按照局部变量覆盖全局变量的原则,Commandl—Click中的x变量为局部变量,其初值为0;y变量为全局变量,其初值为20.x、y均加100得到答案B)。

第2题:

在窗体上有一个命令按钮Commandl,通用过程fun和命令按钮的事件过程如下: Private Function fun(By m As Integer) If m Mod 2=0 Then fun=2 Else Fun=1 Else If End Funcion Private Sub Commandl_Click() Dim i Integer,s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后,单击命令按钮,则窗体上输出A.6 B.7 C.8 D.9


正确答案:B
【解析】本题比较简单,只要根据程序的执行条件和顺序就可以运算出该程序的最后输出结果。程序运算过程为:当i=1时,s=s+fun(i)=1;当i=2时,s=s+fun(i)=3;当i=3时,s=s+fun(i)=4;当i=4时,s=s+fun(i)=6;当i=5时,s=s+fun(i)=7。

第3题:

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

Private Sub Command1_Click()

Dim s,i

For i=1 To 10

s=s+i

Next i

MsgBox s

End Sub

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


正确答案:

55 

第4题:

窗体上有一个命令按钮,命令按钮的单击事件过程如下: Private Sub Command1_Click() Dim a a=Array(1,2,3,4,5) For k=1 To 4 s=s+a(k) Next Print S End Sub 运行程序后,单击命令按钮,输出结果是

A.10

B.14

C.15

D.120


正确答案:B
解析:考查考生对数组定义的掌握程度。
  [解题要点] Array函数在默认的情况下,数组的下标从O开始,所以s=a(1)+a(2)+a(3)a(4)=2+3+4+5=14
  [考点链接] 数组的定义、赋值和应用。

第5题:

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

Private Sub Command1_Click()

Dim a As Integer,b As Integer

x=10

y=20

End Sub

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


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

第6题:

窗体上有一个命令按钮,命令按钮的单击事件过程如下。运行程序后,单击命令按钮,输出结果是 Private Sub Commandl_Click() Dim a a=Array(1,2,3,4,5) Fork=1 To 4 s=s+a(k) Next k Print s End Sub A.10 B.14 C.15 D.120


正确答案:B
【解析】使用Array函数为数组变量赋值,数组变量不能是具体的数据类型,只能是变体(Variant)类型,使用Array函数给数组变量赋值的3种形式是:①显式定义为Variant变量(例如,Dim数组变量名As Variant);②在定义时不指明类型(例如,Dim数组变量名);③不定义而直接使用。

第7题:

窗体上有一个名为Command1的命令按钮,并有如下程序: Private Sub Corqmand1_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

第8题:

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

A.机床

B.车床

C.钻床

D.轴承


正确答案:C
解析: 本题考查VBA中数组的知识。数组变量由变量名和数组下标构成,我们通常使用Dim语句来定义数组,其中下标下限缺省为0。本题中的a(2) 就是数组的第三个元素即“钻床”。

第9题:

在窗体上画一个名为Commandl的命令按钮,然后编写以下程序:

Private Sub Commandl—Click()

Dim M(10)As Integer

For k=1 TO 10

M(k)=12一k

Next k

x=8

PrintM(2+M(x))

End Sub

运行程序,单击命令按钮,在窗体上显示的是

A.6

B.5

C.7

D.8


正确答案:A
解析:
x=8,则M(x)=4,所以,M(2+M(x))=M(2+4)=M(6)=6。

第10题:

在窗体上画一个命令按钮,名称为Commandl,然后编写如下事件过程: Option Base 0 Private Sub Command1_Click() Dim city As Variant city=Array("北京","上海","天津","重庆") Print city(1) End Sub 程序运行后,如果单击命令按钮,则在窗体上显示的内容是______。

A.空白

B.错误提示

C.北京

D.上海


正确答案:D
解析:OptionBase0约定了数组下标从0开始,city(1)则为数组的第二个元素,即显示的内容为“上海”。

更多相关问题