[单项选择]假定Picture1和Text1分别为图片框和文本框的名称，则下列错误的语句是( )。
A. Print 25
B. Picture1. Print 25
C. Text1. Print 25 D) Debug. Print 25

[单项选择]假定Picture1和Text1分别为图片框和文本框的名称，下列不正确的语句是______。
A. Print 25
B. Picture1.Print 25
C. Text1.Print 25
D. Text1.Print 25

[单项选择]在窗体上画一个命令按钮和一个文本框，其名称分别为Commandl和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程： Private Sub Commandl_Ciick（　） a=InputBox("Enter an integer") b=InputBox("Enter an integer") Text1.Text=b+a End Sub 程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是______。
A. 108
B. 18
C. 810
D. 出错

[单项选择]在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：
Private Sub Command1_Click（　）
x=InputBox("Enter an integer")
y=InputBox("Enter an integer")
Text1.Text=y+x
End Sub
程序运行后，单击命令按钮，如果在输入对话框中分别输入7和30，则在文本框中显示的内容是______。
A. 307
B. 37
C. 703
D. 出错

[单项选择]在窗体中添加两个文本框，其名称分别为Text1和Text2;两个标签，其名称分别为Label1和Label2。编写程序，使得程序运行后，在文本框Text2中输入小写字母，能转换为比此字母的ASCII码小4的大写字母，结果显示在文本框Text1中。如输入“efg”，则输出的结果为“ABC”，能够实现上述功能的程序是
A. Private Sub Form Load()
B. Private Sub Form_Load()
C. Private Sub Form_Load()
D. Private Sub Form_Load()

[单项选择]假定有一个文本框，其名称为Text1，为了使该文本框具有焦点，应执行的语句是______。
A. Change
B. OotFocus
C. SetFocus
D. LostFocus

[填空题]有一个VBA计算程序的功能如下，该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为：Text1、Text2、Text3和Text4。3个按钮分别为：清除(名为Command1)、计算(名为Command2)和退出(名为Command3)。窗体打开运行后，单击清除按钮， 则清除所有文本框中显示的内容；单击计算按钮，则计算在Text1、Text2和Text3三个文 本框中输入的3科成绩的平均成绩并将结果存放在Text4文本框中：单击退出按钮则退出。 请将下列程序填空补充完整。Private Sub Command1_Click（　） Me!Text1="" Me!Text2="" Me!Text3="" Me!Text4=""End SubPdvate Sub Command2_Click（　） If Me!Text1="" Or Me!Text2="" Or Me!Text3=""then MsgBox"成绩输入不全" Else Me!Text4=(（）+Val(Me!Text2)+Val(Me!Text3))/3 （）End SubPrivate Sub Command3_Click（　） Docmd.（）End Sub

[单项选择]

窗体上有名称分别为Text1、Text2的文本框，名称为Command1的命令按钮。运行程序，在Text1中输入
“FormList”，然后单击命令按钮，执行如下程序：
Private Sub Command1_Click（　）
Text2.Text=UCase(Mid(Text1.Text，5，4))
End Sub
在Text2中显示的是（）。

A. form
B. list
C. FORM
D. LIST

[单项选择]窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮。设有如下的类型声明：
Type Person
name As String*8
major As String*20
End Type
当单击“Command1”按钮时，能够正确地把数据写入文件的程序段是______。
A. Private Sub Command1_Click()
B. Private Sub Command1_Click()
C. Private Sub Command1_Click()
D. Private Sub Command1_Click()

[单项选择]在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1)，然后编写下列事件过程：
Private Sub Command1_Click（　）
x=0
DO While x＜50
x=(x+2)*(x+3)
n=n+1
Loop
Text1.Text=Str(n)
Text2.Text=Str(x)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为( )
A. 1和0
B. 2和72
C. 3和50
D. 4和168

[单项选择]

