【正确答案】【操作步骤】
   步骤1：打开本题工程文件。
   步骤2：打开代码编辑窗口，去掉程序中的注释符“'”，将问号改为正确的内容。
   参考答案(字体加粗部分是需考生填入的内容)
   Private Sub Command1_Click()
   Call ShowName(Command1) '将Command1控件传入ShowName
   End Sub
   Private Sub Label1_Click()
   Call ShowName(Label1) '将Label控件传入ShowName
   End Sub
   Private Sub ShowName(C As Control) '两者类型都为控件
   If TypeOf c Is CommandButton Then
   Label2.Caption="单击"&Command1.Caption
   End If
   If TypeOf c Is Label Then
   Label2.Caption="单击”&Label1.Caption
   End If
   End Sub
   步骤3：调试并运行程序，关闭程序后按题目要求存盘。
   【易错提示】在自定义函数时，参数c定义的类型为Control，表示定义的是控件的名称，同时在调用函数时要注意，函数的参数是控件的名称。
   

【答案解析】[考点] 本题考点有：Call语句、TypeOf运算符、标签的Caption属性、命令按钮的Caption属性以及If判断语句。
单击两个控件中的任一个，通过Call语句调用函数ShowName()实现在标签Label2中显示所单击控件的标题内容，自定义函数ShowName()用于判断控件的类型，CommandButton表示命令按钮，Label表示标签，如果变量c的控件类型是CommandButton，那么Label2的Caption属性设置为”单击”&Command1.Caption，显示控件的标题内容。