(31)窗体上有一个名称为 Picture1的图片框控件,一个名称为 Labell的标签控件,如图 所示 现有如下程序 Public Sub display(x As Control) If TypeOf x Is Label Then X Caption="计算机等级考试 Pic Private Sub Labell Click Call display (Labell) End Sub rivate Sub Picture Click Call display(Pictured) End Sub 对以上程序,下列叙述中错误的是() A)程序运行时会出错 B)单击图片框,在图片框中显示一幅图片 C)过程中的x是控件变量 D)单击标签,在标签中显示一串文字 (32)窗体上有两个名称分别为 TextI、Text2的文本框。 Text1的 KeyUp事件过程如下 Private Sub Textl KeyUp(Key Code As Integer, Shift As Integer) ) End sub 当向文本框 TextI中输入小写字母a时,文本框Text2中显示的是 A)A B) C)C (33)设窗体上有一个文本框 TextI和一个命令按钮 Command1,并有以下事件过程: Private Sub Commandl Click Dim s As String, ch As String For k= I To Len(Text1) id(Textl, k, 1) 二级Ⅴ isual basic语言程序设计试卷第7页(共10页)二级 Visual Basic 语言程序设计试卷 第 7 页（共 10 页） （31）窗体上有一个名称为 Picture1 的图片框控件，一个名称为 Label1 的标签控件，如图 所示。 现有如下程序： Public Sub display(x As Control) If TypeOf x Is Label Then x.Caption = "计算机等级考试" Else x.Picture = 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）单击标签，在标签中显示一串文字 （32）窗体上有两个名称分别为 Text1、Text2 的文本框。Text1 的 KeyUp 事件过程如下： Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) Dim c As String c = UCase(Chr(KeyCode)) Text2.Text = Chr(Asc(c) + 2) End Sub 当向文本框 Text1 中输入小写字母 a 时，文本框 Text2 中显示的是（ ）。 A）A B）a C）C D）c （33）设窗体上有一个文本框 Text1 和一个命令按钮 Command1，并有以下事件过程： Private Sub Command1_Click() Dim s As String, ch As String s = "" For k = 1 To Len(Text1) ch = Mid(Text1, k, 1)