窗体上有一个名称为Picture1的图片框控件，一个名称为Label1的标签控件，如图所示。
现有如下程序：Public Sub display(x As Control) If TypeOf x Is Label Then x Caption＝"计算机等级考试" Else xPicture＝LoadPicture("pic.jpg") End IfEnd SubPrivate Sub Label1_Click() Call display(Label1)End SubPrivate Sub Picture1_Click() Call display(Picture1)End Sub对以上程序，下列叙述中错误的是( )。
- A.程序运行时会出错
- B.单击图片框，在图片框中显示一幅图片
- C.过程中的x是控件变量
- D.单击标签，在标签中显示一串文字
热度🔥254
参考答案：A
解析：
【解析】程序中定义了一个过程display(x as Control)，它的参数x是一个控件变量。当单击Picture1控件或Label1控件时，都会调用display过程，而传入的参数分别是这两个参数的控件名，在display过程中程序判断参数传入控件的类型，如果是标签控件，就在它的标题上显示"计算机等级考试"，否则就认为是图片控件，就在图片框中加载一个图片显示出来。程序运行正常，因此A选项错。
【解析】程序中定义了一个过程display(x as Control)，它的参数x是一个控件变量。当单击Picture1控件或Label1控件时，都会调用display过程，而传入的参数分别是这两个参数的控件名，在display过程中程序判断参数传入控件的类型，如果是标签控件，就在它的标题上显示"计算机等级考试"，否则就认为是图片控件，就在图片框中加载一个图片显示出来。程序运行正常，因此A选项错。
复制题目向AI提问
现有如下程序：Public Sub display(x As Control) If TypeOf x Is Label Then x Caption＝"计算机等级考试" Else xPicture＝LoadPicture("pic.jpg") End IfEnd SubPrivate Sub Label1_Click() Call display(Label1)End SubPrivate Sub Picture1_Click() Call display(Picture1)End Sub对以上程序，下列叙述中错误的是( )。
A.程序运行时会出错
B.单击图片框，在图片框中显示一幅图片
C.过程中的x是控件变量
D.单击标签，在标签中显示一串文字
答案：A。
解析：【解析】程序中定义了一个过程display(x as Control)，它的参数x是一个控件变量。当单击Picture1控件或Label1控件时，都会调用display过程，而传入的参数分别是这两个参数的控件名，在display过程中程序判断参数传入控件的类型，如果是标签控件，就在它的标题上显示"计算机等级考试"，否则就认为是图片控件，就在图片框中加载一个图片显示出来。程序运行正常，因此A选项错。">
content_copy
