首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Command 1.Click() Dim x As Integer,y As Integer x=InputBox(“输入第一个数”):y=InputBox(“输入第二个数”) Call f(x,y) Print
编写如下程序: Private Sub Command 1.Click() Dim x As Integer,y As Integer x=InputBox(“输入第一个数”):y=InputBox(“输入第二个数”) Call f(x,y) Print
admin
2020-04-18
58
问题
编写如下程序:
Private Sub Command 1.Click()
Dim x As Integer,y As Integer
x=InputBox(“输入第一个数”):y=InputBox(“输入第二个数”)
Call f(x,y)
Print x,y
End Sub
Sub f(a As Integer,ByVal b As Integer)
a=a*2:x=a+b:b=b+100
End Sub
程序运行后,单击命令按钮Commandl,并输入数值10和15,则输出结果为
选项
A、10 115
B、20 1 1 5
C、35 1 5
D、20 1 5
答案
D
解析
在Visual Basic中调用过程时,参数有两种传递形式;按值传递(Byval)和按址传递(Byrref),默认为按址传递。其中,当参数按址传递时,如果在引用该参数的过程中改变了形参的值,同时也就改变了传递参数时实参变量的值。本题中f的参数a是按地址传递的,b是按值传递的,因此在f中对a的改变会影响实参x,对b的操作不会影响实参y。
转载请注明原文地址:https://kaotiyun.com/show/tcTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面程序运行时,若输入“VisualBasicProgramming”,则在窗体上输出的是()。PrivateSubCommandl_Click()DimNum(25)AsInteger,Chr1AsStringChr1
某系统结构图如下图所示该系统结构图的宽度是()。
有如下程序:PrivateSubForm_Click()DimSAsStringS=InputBox("请输入一个字符串:")Fori=1ToLen(S)\2IfMid(S,
以下关于过程及过程参数的描述中,错误的是( )。
设Label1、Command1、Text1、Check1分别为标签、命令按钮、文本框、复选框的名称,则以下属性设置语句中,运行时不会出错的是
以下叙述中错误的是()。
窗体上已有的3个单选按钮组成了1个名为ChkOpt1的控件数组。用于区分控件数组ChkOpt1中每个元素的属性是( )。
下列链表中,其逻辑结构属于非线性结构的是
以下合法的VB变量名是()。
下列关于顺序文件的描述中,正确的是
随机试题
眩晕痰湿中阻证,若痰郁化火,应首选的方剂是
A、秋水仙碱B、美洛昔康C、丙磺舒D、对乙酰氨基酚E、吲哚美辛()可以抑制青霉素在肾小管的分泌,与其合用起到增效作用。
2003年,某中级人民法院在一份判决书中,认定《某某省农作物种子管理条例》(以下简称《条例》)的有关内容“无效”。该省人大常委会已指出某市中级人民法院的行为严重违法,并要求该市人大对此进行纠正,要求省高级人民法院汇报,要求有关方面处理直接责任人和主管领导。
某溢洪道工程建于岩基上,为2级水工建筑物。闸室为开敞式结构,每孔净宽10m,闸墩净高13.8m,其启闭机工作桥为现浇混凝土梁板结构。上游施工围堰为均质土围堰。工程采用散装水泥。工程施工基本结束时,施工单位按水土保持方案实施了水土防治措施。闸墩混凝土浇筑施工
下列各项负债中,其计税基础不为零的有()。
由于微博具有陌生人之间传播信息的功能,因此会放大企业的不良消息。()
袋中有大小、形状相同的红、黑球各一个,现一次有放回地随机摸取3次,每次摸取一个球。试问:若摸到红球时得2分,摸到黑球时得1分,求3次摸球所得总分为5的概率。
数据传输率的单位是【 】。
Everyoneknowsthattaxationisnecessaryinamodernstate:【21】______it,itwouldnotbepossibletopaythesoldiersand
Educationisnotanend,butameanstoanend.72.Inotherwords,wedonoteducatechildrenonlyforthepurposeofeducating
最新回复
(
0
)