首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Command1_Click( ) Dim x As Integer,y As Integer x=10 y=20 Call fun1(x,y
编写如下程序: Private Sub Command1_Click( ) Dim x As Integer,y As Integer x=10 y=20 Call fun1(x,y
admin
2020-05-11
95
问题
编写如下程序:
Private Sub Command1_Click( )
Dim x As Integer,y As Integer
x=10
y=20
Call fun1(x,y)
Print x:y
End Sub
Private Function fun1(ByVal m As Integer,n As Integer)As Integer
m=m*m
n=n+n
End Function
程序运行后,单击命令按钮Command1,输出结果为( )。
选项
A、10 25
B、10 40
C、100 25
D、100 40
答案
B
解析
函数fun1(ByVal m As Integer,n As Integer)中m通过ByVal指定为值传递,n为引用传递。传递给该函数的实参会被改变。选B。
转载请注明原文地址:https://www.kaotiyun.com/show/07Tp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列关于水平滚动条的叙述中,错误的是
为了使命令按钮的Picture、DownPicture或DisabledPicture属性生效,必须把它的Style属性设置为
下面程序的执行结果是PrivateSubCommand1_Click()a=0k=1DoWhilek<4x=k^k^a:k=k+1Printx;LoopEndSub
(1)在考生目录下有一个工程文件vbsj3.vbp,窗体上有一个命令按钮cmdNext(标题为“下一个”)。要求:在窗体上建立一个单选按钮数组optItern,含4个单选按钮,标题分别为“A”、“B”、“C”、“D”,初始状态下,“A”为选中状态
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是产生20个0~1000的随机整数,放入一个数组中,然后输出这20个整数的平均值。程序运行后,单击命令按钮(名称为Command1,标题为“输出平均值”),即可
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)请在名称为Form1的窗体上建立一个二级下拉菜单,第一级共有两个菜单项,标题分别为“文件”、“编辑”,名称分别为file、edit;在“编辑”菜单下有第二级菜单,
下面描述中不属于数据库系统特点的是
窗体上有单选钮和列表框控件。单击名称为Option1、标题为"国家"的单选钮,向列表框中添加国家名称,如下图所示。Option1的单击事件过程如下:PrivateSubOption1_Click() Dimarr arr=Array("
有如下语句序列:Dima,bAsIntegerPrintaPrintb执行以上语句序列,下列叙述中错误的是
随机试题
可出现昏迷的是下列哪种疾病
患者发热,咳嗽,胸痛,咯吐腥臭浊痰,甚则脓血相兼,其诊断为:
下列栓剂基质中,具有同质多晶性的是
为配制注射剂用的溶剂是
政府通过财政政策,调节社会总需求和总供给,实现总供需的平衡和结构平衡,进而实现国民经济的又好又快发展。这是指财政政策的()。
某公司向银行借款10000元,期限3个月,年利率5%,到期一次还本付息,则到期时,该项借款的账面价值为()元。
依次填入画横线部分最恰当的一项是()。①这几年新建的楼房_______,使这座城市更加繁荣。②文艺晚会上他们把自己的表演才能发挥得_______。③现在到人才市场应聘的人虽然很多,但_______,用人单位要找到真正能
2022年,人社部和国家医保局“总对总”通道正式开通,支持电子社保卡和医保电子凭证在就医购药领域并行使用。下列关于社保卡的相关说法,错误的是()。
TASKONE—JOB•Forquestions13—17,matchtheextractswiththecorrespondingjob,listedA—H.•Foreachextract,choosethejob
Whywork?【C1】______youhaveperiodicallyaskedyourselfthesamequestion,perhapsfocusedon【C2】______youhavetowork.Serf-
最新回复
(
0
)