首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设工程文件包含两个窗体文件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
2018-12-20
26
问题
设工程文件包含两个窗体文件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/GuFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有如下通用过程:PublicFunctionf(xAsInteger) DimyAsInteger x=20 y=2 f=x*yEndFunction在窗体上画一个命令按钮,其名称为Command1,然后编写如下
在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,把文本框的Text属性设置为空白,然后编写如下事件过程:PrivateSubCommand1_Click() a=InputBox("Enteranintege
文本框Text1的KeyDown事件过程如下:PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger) ...EndSub其中参数KeyCode的值表示的是发生此事件时(
编写如下程序:PrivateSubCommand1_Click()DimnAsLong,sAsStringn=InputBox("输入一个数")DoWhilen0s=s&nMod
以下说法中正确的是( )。
判断单选按钮是否被选中的属性为
下面不属于软件测试实施步骤的是
假定Picture1和Text1分别为图片框和文本框的名称,则下列错误的语句是( )。
软件生命周期可分为定义阶段、开发阶段和维护阶段,下面不属于开发阶段任务的是
对于命令按钮,下列说法中正确的是()。
随机试题
气焊铜合金时,会产生()有毒气体。
十二铜表法
国际物流系统中物流的两大支柱是()
关于道路工程填方路基的说法,正确的是()。
【背景资料】某机电工程公司承接北方某城市一高档办公楼机电安装工程,建筑面积16万m2,地下三层,地上二十四层,内容包括:通风空调工程、给排水及消防工程、电气工程。本工程空调系统设置的类型:1.首层采用全空气定风量可变新风空调。
主张课程内容的组织以儿童活动为中心,提倡“从做中学"的课程理论的是()。(2012年下半年真题)
计算机是一种智能机,这是由于除了能作算术操作外,还能作一些______。
Educationistooimportanttotake【C1】______,whenpeopletakeanythingforseriously,theyput【C2】______blinderswhichcaus
【B1】【B11】
Theentertainmentprofession,orshowbusiness,attractsmanyyoungpeople.【B1】______,onlyveryfewcanhopetobecomefamousa
最新回复
(
0
)