首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画1个命令按钮,名称为Commandl,然后编写如下程序: Dim FlagAs Boolean Private Sub Commandl—Click() Dim intNum As Integer intNum=I
在窗体上画1个命令按钮,名称为Commandl,然后编写如下程序: Dim FlagAs Boolean Private Sub Commandl—Click() Dim intNum As Integer intNum=I
admin
2016-03-21
18
问题
在窗体上画1个命令按钮,名称为Commandl,然后编写如下程序:
Dim FlagAs Boolean
Private Sub Commandl—Click()
Dim intNum As Integer
intNum=InputBox(“请输入:”)
IfFlag Then
Print f(intNum)
End If
End Sub
Function f(x as Integer)As Integer
IfX<10 Then
V=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。窗体的MouseUp事件是松开鼠标时触发的事件。程序运行后,单击窗体,则全局变量Flag的值为True,然后单击命令按钮,在输入对话框中输入5,执行If分支语句,调用f函数,由于5<10,因此输出X,即输出5。
转载请注明原文地址:https://jikaoti.com/ti/m2J0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在3种不同类型的组合框中,只能选择而不能输入数据的组合框是¬¬¬______。
在窗体上画一个命令按钮Command1,然后编写下列代码:PrivateSubCommand1_Click()DimArr1(10)AsInteger,Art2(10)AsIntegern=3Fori=1To5Arr1(i)=
在窗体上画一个命令按钮,名称为Command1,然后编写下列程序:PrivateSubCommand1_Click()Fori=1To2Forj=1ToiPrintString(i,"Hello")NextjPrintNe
结构化程序设计的核心和基础是()。
下面叙述中正确的是______。
下列程序段的结果为______。A="ABBACDDCBA"ForI=6To2Step-2X=Mid(A,I,I)Y=Left(A,I)Z=Right(A,I)
设a2,b=3,c=4,d=5,则下面语句的输出是Print3>2*bOra=cAndbcOrc>d
在窗体上画一个名称为List1的列表框,列表框中显示若干城市的名称。当单击列表框中的某个城市名时,该城市名消失。下列在List1_Click事件过程中能正确实现上述功能的语句是
下列选项中不符合良好程序设计风格的是
开发软件时对提高开发人员工作效率至关重要的是
随机试题
硫酸镁静注过量应缓慢静脉注射
乳痈肿痛可用何药
我国公民韩某与林某为表兄妹,两人相爱并打算结婚,因我国法律禁止近亲结婚,二人一直无法完婚。后韩某到P国工作定居并获得P国国籍,林某也随后在P国找到工作,由于P国对近亲结婚没有限制,二人便在P国进行登记结婚,并共同在P国生活和丁作。两年后,因为感情不和,林某
具有结构简单,制造维修方便,可以调节流量,但不适用于输送带固体颗粒和黏性较大介质特征的阀门为( )。
关于墙体或部位脚手眼设置位置,下列说法中错误的是()。
输往欧盟的货物,使用了松材线虫非疫区的针叶树木质包装的,应由检验检疫机构实施检疫并出具检疫证书。( )
首席风险官是负责对期货公司经营管理行为的合法合规性和控制风险措施进行监督检查的期货公司高级管理人员。( )
人民群众创造历史的活动是()
历史上创造出“围魏救赵”战法,又巧用“减灶之计”计策大败魏军的军师是()。
Thecoursewould(havebeenoffered)thisterm.Butit(cancelled)becausetoofewstudents(hadregistered)beforeregistration
最新回复
(
0
)