首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Module1.bas。两个窗体上分别只有一个名称为Command1的命令按钮。 Form1的代码如下: Public x As Integer Private Sub Fo
设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Module1.bas。两个窗体上分别只有一个名称为Command1的命令按钮。 Form1的代码如下: Public x As Integer Private Sub Fo
admin
2020-07-22
62
问题
设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Module1.bas。两个窗体上分别只有一个名称为Command1的命令按钮。
Form1的代码如下:
Public x As Integer
Private Sub Form_Load()
x=1
y=5
End Sub
Private Sub Command1_Click()
Form2.Show
End Sub
Form2的代码如下:
Private Sub Command1_Click()
Print Form1.x, y
End Sub
Module1的代码如下:
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://kaotiyun.com/show/cWHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
编写如下程序:PrivateSubCommandl_Click()PrivateFunctionfun1(ByValmAsInteger,DimxAsInteger,yAsInteger
窗体上有一个名为List1的列表框和一个名为Command1的命令按钮,并有下面的事件过程:PrivateSubCommand1_Click()n%=List1.ListIndexIfn>0Thench$=List1.List(n)Lis
检查软件产品是否符合需求定义的过程称为
设子程序过程定义的首部为:PublicSubs(xAsInteger,YAsSingle)则以下正确的调用形式为
下面描述中不属于数据库系统特点的是()。
对于某些控件,只要将其Style属性设置为1,则可以在该控件上使用Picture属性显示图片。以下不具备这一使用规则的控件是
设有表示学生选课的三张表,学生S(学号,姓名,性别,年龄,身份证号),课程C(课号,
在考生文件夹下有一个工程文件sjt5.vbp,在该工程文件中已经定义了一个学生记录类型数据StudType。有三个标题分别为“学号”、“姓名”和“平均分”的标签;三个初始文本为空,用于接收学号、姓名和平均分的文本框Text1、Text2和Text3;一个用
公司中有多个部门和多名职员,每个职员只能属于一个部门,一个部门可以有多名职员。则实体部门和职员间的联系是
每所学校都有一名校长,而每个校长只在一所学校任职,则实体学校和实体校长之间的联系是()。
随机试题
()属于六大类按摩基本手法之一。
关于胆石症,下列叙述哪些是正确的
正经别行深入体腔的支脉是
吸入麻醉药中麻醉效能最低的是
甲公司对乙公司享有一笔10万元的债权,在该债权到期之前,甲公司将其资产按7:3的比例分立为两个独立的公司丙公司和丁公司,而甲公司解散。甲公司分立时未与乙公司就该笔债权的归属作出约定,则该债权到期后,应由谁行使还款请求权?
依据施工合同示范文本规定,施工中涉及的应由承包人承担的费用有()。
对未设档案管理部门的单位,会计档案应由会计机构指定专人保管,但不得由单位出纳保管。
有关劳动力因素对人力资源策略的影响的说法正确的有()。
数据链路层采用了后退N帧(GBN)协议,发送方已经发送了编号为0~7的帧。当计时器超时时,若发送方只收到0、2、3号帧的确认,则发送方需要重发的帧数是()。
DrThomasStarzl,likeallthepioneersoforgantransplantation,hadtolearntolivewithfailure.Whenheperformedtheworld
最新回复
(
0
)