（1） 以下关于Visual Basic特点的叙述中，错误的是 A） Visual Basic是采用事件驱动编程机制的语言
B） Visual Basic程序既可以编译运行，也可以解释运行 C） 构成Visual Basic的多个过程没有固定的执行顺序
D） Visual Basic程序不是结构化程序，不具备结构化的三种基本结构
（2） 以下叙述中，错误的是
A） 在Visual Basic中，对象所能响应的事件是由系统定义的
B） 对象的任何属性既可以通过属性窗口设定，也可以通过程序语句设定 C） Visual Basic中允许不同对象使用相同名称和方法 D） Visual Basic中的对象具有自己的属性和方法
（3） 设有如下语句： Dim a, b As Integer
c = \"VisualBasic\" d = #7/20/2005#
以下关于这段代码的叙述中，错误的是 a被定义为Integer类型变量
A） b被定义为Integer类型变量 B） c中的数据是字符串 C） d中的数据是日期类型 D） a中的数据是Integer类型
4) 在窗体上画一个命令按钮，名称为Command1。然后编写如下程序： Private Sub Command1_Click() For I=1 To 4 For J=0 To I
Print Chr$(65+I); Next J Print Next I End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是 A) BB B) A C) B D) AA CCC BB CC BBB DDDD CCC DDD CCCC EEEEE DDDD EEEE DDDDD
(5) 以下关于过程的叙述中，错误的是
A） 事件过程是由某个事件触发而执行的过程 B） 函数过程的返回值可以有多个 C） 可以在事件过程中调用通用过程 D） 不能在事件过程中定义函数过程
（6）下面能够正确打开文件的一组语句是 A） Open \"data1\" For Output As #5
Open \"data1\" For Input As #5
B） Open \"data1\" For Output As #5
Open \"data1\" For Input As #6
C) Open \"data1\" For Input As #5
Open \"data1\" For Input As #6
D) Open \"data1\" For Input As #5
Open \"data1\" For Random As #6
(7) 单选按钮用于一组互斥的选项中。若一个应用程序包含多组互斥条件，可在不同的
中安排适当的单选按钮，即可实现。 A） 框架控件或图像控件 B） 组合框或图像控件 C） 组合框或图片框 D） 框架控件或图片框
（8）若在一个应用程序窗体上，依次创建了CommandButton、TextBox、 Label
等控件，则运行该程序显示窗体时， 会首先获得焦点。
A）窗体 B） CommandButton C) Label D ) TextBox
(9) 使用 方法可以将新的列表项添加到一个列表框中。
A） Pint B) AddItem C) Clear D) RemobeItem
(10) 有程序代码 “Text1.Text = \"Visual Basic\"”，其中的Text1、Text和\"Visual
Basic\" 分别代表
A）对象、值、属性 B）对象、方法、属性 C）对象、属性、值 D）属性、对象、值
（11）以下有关数组的说明中，错误的是
A）根据数组说明的方式，可将数组分为动态数组和静态数组 B) 在过程中，不能用Private 语句定义数组
C）利用ReDim语句重新定维时，不得改变已经说明过的数组的数据类型 D）数组重新定维后，原有的数组元素内容将不予保留 （12）名为sort的Sub子过程的形式参数为一数组，以下的定义语句中正确的是 A) Private Sub sort ( a() As Integer ) B) Private Sub sort ( a(10) As Integer ) C) Private Sub sort ( ByVal a() As Integer ) D) Private Sub sort ( a( , ) As Integer )
(13) 设有命令按钮Command1的单击事件过程，代码如下 Private Sub Command1_Click()
Dim a(3, 3) As Integer For i = 1 To 3
For j = 1 To 3
a(i, j) = i * j + i Next j Next i Sum = 0
For i = 1 To 3
Sum = Sum + a(i, 4 - i) Next i Print Sum End Sub
运行程序，单击命令按钮，输出的结果是 A） 20 B）7 C） 16 D） 17
（14）针对语句 If I=1 Then J=1 ,下列说法正确的是 A）I=1 和J=1均为赋值语句 B） I=1 和J=1均为关系表达式
C）I=1为关系表达式，J=1为赋值语句 D）I=1为赋值语句，J=1为关系表达式
（15）以下控件中，不能作为数据绑定控件的是
A ) Label B) TextBox C) OptionButton D) ListBox
16、语句Print 5/4*6\\5 Mod 2的输出结果是 A)0 B)1 C)2 D)3
（17）以下叙述中错误的是
A）用Shell函数可以调用能够在Windows下运行的应用程序
B）用Shell函数可以调用可执行文件，也可以调用Visual Basic的内部函数 C）调用Shell函数的格式应为：<变量名>=Shell (……) D）用Shell函数不能执行DOS命令
（18）以下关于过程及过程参数的描述中，错误的是 A）过程的参数可以是控件名称
B）用数组作为过程的参数时，使用的是\"传地址\"方式
C）只有函数过程能够将过程中处理的信息传回到调用的程序中 D）窗体可以作为过程的参数
（19）在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程： Private Sub TxtA_KeyPress(keyascii as integer) …… End Sub
若焦点位于文本框中，则能够触发KeyPress事件的操作是 A）单击鼠标 B）双击文本框
C）鼠标滑过文本框 D）按下键盘上的某个键
（20）目录列表框的Path属性的作用是 A）显示当前驱动器或指定驱动器上的路径
B）显示当前驱动器或指定驱动器上的某目录下的文件名 C）显示根目录下的文件名 D）只显示当前路径下的文件
（21）假定有如下事件过程：
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu popForm End If End Sub
则以下描述中错误的是
A）该过程的功能是弹出一个菜单
B）popForm是在菜单编辑器中定义的弹出式菜单的名称 C）参数X、Y指明鼠标的当前位置 D）Button = 2表示按下的是鼠标左键 （22）以下能够正确计算n!的程序是 A）Private Sub Command1_Click() n = 5: x = 1 Do
x = x * i i = i + 1
Loop While i < n Print x End Sub
B）Private Sub Command1_Click() n = 5: x = 1: i = 1 Do
x = x * i i = i + 1
Loop While i < n Print x End Sub
C）Private Sub Command1_Click() n = 5: x = 1: i = 1 Do
x = x * i i = i + 1
Loop While i <= n Print x End Sub
D）Private Sub Command1_Click() n = 5: x = 1: i = 1 Do
x = x * i i = i + 1
Loop While i > n Print x End Sub
（23）在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码： Private X As Integer
Private Sub Command1_Click() X = 5: Y = 3 Call proc(X, Y) Label1.Caption = X Label2.Caption = Y End Sub
Private Sub proc(ByVal a As Integer, ByVal b As Integer) X = a * a Y = b + b End Sub
程序运行后，单击命令按钮，则两个标签中显示的内容分别是 A）5和3 B）25和3 C）25和6 D）5和6
（24）在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程： Private Sub Command1_Click() s = 0
For i = 1 To 15 x = 2 * i - 1
If x Mod 3 = 0 Then s = s + 1 Next i
Label1.Caption = s End Sub
程序运行后，单击命令按钮，则标签中显示的内容是 A）1 B）5 C）27 D）45
（25）在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Label3的标签，然后编写如下代码： Private x As Integer
Private Sub Command1_Click() Static y As Integer Dim z As Integer n = 10 z = n + z y = y + z x = x + z
Label1.Caption = x Label2.Caption = y Label3.Caption = z End Sub
运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是 A）10 10 10 B）30 30 30 C）30 30 10 D）10 30 30
（26）设在窗体上有一个名称为Command1的命令按钮，并有以下事件过程： Private Sub Command1_Click() Static b As Variant b= Array(1,3,5,7,9) …… End Sub
此过程的功能是把数组b中的5个数逆序存放（即排列为9,7,5,3,1）。为实现此功能，省略号处的程序段应该是 A）For i = 0 To 5-1 \\ 2 tmp = b(i)
b(i) = b(5 - i - 1) b(5 - i - 1) = tmp Next
B）For i = 0 To 5 tmp = b(i)
b(i) = b(5 - i - 1) b(5 - i - 1) = tmp Next
C）For i = 0 To 5 \\ 2 tmp = b(i)
b(i) = b(5 - i - 1) b(5 - i - 1) = tmp Next
D）For i = 1 To 5 \\ 2 tmp = b(i)
b(i) = b(5 - i - 1) b(5 - i - 1) = tmp Next
27.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:
Private Sub Command1_Click（） For n=1To20
If n Mod3<>0 Then m=m+n\\3 Next n Print n End Sub
程序运行后，如果单击命令按钮，则窗体上显示的内容是（ ） A.15 B.18 C.21 D.24
28.在窗体上画一个名称为Text1的文本框，并编写如下程序:Private Sub Form_Load（） Show
Text1.Text=″″ Text1.SetFocus End Sub
Private Sub Form_MouseUp（Button As Integer，Shift As Integer，X As Single，Y As Single）
Print″程序设计″ End Sub
Private Sub Text1_KeyDown（KeyCode As Integer，Shift As Integer） Print″Visual Basic″; End Sub
程序运行后，如果按“A”键，然后单击窗体，则在窗体上显示的内容是 （ ） A.Visual Basic B.程序设计
C.A程序设计 D.Visual Basic程序设计
29.设有如下程序:
Private Sub Command1 - Click（）
Dim sum As Double，x As Double sum=0n=0 For i=1 To 5 x=n/I: n=n+1 sum=sum+x Next End Sub
该程序通过For循环计算一个表达式的值，这个表达式是 （ ） A.1+1/2+2/3+3/4+4/5 B.1+1/2+2/3+3/4 C.1/2+2/3+3/4+4/5 D.1+1/2+1/3+1/4+1/5
30.假定在窗体上建立一个通用对话框，其名称为CommonDialog1,用下面的语句可以建立一个对话框： CommonDialong1.Action = 4 与该语句等价的语句是（ ）
A)CommonDialong1.ShowOpen B)CommonDialong1.ShowFont
C)CommonDialong1.ShowColor D)CommonDialong1.ShowSave
二、 填空题
1．读完下面的程序，写出结果。 Private Sub Form_Click()
Dim str1 As String, str2 As String Dim str3 As String, i As Integer str1 = \"e\"
For i = 1 To 2
str2 = UCase(str1) str1 = str2 & str1 str3 = str3 & str1
str1 = Chr(Asc(str1) + i) Next i Print str3 End Sub
执行上面的程序代码，单击窗体后在窗体上显示的结果是 [1] 。 2．在某个过程中有语句 For I = N1 to N2 step N3 ,在该循环体内有下列四条语句，其中会影响循环执行次数的是： [2] 。 ① N1=N1 +1 ② N2=N2 +N3 ③ I=I+N3 ④ N3=2*N3
(6) 在窗体上画一个名称为“Command1”，标题为“计算”的命令按钮，再画7个标签，其中5个标签组成名称为Label1的控件数组;名称为Label2的标签用于显示计算结果，其Caption属性的初始值为空;标签Label3的标题为“计算结果”。运行程序时会自动生成5个随机数，分别显示在标签控件数组的各个标签中，如图所示。单击“计算”按钮，则将标签数组各元素的值累加，然后计算结果显示在
Label2。请填空。
Private Sub Command1_Click()
Sum = 0 For i=0 To 4 Sum=Sum+[3]
Next ___[4]_=Sum End Sub
4、在窗体上画1个命令按钮和1个通用对话框起名称分别为Command1和 CommonDialog1，然后编写如下事件过程： Private Sub Command1_Click()
CommonDialog1.DialogTitle = \"打开文件\" CommonDialog1.Filter = \" [5] \"
CommonDialog1.InitDir = \" [6] \" CommonDialog1. [7] End Sub
该程序的功能是，程序运行后，单击命令按钮，将显示“打开”文件对话框，其标题是“打开文件”，在“文件类型”栏内显示“text(*.txt)”，并显示C盘根目录下的所有文件，请填空
(7) 在窗体上画两个名称分别为Command1和Command2、标题分别为“初始化”和“求和”的命令按钮。程序运行后，如果单击“初始化”命令按钮，则对数组a的各元素赋值;如果单击“求和”命令按钮，则求出数组a的各元素之和，并在文本
框中显示出来。请填空。
Option Base 1
Dim a(3,2) As Integer
Private Sub Command1_Click() For i=1 To 3 For j=1 To 2 __[8]__=i+j Next j End Sub
Private Sub Command2_Click() For j=1 To 3 For i=1 To 2 s=s+__[9]__ Next i Next j
Text1.Text= __[10]__ End Sub
一、(1)D (2)B (3)A (4)A(5)B(6)C(7)D (8)B (9)B(10)C (11)D(12)A (13)C (14)C (15)C(16)B
17）B （18）C （19）D （20）A（21）D （22）C （23）B （24）B （25）C （26）C (27)C (28)D (29)C (30)B
二、[1]、 EeFF [2]、③
[3] label1(i).caption [4] label2.caption [5] Text(*.txt)|*.txt [6] C:\\
[7] ShowOpen [8] a(i,j) [9] a(j,i) [10] s
因篇幅问题不能全部显示，请点此查看更多更全内容