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

在窗体上画一个名称为Commandl的命令按钮,然后编写如下事件过程: Private Sub Command1_Click()

题目

在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim x As Integer，y As Integer x = 41： y = 54 Call sub1(x，y) x = x + 1 Print x； y End Sub Private Sub sub1(n As Integer， ByVal m As Integer) n=n Mod 10 m=m\10 End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是

A．41 54

B．2 54

C．1 3

D．42 3

参考答案和解析
正确答案：B
解析：在Function((参数表列))过程中，“参数表列”指明了调用时传送给过程的参数类型和个数，每个参数的格式为：[ByVal][ByRef]变量名[()][As数据类型]其中系统默认为ByRef，它指明参数传送是以传地址进行的，实际参数变量的值会由于过程中对形参的操作而改变。而ByVal则不同，参数传送，是以传值传送的，实际参数变量的值不再由于过程中对形参的操作而改变，本题目中过程sub1的参数n是传地址引用，而参数m是传值引用，因此x的值改变，x=21\10+1=2；而y值不改变，仍为54。答案为选项B。
如果没有搜索结果或未解决您的问题，请直接 联系老师 获取答案。
相似问题和答案

第1题：

在窗件上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() a=12345 Print Format S(a, "000. 00") End Sub 程序运行后，单击命令按钮，窗体上显示的是______。

A．123.45

B．12345.00

C．12345

D．00123.45


正确答案：B
解析：在使用Format函数使数值按“格式字符串”指定的格式输出时，符号“#”和“0”都是用于数字的输出，其个数决定了显示区段的长度。如果要显示的数值的位数小于格式字符串指定的区段长度，则该数值靠区段的左端显示，但这两个功能的区别在于，“#”显示的多余的位不补0，“0”显示的多余的位以0补齐。

第2题：

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

A．机床

B．车床

C．钻床

D．轴承


正确答案：C
解析： 本题考查VBA中数组的知识。数组变量由变量名和数组下标构成，我们通常使用Dim语句来定义数组，其中下标下限缺省为0。本题中的a(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 Commandl—Click() x=InputBox(“请输入一个整数”) Print x+345 End Sub 程序运行后，单击命令按钮，在输入对话框中输入123，则在窗体上输出的内容为( )

A．123345

B．468

C．123

D．345


正确答案：B
解析：InputBox函数返回的是字符串类型值，故x应为字符串类型。执行语句Print x+345时，x的类型自动转换为整型。相当于执行了123、345两数的和，故窗体上的输出内容为468。

第5题：

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

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


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

第6题：

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

A．VVV

B．Vis

C．sic

D．11


正确答案：A
解析：函数string(n，字符串)的功能是返回由n个指定“字符串”中第一个字符组成的字符串。本题中的字符串“VisualBasic”的第一个字符为“V”，所以返回3个“V”，即String函数返回的字符为“VVV”。

第7题：

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

Private Sub Command1_Click()

Do Whileb＞=0

c=a+b

Loop

End Sub

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


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

第8题：

在窗体上画一个命令按钮(名称为Command1)，然后编写如下事件过程： Private Sub Command1_Click() b=5 c=6 Print a=b+c End Sub 程序运行后，单击命令按钮，输出的结果是 ______。

A．a=11

B．a=b+c

C．a=

D．假


正确答案：D
解析：在本题中，变量a未定义，因此初始值为0，在表达式a=b+c中，a=0，b+c=5+6=11，所以表达式的值为False，程序的输出结果为False。

第9题：

在窗体上画一个命令按钮(名称为 Commandl)，然后编写如下事件过程： Private Sub Commandl_Click() Static a As Integer a＝a+1 End Sub 运行程序，第3次单击命令按钮后，变量a的值为( )

A．0

B．1

C．2

D．3


正确答案：D
解析：由Static语句定义的变量只建立一次，能在过程结束后保存原值。题中第一次单击命令按扭时，a的初始值为o，执行语句后a的值变为1；在第二次单击按扭时，a的初始值应保留上次的结果值1，执行语句后 a的值变为2；同理在第三次单击按扭后，变量 a的值变为3。

第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)则为数组的第二个元素，即显示的内容为“上海”。

更多相关问题
相关内容