首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Picture1的图片框控件,一个名称为Label1的标签控件,如图所示。 现有如下程序: Public Sub display(x As Control) If TypeOf x Is Label Then x Capti
窗体上有一个名称为Picture1的图片框控件,一个名称为Label1的标签控件,如图所示。 现有如下程序: Public Sub display(x As Control) If TypeOf x Is Label Then x Capti
admin
2019-03-14
27
问题
窗体上有一个名称为Picture1的图片框控件,一个名称为Label1的标签控件,如图所示。
现有如下程序:
Public Sub display(x As Control)
If TypeOf x Is Label Then
x Caption="计算机等级考试"
Else
xPicture=LoadPicture("pic.jpg")
End If
End Sub
Private Sub Label1_Click()
Call display(Label1)
End Sub
Private Sub Picture1_Click()
Call display(Picture1)
End Sub
对以上程序,下列叙述中错误的是( )。
选项
A、程序运行时会出错
B、单击图片框,在图片框中显示一幅图片
C、过程中的x是控件变量
D、单击标签,在标签中显示一串文字
答案
A
解析
程序中定义了一个过程display(x as Control),它的参数x是一个控件变量。当单击Picture1控件或Label1控件时,都会调用display过程,而传入的参数分别是这两个参数的控件名,在display过程中程序判断参数传入控件的类型,如果是标签控件,就在它的标题上显示"计算机等级考试",否则就认为是图片控件,就在图片框中加载一个图片显示出来。程序运行正常,因此A选项错。
转载请注明原文地址:https://kaotiyun.com/show/mIUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮(名称为Command1),并编写如下代码:FnnetionFun1(ByValaAsInteger,bAsInteger)AsIntegerDim.tAsIntegert=a-b:b=t+a:Fun1=t+b
以下关于函数过程的叙述中,正确的是
下列关于通用对话框CommonDialogl的叙述中,错误的是
设有以下过程:PrivateSUbproc(xAsInteger,OptionalYAsInteger)Printx,yEndSub针对此过程,下面正确的过程调用语句是
设有如下程序:PrivateSubInv(ByValxStrAsString,yStrAsString)DimtStrAsStringDimLAsIntegerL=Len(xStr)DoWhileL>=1tStr=tStr
窗体上有一个列表框控件Listl。以下叙述中错误的是
下面正确使用动态数组的是
使用Line控件在窗体上画一条从(0,0)到(600,700)的直线,则其相应属性的值应是
假设用复制、粘贴的方法建立了一个命令按钮数组Command1,以下对该数组的说法错误的是()。
假定通过复制、粘贴操作建立了一个命令按钮数组Command1,以下说法中错误的是()。
随机试题
利用单调性证明下列不等式:x≥1时,ex≥xe;
商品的价值量由()来决定。
医德修养的根本途径是
该患儿发生呼吸困难的原因,最可能是最紧急的处理是
心理健康的培养,应从何时开始()
某企业2012年发生的营业收入为1000万元,营业成本为600万元,销售费用为20万元,管理费用为50万元,财务费用为10万元,投资收益为40万元,资产减值损失为70万元(损失),公允价值变动损益为80万元(收益),营业外收入为25万元,营业外支出为15万
根据下表提供的信息回答下列问题。
从所给的四个选项中,选择最合适的一个填入问号处,使之呈现一定的规律性:
Ifyouwanttoloseweight,butarenotafanofthegym,theresultsofanewstudycouldofferawelcomealternative.Peoplew
WilliamShakespearedescribedoldageas"secondchildishness"—sansteeth,sanseyes,sanstaste.Inthecaseoftastehemigh
最新回复
(
0
)