在窗体上有一个Picturel图片框,没有加载图片,在当前文件夹下有一个位图文件pic02.bmp,并有下面的程序代码: Dim HasPic As Boolean Private Sub Picturel_Click() If HasPi

admin2020-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
0

最新回复(0)