首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,然后编写如下程序: Function Fun(x As Integer, y As Integer) As Integer Fun = IIf(x < y, x, y)
在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,然后编写如下程序: Function Fun(x As Integer, y As Integer) As Integer Fun = IIf(x < y, x, y)
admin
2015-10-23
53
问题
在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,然后编写如下程序:
Function Fun(x As Integer, y As Integer) As Integer
Fun = IIf(x < y, x, y)
End Function
Private Sub Form_Load()
Command1.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、12
B、20
C、24
D、40
答案
A
解析
Form_Load()过程中,Command1获得焦点。当按回车键时,触发Command1_Click()事件。该事件中给定a和b的值,并调用函数Fun。函数Fun返回整型数据。IIf(x < y, x, y)表示的意思是x < y成立时,返回x,否则返回y。函数调用时传过来的参数是x=20,y=12。因此IIf(x < y, x, y)返回的值是12。选A。
转载请注明原文地址:https://kaotiyun.com/show/BJLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Filel的文件列表框,并编写如下程序:PrivateSubFUel_DblClick()x=Shell(File1_ileName,1)EndSub以下关于该程序的叙述中,错误的是()。
下列程序运行时输出的结果是PrivateSubForm_Click()Dimxx=Array("天天向上","清华大学","天上人间","程序设计")Fori=LBound(a,1)toUBound(a,1)IfLeft(a
阅读以下程序:PrivateSubForm_Click()Dimk,n,mAsIntegern=10m=1k=1DoWhilek<=nm=m+2k=k+1LoopPrintm
以下定义数组或给数组元素赋值的语句中,正确的是()。
运行以下程序后,输出的图形是()。Forr=OTo150Circle(320,240),rFori=1To1000NextiNextr
下列叙述中正确的是()。
有如下函数过程:FunctionFun(ByValxAsIngeger,ByValyAsInteger)AsIntegerDoWhile…y0reminder=xModyx=yy=reminderLo
执行下列语句后,输出结果是______。s$="ABCDEFG"PrintInStr(s$,"efg")PrintLCase$(s$)
为了选择多个控件,可以按住______键,然后单击每个控件。
一个项目具有一个项目主管,一个项目主管可管理多个项目,则实体“项目主管”与实体“项目”的联系属于______的联系。
随机试题
Whathavepeoplediscoveredabouthobbies?Hobbiescanbeprofitableand_________________________________
氨制冷系统中放机油,主要是利用氨不溶于油,氨液比油重的原理,在压力差的作用下,使系统中的机油经专用放油装置——集油器放出。
质量机能展开
下列组合,错误的是
用口服避孕药的妇女,出现以下哪种情况应该停药()。
对“S”曲线描述正确的是()。
影响抽样平均误差的因素有()。
在标准模块中用Public关键字定义的变量,其作用域为()。
Whatwasthecauseofthetragedy?
Emotionalmaturitymeansknowingthatanotherpersoncannotfilluptheholeinyourheart.Thatisyourresponsibility.Youne
最新回复
(
0
)