单选题窗体上有一个名称为Picture1的图片框控件，一个名称为Label1的标签控件，如图所示。现有如下程序：PublicSubdisplay(xAsControl)IfTypeOfxIsLabelThenxCaption="计算机等级考试"ElsexPicture=LoadPicture("pic.jpg")EndIfEndSubPrivateSubLabel1_Click()Calldisplay(Label1)EndSubPrivateSubPicture1_Click()Calldisplay(Picture1)EndSub对以上程序，下列叙述中错误的是______。
单选题设有如图所示窗体和以下程序：PrivateSubCommand1_Click()Text1.Text="VisualBasic"EndSubPrivateSubText1_LostFocus()IfText1.Text＜＞"BASIC"ThenText1.Text=""Text1.SetFocusEndIfEndSub程序运行时，在Text1文件框中输入“Basic”(如图所示)，然后单击Command1按钮，则产生的结果是{{U}}{{/U}}A.文本框中无内容，焦点在文本框中B.文本框中为“Basic”，焦点在文本框中C.文本框中为“Basic”，焦点的按钮上D.文本框中为“VisualBasic”，焦点的按钮上
单选题设a=6，则执行 x=IIF(a＞5，-1,0) 后，x的值为 ______。
单选题有下列语句序列：
Y=″99.88″
X=VAL(Y)
?&Y=X
执行以上语句序列之后，最后一条命令的显示结果是( )
单选题如果要在窗体上画一个标签，应在工具箱窗口中选择的图标是
单选题下列程序的执行结果为______。
单选题设有如下通用过程： Public Function f(x As Integer) Dim y As Integer x=20：y=2：f=x*y End Function 在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() Static x As Integer x=10：y=5：y=f(x)Print x；y End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是
单选题VB中有3个键盘事件：KeyPress、KeyDown、KeyUp，若光标在Text1文本框中，则每输入一个字母{{U}}
{{/U}}
A.这3个事件都会触发
B.只触发KeyPress事件
C.只触发KeyDown、KeyUp事件
D.不触发其中任何一个事件
单选题在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，再编写如下程序： Dim ss As String Private Sub Text1_KeyPress(KeyAscii As Integer) If Chr(KeyAseii) ＜ ＞ Then ss = ss + Chr(KeyAseii) End Sub Private Sub Command1_Click() Dim m As String, i As Integer For i = Len(ss) To 1 Step - 1 m =m +Mid(ss, i, 1) Next Text1. Text = UCase(m) End Sub 程序运行后，在文本框中输入“Number 100”，并单击命令按钮，则文本框中显示的是( )。 A) NUMBER 100 B) REBMUN C) REBMUN 100 D) 001 REBMUN
单选题设工程中有两个窗体：Form1、Form2，Form1为启动窗体。Form2中有菜单，其结构如表所示。要求在程序运行时，在Form1的文本框Text1中输入口令并按回车键(回车键的ASCII码为13)后，隐藏Form1，显示Form2。若口令为“Teacher”，所有菜单都可见；否则看不到“成绩录入”菜单项。为此，某人在Form1窗体文件中编写如下程序：
菜单结构
标题
名称
级别
成绩管理
mark
1
成绩查询
query
2
成绩录入
input
2
Private Sub Text11_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then
If Text1.Text="Teacher"Then
Form2.input.Visible=True
Else
Form2.input.Visible=FaIse
End If
End If
Form1.Hide
Form2.Show
End Sub
序运行时发现刚输入口令时就隐藏了Form1显示了Form2，程序需要修改。下面修改方案中正确的是______。
单选题编写如下事件过程：
Private Sub Form_MouseDown(Button AS Integer，Shift AS Integer，_
X As Single，Y As Single)
If Shift=6 And Button=2 Then
Print，"PC"
End If
End Sub
程序运行后，为了在窗体上输出“PC”，应执行的操作为( )。
单选题下列程序运行后，单击窗体，在窗体上显示：1，1+2，1+2+3，1+2+3+4，1+2+3+4+5的和。在横线处应填写( )。Private Sub Form_Click()Dim i As Integer，tt As IntegerFor i=1To5tt=Sum(i)：Print"tt="；tt，Next iEnd SubPrivate Function Sum(_______)_______J=j+n：Sum=jEnd Function
单选题设有如下事件过程：
Private Sub Command1_Click()
For i=1 To 5
j=i
Do
Print"*"
j=j-1
Loop Until j=0
Next i
End Sub
运行程序，输出"*"的个数是______。
单选题下列有关文件的叙述中，正确的是
单选题双击窗体中的对象后，VB将显示的窗口是________。
单选题在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写如下程序： Private Sub func(L As Label) L. Caption = "1234" End Sub Private Sub Form_Load() Label1. Caption = "ABCDE" Label2. Caption = 10 End Sub Private Sub Command1_Click() a = Val(Label2. Caption) Call fune(Label1) Label2. Caption = a End Sub 程序运行后，单击命令按钮，则在两个标签中显示的内容分别为( )。 A) ABCD和10 B) 1234和100 C) ABCD和100 D) 1234和10
单选题下面关于命令按钮的叙述中错误的是
单选题在窗体上有一个文本框控件，名称为TextTime，一个计时器控件，名称为Timer1。要求每一秒在文本框中显示一次当前的时间。 Private Sub Timer1______ TextTime.Text=Time End Sub 在横线上应填入的内容是( )。
单选题设窗体的名称为Form1，标题为Win，则窗体的MouseDown事件过程的过程名是( )。
单选题在窗体中添加两个文本框，其名称分别为Text1和Text2;两个标签，其名称分别为Label1和Label2。编写程序，使得程序运行后，在文本框Text2中输入小写字母，能转换为比此字母的ASCII码小4的大写字母，结果显示在文本框Text1中。如输入“efg”，则输出的结果为“ABC”，能够实现上述功能的程序是