首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一命令按钮和一文本框,其名称分别为Command1和Text1,然后编写如下程序: Function Fun(x As Integer, Y As Integer)As Integer Fun=IIf(x
在窗体上画一命令按钮和一文本框,其名称分别为Command1和Text1,然后编写如下程序: Function Fun(x As Integer, Y As Integer)As Integer Fun=IIf(x
admin
2018-10-18
33
问题
在窗体上画一命令按钮和一文本框,其名称分别为Command1和Text1,然后编写如下程序:
Function Fun(x As Integer,
Y As Integer)As Integer
Fun=IIf(x
End Function
Private Sub Form Load()
Command 1.Default=True
End Sub
Private Sub Command1_Click()
Dim a As Integer,b As Integer
a=20:b=12
Text1.Text=Str(Fun(a,b))
End Sub
程序运行后,按回车键,文本框中显示的内容为
选项
A、1 2
B、20
C、24
D、40
答案
A
解析
命令按钮的Default属性用于设置窗体的缺省命令按钮,程序运行时,按下
键将执行该命令按钮的单击事件过程。IIf函数可用来执行简单的条件判断操作,它是“If…then…Else”结构的简写版本。格式为:Result=IIf(<条件>,
,
)。当<条件>为真时,IIf函数返回
,而当<条件>为假时,返回
。本题在函数Fun中判断x是否比v小,如果小则返回x作为返回值,否则返回v作为返回值,即返回两个参数中的最小值。
转载请注明原文地址:https://kaotiyun.com/show/oWFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设窗体上有1个名称为List1的列表框,程序运行时,如果选中了第3个列表项(最上面的列表项为第0个列表项),则下面不成立的是()。
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是()。
下列操作说明中,错误的是()。
文本框Text1的KeyDown事件过程如下:PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)……EndSub其中参数KeyCode的值表示的是发
在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1),并把窗体的KeyPreview属性设置为True,然后编写如下代码:DimSaveAllAsStringPrivateSubForm_Load()
以下关于文件的叙述中,错误的是()。
以下不属于VB控件的是
执行以下程序段:a$="VisualBasicProgramming"b$="C++"c$=UCase(Left$(a$,7))&b$&Right$(a$,12)后,变量c$的值为( )。
窗体上有一个名称为Command1的命令按钮,其事件过程如下:PrivateSubCommand1_Click() x="VisualBasicProgramming" a=Right(x,11) b=Mid(x,7,5) c=
设程序中有以下语句:MsgBox"Visual",,"Basic","等级考试",2执行该语句后,显示一个信息框,以下关于该信息框的叙述中,正确的是
随机试题
______往往适合于进入成熟期前的产品。
位于消化道纵行肌和环行肌层之间的神经丛称为
简述生物黏附片的特点、使用以及常用辅料。
根据《麻醉药品和精神药品管理条例》,关于麻醉药品和精神药品定点批发企业应具备条件的说法,错误的是
小李2009年将自己发明的某专利转让,获得转让费30万元,则小李此次转让需要缴纳()元的个人所得税。
关于商业银行所面临的各类风险,下列表述正确的有()。
税务筹划的切入点主要包括()。
一般很少提出个人要求,分析问题比较合情合理,能够理解导游的工作,也希望导游能够理解和尊重他们,注重对旅游风景的独自欣赏。以上是对()游客的描述。
篮球队教练规定,如果1号队员上场,而且3号队员不上场,那么,5号与7号队员中至少要有一人上场。如果教练的规定被贯彻执行了,那么1号队员不上场的充分条件是:
Scientistsfordecadeshaveclashedoverwhetherevolutiontakesplacegraduallyorisdrivenbyshortspurtsofintensechange
最新回复
(
0
)