违法和不良信息举报 联系客服
免费注册 登录

在窗体上有一个命令按钮Commandl,编写事件代码如下: Private Sub Commandl Click( ) Dim dl

题目

在窗体上有一个命令按钮Commandl，编写事件代码如下： Private Sub Commandl Click（ ） Dim dl As Date Dim d2 As Date d1=#12／25／2009#d2=#1／5／2010# MsgBox DateDiff(”ww”，d1，d2) End Sub 打开窗体运行后，单击命令按钮，消息框中输出的结果是（ ）。

A.1

B.2

C.10

D.11

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

第1题：

在窗体上有一个命令按钮Commandl，编写事件代码如下：

Private SuB commandl_Click()

Dim d1 As Date

Dim d2 As Date

d1=#12/25/2009#

d2=#1/5/2010#

MsgBox DateDiFF(“WW”,d1,d2)

End SuB

打开窗体运行后，单击命令按钮，消息框中输出的结果是

A．1

B．2

C．10

D．11


正确答案：B
解析：DateDiff表示两个指定日期间的时间间隔数目，参数ww要求返回值为两日期间的周数。  

第2题：

在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：窗体打开运行后，单击命令按钮，则消息框的输出结果是（ ）。

A. 1

B. 2

C. 3

D. 4


正确答案：D
本题考查VBA中选择结构的知识。在本题中用了多个If分支结构，这些结构是顺序的而不是嵌套的，所以会顺序执行，判断是否满足条件。首先75不小于60，所以不执行x=1；然后再判断75不小于70，所以不执行x=2；再接着判断75小于80，所以执行x=3：最后判断75小于90，所以执行x=4。最后消息框里输出的X值为4。

第3题：

在窗体上有一个命令按钮Commandl，编写事件代码如下：

Private SuB commandl_Click()

Dim a(10),p(3)As Integer

k=5

For i=1 To 10

a(i)=i+i

Next i

For i=1 To 3

P(i)=a(i*i)

Next i

For i=1 To 3

k =k+p(i)*2

Next i

MsgBox k

End SuB

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


正确答案：201
201 解析：题目考查循环操作，最后求得k值。程序中共有3处for循环。在第一个for循环，得到a(1)=1*l=l，a(2)=2*2=4，…，a(10)=10*10=100。在第二个for循环，得到p(1)=a(1*1)=l，p(2)=a(2*2)=a(4)=16，…，p(10)=p(10*10)。在第三个for循环，i等于1时，k；初始k+p(1)*2=5+1*2=7；i等于2时，k=k+p(2)+2=7+16*2=39；i等于3时，k=k+p(3)$2=39+81*2=201。

第4题：

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

A.机床

B.车床

C.钻床

D.轴承


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

第5题：

在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a$="VisualBasic" Print String(3，a$) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是

A．VVV

B．Vis

C．sic

D．11


正确答案：A
解析：本题考查字符串函数。 String返回n个字符。如果为字符串，则返回n个字符串的首字符。据此，本题的正确答案为A，即返回3个“Visual Basic”的首字母“V”。

第6题：

窗体Forml上有一个名称为Commandl的命令按钮，以下对应窗体单击事件的事件过程是

A．Private Sub Forml_Click() … End Sub

B．Private Sub Form_Click() … End Sub

C．Private Sub Commandl_Click() … End Sub

D．Private Sub Command_Click() … End Sub


正确答案：B

第7题：

在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码： Pfivate Sub Command 1 Click（ ）窗体打开运行后，单击命令按钮，则消息框的输出结果是（ ）。

A. 1

B. 2

C. 3

D. 4


正确答案：A
本题考查条件语句的知识。在 If．．．Then…Elself．．．语句中，当某一个条件满足时，将会执行Then后面的语句，并且随后退出条件分支。在本题中，a=75满足第一个条件“a>60”．将执行Then后的语句。将1赋值给变量g，然后结束条件判断。最后将g的值l输出到消息框，所以消息框的输出结果是1。

第8题：

在窗体上有一个命令按钮Commandl，编写事件代码如下：

Private SuB commandl_Click()

Dim x As Integer,y As Integer

x=12:y=32

Call Proc(x,y)

OeBug.Print x;y

End SuB

PuBlic SuB Proc(n As Integer,Byval m As Integer)

n=n Mod 10

m=m Mod 10

End SuB

打开窗体运行后，单击命令按钮，立即窗口上输出的结果是

A．2 32

B．12 3

C．2 2

D．12 32


正确答案：A
解析：参数有两种传递方式：传址传递ByRef和传值传递ByVal。如果没有说明传递类型，则默认为传址传递。在函数．Proc(n As Integer，ByVal m As Integer)参数中，形参n默认为传址传递，形参的变化将会返回到实参，即形参n mod 10(12 rood 10)得到的结果2将返回给实参x，即x=2；而y为传值类型，不为形参的变化而变化，所以输出的x和y应为2和32。

第9题：

在窗体中有一个标签Labele，标题为“测试进行中”：有一个命令按钮Commandl，事件代码如下：

Private Sub Commandl_Click()

Labele.Caption＝“标签”

End Sub

Private Sub Form_Load()

Form.Caption＝“举例”

Commandl.Caption＝“移动”

End Sub

打开窗体后，单击命令按钮，屏幕显示( )。

A．

B．

C．

D．


正确答案：D
解析： 本题考查控件基本属性和事件的知识。在本题中，窗体开始运行时会首先执行Load事件，将窗体的标题设置为“举例”，命令按钮的标题设置为“移动”；单击命令按钮时会将标签的标题设置为“标签”。

第10题：

在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：

Private Sub Command1_Click()

Dim x As Integer,y As Integer

x=12：y=32

Call p(x,y)

MsgBox x*y

End Sub

Public Sub p(n As Integer,By Val m As Integer)

n=n Mod 10

m=m Mod 10

End Sub

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


正确答案：64
64 解析：子过程p有两个参数m和n，参数m，n是整型，而通过“ByVal”可知，参数m是按值传递的参数。由于在过程定义时未做参数说明的情况下，默认为传址调用，所以参数n是按址传递。(按址传递的过程调用是将相应位置实参的地址传送给形参处理，而被调用过程内部对形参的任何操作引起的形参值的变化又会反向影响实参的值。在这个过程中，数据的传递具有双向性。)在命令按钮单击事件过程中，程序通过两个实参x，y为形参m，n赋值，“n=n Mod 10”表示12与10取余，结果为2，由于n是传址调用，所以返回实参的结果：x=2，而形式参数m因为被“ByVal”修饰，所以过程调用只是将实参y的值“单向”传送给形参 m处理，而被调用过程内部对形参m的取余操作引起的形参值的变化均不会反馈、影响实参y的值，也就是说实参y=32，通过语句“MsgBox x*y”，可以得出：x*y=2*32=64，也就是窗体打开运行后，单击命令按钮，则消息框的输出结果为64。

相关内容