单项选择题

设有如图2所示的窗体和以下程序：

Private Sub Command1_Click()
Text1.Text="Visual Basic"
End Sub
Private Sub Text1_LostFocus()
If Text1.Text＜＞"BASIC" Then
Text1.Text=""
Text1.SetFocus
End If
End Sub
程序运行时，在Text1文本框中输入Basic(如图2所示)，然后单击Command1按钮，则产生的结果是

<上一题目录下一题>

热门试题

单项选择题

窗体上有一个名称为Picture1的图片框控件和一个名称为Label1的标签控件，如图5所示。现有如下程序： 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(Picture 1) End Sub 对以上程序，下列叙述中错误的是

单项选择题

在窗体上画一个名称为Command1的命令按钮，并编写以下程序： Private Sub Command1_Click() Print fun( ABCDEFG ) End Sub Function fun(st As String) As String stlen=Len(st) temp= Fox k=1 to stlen 2 temp=temp+Mid(st,k,1)+Mid(st,stlen-k+1,1) Next k fun=temp End Function 程序运行时，单击命令按钮，则窗体上显示的是

A．ABCDEFG
B．AGBFCE
C．GFEDCBA
D．AGBFCED

相关试题