单选题
窗体上有一个名称为Picture1的图片框控件，一个名称为Label1的标签控件，如下图所示。
现有如下程序：
Public Sub Display(x As Control)
If Type Of x is Label Then
x.Caption="计算机等级考试"
Else
x.Picture=Load Picture("pic.jpg")
End If
End Sub
Private Sub Label1_Click()
Call Display(Label1)
End Sub
Private Sub Picture1_Click()
Call Display(Picture1)
End Sub
现有如下程序：
Public Sub Display(x As Control)
If Type Of x is Label Then
x.Caption="计算机等级考试"
Else
x.Picture=Load Picture("pic.jpg")
End If
End Sub
Private Sub Label1_Click()
Call Display(Label1)
End Sub
Private Sub Picture1_Click()
Call Display(Picture1)
End Sub
【正确答案】
B
【答案解析】[解析] 本程序的功能是单击图片框时，在图片框中显示pic.jpg图片，单击标签时，在标签中显示“计算机等级考试”。Display过程的参数x是一个控件变量，TypeOf是一个运算符，用来检测类型。