窗体上有一个名称为Picture1的图片框控件,一个名称为Label1的标签控件,如图所示。 现有如下程序: Public Sub display(x As Control)   If TypeOf x Is Label Then     x Capti

admin2015-06-30  263

问题 窗体上有一个名称为Picture1的图片框控件,一个名称为Label1的标签控件,如图所示。

现有如下程序:
Public Sub display(x As Control)
  If TypeOf x Is Label Then
    x Caption="计算机等级考试"
  Else
    xPicture=LoadPicture("pic.jpg")
  End If
End Sub
Private Sub Label1_Click()
  Call display(Label1)
End Sub
Private Sub Picture1_Click()
  Call display(Picture1)
End Sub
对以上程序,下列叙述中错误的是(  )。

选项 A、程序运行时会出错
B、单击图片框,在图片框中显示一幅图片
C、过程中的x是控件变量
D、单击标签,在标签中显示一串文字

答案A

解析 程序中定义了一个过程display(x as Control),它的参数x是一个控件变量。当单击Picture1控件或Label1控件时,都会调用display过程,而传入的参数分别是这两个参数的控件名,在display过程中程序判断参数传入控件的类型,如果是标签控件,就在它的标题上显示"计算机等级考试",否则就认为是图片控件,就在图片框中加载一个图片显示出来。程序运行正常,因此A选项错。
转载请注明原文地址:https://jikaoti.com/ti/Zw60FFFM
0

最新回复(0)