选择题填空题练习集(附答案)

第二部分（0504）

一、选择题

下列各题（A）、（B）、（C）、（D）四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。

11．在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行以后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是：

（A）

Private Sub Text1_Change()

Command1.Caption = \计算机等级考试\ End Sub

（B）

Private Sub Command1_Click() Caption = \计算机等级考试\ End Sub

（C）

Private Sub Form1_Click()

Text1.Caption = \计算机等级考试\ End Sub

（D）

Private Sub Command1_Click()

Text1.Text=\计算机等级考试\ End Sub

12．设a = 5，b = 4，c = 3，d = 2，表达式3 > 2 * b Or a = c And b<>c Or c>d的值是 （A） 1 （B） True （C） False （D） 2

13．设a = \，则以下使变量b的值为 VisualBasic的语句是 （A）b=Left(a,10) （B）b=Mid(a,10) （C）b=Right(a,10) （D）b=Mid(a,11,10) 14．假定有如下的窗体事件过程： Private Sub Form_Click()

a$ = \Microsoft Visual Basic\ b$ = Right(a$, 5) c$ = Mid(a$, 1, 9)

MsgBox a$, 34, b$, c$, 5 End Sub

程序运行后单击窗体，则在弹出的信息框中的标题栏中显示的信息是： （A）Microsoft Visual （B）Microsoft （C）Basic （D）5

15．设a = \，b = \，c = \，d = \，执行语句x = IIf ((ad), \后，x的值为：

（A） \ （B） \ （C） \ （D） \

16．为了使命令按钮(名称为Command1)右移200，应使用的语句是

（A）Command1.Move -200 （B） Command1.Move 200

（C）Command1.Left= Command1.Left+200（D）Command1.Left = Command1.Left-200

17．在窗体上画一个文本框，然后编写如下事件过程： Private Sub Form_Click()

x = InputBox(\请输入一个整数\) Print x + Text1.Text End Sub

程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容是：

（A）123 （B）456 （C）579 （D）123456

18．在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1,在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False,程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序： Private Sub Command1_Click() Timer1._________ End Sub

Private Sub Timer1_Timer() Text1.Text = Time End Sub

在______处应填入的内容是

（A）Enabled = True （B）Enabled = False （C）Visible = True （D）Visible = False

19．假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是：

（A）选择图片框，然后按Del键

（B）执行语句Picture1.Picture = LoadPicture (\（C）执行语句Picture1.Picture = \

（D）选择图片框，在属性窗口中选择Picture属性，然后按回车键

21．在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程： Private Sub Command1_Click()

Dim i As Integer, x As Integer For i = 1 To 6

If i = 1 Then x = i If i <= 4 Then x = x + 1 Else x = x + 2 End If Next i Print x End Sub

程序运行后，单击命令按钮，其输出结果为 （A）9 （B）6 （C）12 （D）15

22．在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() c = \ABCD\

For n = 1 To 4

Print _________ Next

End Sub

程序运行后，单击命令按钮，要求在窗体上显示如下内容： D CD BCD ABCD

则在________处应填入的内容为

（A）Left(c, n) （B）Right(c, n) （C）Mid(c, n, 1) （D）Mid(c, n, n) 23．执行以下程序段

Dim x As Integer, i As Integer x=0

For i = 20 To 1 Step -2 x = x + i \\ 5 Next i

后，x的值为

（A）16 （B）17 （C）18 （D）19 24．在Visual Basic工程中，可以作为启动对象的程序是 （A）任何窗体或标准模块 （B）任何窗体或过程

（C）Sub Main过程或其他任何模块 （D）Sub Main过程或任何窗体

25．假定建立了一个名为Command1的命令按钮数组，则以下说法中错误的是 （A）数组中每个命令按钮的名称(名称属性)均为Command1 （B）数组中每个命令按钮的标题(Caption属性)都一样 （C）数组中所有命令按钮可以使用同一个时间过程

（D）用名称Command1(下标)可以访问数组中的每个命令按钮 26．把窗体的KeyPreview属性设置为True，然后编写如下事件过程： Private Sub Form_KeyPress(KeyAscii As Integer) Dim ch As String ch = Chr(KeyAscii)

KeyAscii = Asc(UCase(ch)) Print Chr(KeyAscii + 2) End Sub

程序运行后，按键盘上的A键，则在窗体上显示的内容是 （A）A （B）B （C）C （D）D

27．在窗体上画一个命令按钮和一个文本框,名称分别为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 <= 30, \颐和园\, \) Text1.Text = t End Sub

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

28．在窗体上画一个名称为Label1的标签,然后编写如下事件过程： Private Sub Form_Click()

Dim arr(10, 10) As Integer Dim i As Integer, j As Integer For i = 2 To 4 For j = 2 To 4

arr(i, j) = i * j Next j Next i

Label1.Caption = Str(arr(2, 2) + arr(3, 3)) End Sub

程序运行后，单击窗体，在标签中显示的内容是 （A）12 （B）13 （C）14 （D）15

29．在窗体上画一个名称为Comamnd1的命令按钮,然后编写如下通用过程和命令按钮的事件过程：

Private Function fun(ByVal m As Integer) If m Mod 2 = 0 Then fun = 2 Else

fun = 1 End If End Function

Private Sub Command1_Click()

Dim i As Integer, s As Integer s = 0

For i = 1 To 5 s = s + fun(i) Next Print s End Sub

程序运行后,单击命令按钮,则窗体上显示的是: （A）6