首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Command1的命令按钮,并编写如下程序: Private Sub Command1_Click() Dim a As Integer Static b As Integer a = 20 b = 5 Call s
在窗体上画一个名称为Command1的命令按钮,并编写如下程序: Private Sub Command1_Click() Dim a As Integer Static b As Integer a = 20 b = 5 Call s
admin
2020-01-02
58
问题
在窗体上画一个名称为Command1的命令按钮,并编写如下程序:
Private Sub Command1_Click()
Dim a As Integer
Static b As Integer
a = 20
b = 5
Call sub1(a, b)
Print a; b
End Sub
Private Sub sub1(ByRef x1 As Integer, y1 As Integer)
x1 = x1 + 3
y1 = x1 + y1
End Sub
程序运行后,单击命令按钮,在窗体上显示的内容是
选项
A、23 23
B、23 28
C、20 5
D、20 25
答案
B
解析
用Call语句调用Sub过程,如果形参前面有关键字ByRef,则该参数按地址传送,本题中形参x1前有关键字ByRef,调用时以地址方式传递实参,调用sub过程,x1=x1+3=23,改变了实参a的值,a为23。如果形参前面没有关键字ByRef或ByVal,系统默认为按地址传递参数。调用sub过程中,x1=x1+3=23;y1=23+5=28。形参y1值的变化改变了实参b的值,故b=28。本题正确答案为选项B。
转载请注明原文地址:https://kaotiyun.com/show/f1Tp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列说法中,错误的是
设在名称为MyForm的窗体上只有1个名称为C1的命令按钮,下面叙述正确的是
假定一个VisualBasic应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序,以下正确的操作是
窗体上有一个名称为Commandl的命令按钮。要求编写程序,把文件f1.txt的内容写到文件f2.txt中,然后将f1.txt删除。命令按钮的单击事件过程如下:PfivateSubCommandl_Click()Open”c:\f1
以下关于通用对话框的叙述中,错误的是
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画1个名称为Cbol的组合框,组合框的列表项分别是:北京、天津、上海。请设置组合框的参数,使其外观如图3—6所示。窗体的标题是“用组合框
在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框,其名称分别为Drive1、Dir1和File1,为了使它们同步操作,必须触发驱动器的Change事件和目录的Change事件,在这两个事件中执行的语句分别为()。
某系统结构图如下图所示(n≥5)该系统结构图的最大扇出数是()。
一间宿舍可住多个学生,则实体宿舍和学生之间的联系是()。
在关系数据库中,用来表示实体间联系的是
随机试题
驾驶人违反交通运输管理法规发生重大事故使公私财产遭受重大损失,可能会受到什么刑罚?
《蒹葭》的主要艺术特点有()
男性,50岁。间歇性无痛血尿3个月,经检查诊断为左侧肾癌。应考虑该患者是
管道是细水雾灭火系统的重要组成部分,管道安装也是整个系统安装工程中工作量最大、较容易出问题的环节,返修也较繁杂。管道的安装主要包括管道清洗,管道固定,管道焊接等加工方法,管道穿过墙体、楼板的安装等。下列有关管道安装说法中,不符合要求的是()。
要约
2006年德国足球世界杯比赛的冠军是()。
如果甲正方形的边长比乙正方形边长多3厘米,乙正方形的面积比甲正方形面积少63平方厘米,那么甲正方形的面积是多少平方厘米?乙正方形的面积是多少平方厘米?
流动性偏好是指人们宁愿持有流动性高但不能生利的货币,也不愿持有其他虽能生利但较难变现的资产的心理动机。人们愿意以货币形式或存款储蓄的形式保有一部分财富,而不愿以股票、债券等资本形式保有财富。根据上述定义,下列现象适用于流动性偏好来加以解释的是:
Whereisthewoman’shusbandnow?
Beforethe1850’s,theUnitedStateshadanumberofsmallcolleges,mostofthemdatingfromcolonialdays.Theyweresmall,ch
最新回复
(
0
)