首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Command1的命令按钮,再画两个名称分别为Label1、Label2的标签,然后编写如下程序代码: Private X As Integer Private Sub Command1_Click() X=5:
在窗体上画一个名称为Command1的命令按钮,再画两个名称分别为Label1、Label2的标签,然后编写如下程序代码: Private X As Integer Private Sub Command1_Click() X=5:
admin
2018-12-20
53
问题
在窗体上画一个名称为Command1的命令按钮,再画两个名称分别为Label1、Label2的标签,然后编写如下程序代码:
Private X As Integer
Private Sub Command1_Click()
X=5:Y=3
Call proc(X,Y)
Label1.Caption=X
Laebel2.Caption=Y
End Sub
Private Sub proc(a As Integer,ByVal b As Integer)
X=a * a
Y=b+b
End Sub
程序运行后,单击命令按钮,则两个标签中显示的内容分别是( )。
选项
A、25和3
B、5和3
C、25和6
D、5和6
答案
A
解析
虽然在过程proc中参数a默认为按地址传递,参数b指定了ByVal(按值)方式传递,但过程中并没有对a,b的值改变,只对变量X和Y进行了赋值,而X是在窗体模块中起作用的模块变量,而变量Y在proc过程中没有声明,要整个模块中也没有声明,说明它是一个局部变量,只在本过程中起作用。因此,在proe过程中X=a*a=5*5=25,会使按钮单击事件中的变量x值变为25,而按钮单击事件过程中的变量Y不受影响,仍是原来的值3。因此两个标签上会分别显示25和3。
转载请注明原文地址:https://kaotiyun.com/show/nNFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设在一个工程的窗体中有如下代码:PublicxAsIntegerPrivateSubForm_Load()DimyAsIntegerEndSub在该工程的标准模块的声明部分有如下代码:
下列关于通用对话框CommonDialog1的叙述中,错误的是( )。
以下说法中正确的是( )。
以下过程的功能是从数组中寻找最大值:PrivateSubFindMax(a()AsInteger,ByRefMaxAsInteger) DimsAsInteger,fAsInteger DimiAsInteger
窗体上有一个名称为Option1的单选按钮数组,程序运行时,当单击某个单选按钮时,会调用下面的事件过程:PrivateSubOption1_Click(IndexAsInteger) …EndSub下面关于此过程的参数Index的叙
下列关于线性链表的叙述中,正确的是( )。
窗体上有一个菜单编辑器设计的菜单。运行程序,并在窗体上单击鼠标右键,则弹出一个快捷菜单,如图所示。下列说法错误的是()。
在窗体上画一个文本框,其名称为Text1,为了在程序运行后隐藏该文本框,应使用的语句为( )。
表达式Sgn(0.25)的值是( )。
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是( )。
随机试题
退货管理中应坚持的原则:
关于黄连阿胶汤证治法的论述最确切的一项是
输液的质量要求中与注射剂质量要求有差异的是
葡萄胎的随访时间应为
肝硬化腹水患者,每日进水量应限制在
甲公司是一家制造业企业,只生产和销售一种新型保温容器。产品直接消耗的材料分为主要材料和辅助材料。各月在产品结存数量较多,波动较大,公司在分配当月完工产品与月末在产品的成本时,对辅助材料采用约当产量法(假设在产品存货发出采用加权平均法),对直接人工和制造费用
在当前的涨价风潮中,有的商品确系成本增加而导致的终端消费价格上涨,但是也有不少商品却属于无需涨价之列,只不过看到其他产品涨价,便想搭上涨价的顺风车,为自己______私利。这种跟风涨价的势头,政府必须采取有力措施坚决______。填入划横线部分最恰当的一项
技能是通过本能形成的一种智力动作方式和肢体动作方式。
表示学生选修课程的关系模式是SC(S#,C#,G),其中S#为学号,C#为课程号,G为成绩,检索选修了课程号为2的课且成绩不及格的学生学号的表达式是()。
Ihavenoticedthatchildrenarenotevenbeingschoolinsocialgraces.AtaSundaybrunch,aclownwasmakingballoonanimals
最新回复
(
0
)