首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序代码: Private Sub Command1_Click() Dim a As Integer, b As Integer a = 5: b = 10 Call mysub(a
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序代码: Private Sub Command1_Click() Dim a As Integer, b As Integer a = 5: b = 10 Call mysub(a
admin
2020-07-22
21
问题
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序代码:
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = 5: b = 10
Call mysub(a, b)
Print a; b
End Sub
Private Sub mysub(ByRef x As Integer, y As Integer)
x = x + 5
y = y * 2
End Sub
以下叙述中正确的是
选项
A、针对过程调用语句Call mysub(a, b)来说,实参a和形参x间的参数传递方式为传值
B、程序运行时,单击Command1,在窗体上的输出结果为10 20
C、当调用mysub过程时,在过程中对形参y值的改变不影响其对应实参的值
D、上述程序的执行顺序是:执行Command1_Click过程后,再执行mysub过程
答案
B
解析
用Call语句调用Sub过程。如果形参前面有关键字ByRef,则该参数按地址传送,如果形参前面没有关键字ByRef或ByVal,系统默认为按地址传递参数。选项A,实参a与形参x间的参数传递方式是按地址。故选项A错误;调用mysub过程中,实参a和b都是按地址传送,调用完成后会改变原实参的值。故选项B正确,选项C错误;程序的执行顺序是,先执行Command1_Click过程,再执行mysub过程,再打印出变量a,b的值后,再退出过程,选项D错误。故本题正确答案为B。
转载请注明原文地址:https://kaotiyun.com/show/QxHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在一个有若干个整数的顺序文件中查找一个数(这个数从文本框中输入),找到后在标签Label1中显示该数是文件中第几个数;如果没找到,则显示文件中没有该数的信息PrivateSubCommand1_Click()DimxAsInteger
下列关于控件数组的叙述中,正确的是
在窗体上有一个名为Command1的命令按钮,并有如下事件过程:PrivateSubCommand1_Click()a$="SwallowsModGenulled"b$=Right(a$,8):c$=Mid(a$,1
通用对话框Filter属性的作用是
判断单选按钮是否被选中的属性为
窗体上有文本框Text1和一个菜单,菜单标题、名称见表,结构如图所示。要求程序执行时单击“保存”菜单项,则把其标题显示在Tcxt1文本框中,下面可实现此功能的事件过程是()。
在利用菜单编辑器设计菜单时,为了把组合键“Alt+X”设置为“退出(X)”菜单项的访问键,可以将该菜单项的标题设置为
下面不属于软件测试实施步骤的是
下列选项中,不属于数据模型所描述的内容的是()。
函数过程F1的功能是:如果参数a为奇数,则返回值为1,否则返回值为0。以下能正确实现所述功能的代码的是()。
随机试题
恶性高血压可发生问叶组织肿瘤可发生
可用于治疗青光眼的药物除外
对氨苄西林的下列叙述,错误的是
下列风险识别中,风险识别结果较粗的是()
下列各项中,属于固定预算法特点的有()。
①经过一系列鉴定,它被确认为是一个全新的物种——西藏披毛犀,距今370万年,是已知最早和最原始的披毛犀②随着冰期在280万年前开始显现,西藏披毛犀开始离开高原地带,最后来到欧亚大陆形成了泥河湾披毛犀、托洛戈伊披毛犀及晚更新世的最后披毛犀③经过一
[*]
每个进程在得到处理机运行前,必须首先进行下列哪一种操作?()
Georgehadstolensomemoney,butthepolicehadcaughthimandhehadbeenputinprison.Nowhistrialwasabouttobegin,and
WilliamShakespearedescribedoldageas"secondchildishness"—sansteeth,sanseyes,sanstaste.Inthecaseoftastehemigh
最新回复
(
0
)