单项选择题

窗体上有一个名称为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

对以上程序，下列叙述中错误的是( )

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

<上一题目录下一题>

热门试题

单项选择题

现有如下程序： Private Sub Command1_Click() S=0 For i=1 to 5 S=S+f(5+i) Next Print S End Sub Public Function f(x As Integer) If x＞＝10 Then t＝x+1 Else t＝x+2 End If f=t End Function 运行程序，则窗体上显示的是( )

A．38
B．49
C．61
D．70

单项选择题

设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Module1.bas，两个窗体上分别只有一个名称Command1的命令按钮。 Form1的代码如下： Public X As Integer Private Sub Form_load() x=1 y=5 End Sub Private Sub Command1_Click() Form2.Show End Sub Form2的代码如下： Private Sub Command1_Click() Print Form1.x,y End Sub Module1的代码如下： Public y As Integer 运行以上程序，单击Form1的命令按钮Command1，则显示Form2；再单击Form2上的命令按钮Command1，则窗体上显示的是( )

A．1 5
B．0 5
C．0 0
D．程序有错

相关试题