首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮和一个文本框,其名称分别为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
2020-04-18
68
问题
在窗体上画一个命令按钮和一个文本框,其名称分别为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=Tme
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
程序运行后,按Enter键,文本框中显示的内容为( )。
选项
A、12
B、20
C、24
D、40
答案
A
解析
Form_Load()过程中,Command1获得焦点。当按Enter键时,触发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://www.kaotiyun.com/show/QiTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个文本框,名称为Text1,然后编写如下程序:PrivateSubForm_Load()Textl.Text=””:Text1.SetFocusEndSubPrivateSubForm
窗体上有名称分别为Text1、Text2的文本框,名称为Commandl的命令按钮。运行程序,在Textl中输入“FormList”,然后单击命令按钮,执行如下程序:PrivateSubCommandl_Click()Tex
设有以下过程:PrivateSubproc(xAsInteger,OptionalYAsInteger)Printx,yEndSub针对此过程,下面正确的过程调用语句是
以下关于通用对话框的叙述中,错误的是
设窗体上有一个通用对话框控件CD1,希望在执行下面程序时.打开如图所示的它件对话框PrivateSubCommando_Click()CD1.DialogTitle=”打开文件”CD1.InitDit="C:\”CD1.Filt
窗体上已有的3个单选按钮组成了1个名为ChkOptl的控件数组。用于区分控件数组ChkOptl中每个元素的属性是
以下关于VB的叙述中,错误的是
下列关于水平滚动条的叙述中,错误的是
随机试题
胸腺嘧啶分解代谢的产物为
下列哪一项不是土壤污染的来源
本案中钱某触犯的罪名有()。对于《刑法》对毒品类犯罪的规定,以下说法正确的是()。
圆管层流中,下述错误的是:
城市交通隧道工程采用的排烟模式应根据隧道种类、火灾疏散方式,并结合隧道正常工况的通风模式确定。下列不属于城市交通隧道工程采用排烟模式的是()。
办理海关事务担保,申请人提交的担保物应当得到海关的认可,下列可以充当海关事务担保客体的有()。
下列对银行个人贷款产品市场定位过程的排序正确的是()。①制作定位图②执行定位③识别重要属性④定位选择
研究人员发现,某种昆虫在晴天的夜里能够准确地沿直线飞到目的地,但在阴天的夜里看不见星星时,这种昆虫在飞行过程中就经常会兜圈或绕路。因此研究人员认为,这种昆虫能够利用夜空中星星的位置进行导航。以下哪项如果为真,最能削弱研究人员的判断?
Theincreasingtransatlanticschism,accordingtothetext,resultsfrom______.Theauthorevidenceshisownnotionbyadvanci
Themostimportanttechnologicaleventofourtimeistheriseofthecomputer.Computersalready【B1】______manyaspectsofour
最新回复
(
0
)