首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: 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
2020-05-11
49
问题
编写如下程序:
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://jikaoti.com/ti/4Fx0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
工程文件中包含一个模块文件和一个窗体文件。模块文件的程序代码是:PublicxAsIntegerPrivateYAsInteger窗体文件的程序代码是:DimaAsIntegerPriv
为了使窗体的大小可以改变,必须把它的BorderStyle属性设置为
下列不包含滚动条的控件是
考生文件夹下有工程文件sjt5.vbp和数据文件in5.txt。in5.txt中有多条记录,每条记录占一行,含4个数据项,数据项的含义依次是:姓名、数学成绩、语文成绩、英语成绩。程序运行时,会把in5.txt中的所有记录读入数组a中(每个数组元素是一条记录
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1,标题为“文本框练习”的窗体上画一个名称为Text1的文本框,设置属性,使其宽度为1600、初始内容为空、显示字号为三号,且最多只能输入6个字符
在VisualBasic环境下设计应用程序时,系统能自动检查出的错误是( )。
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有两个标题分别为“读数据”和“统计”的命令按钮。请添加两个标签,其名称分别是Label1和Label2,标题分别为“单词的平均长度为”和“最长单词的长度为”;再添加两个名称分别为Text1和Text2,
假定通过复制、粘贴操作建立了一个命令按钮数组Command1,以下说法中错误的是( )。
下列数据流图(DFD)构造规则中正确的是()。
数据流图中带有箭头的线段表示的是()。
随机试题
维系蛋白质一级结构的化学键是
连续刚构桥中跨实际合扰温度与设计合拢温度不符时通常采取的措施为( )。
对留购的智能机器人,()。该批设备进口时应填报()。
一般情况下,我国行政罚款实行“裁执分离”,即做出罚款决定与执行罚款决定的不能成为同一主体。()
意大利评论界长期以来一直把薄伽丘的《十日谈》和但丁的《神曲》相提并论,称之为《人曲》。这是因为它()。
伴随着电子商务的普及,消费者成为个人信息泄露的主要受害群体。伴随信息泄露而至的垃圾短信、骚扰电话、精准诈骗日益___________着人们的隐私、财产甚至生命安全;同时,消费者个人信息泄露还容易破坏市场秩序、制约经济发展,滋长各类犯罪、破坏社会稳定,甚至_
货币可自由兑换的条件是什么?
功能对等
在超市购物后,张林把七件商品放在超市的传送带上,肉松后面紧跟着蛋糕,酸奶后面接着放的是饼干,可口可乐汽水紧跟在水果汁后面,方便面后面紧跟着酸奶,肉松和饼干之间有两件商品,方便面和水果汁之间有两件商品,最后放上去的是一只蛋糕。如果上述断定为真,那么
NarratorListentopartofalectureinanastronomyclass.TheprofessorisdisoussingHauey’scomet.Nowgetreadyto
最新回复
(
0
)