设窗体上有一个文本框Text1和一个命令按钮Commandl，并有以下事件过程： Private Sub Commandl—Click() Dim s As String，eh As String s=“” For k=1 To Lea(Textl) ch=Mid(Text1，k，1) s=ch+s Next k Text1．Text=s End Sub程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是( )。

单项选择题窗体上有两个名称分别为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+2) End Sub当向文本框Text1中输入小写字母a时，文本框Text2中显示的是( )。

单项选择题窗体上有一个名称为Picturel的图片框控件，一个名称为Labell的标签控件，如图所示。现有如下程序：Public Sub display(x As Contr01) If TypeOf x Is Label Then x Caption=“计算机等级考试” Else xPicture=LoadPicture(“pic．jpg”) End IfEnd SubPrivate Sub Labell_Click() Call display(Labell)End SubPrivate Sub Picturel_Click() Call display(Picturel)End Sub对以上程序，下列叙述中错误的是( )。