首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设工程文件包含两个窗体文件Forml.frm、Form2.frm及一个标准模块文件Module 1.bas。两个窗体上分别只有一个名称为Commandl的命令按钮。 Forml的代码如下: Public x As Integer Priv
设工程文件包含两个窗体文件Forml.frm、Form2.frm及一个标准模块文件Module 1.bas。两个窗体上分别只有一个名称为Commandl的命令按钮。 Forml的代码如下: Public x As Integer Priv
admin
2019-03-08
68
问题
设工程文件包含两个窗体文件Forml.frm、Form2.frm及一个标准模块文件Module 1.bas。两个窗体上分别只有一个名称为Commandl的命令按钮。 Forml的代码如下:
Public x As Integer
Private Sub Form_Load()
x=1:y=5
End Sub
Private Sub Command l_Click()
Form2.Show
End Sub
Form2的代码如下:
Private Sub Command l_Click()
Print Forml.x,y
End Sub
Modulel的代码如下:
Public y As Integer
运行以上程序,单击Forml的命令按钮Commandl,则显示Form2;再单击Form2上的命令按钮Commandl,则窗体上显示的是
选项
A、1 5
B、0 5
C、0 0
D、程序有错
答案
A
解析
本题考查的考点是有关变量的作用域的。本题中的y就是在标准模块中定义的全局变量,在任何一个窗体中都能应用,并在Forml中被赋值为5;x是Forml中定义的局部变量,要想在Form2中引用,必须用Forml.x格式来引用。
转载请注明原文地址:https://kaotiyun.com/show/geFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
数据库系统的数据独立性是指
有如下程序:PrivateSubForm_Click()DimnAsInteger,aAsStringDimLAsInteger,CAsIntegern=InputBox("请输入一个整数")
以下关于控件数组的叙述中,正确的是( )。
对于代数式sin2(x+y)+e5,正确的VisualBasic表达式为
假定在某个事件过程中需要计算:y=3!+5!的值,下面最好的设计是
窗体上有一个名称为Label1的标签控件,其Caption属性的初始值为0,还有一个计时器。为了在程序运行时,标签上的数字每秒加1,应该把语句:Label1.Caption=Label1.Caption+1写在一个事件过程中,这个事件过程是
下列叙述中正确的是
软件生命周期可分为定义阶段、开发阶段和维护阶段,下面不属于开发阶段任务的是
(1)在名称为Form1的窗体上添加一个名称为List1的列表框,在属性窗口中为列表框添加三个选项:北京、上海、天津。同时建立一个下拉菜单,其名称为File,标题为“文件”,此菜单含有一个子菜单项,标题为“显示列表框”,名称为Show,初始状态为被选中,运
下列符号常量的声明中不合法的是
随机试题
菜点定量是具体确定菜点的原料构成比例,对原料用量、熟处理的加热时间、加热温度等的标准化研究。()
产前检查应常规每周1次:抽羊水作染色体检查应在:
抢救中毒者时正确的是
对属于进口付汇、出口收汇进出口货物的报关单,海关在办结放行手续后,出具一份盖有海关验讫章的电脑打印报关单,并在报关单的右上角加贴防伪标签,交进口或出口单位专门用于办理进口付汇或出口收汇核销手续。()
Advertiserstendtothinkbigandperhapsthisiswhythey’realwayscominginforcriticism.Theircriticsseemtoresentthem
若采用邻接矩阵来存储简单有向图,则其某一个顶点i的入度等于该矩阵(35)。
下列关于Blowfish算法的描述中,正确的是()。
What’sthemaintopicofthemonologue?
DevelopaGoodHabitForthispart,youareallowed30minutestowriteashortessayentitledDevelopaGoodHabitbycommen
Becauseconflictanddisagreementsarepartofallcloserelationships,couplesneedtolearnstrategiesformanagingconflicti
最新回复
(
0
)