首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画1个命令按钮,名称为Commandl,然后编写如下程序: Dim Flag As Boolean Private Sub Command l_Click( ) Dim intNum As Integer intNum=InputBox(“
在窗体上画1个命令按钮,名称为Commandl,然后编写如下程序: Dim Flag As Boolean Private Sub Command l_Click( ) Dim intNum As Integer intNum=InputBox(“
admin
2020-02-27
22
问题
在窗体上画1个命令按钮,名称为Commandl,然后编写如下程序:
Dim Flag As Boolean
Private Sub Command l_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
Y=X
Else
Y=X+10
EndIf
f=Y
End Function
Private Sub Form_MouseUp(Button As Imeger,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/Dix0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设在工程文件中有一个标准模块,其中定义了如下记录类型:TypeBooksNameAsString*10TelNumAsString*20EndType在窗体上画一个名为Command1的命令按
下面是求最大公约数的函数的首部:Functiongcd(ByValxAsInteger,ByValyAsInteger)AsInteger若要输出8、12、16这3个数的最大公约数,下面正确的语句是( )。
设有以下过程:PrivateSubproc(xAsInteger,OptionalyAsInteger)Printx,yEndSub针对此过程,下面正确的过程调用语句是
文本框接受的最长字符数由文本框的()属性确定。
执行语句DimX,YAsInteger后,()。
以下关于控件数组的叙述中,错误的是( )。
(1)在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是通过键盘向文本框中输入正整数。在“除数”框架中选择一个单选按钮,然后单击“处理数据”按钮,将大于文本框中的正整数且能够被所选除数整除的5个数添加到列表框Listl中,如图2-23所示。在窗体文
下列运算符中,优先级别最低的是
随机试题
豫菜代表性品种包括()。
甲将自己的房屋租给乙居住,约定租期为30年。则下列说法正确的是:()。
防止污染及其他公害设施的建设,必须与主体工程建设项目实行“三同时”,“三同时”是指:[2001年第25题][2007年第15题]
对个人经营贷款借款人的生产经营收入,应重点调查的内容不包括()。
下列关于黄金理财产品的特点,说法不正确的是()。
IPv6协议数据单元由一个固定头部和若干个扩展头部以及上层协议提供的负载组成,其中用于标识松散源路由功能的扩展头是()。
“子适卫,冉有仆。子日:‘庶矣哉’。冉有曰:‘既庶矣,又何加焉?’曰:‘富之。曰:‘既富矣,又何加焉?’曰:‘教之。’”这段话最主要反映的是
WhyistheNativeLanguageLearntSoWellHowdoesithappenthatchildrenlearntheirmothertonguesowell?Whenwecompare
Minipresentation’about—6minutesInthispartofthetextyouareaskedtogiveashorttalkonabusinesstopic,Youhaveto
A、Adjustinghisbiologicalclock.B、Knowingthedirectionofajet.C、Realizingthetimedifference-duringflight.D、Gettingus
最新回复
(
0
)