首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Modulel.bas。两个窗体上分别只有一个名称为Command1的命令按钮。 Form1的代码如下: Public x As Integer Pr
设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Modulel.bas。两个窗体上分别只有一个名称为Command1的命令按钮。 Form1的代码如下: Public x As Integer Pr
admin
2020-07-22
38
问题
设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Modulel.bas。两个窗体上分别只有一个名称为Command1的命令按钮。
Form1的代码如下:
Public x As Integer
Private Sub Form_Load()
x=l
y=5
End Sub
Prirate Sub Command1_Click()
Form2.Show
End Sub
Form2的代码如下:
Private Sub Command1_Click()
Print Form1.x,y
End Sub
Modulel的代码如下:
Public y As Integer
运行以上程序,单击Form1的命令按钮Command1,则显示Form2;再单击Form2上的命令按钮Command1,则窗体上显示的是( )。
选项
A、1 5
B、0 5
C、0 0
D、程序有错
答案
A
解析
在Form1窗体模块中x被定义为全局变量,这使得它的值可以在其他模块中通过“过程名.变量名”的形式被引用。而变量y在标准模块中被定义为全局变量,则它可以在工程的每个模块,每个过程中使用。因此程序运行时,x赋值为1,y赋值为5,它们的值都可以在Form2中引用。
转载请注明原文地址:https://jikaoti.com/ti/rDS0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上有两个文本框:Text1和Text2,然后编写如下事件过程:PrivateSubForm_Load()ShowText1.Text="":Text2.Text="":Text2.SetFocusEnd
命令按钮Commandl的MouseUp事件过程结构如下:PrivateSubCommandl_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)…
下列模式中,能够给出数据库物理存储结构与物理存取方法的是()。
下列关于栈的叙述中,正确的是
A、选择B、投影C、自然连接D、并A由关系R到关系S为一元运算,排除C和D。关系S是关系R的一部分,是通过选择之后的结果,因此选A。
算法的空间复杂度是指()。
程序运行时,要清除图片框Picture1中的图像,应使用语句()。
在设计阶段,假定在图片框Picture1中装入了一个图形,为了删除该图片框控件,应采用的正确操作是
将E-R图转换为关系模式时,实体和联系都可以表示为( )。
算法的空间复杂度是指
随机试题
DearMr.Williams: Youradvertisementinformanagerofpublicrelationsappealstome.Ifoundthewordingofyouradvertise
Pickouttheappropriateexpressionfromtheeightchoicesandcompletethefollowingdialoguebyblackeningthecorrespondingl
下列哪些是机械通气的禁忌证
日常生活活动能力FIM评定中的依赖日常生活活动能力FIM评定中的有条件独立
(2014年)江康公司是C国一家大型药品生产企业。江康公司自身的优势在于药品的生产与新药研发的前期业务。近年来公司以多种方式进行业务拓展。为了保障原料药的稳定供给与产品质量,降低产业链中的交易成本,2009年以来,江康公司在C国3个省建设了5个原料药材现
下属于展子虔的作品的是()。
某二叉树的前序序列为ABDGHCEFI,中序序列为GDHBAECIF,则该二叉树的后序序列为______。
逻辑文件存放在存储介质上时,采用的组织形式是与什么有关?
在Access表中,可以定义3种主关键字,它们是
Theadvantagesanddisadvantagesofalargepopulationhavelongbeena(n)【C1】______ofdiscussionamongeconomists.Ithasbeen
最新回复
(
0
)