首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画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
38
问题
在窗体上画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://kaotiyun.com/show/FgLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列事件过程的功能是:建立一个名为Data1的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为12,3,…,90。请在空白处填入适当的内容,将程序补充完整。PrivateTypeAngKAsIntegerSinxAsSin
要设定文本框中的文字内容是否允许修改,应该设置的属性是()。
无论何种控件,都具有一个共同属性。这个属性是()。
有如下SUB过程:Subs(xAsSingle,yAsSingle)t=xx=t/yy=tModyEndSub在窗体上添加一个命令按钮,然后编写如下事件过程:PrivateSubF
函数过程Fun1的功能是:如果参数b为奇数,则返回值为1,否则返回值为0。FunctionFun1(bAsInteger)if_____ThenFun1=0ElseFun1=
在窗体上有1个名称为Commandl的命令按钮,并有如下事件过程和函数过程:PrivateSubCommandlClick()DimPAsIntegerp=m(1)+m(2)+m(3)Print
下列关于线性链表的叙述中,正确的是
在面向对象方法中,属性与操作相似的一组对象称为______。
下列不一定是传值的虚实结合方式的选项是()。
在学生文件夹下有一个数据库文件“samp2.accdb”,里面已经设计好了两个表对象“tNorm”和“tStock”。请按以下要求完成设计。(1)创建一个查询,查找产品最高储备与最低储备相差最小的数量并输出,标题显示为“m_data”,所建查询命
随机试题
在这种情况下,保存一点点文明变得十分________,只能保存痛苦。因为只有痛苦,才能把衰败的过程延缓,________在衰败之后种下复兴的希望。填入画横线部分最恰当的一项是()。
关于急性上消化道大出血的补充血容量原则,哪项是正确的
烷化剂包括
石化企业的挥发性有机物无组织排放源有()。
基金宣传推介材料登载过往业绩,基金合同生效10年以上的,应当登载()。
下列有关外部融资敏感分析表述正确的有()。
库存应以保证商品流通和社会再生产的需要为最高限度。
【2014年湖南郴州.判断】儿童在明白“青菜”“萝卜”等概念后,再学习“蔬菜”的概念,属于下位学习。()
标志着全国人民抗日救亡运动新高潮来临的事件是()
"Accordingtosuch-and-such,athink-tank,"isaphrasefamiliartoreadersofanynewspaper.Sharpquotes,intriguingfactsand
最新回复
(
0
)