首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Commana1的命令按钮,然后编写如下程序: Dim SW As Boolean Function func(X As Integer)As Integer If X<20 Then
在窗体上画一个名称为Commana1的命令按钮,然后编写如下程序: Dim SW As Boolean Function func(X As Integer)As Integer If X<20 Then
admin
2013-04-11
34
问题
在窗体上画一个名称为Commana1的命令按钮,然后编写如下程序: 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 Commandl_Click( ) Dim intNum As Integer intNum = InputBox(" ") If SW Then Print func(intNum) End If End Sub 程序运行后,单击命令按钮,将显示一个输入对话框,如果在对话框中输入25,则程序的执行结果为
选项
A、输出0
B、输出25
C、输出45
D、无任何输出
答案
4
解析
本题考查的是鼠标事件,当压下鼠标左键(发生MouseDown时)SW的值为False,当松开鼠标左键(触发MouseUp时)SW的值为True。
转载请注明原文地址:https://kaotiyun.com/show/Eehp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在Form1的窗体上画一个名称为Text1的文本框,然后建立一个主菜单,标题为“操作
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。(1)在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上放置两个列表框,名称分别为List1和List2。在Lis
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:OptionBase1PrivateSubCommand1_Click()Dimas=0:j=1
以下语句用于打开一个顺序文件Open"C:\MyFile.txt"ForOutPut,但是该语句的一个重要错误是没有
设有语句Open"c:\Test.Dat"ForOutputAs#1则以下错误的叙述是______。
用Write和Print语句向文件中写入多个数据的差别在于______。
设在菜单编辑器中定义了—个菜单项,名为menul。为了在运行时隐藏该菜单项,应使用的语句是______。
执行下列语句后整型变量a的值是______。If(3-2)>2Thena=10ElseIf(10/2)=6Thena=20Elsea=30EndIf
随机试题
中度以上龋,银汞合金充填时需垫底,是因为银汞合金有
A、二丙酸倍氯米松B、可待因C、沙丁胺醇D、氨茶碱E、色甘酸钠具有强大的抗炎及免疫抑制作用的,用于哮喘发作的药物是()。
妇科门诊带教林护士向护生提问有关"双合诊"检查法的概念,正确的是
期货从业人员必须遵守()。
专利权可以作为经济法律关系的内容,但不可以作为经济法律关系的客体。()
完成某项工程,甲单独工作需要18小时,乙需要24小时,丙需要30小时。现按甲、乙、丙的顺序轮班工作,每人工作一小时换班。当工程完工时。乙总共干了()。
第三代移动通信技术3G是指支持高速数据传输的蜂窝移动通信技术。目前3G主要存在4种国际标准,其中______为中国自主研发的3G标准。
TheInternationalLaborOrganizationhasstudiedreportsonworkers’privacyinnineteenindustrialnations.Thestudyshowstha
DeterminingtheAgeofthePlanetsandtheUniverseP1:Asthesolarnebula,alargerotatingcloudofinterstellardustandgas
Traditionalplantbreedinginvolvescrossedvarietiesofthe【M1】______samespeciesinwaystheycouldcrossnaturally.Forexa
最新回复
(
0
)