2. 计算机
  3. 在窗体上有一个Picture1图片框，没有加载图片，在当前文件夹下有一个位图文件pic02.bmp，并有下面的程序代码： pic02.bmp，并有下面的程序代码： Dim HasPic As Boolean Private Sub Picture1_Cl

在窗体上有一个Picture1图片框，没有加载图片，在当前文件夹下有一个位图文件pic02.bmp，并有下面的程序代码： pic02.bmp，并有下面的程序代码： Dim HasPic As Boolean Private Sub Picture1_Cl

admin2019-06-11  51
问题 在窗体上有一个Picture1图片框，没有加载图片，在当前文件夹下有一个位图文件pic02.bmp，并有下面的程序代码：
pic02.bmp，并有下面的程序代码：
Dim HasPic As Boolean
Private Sub Picture1_Click()
    If HasPic Then
        Picture1.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/VtUp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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