首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
工程文件中包含一个模块文件和一个窗体文件。模块文件的程序代码是: Public x As Integer Private y As Integer 窗体文件的程序代码是: Dim a As Integer Private Sub Form_Load() D
工程文件中包含一个模块文件和一个窗体文件。模块文件的程序代码是: Public x As Integer Private y As Integer 窗体文件的程序代码是: Dim a As Integer Private Sub Form_Load() D
admin
2018-06-20
33
问题
工程文件中包含一个模块文件和一个窗体文件。模块文件的程序代码是:
Public x As Integer
Private y As Integer
窗体文件的程序代码是:
Dim a As Integer
Private Sub Form_Load()
Dim b As Integer
a=2:b=3:x=10:y=20
End Sub
Private Sub Command1_Click()
a=a+5:b=b+5:x=x+5:y=y+5
Print a;b;x;y
End Sub
运行程序,单击窗体上的命令按钮,则在窗体上显示的是( )。
选项
A、5 5 15 5
B、7 5 15 25
C、7 8 15 5
D、7 5 15 5
答案
D
解析
程序在模块文件中定义x为整型全局变量,在整个工程中都起作用,而y定义为整型私有变量,只能在本模块文件中起作用。在窗体文件中变量a在本窗体文本中起作用,窗体加载事件中定义的变量b和没有声明的变量y,只在本事件过程起作用。程序窗体加载时,对后边有影响的变量值为a为2,x为10,没有指定初值的变量值默认为0,因此单击命令按钮后,a=a+5=7,b=b+5=5,x=x+5=15,y=y+5=5,结果输出7 5 15 5。
转载请注明原文地址:https://kaotiyun.com/show/94Gp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设窗体上有一个名称为Listl的列表框和一个名称为Checkl的复选框数组(下标从0开始)。程序运行时,单击某个复选框,如果列表框中没有该复选框的标题,则把该复选框的标题添加到列表框中,否则从列表框中把该复选框标题删除。PrivateSubC
设窗体上有1个名称为Listl的列表框,程序运行时,如果选中了第3个列表项(最上面的列表项为第0个列表项),则下面不成立的是
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为Labell、标题为“列表框的使用”的标签。再画一个名称为Listl的列表框,列表中含有5个表项,表项内容分别为“北京”、“
在考生目录下已有一个工程文件sjt5.vbp。运行程序后,分别从两个文件中读出数据,放入两个一维数组a、b中。请编写程序,当单击“合并数组”按钮时,将a、b数组中相同下标的数组元素的值求和,并将结果存入数组c。单击“找最大值"按钮时,调用find过程分别找
为了在按下回车键时执行某个命令按钮的事件过程,需要把该命令按钮的()属性设置为True。
使用语句DimA(1To10)AsInteger声明数组A后,以下叙述正确的是()。
以下关系表达式中,其值为True的是()。
设有以下定义语句:PrivateTypepointxAsIntegeryAsIntegerEndTVpeDimaAspoint下面语句中正确的是
设a=2,b=3,c=4,d=5,表达式Nota
以下表达式与Int(3.5)的值相同的是
随机试题
作家甲的私人书信被乙收藏。对此,下列选项正确的是
CO2通过呼吸膜扩散的速度比O2快20倍,主要原因是CO2()(1998年)
如下图所示,悬臂梁B截面的位移为,则C截面的挠度是()。
在会计核算的基本前提中,持续经营是企业会计处理方法和程序的基本前提,也是企业会计处理方法和程序保持稳定的基本前提。在借贷记账法下,账户的借方登记()。
已知某单纯投资项目的计算期为10年,项目总投资为1500万元,其中原始投资1200万元,预备费为500万元,原始投资中固定资产投资为700万元。项目建成后,固定资产采用直线法计提折旧,期末无残值,则运营期年折旧额为()万元。
商业银行的负债业务是指银行吸收资金的业务,即形成银行资金来源的业务,它包括()。
下列关于洛阳龙门石窟造像艺术风格的描述中,属于北魏造像艺术风格的是()。
设变换求常数a.
Formyproposedjourney,thefirstprioritywasclearlytostartlearningArabic.Ihaveneverbeenalinguist.ThoughIhadtra
假定有以下两个过程:Subsl(ByValxAsInteger,ByValyAsInteger)DimtAsIntegert=Xx=yy=tEndSubSubS2
最新回复
(
0
)