首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上有一个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
27
问题
在窗体上有一个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://kaotiyun.com/show/IQHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面不能在信息框中输出“VisualBasic”的是()。
以下程序执行后,在窗体上输出的图案是()。Forml.ClsFora=1To5PrintSpace(5一a);String(a,”*”)Nexta
以下关于变量作用域的叙述中,错误的是
在考生目录下有一个工程文件sjt5.vbp,其功能是:单击“读数据”按钮,则把考生目录下的文件in5.dat中的100个整数读到数组a中;单击“计算”按钮,则找出其中与所有数的平均值(平均值截尾取整)最接近的整数,放到文本框中;单击“存盘”按钮则把计算结
若在窗体模块的声明部分声明了如下自定义类型和数组PrivateTyperecCodeAsInteger:CaptionAsStringEndTypeDimart(5)Asrec则下面的输出语句中正确的是
下列关于菜单项的描述中,错误的是
关于随机文件,以下叙述中错误的是
在VisualBasic环境下设计应用程序时,系统能自动检查出的错误是
下列与队列结构有关联的是()。
一棵二叉树中共有80个叶子结点与70个度为1的结点,则该二叉树中的总结点数为
随机试题
肱骨髁上骨折造成手腕下垂畸形是由于损伤了
足月妊娠孕妇发生先兆子痫,最恰当的处理应是
A.轮状病毒肠炎B.空肠弯曲菌肠炎C.真菌性肠炎D.致病性大肠埃希菌肠炎E.假膜性肠炎黄稀便带泡沫、黏掖吸豆腐渣样碎块多见于
在建设工程项目风险管理过程中,风险识别的最主要成果是()。
在房地产开发项目的施工中,如果施工企业将施工的商品房卖给该工程的材料供应商,则该买卖合同( )。
根据《民法通则》和《物权法》的规定,下列物可以适用先占取得的是()。(2012年)
2013年某运输公司拥有并使用以下车辆;整备质量6吨的货车10辆}整备质量为4.5吨的挂车5辆。中型客车10辆,其中包括2辆电车。当地政府规定,货车税额为60元/吨,客车税额是480元/年。该公司当年应纳车船税为()元。
某零售企业在十几年的经营中通过对国内外零售企业进行考察学习,并不断对自身经验进行总结,制定出一套科学成功的选址程序:在每开设一家新店前,都要利用一年左右的时间对所在区域的人员构成、消费水平、人口增长、居住条件、消费者兴趣爱好、高收入人群比例等进行细致的市场
许多心理学家认为,研究和揭示人格遗传因素的最好方法是()。
下列属于违法、犯法行为的有()
最新回复
(
0
)