首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画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
64
问题
在窗体上画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://kaotiyun.com/show/3DTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面可以作为软件设计工具的是
有如下程序:PrivateSubForm_Click()DimSAsStringS=InputBox("请输入一个字符串:")Fori=1ToLen(S)\2IfMid(S,
在考生文件夹中有一个工程文件sjt5.vbp。窗体外观如图所示。运行程序,单击“读数据”按钮,读入文件中的数据到字符串变量中并显示在Label2标签中。单击“排序”命令按钮时,对读入的数据从小到大进行排序,并将排序结果在窗体的Label4控件中显示。
以下变量名中合法的是()。
若变量a未事先定义而直接使用(例如:a=0),则变量a的类型是()。
(1)在名称为Form1的窗体上添加一个名称为C1、标题为“改变颜色”的命令按钮,窗体标题为“改变窗体背景色”。编写程序,使得单击命令按钮时,将窗体的背景颜色改为红色(&HFF&)。运行程序后的窗体如图所示。要求:程序中不得使用变量,每个事件过程
下列运算符中,优先级别最低的是
下列运算符中,优先级别最高的是
随机试题
计算二重积分xydσ,其中D是由抛物线y2=x及z直线y=x-2所围成的闭区域.
用P、V操作管理临界区时,应该()
病人表情淡漠,神识痴呆,喃喃自语,哭笑无常,悲观失望,其病机是
17岁的小张利用到城里打工挣得的3万元钱,承包了家乡一小型砖厂。关于该承包协议效力的说法,正确的是()。
旅游审美素质的本源来自旅游者自身对旅游活动的基本认知,它强调的是个体对旅游审美体验的清晰理解。而如今,对身边旅游活动稍加留意和分析即可发现,在旅游活动中存在着相当一部分旅游者的旅游审美体验是非常模糊的。与这段文字无关的叙述是:
商店经销某商品,第二次进货的单价是第一次进货单价的九折,而售价不变,利润率比第一次销售该商品时的利润率增加了15个百分点,则该商店第一次经销该商品时所定的利润率是多少?
[*]
InAugust,environmentalistsinthePhilippinesvandalizedafieldofGoldenRice,anexperimentalgrainwhosegeneshadbeenmo
WhathappenedtoWinstonChurchillin1954?
A、Tohelpthemgainindependence.B、Tohelpthemmakedecisions.C、Togiveadvicetothem.D、Toofferthemfoodandmoney.A
最新回复
(
0
)