2. 计算机
  3. 在窗体上有一个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

admin2020-06-30  45
问题 在窗体上有一个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://www.kaotiyun.com/show/IQHp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)