首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上有一个Picturel图片框,没有加载图片,在当前文件夹下有一个位图文件pic02.bmp,并有下面的程序代码: Dim HasPic As Boolean Private Sub Picturel_Click() If HasPi
在窗体上有一个Picturel图片框,没有加载图片,在当前文件夹下有一个位图文件pic02.bmp,并有下面的程序代码: Dim HasPic As Boolean Private Sub Picturel_Click() If HasPi
admin
2020-06-30
29
问题
在窗体上有一个Picturel图片框,没有加载图片,在当前文件夹下有一个位图文件pic02.bmp,并有下面的程序代码:
Dim HasPic As Boolean
Private Sub Picturel_Click()
If HasPic Then
Picturet.Picture=LoadPicture(””)
Else
Picture1.Picture=LoadPicture(“pic02.bmp”)
End If
HasPic=NOt HasPic
End Sub
关于这个程序运行时,下面叙述中正确的是( )。
选项
A、第一次单击图片框,会在其中显示一个图片,再单击图片框,则删除图片
B、第一次单击窗体,会在图片框中显示一个图片,再单击窗体,则删除图片
C、第一次单击图片框,会清空图片框,再单击图片框,则在其中显示一个图片
D、第一次单击窗体,会清空图片框,再单击窗体,则在图片框中显示一个图片
答案
A
解析
程序中定义了一个模块级布尔型变量HasPic,布尔型变量默认的初始值为False,第一次单击图片框时HasPic变量值为假,所以程序执行Else后的语句,LoadPicture(“pic02.bmp”)会在其中显示一张图片。最后通过语句“HasPic=Not HasPic”将HasPic变量的值置为True,当第二次单击图片框时HasPic变量值为真,所以执行if后的语句,会将图片框中的图片清空.即将原图片删除。故选项A正确。
转载请注明原文地址:https://jikaoti.com/ti/k6S0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
关于随机文件,以下叙述中错误的是( )。
表达式Str(Len(”123”))+Str(77.7)的值是()。
窗体上有1个名称为Text1的文本框;1个名称为Timer1的计时器控件,其Interval属性值为5000,Enabled属性值是True。Timer1的事件过程如下:PrivateSubTimer1_Timer()Static
工程文件中包含一个模块文件和一个窗体文件。模块文件的程序代码是:PublicxAsIntegerPrivateyAsInteger窗体文件的程序代码是:DimaAsIntegerPrivateSubForm_Load()
若要把窗体上命令按钮Command1的状态设置为不可用,应该执行的命令是()。
设变量V=2,B=5,则执行下面语句序列的输出是Print"V";"B",24;:Print:PrintV;B
双精度浮点数的类型说明符为
以下不能用形状控件画出的图形是
深度为5的完全二叉树的结点数不可能是()。
下面不属于软件测试实施步骤的是
随机试题
行政机关设立的内设机构,未经法律、法规授权,对外以自己名义作出具体行政行为的,()为被申请人。
A.元气B.宗气C.营气D.卫气能营养全身、化生血液的是
由过去经验和习惯的影响而产生的心理活动的准备状态是()
A.水痘B.重症肺炎C.百日咳D.麻疹E.猩红热发热、流涕、结膜充血、口腔黏膜斑等特点符合
保险责任开始后,对于下列哪些保险合同,投保人不得解除?()
根据我国《刑法》的规定,附加刑也可以独立适用。()
研究者以讲故事的方式表达对教育的理解和解释的方法是()
GordonShawthephysicist,66,andcolleagueshavediscoveredwhat’sknownasthe"Mozarteffect,"theabilityofaMozartsonat
I’veneverbeentoaprofessionalfashionshowbutmysisterisstudyingclothesdesignatcollege,andherclassputonanend
Accordingtothefirstparagraph,thelibrarysendstheapplicationformtothereaderssothattheycanTheeasywaytouseth
最新回复
(
0
)