首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画1个命令按钮,名称为Command1,然后编写如下程序: DimFlagAs Boolean Private Sub Command1_Click( ) Dim intNumAs Integer intNum=In
在窗体上画1个命令按钮,名称为Command1,然后编写如下程序: DimFlagAs Boolean Private Sub Command1_Click( ) Dim intNumAs Integer intNum=In
admin
2018-09-29
28
问题
在窗体上画1个命令按钮,名称为Command1,然后编写如下程序:
DimFlagAs Boolean
Private Sub Command1_Click( )
Dim intNumAs Integer
intNum=InputBox("请输入:")
If Flag Then
Print f(intNum)
End If
End Sub
Function f(X as Integer)As Integer
If X<10 Then
Y=X
Else
Y=X+10
End If
f=Y
End Function
Private Sub Form_MouseUp(Button As
Integer,Shift As Integer,X as Single,Y AS Single)
Flag=True
End Sub
运行程序,首先单击窗体,然后单击命令按钮,在输入对话框中输入5,则程序的输出结果为( )。
选项
A、0
B、5
C、15
D、无任何输出
答案
B
解析
本题考查If语句和函数过程的分析。函数过程f的功能是如果X小于10则返回X,否则返回X+10。窗体的Mouse[Jp事件是松开鼠标时触发的事件。程序运行后,单击窗体,则全局变量Flag的值为True,然后单击命令按钮,在输入对话框中输入5,执行If分支语句,调用f函数,由于5<10,因此输出X,即输出5。
转载请注明原文地址:https://kaotiyun.com/show/NQFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下关于文件的叙述中,错误的是
编写如下程序:PrivateSubCommand1_Click()Dima(10)AsStrings="123456"n=Len(s)Fork=1Tona(k)=Mid(s,
下面不能作为结构化方法软件需求分析工具的是
下面关于组合框Cb1的叙述中正确的是
用来设置文字字体是否斜体的属性是( )。
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()Move500,500EndSub程序运行后,单击命令按钮,产生的结果为
以下语句或子句中,符合VisualBasic语法要求的是
设有一个商店的数据库,记录客户及其购物情况,由三个关系组成:商品(商品号,商品名,单价,商品类别,供应商),客户(客户号,姓名,地址,电邮,性别,身份证号),购买(客户号,商品号,购买数量),则关系购买的键为
在学生管理的关系数据库中,存取一个学生信息的数据单位是
随机试题
牙周膜内的上皮剩余来源于
肝豆状核变性的特点有
男,6岁,反复咳喘1年伴面色苍白,曾咯血2次,查体:体温37.5℃,精神弱,面色苍白,呼吸急促,双肺呼吸音粗,无啰音,血红蛋白80g/L,胸片提示双肺网点状阴影,卡疤阳性,5UPPD(+),最可能的诊断是
泵在安装前拆装检查的主要内容包括( )。
某水利工程施工项目经过招标,建设单位选定A公司为中标单位。双方在施工合同中约定,A公司将设备安装、配套工程和桩基工程的施工分别分包给B、C和D三家专业公司,业主负责采购设备。该工程在施工招标和合同履行过程中发生了下述事件:事件1:施工招标过程中
资本的内容不包括( )。
上初中以来,刘俊突然好像:不认识自己了。“我到底是谁?我将来会做什么呢?”这类问题常常困扰着他。根据埃里克森的社会心理发展理论,他处于哪个发展阶段?()
综合课程又称统整课程,简单来说就是指打破传统的分科课程的知识领域,组合两门以上学科领域而构成的一门学科,其主导价值在于通过相关学科的集合,促进学生认识的整体发展并形成把握和解决问题的全面视野与方法,以满足科学技术发展日益综合化的需要。典型的综合课程按照综合
关于当代中国社会主义法在构建和谐社会中的作用,下列表述正确的有()。
Whatissupposedtobethenameofthenewrailway?Thenameofthisrailwayshouldbe______.Whatdoesthesentence"thet
最新回复
(
0
)