窗体上有一个名为List1的列表框，其中已经输入了若干个项目(如图所示)；还有两个文本框，名称分别为Text1、Text2，一个名称为Command1的命令按钮，并有以下程序：
Private Sub Command1_Click（　）
Dim str As String,s As String,k As Integer
s=Text1
str=""
For k=List1.ListCount-1 To 0 Step-1
IfInStr(List1.List(k),s)＞0 Then
str=str&List1.List(k)&" "
End If
Next k
If str="" Then
Text2="没有匹配项目"
Else
Text2=str
End If
End Sub
程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是（）。

A. 京
B. 北京 南京
C. 南京 北京
D. 没有匹配的项目

[单项选择]在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：
Private Sub Command1_Click（　）
n=Text1.Text
Select Case n
Case 1 To 20
x=10
Case 2, 4, 6
x=20
Case Is＜10
x=30
Case 10
x=40
End Select
Text2. Text=x
End Sub
程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是______。
A. 10
B. 20
C. 30
D. 40

[单项选择]在窗体上有两个名称分别为Text1、Text2的文本框，—个名称为Command1的命令按钮。运行后的窗体外观如图所示。 设有如下的类型和变量声明： Private Type Person name As String*8 major As String*20 End Type Dim p As Person 设文本框中的数据已正确地赋值给Person类型的变量p，当单击“保存”按钮时，能够正确地把变量中的数据写入随机文件Test2.dat中的程序段是______。
A. Open "c:/Test2.dat" For Output As #1 Put #1,1,p Close #1
B. Open "c:/Test2.dat" For Random As #1 Get #1, 1, p Close #1
C. Open "c:/Test2.dat" For Random As #1 ten=ten( Put #1,1,p Close #1
D. Open "c:/Test2.dat" For Random As #1 Len=Len( Get #1, 1, p Close #1

[单项选择]

窗体上有名称分别为Text1、Text2的2个文本框，要求文卒框Text1中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以下程序中问号（　）处应填入的内容是（）。
Private Sub Text1 LostFocus（　）
Call CheckInput(Text1,500)
End Sub
Private Sub Text2 LostFocus（　）
Call CheCkInput(Text2,1000)
End Sub
Sub CheckInput(t AS ,x As Integer)
If Val(t.Text)＞X Then
MsgBox "请重新输入!"
End If
End Sub

A. Text
B. SelText
C. Control
D. Form

[单项选择]

在窗体上画一个命令按钮和一个文本框，名称分别为Commandl和Text1，然后编写如下程序：
Private Sub Commandl_click（　）
a=InputBox(“请输入日期(1～31)”)
t="旅游景点:"
& IIf(a＞0 And a＜=10,"长城","")_
& IIf(a＞10 And a＜=20,"故宫","")_
& IIf(a＞20 And a＜=31,"颐和园","")
Text1.Text=t
End Sub
程序运行后，如果从键盘上输入16，则在文本框显示的内容是（）。

A. 旅游景点：长城故宫
B. 旅游景点：长城颐和园
C. 旅游景点：颐和园
D. 旅游景点：故宫

[单项选择]在窗体上画一个命令按钮和一个文本框，名称分别为Command1和Text1，然后编写如下程序：

Private Sub Command1_Click（　）

a=InputBox("请输入日期(1～31)")

t="旅游景点：" &IIf(a＞0 And a＜=10，"长城"，"") & _

IIf(a＞10 And a＜=20，"故宫"，"") & IIf(a＞20 And a＜=31，"颐和园"，"")

Text1.Text=t

End Sub

程序运行后，如果从键盘上输入16，则在文本框中显示的内容是
A. 旅游景点：长城故宫
B. 旅游景点：长城颐和园
C. 旅游景点：颐和园
D. 旅游景点：故宫

[单项选择]在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序： Private Sub Form Load（　） Show Text1.Text="" Text2.Text="" Text1.SetFocus End Sub Private Sub Text1_Change（　） Text2.Text=Mid(Text1.Text,8) End Sub 程序运行后，如果在文本框Text1中输入BeijingChina，则在文本框Text2显示的内容是______。
A. BeijingChina
B. China
C. Beijing
D. BeijingC