首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Module1.bas。两个窗体上分别只有一个名称为Command1的命令按钮。 Forml的代码如下: Public x As Integer Pr
设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Module1.bas。两个窗体上分别只有一个名称为Command1的命令按钮。 Forml的代码如下: Public x As Integer Pr
admin
2016-06-30
45
问题
设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Module1.bas。两个窗体上分别只有一个名称为Command1的命令按钮。
Forml的代码如下:
Public x As Integer
Private Sub Form—Lmad()
x=1
y=5
End Sub
Private Sub Command1_Click()
Form2.Show
End Sub
Form2的代码如下:
Private Sub Commandl_Click()
Print Forml.x,y
End Sub
Modulel的代码如下:
Public y As Integer
运行以上程序,单击Forml的命令按钮Command1,则显示Form2;再单击Form2上的命令按钮Command1,则窗体上显示的是( )。
选项
A、1 5
B、0 5
C、0 0
D、程序有错
答案
A
解析
在Forml窗体模块中x被定义为全局变量,这使得它的值可以在其他模块中通过“过程名.变量名”的形式被引用。而变量y在标准模块中被定义为全局变量,则它可以在工程的每个模块,每个过程中使用。因此程序运行时,x赋值为1,y赋值为5,它们的值都可以在:Form2中引用。
转载请注明原文地址:https://kaotiyun.com/show/ylLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Command1的命令按钮,编写如下事件过程PrivateSubCommand1_Click()DimaAsStringa=______Fori=1To5PrintSpace(6
在下列关于菜单的说法中,错误的是
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click() Forn=1To20 IfnMod3<>0Thenin=m+n/3 N
若要求在菜单中包含分隔条,则设计时,在菜单的标题属性中应设置为______。
在Selectcase结构中,使用“To表达式”来指定一个范围时,必须把______的值写在前面。
下列程序运行时输出的结果是PrivateSubForm_Click()Dimx x=Array("天天向上","清华大学","天上人间","程序设计") Fori=LBound(a,1)toUBound(a,1
对象.cls方法对()控件有效。
要使菜单项MenuOne在程序运行时失效,使用的语句是
通常,将软件产品从提出、实现、使用维护到停止使用退役的过程称为______。
下面的程序代码实现将一个一维数组中元素向右循环移动,移位次数由文本框Text输入。例如数组各元素的值依次为0,1,2,3,4,5,6,7,8,9,10;移动三次后,各元素的值依次为8,9,10,0,1,2,3,4,5,6,7。PrivateSub
随机试题
社会意识相对独立性最突出的表现是()
A.较好眼的最佳视力为0.1~0.3B.较好眼的最佳视力为0.05~0.1C.无光感D.视野半径≤10°,但>5°E.视野半径≤5°盲(4级)
患者,男,55岁。右侧肢体偏瘫伴失语、面肌麻痹6h,CT平扫示颅脑未见异常。预计多长时间后,该病例CT平扫会出现典型低密度
心动周期中,占时间最长的是
不属于建设工程项目总投资中建设投资的是()。
2011年规模以上电子信息制造业实现利税总额()。
根据评价的价值标准不同,学生评价方法一般可分为()。
关于当事人订立无固定期限劳动合同的要求,下列选项中不符合法律规定的是()。
A.ControlofRespirationB.BeautyofFreshCutFlowersC.RoleofRespirationD.MostImportantAspectofFlowerCareE.Needfor
QuestionandAnswerChoiceOrderThislectureisapartofaseriesoflecturesonsurveydesigning.Wetendtotalkaboutthe
最新回复
(
0
)