首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Command1_Click() Dim x As Integer,y As Integer x=InputBox("输入第一个数") y=InputBox("
编写如下程序: Private Sub Command1_Click() Dim x As Integer,y As Integer x=InputBox("输入第一个数") y=InputBox("
admin
2015-08-13
41
问题
编写如下程序:
Private Sub Command1_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
程序运行后,单击命令按钮Command1,并输入数值10和15,则输出结果为( )。
选项
A、10 115
B、20 115
C、35 15
D、20 15
答案
D
解析
程序中过程f的参数a默认为按址传递,参数b指定按值传递,因此调用f(x,y)时,x的值会受到影响,y的值不会。程序中输入10和15,则x=10,y=15。调用f(x,y),在过程中a=a*2,即a=10*2=20,变量x是过程f中的局部变量,没有用处可不用理会,b:b+100,即b=15+100=115。a的值,即按钮单击事件中变量x的值,因此x=20,而y的值仍是原来的值15,因此Print x,y输出20 15。
转载请注明原文地址:https://kaotiyun.com/show/QlQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序:FunctionFunc(ByValxAsInteger,yAsInteger)y=x*yIfy>0Then
执行以下语句后显示结果为______。DimXAsIntegerIfxThenPrintXElsePrintx-1
下列程序段的执行结果为______。N=0ForI=1To3ForJ=5To1Step-1N=N+1NextJNextIPrintN;J;I
软件设计包括软件的结构、数据接口和过程设计,其中软件的过程设计是指______。
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()x=0DoUntilx=-1a=InputBox(“请输入A的值”)a=Val(A)b
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()StaticyAsIntegerClsFori=0To2
下列有关文件的叙述中,正确的是
为计算10+21+22+23+24+…+210的值,并把结果显示在文本框Textl中,若编写如下事件过程:PrivateSubCommandl_Click()Dima%,s%,k%S=1a=2FOrk=2To10a=a*2S=S+
在窗体上画一个文本框,其名称为Text1,在属性窗口中把该文本框的MultiLine属性设置为True,然后编写如下的事件过程:PrivatesubForm_Click()Open“d:\test\smtextl.txt”ForInputAs
随机试题
一些投机者是乘船游玩的热心人。所有的商人都支持沿海工业的发展。所有热心乘船旅游的人都反对沿海工业的发展。据此可知以下哪项一定成立?
有关葡萄胎的叙述哪项是正确的()
需混合注射几种药物时,首先应注意的是()。
药物肝肠循环影响了药物在体内的
引导性组织再生术手术成功的要素包括
质粒在细菌间的转移方式主要为
下列流动性指标中,用于测量企业短期偿债能力的是()。
A、5061.44B、5117.16C、5374.85D、6306.97A1.5%<5%,可使用乘除法转化法。原式≈4985.52×(1+1.5%)≈4985.52+5000×1%+5000×0.5%=4985.52+50+25=5060.52,最
中央八项规定之所以取得成效,关键是中央政治局以身作则、_______。各级领导干部要充分认识自己在作风建设中的关键地位和重要作用,以及对党和国家前途命运的重大责任,以_______、如临深渊的小心和谨慎,对待自己的一言一行,一举一动,要带头改进作风,不是说
分布式数据库系统不具有的特点是______。
最新回复
(
0
)