首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
阅读下列程序: Dim SW As Boolean Function func(X As Integer)As Integer If X<20 Then Y=X Else Y=20+X
阅读下列程序: Dim SW As Boolean Function func(X As Integer)As Integer If X<20 Then Y=X Else Y=20+X
admin
2009-02-13
49
问题
阅读下列程序: Dim SW As Boolean Function func(X As Integer)As Integer If X<20 Then Y=X Else Y=20+X End If func=Y End Function Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single, Y As Single) SW=False End Sub Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single, Y As Single) SW=True End Sub Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox(" ") If SW Then Print func(intNum) End If End Sub 程序运行后,单击一次窗体,再单击命令按钮,将显示一个输入对话框,如果在对话框中输入20,则程序的输出结果为
选项
A、0
B、20
C、40
D、无任何输出
答案
4
解析
上述程序由一个通用过程和3个事件过程组成,在命令按钮事件过程中调用通用过程,并将一个参数传送给通用过程。这里要注意,只有在一定的条件下,才能调用通用过程,这个条件就是,窗体的Boolean变量SW的值必须为 True,否则不能调用。而为了使SW的值为True,必须执行Form MouseUp事件过程,这只能通过单击窗体来实现。单击窗体时,按下鼠标左键执行FormMouseDown事件过程,使得SW=False,松开鼠标后执行Form MouseUp事件过程,使得 =True。程序运行后,由于单击了一次窗体,执行了Form_Mouseup事件过程,再单击命令按钮,因而SW的值为True,调用通用过程后,在窗体上显示的内容是40。若没有事先单击窗体,而直接单击按钮,窗体上就没有任何内容输出。
转载请注明原文地址:https://kaotiyun.com/show/Ys1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列说法中错误的一项是
下列语句中所使用的布局管理器,当改变容器大小,组件大小不会随着一起改变的是
数据库、数据库系统和数据库管理系统之间的关系是()。
开发软件时对提高开发人员工作效率至关重要的是()。
数据结构分为逻辑结构与存储结构,线性链表属于______。
下列属于条件运算符的是()。
已知i为整型变量,关于一元运算++i和i++,下列说法正确的是()。
在长度为n的线性表中查找一个表中不存在的元素,需要的比较次数为【】。
下面关于数据结构的叙述中,正确的叙述是()
在树结构中,树根结点没有________。
随机试题
尿检发现大量红细胞可见于
皮瓣的组成为()
关于刑法解释,下列哪些说法是正确的?
土地收购储备制度的运作主要包括()程序。
基金子公司产品特征的有()。
中性粒细胞碱性磷酸酶活性明显增高见于
一个需要提供资金支持,一个无须花钱,这是“赞助”同()的区别。
在一个容量为25的循环队列中,若头指针front=15,尾指针rear=6,则该循环队列中共有【 】个元素。
HowtoKeepYourNewYear’sResolutions[A]AbouthalfofallAmericanadultssaytheyareatleastsomewhatlikelytomakeaNew
A、TheinaccessibleInternet.B、Theservicequality.C、Theannualincome.D、Therailnetwork.B
最新回复
(
0
)