首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
工程文件中包含一个模块文件和一个窗体文件。模块文件的程序代码是: Public x As Integer Private Y As Integer 窗体文件的程序代码是: Dim a As Integer Private Su
工程文件中包含一个模块文件和一个窗体文件。模块文件的程序代码是: Public x As Integer Private Y As Integer 窗体文件的程序代码是: Dim a As Integer Private Su
admin
2013-11-29
28
问题
工程文件中包含一个模块文件和一个窗体文件。模块文件的程序代码是:
Public x As Integer
Private Y As Integer
窗体文件的程序代码是:
Dim a As Integer
Private Sub Form_Load( )
Dim b As Integer
a=2:b=3:X:10:Y=20
End Sub
Private Sub Commandl_Click( )
a=a+5:b=b+5:x=x+5:Y=Y+5
Print a;b;X;Y
End Sub
运行程序,单击窗体上的命令按钮,则在窗体上显示的是( )。
选项
A、 5 5 15 5
B、7 5 15 25
C、7 8 15 5
D、7 5 15 5
答案
D
解析
程序在模块文件中定义x为整型全局变量,在整个工程中都起作用,而y定义为整型私有变量,只能在本模块文件中起作用。在窗体文件中变量a在本窗体文本中起作用,窗体加载事件中定义的变量b和没有声明的变量y,只在本事件过程起作用。程序窗体加载时,对后边有影响的变量值为a为2,x为10,没有指定初值的变量值默认为0,因此单击命令按钮后,a=a+5=7,b=b+5=5,x=x+5=15,y=y+5=5,结果输出7 5 15 5。
转载请注明原文地址:https://kaotiyun.com/show/EPQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下关于选项按钮的说法,正确的是______。
在窗体上添加如下命令按纽,然后编写如下事件过程:PrivateSubCommand1_Click()Dima(10)AsIntegerDimp(3)AsIntegerk=5
下列的程序段执行后,X的值为______。K=0Fori=1To10Forj=iTo10x=x+1NextjNexti
软件工程的出现是由于
如图所示,在列表框List1中已经有若干人的简单信息,运行时在Text1文本框(即“查找对象”右边的文本框)输入一个姓或姓名,单击“查找”按钮,则在列表框中进行查找,若找到,则把该人的信息显示在Text2文本框中。若有多个匹配的列表项,则只显示第1个匹配项
在数据结构中,用一组地址连续的存储单元一次存储数据元素的方式是______结构。
图像框中的Stretch属性为True时,其作用效果为()。
“年龄在18-25之间”这种约束是属于数据库当中的
表达式Abs(-5)+Len("ABCDE")的值是______。
在有n个结点的--31链表中,值为非空的链域的个数为______。
随机试题
DoyouwanttosaywhatyouthinkinalettertothePresidentoftheUnitedStates?You’llgetareplyfromhim—writteninink,
Ittookhimseveralmonthsto______thewildhorse.
职业病的病因为
男,26岁,服甲胺磷后昏迷半小时急送医院。查体:双肺布满湿啰音,为治疗肺水肿,首选的药物是:
用于疏散通道、出口处的防火卷帘,当感烟探测器发出火灾报警信号后,防火卷帘由上限位降至()m处定位,并向控制室的消防控制设备反馈中位信号;当感温探测器发出火灾报警信号后,防火卷帘由中位降至下限位全闭,并向控制室的消防控制设备反馈全闭信号。
预备党员的预备期为()。
领导让你和两个同事完成一项工作,可是两个同事因各种原因互相怄气,你该怎么开展工作?
TheWorkingTimeRegulations(WTRs)introducedanewrighttopaidholidaysformostworkers.However,someworkerswerenotcover
以下程序中函数f的功能是将n个字符串按由大到小的顺序进行排序。#include<string.h>voidf(charp[][10],intn){chart[20];inti,j;for(i=0;i<n-1;
AFuturevehicleWhat’stheMollerSkycar?Whilemanytechnologicaladvancesoccurinanevolutionarymanner,occasion
最新回复
(
0
)