首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设工程文件包含两个窗体文件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
2019-03-14
27
问题
设工程文件包含两个窗体文件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/nEUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在标准模块中用Public关键字定义的变量,其作用域为
下列关于栈叙述正确的是
在窗体上画一个文本框,名称为Text1,然后编写如下程序:PrivateSubFormLoad0PrivateSubForm_Click()Textl.Text=""Textl.SetFocusDimaAsSUing,SAsSU
在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写如下程序:PrivateSubForm_Load()Textl.Text=“”:Text2.Text=“”:Textl.SetFocusEndSubPrivateS
软件(程序)调试的任务是
设有如下通用过程:PublicFunctionf(xAsInteger)DimYAsIntegerx=20:y=2:f=x*yEndFunction在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:Priva
设a=12,b=5,c=7,表达式x=(a\c+aModb)+Int(13/5)的值是
在窗体上没有进行任何属性设置,然后编写如下事件过程,则程序运行结果是()。PrivateSubForm_Load0Fori=lTo10slim=sum+iNextiPrint“Sum=”;slimEndSub
表达式4+5\6*7/8Mod9的值是()。
考生文件夹中有工程文件sjt3.vbp。在窗体上有名称为Comb01的组合框,请设置该组合框的属性,使该组合框只能用于选择操作,不能输入文本。窗体上还有两个标题分别为“输入正整数”、“判断”的命令按钮。程序运行时在组合框中选中一项,如图5(A所示,单击“输
随机试题
证明曲线积分∫(1,2)(3,4)(6xy2-y3)dx+(6x2y-3xy2)dy在整个坐标面xOy上与路径无关,并计算积分值.
Whenthestudentsdidbadly,theteacherbecamereally_________anddidn’tsmileforweeks.
患儿,男孩,7岁,因发热、意识障碍诊断为病毒性脑炎收入院治疗。该病的护理措施哪项不妥
使用增感屏可使
A.金黄色葡萄球菌肺炎B.腺病毒肺炎C.毛细支气管炎D.支原体肺炎E.支气管肺炎主要由肺炎链球菌引起的肺炎是
《中华人民共和国环境保护法》规定,国家采取财政、税收、价格、政府采购等方面的政策和措施,鼓励和支持环境保护技术装备、()和环境服务等环境保护产业的发展。
国际金融危机的成因不包括()。
Whereisthisannouncementmade?
Therepairmancanmendwhatever_______.
Little______whatwasupsettingme.
最新回复
(
0
)