智慧树知到答案VB面向对象程序设计（山东联盟）最新答案

第三章 单元测试

1、单选题：
如果要在任何新建的模块中自动插入Option Explicit语句，则应采用下列__________  操作步骤。

选项：
A:在“工具”菜单中选取“选项”命令，打开选项对话框，单击“编辑器选项卡”选中“要求变量声明”选项
B:在“编辑”菜单中执行“插入文件”命令
C:在“工具”菜单中执行“插入文件”命令
D:在“工程”菜单中执行“添加文件”命令
答案:

2、单选题：
声明一个变量为局部变量应该用 __________。

选项：
A:Static
B:Private
C:Global
D:Public
答案:

3、单选题：
以下能作为Visual Basic变量名的是__________。

选项：
A:12-E
B:E1
C:E-12
D:12.5
答案:

4、单选题：
数学表达式3≤x<10在VB中的逻辑表达式为__________。

选项：
A:x>=3 OR x<10
B:3< =x AND < 10
C:3< =x AND x< 10
D:3< =x< 10
答案:

5、单选题：
下列选项中，为字符串常量的是__________。

选项：
A:6／12／2001
B:#6，12，2001#
C:6，12，2001#
D:＂6／12／2001＂
答案:

6、单选题：
用户自定义数据类型时，其成员不能是__________。

选项：
A:变长字符串
B:货币型和日期型
C:定长字符串和数组
D:变长字符串和货币型
答案:

7、单选题：
若要处理一个值为50000的整数，应采用哪种VB基本数据类型描述更合法？__________

选项：
A:Integer
B:String
C:Single
D:Long
答案:

8、单选题：
下面__________是合法单精度型变量。

选项：
A:num!
B:sum%
C:xinte$
D:mm#
答案:

9、单选题：
下面__________是不合法的整常数
选项：
A:&O100
B:&H100
C:100
D:%100
答案:

10、单选题：
假设变量intVar是一个整型变量，则执行赋值语句intVar=”2″+3之后，变量intVar的值是 __________。
选项：
A:5
B:2
C:3
D:23
答案:

11、单选题：
下列各声明语句中错误的是________。
选项：
A:Public Sum As Integer
B:Const Country = ‘English’
C:Dim Test As String=’计算机等级考试’
D:Static v1
答案:

12、单选题：
设a=4，b=5，c=6，执行语句：Print a < b And b < c ，窗体上显示的是________。

选项：
A:True

B:0
C:出错信息
D:False
答案:

13、单选题：
以下说法中，正确的是________。

选项：
A:表达式Chr(Asc(‘A’))=UCase(‘a’)的值为False
B:表达式Int(Rnd())的值是0
C:利用关系表达式x/2=Int(x/2)不能判断变量x的值为偶数
D:表达式-10 Mod 3的值为1
答案:

14、单选题：
设有如下的记录类型：

Private Type Employee

num As String

name As String

End Type则下列语句中正确的是________。

选项：
A:Dim e As Employee=’1001′ & ‘John’
B:Dim e As Employee
C:Employee.name = ‘Tom’
D:Dim e As Type Employee
答案:

15、单选题：
Visual Basic中，日期”1999年6月18日”的表达形式为________。

选项：
A:{1999/6/18}
B:{6/18/1999}
C:#6/18/1999#
D:1999/6/18
答案:

16、单选题：
执行语句Print Sgn(-2^3)+Abs(Int(-12.2) Mod 100Sqr(100))的输出结果为________。

选项：
A:1

B:3

C:4

D:2
答案:

17、单选题：
表达式 (-1) * Sgn(-100 + Int(Rnd * 100)) 的值是________。

选项：
A:0
B:-1
C:1
D:随机数
答案:

18、单选题：
下列逻辑表达式中，能正确表示条件”x和y都是奇数”的是________。

选项：
A:x Mod 2 = 1 And y Mod 2 = 1
B:x Mod 2 = 0 Or y Mod 2 = 0
C:x Mod 2 =0 And y Mod 2 = 0
D:x Mod 2 = 1 Or y Mod 2 = 0
答案:

19、单选题：
表达式Int(Rnd()*11)+10的值的范围是________。

选项：
A:整数10~20（不含10和20）
B:整数10~20（含10和20）
C:整数0~20（含0和20）
D:整数0~11（含0和11）
答案:

20、单选题：
若变量P的值为 -3，则 -P^2的值是________。

选项：
A:9
B:-9
C:-6
D:6
答案:

21、单选题：
Visual Basic数据类型中，占用内存最小的是________。

选项：
A:Single
B:Integer
C:Byte
D:Boolean
答案:

22、单选题：
下面是Visual Basic合法变量名的是________。
选项：
A:B#C
B:PrintA
C:10B
D:Debug
答案:

23、单选题：
以下不是Visual Basic合法常量的是________。
选项：
A:&O12
B:&H12&
C:#1/20/2014#
D:’a’
答案:

第四章 单元测试

1、单选题：

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

Dim i As Integer

Dim num As Integer

Dim n As Integer

n = 0

Randomize

For i = 1 To 10

num = Int(Rnd * 10) + 1

Select Case num Mod 2

Case 1

Exit For

Case 0

Print num

n = n + 1

End Select

Next i

Print “n=”; n

End Sub

下面有关描述中正确的是________。

选项：
A:程序运行过程中，变量num共被赋值10次
B:当num的值为偶数时，则For循环将被终止
C:变量n的作用是累计自过程运行开始到结束所产生的偶数个数
D:num的值是1~11之间的整数
答案:

2、单选题：

在窗体上画一个名称为Command1的命令按钮，并编写如下程序代码：

Private Const NUM As Integer = 10

Private Sub Command1_Click()

Dim a As Integer, b As Integer

a = 1

b = NUM

Do Until b > NUM

a = a * NUM

b = b + 1

Loop

Print a

End Sub

则当程序运行时，单击Command1后，在窗体上的输出结果是________。

选项：
A:100
B:1

C:10
D:21
答案:

3、单选题：

已知文本框Text1中输入了一篇英文短文，并编写了如下程序段：

Str_x = Text1.Text

n = Len(Str_x)

m = 0

t = 0

For i = 1 To n

w = UCase(Mid(Str_x, i, 1))

If w >= “A” And w <= “Z” Then

If t = 0 Then m = m + 1

t = t + 1

Else

t = 0

End If

Next

Print m

该程序段的功能为统计并输出英文短文中________。

选项：
A:字母的个数
B:大写字母的个数
C:首字母大写的单词的个数
D:单词的个数
答案:

4、单选题：

设窗体上有文本框Text1和命令按钮Command1，并编写了下面的过程：

Private Sub Command1_Click()

ch$ = “”

x% = Val(Text1.Text)

k = 2

For k = 2 To x / 2

If x Mod k = 0 Then

ch = ch & ” ” & k

End If

Next k

Print ch

End Sub

程序运行后，在文本框中输入28，单击命令按钮，则输出是________。

选项：
A:14  7  4  2
B:2  4  6  8  10  12  14
C:2  4  7  14
D:1  3  5  7  9  11  13
答案:

5、单选题：

设有如下程序段：

Dim x As Integer

x = Val(InputBox(“输入变量x的值”))

Select Case x

Case ________________

Print “*”

Case Else

Print “#”

End Select

以上程序段的功能是，当变量x的值在5到10之间，或者大于20时，输出”*”，其它情况输出”#”，则程序中横线处应填入的内容是________。

选项：
A:5-10 Or x>20
B:5 To 10, Is>20
C:x>= 5 And x <= 10=”” or=”” x=””> 20
D:5 To 10: x>20
答案:

6、单选题：

设a、b、c为整型变量，其值分别为4、5、6。以下程序段的输出结果是________。

a = b: b = c: c = a

Print a; b; c

选项：
A:4  5  6
B:5  6  4
C:6  5  4
D:5  6  5
答案:

7、单选题：
以下Case子句中错误的是________。
选项：
A:Case 3, 5, Is > 10
B:Case Is > 10
C:Case Is > 10 And Is < 50
D:Case 0 To 10
答案:

8、单选题：

有如下程序代码：

Private Sub Form_Click()

X = 8

If X > 8 Then

Print “X > 8”

ElseIf X < 10 Then

Print “X < 10”

ElseIf X = 8 Then

Print “X = 8”

End If

End Sub

运行程序，单击窗体，输出结果是________。

 

选项：
A:X < 10  X = 8
B:X = 8
C:不确定
D:X <  10
答案:

9、单选题：

在窗体上画一个名称为Label1的标签，然后编写如下事件过程：

Private Sub Form_Click()

Dim S As Integer

S = 0

For i = 1 To 15

x = 2 * i – 1

If x Mod 3 = 0 Then

S = S + 1

End If

Next i

Label1.Caption = S

End Sub

运行程序，单击窗体，标签中显示的是________。

选项：
A:1

B:45
C:5
D:27
答案:

10、单选题：

执行下面的程序段后，x的值为________。

x=5

For i=1 to 20 Step 2

x=x+i5

Next i

 

选项：
A:24
B:21

C:23
D:22
答案:

11、单选题：

在窗体中画一个命令按扭，然后编写以下事件过程：

Private Sub Command1_Click( )

For i=1 to 4

x=4

For j=1 to 3

x=3

For k=1 to 2

k=k+6

Next k

Next j

Next i

Print x

End Sub

程序执行结果为________。

选项：
A:3
B:158
C:157

D:15
答案:

12、单选题：
对语句 If x=1 Then y=1 ,下列说法正确________。
选项：
A:x=1 和 y=1 均为赋值语句
B:x=1 是关系表达式， y=1 是赋值语句
C:x=1 和 y=1 均为关系表达式
D:x=1 是赋值语句， y=1 是关系表达式
答案:

13、单选题：

设有如下程序：

Private Sub Command1_Click ( )

Dim sum As Double ,x As Double

sum=0

For i=1 To 5

x=n/i

n=n+1

sum =sum +x

Next

End Sub

该程序通过For 循环计算一个表达式的值，这个表达式是________。

 

选项：
A:1+1/2 +1/3+1/4+1/5
B:1/2 +2/3+3/4+4/5
C:1+1/2 +2/3+3/4+4/5
D:1+1/2 +2/3+3/4
答案:

14、单选题：

在窗体上画一个名称为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:20
B:40
C:30
D:10
答案:

15、单选题：
以下叙述中，错误的是________。

选项：
A:InputBox函数的返回值类型由用户在输入对话框中输入数据的类型决定
B:有语句：x = InputBox(“输入：”, “输入整数”)，则该语句打开的对话框的标题是”输入整数”
C:MsgBox函数的返回值为一整数
D:可以用MsgBox函数输出一条信息

答案:

16、单选题：
在Do While…Loop循环结构中Loop语句的作用是________。

选项：
A:转移到Do While语句行，开始下一次判断和循环
B:退出循环，返回到程序开始处
C:该语句在Do While…Loop循环结构中不起任何作用
D:终止循环，将控制转移到本循环结构Loop后面的第一条语句继续执行

答案:

17、单选题：
设 a=6，则执行x= IIf ( a<6 ,-1 ,0 ) 后，x的值是________。

选项：
A:0

B:-1

C:6

D:5

答案:

第五章 单元测试

1、单选题：
在窗体模块的通用声明段中声明变量时，不能使用__________关键字。

选项：
A:Private
B:Static
C:Public
D:Dim
答案:

2、单选题：
使用ReDim Preserve可以改变数组__________。

选项：
A:所有维的大小
B:第一维的大小
C:改变维数和所有维的大小
D:最后一维的大小
答案:

3、单选题：
下列关于ReDim的说法中错误的是__________。

选项：
A:可以用ReDim语句直接定义数组。
B:ReDim语句只能改变元素的个数，但不能改变数组的维数。
C:在一个程序中，可以多次用Redim 语句定义同一个数组。
D:ReDim语句可以改变数组类型。
答案:

4、单选题：
以Dim x(6，2 To 5)来声明一个二维数组，错误的选项是__________。

选项：
A:UBound(x,2)的返回值是5
B:LBound(x,2)的返回值是1
C:LBound(x,1)的返回值是0
D:UBound(x,1)的返回值是6
答案:

5、单选题：
下面的数组声明语句中正确的是__________。

选项：
A:Dim gg[1:5,1:5] As String
B:Dim gg[1,5] As String
C:Dim gg(1 To 5) As String
D:Dim gg[1 To 5,1 To 5] As String
答案:

6、单选题：
语句Dim abc(-2 To 4,0 To 4,5)As Long定义的三维数组，其数组元素有__________ 。

选项：
A:112个
B:96个
C:210个
D:140个
答案:

7、单选题：
用Dim b(-2 To 4) As String  语句所定义的数组元素个数是__________个。

选项：
A:4
B:2
C:7
D:6
答案:

8、单选题：
定义10个单精度实型一维数组正确的语句是__________。

选项：
A:Dim a(9) As Single
B:Option Base 1：Dim a(9)
C:Dim a(10) As Integer
D:Dim #(9)
答案:

9、单选题：
以下属于Visual Basic合法的数组元素是__________。

选项：
A:x8
B:s(0)
C:v[8]
D:x[8]
答案:

10、单选题：

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序代码：

Option Base 1

Dim arr() As Integer

Private Sub Command1_Click()

Dim i As Integer, j As Integer

Dim s As Integer

ReDim arr(4, 2)

s = 0

For i = 1 To 3

For j = 1 To 2

arr(i, j) = i + j

Next j

Next i

ReDim Preserve arr(4, 4)

For j = 3 To 4

arr(3, j) = j + 10

Next j

For i = 1 To 4

s = s + arr(i, i)

Next i

Print s

End Sub程序运行过程中，当单击Command1时，输出结果为________。
选项：
A:18
B:程序出错
C:19
D:0
答案:

11、单选题：

运行如下程序

Private Sub Command1_Click()

Dim a(5, 5) As Integer

For i = 1 To 5

For j = 1 To 4

a(i, j) = i * 2 + j

If a(i, j) / 7 = a(i, j)  7 Then

n = n + 1

End If

Next j

Next

Print n

End Sub

则n的值是________。

选项：
A:3
B:5

C:2
D:4

答案:

12、单选题：

若在窗体上画了一个名称为List1的列表框，并编写了如下事件过程：

Private Sub Form_Load ( )

List1.AddItem “数学”

List1.AddItem “物理”

List1.AddItem “化学”

List1.AddItem “外语”

List1.AddItem “语文”

End Sub

Private Sub Form_Click()

List1.RemoveItem 1

List1.RemoveItem 2

End  Sub运行程序后，单击窗体，则列表框中显示的项目是________
选项：
A:数学外语语文
B:物理外语语文
C:数学化学语文
D:化学外语语文
答案:

13、单选题：

设窗体上有一个列表框控件List1，含有若干列表项。以下能表示当前被选中的列表项内容的是________。
选项：
A:List1.Index
B:List1.Text
C:List1.List
D:List1.ListIndex
答案:

14、单选题：

假定列表框List1中没有被选中的项目，则执行List1.RemoveItem List1.ListIndex 语句的结果是________。
选项：
A:删除最后加入列表中的一项
B:出错
C:删除最后一项
D:删除第一项
答案:

15、单选题：
设组合框 Combo1 中有5 个项目，则以下能删除最后一项的语句是________。

选项：
A:Combo1.RemoveItem 5
B:Combo1.RemoveItem 4
C:Combo1.RemoveItem Combo1.ListCount
D:Combo1.RemoveItem Combo1.ListCount+1
答案:

16、单选题：
设在程序开始处有语句：Option Base 0，则下面定义的数组中正好有12个元素的是________。

选项：
A:Dim s%( 3 , 4 )
B:Dim s%( 3 , 2 )
C:Dim a%( 12 )
D:Dim a%( -6 To 6 )
答案:

17、单选题：
在窗体上画一个名称为List1的列表框和一个名称为Text1的文本框，然后编写如下两个事件过程：

Private Sub Form_Load()

List1.AddItem “100”

List1.AddItem “200”

List1.AddItem “300”

List1.AddItem “400”

Text1.Text = “”

End Sub

Private Sub List1_DblClick()

a = List1.Text

Print a + Text1.Text

End Sub

程序运行后，在文本框中输入”500″，然后双击列表框中的”400″，则输出结果为________。

选项：
A:400500
B:500400
C:900
D:0

答案:

18、单选题：

设窗体上有一个名称为Option1的单选按钮数组（其下标从0开始），共有4个单选按钮，并有下面事件过程：

Private Sub Option1_Click(Index As Integer)

n = Index

If Index < 3 Then n = n + 1

Print Option1(n).Caption

End Sub

程序运行时，单击其中一个单选按钮，则在窗体上显示的是________。
选项：
A:被选中单选按钮的下一个按钮的标题，但如果选中的是最后一个，则显示该单选按钮的标题
B:被选中的单选按钮的标题
C:被选中单选按钮的上一个按钮的标题，但如果选中的是最前面的一个，则显示最后面按钮的标题
D:被选中单选按钮的下一个按钮的标题，但如果选中的是最后一个，则显示最前面一个单选按钮的标题
答案:

19、单选题：
在窗体上画一个名称为Command1的命令按钮和一个名称为Label1的标签，然后编写如下程序代码：

Option Base 0

Private Sub Command1_Click()

Dim a(5) As Integer, n As Integer

For i = 0 To 5

a(i) = i

n = n + a(i)

Next i

Label1 = n

End Sub

运行程序，单击命令按钮，在标签中显示的内容是________。

选项：
A:15
B:5
C:10
D:20
答案:

20、单选题：

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序代码：

Option Base 1

Private Sub Command1_Click()

Dim a(5) As String

Dim i As Integer

Dim b As Variant

For i = LBound(a) To UBound(a)

a(i) = Chr(Asc(“a”) + (26 – i))

Next i

For Each b In a

Print b;

Next

End Sub

程序运行时，单击Command1，则输出结果是________。

选项：
A:出错
B:zyxwv
C:12345
D:abcde
答案:

21、单选题：

在窗体上画一个列表框List1、一个组合框Combo1和一个文本框Text1，编写如下程序代码：

Private Sub Form_Load()

List1.AddItem “111”

List1.AddItem “222”

List1.AddItem “333”

Combo1.AddItem “444”

Combo1.AddItem “555”

Combo1.AddItem “666”

Text1.Text = “”

End Sub

程序运行后，如果单击窗体，要求在文本框中显示”222555″，以下能实现该操作的事件过程是________。
选项：
A:Private Sub Form_Click()         Text1.Text = List1.ListIndex(1) + Combo1.ListIndex(1) End Sub
B:Private Sub Form_Click()         Text1.Text = List1.ListIndex(2) + Combo1.ListIndex(2) End Sub
C:Private Sub Form_Click()         Combo1.ListIndex = 1         List1.ListIndex = 1         Text1.Text = List1.Text + Combo1.Text End Sub
D:Private Sub Form_Click()         Combo1.ListIndex = 2         List1.ListIndex = 2         Text1.Text = List1.Text + Combo1.Text End Sub
答案:

22、单选题：
组合框兼有两种控件的特性，这两种控件是________。
选项：
A:复选框和单选按钮
B:标签和列表框
C:标签和文本框
D:列表框和文本框

答案:

23、单选题：
下列说法中正确的是________。

选项：
A:语句Dim x[1 To 5] As Double能够定义一个一维数组x
B:用Erase语句可以清除静态数组中各元素的值，但不释放其所占的内存空间
C:用Array函数可以对任何数组初始化
D:当按下键盘上任意键时都会触发KeyPress事件
答案:

24、单选题：
列表框控件List1中已有若干个列表项，以下能表示被选中列表项内容的表达式是________。

选项：
A:List1.ListIndex
B:List1.List(ListIndex)
C:List1.List(List1.ListIndex)
D:List1 (List1.ListIndex)
答案:

第六章 单元测试

1、单选题：
定义过程的格式中，Static关键字的作用是指定过程中的局部变量在内存中的存储方式。若使用了Static关键字，则__________。
选项：
A:定义了该过程中定义的局部变量为“自动”变量
B:每次调用此过程，该过程中的局部变量都会被重新初始化
C:每次调用此过程时，该过程中的局部变量的值保持在上一次调用后的值

D:在本过程中使用到的，在其他过程中定义的变量也为Static型
答案:

2、单选题：

在过程中定义的变量，若希望在离开该过程后，还能保存过程中局部变量的值，则应使用__________关键字在过程中定义局部变量。

选项：
A:Public

B:Private
C:Dim
D:Static
答案:

3、单选题：
根据变量的作用域，可以将变量分为3类，分别为__________。
选项：
A:局部变量、模块变量和标准变量
B:局部变量、模块变量和窗体变量

C:局部变量、模块变量和全局变量

D:局部变量、标准变量和全局变量

答案:

4、单选题：
下列关于过程叙述不正确的是__________。
选项：
A:过程的传址调用是将实参在内存的地址传递给形参
B:过程的传值调用是将实参的具体值传递给形参
C:过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的
D:无论过程传值调用还是过程传址调用，参数传递都是双向的
答案:

5、单选题：
要想从子过程调用后返回两个结果，下面子过程语句说明合法的是__________。
选项：
A:Sub f1( n%,ByVal m%)
B:Sub f2(ByVal n%,ByVal m%)
C:Sub f1(ByVal n%,m%)
D:Sub f1(n%,m%)
答案:

6、单选题：
下列定义为abc的过程定义语句中正确的是__________。
选项：
A:Dim Sub abc(x,y)
B:Public abc(x,y)
C:Sub abc(x,y)

D:Private Sub abc(x,y) As Integer

答案:

7、单选题：

有如下函数过程：

Function gys(ByVal X As Integer, ByVal Y As Integer) As Integer

Do While Y <> 0

reminder = X Mod Y

X = Y

Y = reminder

Loop

gys = X

End Function

以下调用函数的事件过程，该程序的运行结果是__________。

Private Sub Command7_Click()

Dim a As Integer

Dim b As Integer

a = 100

b = 25

X = gys(a, b)

Print X

End Sub

选项：
A:100

B:25

C:0
D:50

答案:

8、单选题：

已知过程定义的首行为Sub sum(a As Integer, b As Integer)，则下面过程调用语句中正确的是________。
选项：
A:sum x; y
B:sum(x , y)
C:sum x, y
D:Call sum(x ; y)
答案:

9、单选题：

设有如下程序代码：

Dim a%

Public b%, c%

Private Sub Form_Click()

Dim b%

Print a; b; c

End Sub

Private Sub Form_Load()

Dim a%

a = 5

b = 8

c = 10

End Sub

运行程序时单击窗体，则在窗体上显示的是________。

选项：
A:5  0  10
B:0  0  10
C:0  8  10
D:5  8  10
答案:

10、单选题：

设有以下程序片段：

Public x%

Private y$

Private Sub Command1_Click()

Dim a

……

End Sub

 

Private Sub Command2_Click()

Static b

……

End Sub在Command1_Click过程中无法访问的变量是________。

选项：
A:x
B:a
C:b
D:y
答案:

11、单选题：

编写如下程序代码：

Private Sub Command1_Click()

Const n = 5

Dim arrx(n) As Integer

For i = 1 To 5

arrx(i) = i * i

Next i

Call swap(arrx(), n)

For i = 1 To n

Print arrx(i);

Next

End Sub

 

Public Sub swap(a() As Integer, k As Integer)

For i = 1 To k / 2

t = a(i)

a(i) = a(k – i + 1)

a(k – i + 1) = t

Next

End Sub程序运行后，单击命令按钮Command1，输出结果为________。
选项：
A:25   16   9   4   1

B:4   1   9   25   16

C:1   4   9   16   25

D:1   4   9   4   1
答案:

12、单选题：

如果在过程A中用语句：Call proc(a, b) 调用下面的过程

Private Sub proc(b As Integer, ByVal a As Integer)

a = a + 1

b = b * 2

End Sub则调用结束后的结果是________。

选项：
A:过程A中变量a的值变为原有值的2倍
B:过程A中变量a的值变为原有值的2倍，b的值等于原有值加1
C:过程A中变量b的值变为原有值的2倍
D:过程A中变量b的值变为原有值的2倍，a的值等于原有值加1
答案:

13、单选题：

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写以下程序代码：

Private Sub sub1(ByRef d(), ByRef m1 As Integer)

Dim i As Integer

m1 = d(LBound(d))

For i = LBound(d) + 1 To UBound(d)

If m1 < d(i) Then m1 = d(i)

Next i

End Sub

Private Sub Command1_Click()

Dim n1 As Integer

n1=-1

Dim data()

data = Array(10, 20, -20, 50, 15, -5)

Call sub1(data(), n1)

Text1.Text = n1

End Sub程序运行过程中，当单击命令按钮Command1时，则在文本框Text1中显示的结果为________。

选项：
A:-1
B:50
C:-5
D:0
答案:

14、单选题：

有以下程序代码：

Private Sub Command1_Click ()

Print fun(10), fun(5)

End Sub

Private Function fun(n As Integer) As Integer

Static t

For k = 1 To n

t = t + k

Next k

fun = t

End Function

执行Command1_Click过程产生的输出是________。
选项：
A:55            15
B:15            55
C:15            70
D:55            70
答案:

15、单选题：
以下叙述中错误的是________。
选项：
A:窗体和标准模块需要分别保存为不同类型的磁盘文件
B:全局变量可以在标准模块中定义
C:一个工程中可以包含多个窗体文件
D:在一个窗体文件中用Private定义的通用过程可以被其他窗体调用
答案:

16、单选题：

要求函数的功能是：从参数str字符串中删除所有参数ch所指定的字符，返回实际删除字符的个数，删除后的字符串仍在str中，为此某人编写了函数DelChar如下：

Function DelChar(str As String, ch As String) As Integer

Dim n%, st$, c$

st = “”

n = 0

For k = 1 To Len(str)

c = Mid(str, k, 1)

If c = ch Then

st = st & c

Else

n = n + 1

End If

Next k

str = st

DelChar = n

End Function

并用下面的Command1_Click()过程观察函数调用结果

Private Sub Command1_Click()

ch$ = Text1.Text

Print DelChar(ch, “x”), ch

End Sub

发现结果有错误，程序代码需要修改，以下正确的修改方案是________。
选项：
A:把语句If  c = ch  Then 改为If  c <> ch  Then
B:把语句Print DelChar(ch, ‘x’), ch改为Print DelChar(ch, ‘x’) ：Print ch
C:把语句DelChar = n 改为 DelChar = st
D:删掉语句str = st
答案:

17、单选题：

如果窗体模块A中有一个过程：

Private Sub Proc( )

……

End Sub

则下面叙述中错误的是________。

选项：
A:在窗体模块B中可以有与此相同名称的过程
B:在标准模块中不能调用此过程
C:在窗体模块B中可以调用此过程
D:窗体模块A中任何其他过程都可以调用此过程
答案:

18、单选题：
以下关于VB文件的叙述中，正确的是________。
选项：
A:一个工程文件只能含有一个标准模块文件
B:类模块文件的扩展名为.bas

C:VB应用程序可以被编译为.exe文件
D:标准模块文件的扩展名是.frm
答案:

19、单选题：
下面叙述中正确的是________。
选项：
A:窗体模块中包含本窗体的所有事件过程，标准模块中包含本标准模块的所有事件过程
B:一个工程中只能有一个标准模块
C:一个窗体是一个窗体模块
D:一个工程由一个窗体模块和一个标准模块组成
答案:

20、单选题：
下面有关标准模块的叙述中，错误的是________。
选项：
A:标准模块的文件扩展名为.bas
B:标准模块中的全局变量可以被工程中的任何模块引用
C:标准模块中的Private过程不能被工程中的其他模块调用
D:标准模块不完全由代码组成，还可以有窗体
答案:

21、单选题：
下面关于标准模块的叙述中错误的是________。
选项：
A:标准模块中可以声明全局变量
B:一个工程中可以含有多个标准模块

C:标准模块中可以包含一个Sub Main过程，但此过程不能被设置为启动过程
D:标准模块中可以包含一些Public过程

答案:

22、单选题：
在标准模块中用Public关键字定义的变量，其作用域为________。
选项：
A:本模块所有过程
B:所有窗体
C:整个工程
D:所有标准模块
答案:

23、单选题：
下列关于标准模块的叙述中，错误的是________。
选项：
A:标准模块中的Public过程可以被不同窗体的程序调用
B:标准模块文件的扩展名为.bac
C:标准模块可以在某个窗体中建立
D:标准模块是一个纯代码文件
答案:

24、单选题：

以下关于VB文件的叙述中，错误的是________。
选项：
A:工程文件的扩展名为.frm
B:一个工程可以有多个窗体文件
C:标准模块文件不属于任何一个窗体
D:一个工程只有一个工程文件
答案:

25、单选题：

如果在窗体模块中所有程序代码的前面有语句：Dim x  ，则x是________。
选项：
A:静态变量

B:局部变量

C:全局变量
D:窗体级变量
答案:

26、单选题：
如果将数组名作为函数调用的实参，则传递给形参的是________。
选项：
A:数组第一个元素的值
B:数组最后一个元素的值
C:数组第一个元素的地址
D:数组全部元素的值
答案:

第七章 单元测试

1、单选题：
下列不能作为“容器”（即可以在其中放置其他控件）的是________。
选项：
A:组合框

B:框架
C:图片框
D:窗体
答案:

2、单选题：
下列叙述中错误的是________。
选项：
A:图片框可以作为控件的容器

B:可以使用Print方法在图片框上输出文字

C:由于直线控件没有Move方法，所以直线控件在运行阶段不能移动

D:文本框控件支持Change事件

答案:

3、单选题：
用于设置计时器事件产生间隔的属性是________。
选项：
A:Tag

B:Index

C:Interval
D:Value

答案:

4、单选题：
设形状控件的Width与Height属性的值相等。下面叙述中正确的是________。
选项：
A:呈现的图形一定是正方形

B:呈现的图形一定是矩形
C:呈现的图形一定不是矩形

D:呈现的图形一定是圆
答案:

5、单选题：
设窗体上有2个框架，每个框架中有若干个单选按钮，下面叙述中正确的是________。
选项：
A:每个框架中都有一个单选按钮可以被选中
B:如果某个框架的Enabled属性为True，则里面单选按钮的Enabled属性也都为True
C:如果某个框架的Enabled属性为False，则里面的单选按钮一定都是未选中状态
D:窗体上所有单选按钮中只有1个可以被选中

答案:

6、单选题：
在计时器控件中，Interval属性的作用是________。
选项：
A:设置产生计时器事件的间隔
B:决定是否响应用户的操作

C:决定计时器事件产生的次数
D:设置计时器与窗体上边界之间的距离

答案:

7、单选题：
决定对象拖放模式的属性是________。
选项：
A:DragIcon
B:DragDrop
C:DragMode
D:DragOver
答案:

8、单选题：
下列关于键盘事件的说法中，正确的是________。
选项：
A:大键盘上”4″键的上档字符是”$”，当同时按下Shift和大键盘上的”4″ 键时，KeyPress事件过程的
B:按下键盘上的任意一个键，都会引发KeyPress事件

C:大键盘上的”1″ 键和数字键盘上的”1″键的KeyCode码相同
D:KeyDown和KeyUp的事件过程中有KeyAscii参数
答案:

9、单选题：
在刚建立的EXE工程中，工具箱窗口中没有的控件是________。
选项：
A:形状
B:图像框
C:通用对话框
D:驱动器列表框
答案:

10、单选题：
下面说法中错误的是________。
选项：
A:可以将计时器控件的Enabled属性设置为False，使其不能触发Timer事件
B:在设计阶段，把已复制到剪贴板上的图像粘贴到图片框或图像框中，可以将该图片装入图片框或图像框
C:为使显示到图像框中的图像能根据图像框的大小自动缩放，则应将图像框的Stretch属性值设置为True
D:为使名称为Timer1的计时器控件能每隔2秒触发一次Timer事件，则在程序代码中应写的语句是Timer1.Interval = 2000
答案:

11、单选题：
要使图片框P1中显示当前路径下的图片文件img1.jpg，则应使用的语句是________。
选项：
A:P1.Picture=”img1.jpg”

B:P1.Image=”img1.jpg”

C:LoadPicture(“img1.jpg”)
D:P1.Picture=LoadPicture(“img1.jpg”)

答案:

12、单选题：

窗体上有1个名称为List1、含有3个项目的列表框，1个名称为Text1的文本框，以及1个Interval属性值为1000的计时器控件Timer1。某人编制了以下程序，希望程序运行时，每隔1秒， List1中的3个项目能够依次在Text1中循环显示。

Private Sub Timer1_Timer()

Dim i As Integer

Text1.Text = List1.List(i)

i = i + 1

If i = List1.ListCount Then

i = 0

End If

End Sub运行程序，发现有错误。以下正确的修改是________。

选项：
A:将语句Text1.Text = List1.List(i)与i = i + 1交换位置

B:将If语句的条件修改为 i <= List1.ListCount

C:将语句Dim i As Integer修改为Static i As Integer

D:将Interval属性值改为100
答案:

13、单选题：

在窗体上有一个Picture1图片框，没有加载图片，在当前文件夹下有一个位图文件pic02.bmp，并有下面的程序代码：

Dim HasPic As Boolean

Private Sub Picture1_Click()

If HasPic Then

Picture1.Picture = LoadPicture(“”)

Else

Picture1.Picture = LoadPicture(“pic02.bmp”)

End If

HasPic = Not HasPic

End Sub关于这个程序运行时，下面叙述中正确的是________。

选项：
A:第一次单击图片框，会清空图片框，再单击图片框，则在其中显示一个图片
B:第一次单击窗体，会在图片框中显示一个图片，再单击窗体，则删除图片
C:第一次单击图片框，会在其中显示一个图片，再单击图片框，则删除图片
D:第一次单击窗体，会清空图片框，再单击窗体，则在图片框中显示一个图片

答案:

14、单选题：
以下叙述中错误的是________。
选项：
A:如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见
B:在菜单标题中，由”&”所引导的字母指明了该菜单项的访问键
C:如果要在菜单中添加一条分隔线，则应将该菜单项的Caption属性设置为”-”
D:下拉式菜单和弹出式菜单都用菜单编辑器建立
答案:

15、单选题：

窗体上有Text1、Text2两个文本框，并有以下过程：

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

Dim ch As String

ch = LCase(Chr(KeyCode))

Text2.Text = Chr(Asc(ch) + 2)

End Sub程序运行时，在Text1中输入了字母”D”，则Text2中显示的是________。

选项：
A:f
B:d
C:F

D:D
答案:

16、单选题：

设窗体上有一个标签Label1，并编写了下面的过程

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 1 Then

Label1 = “X=” & X & ”   Y=” & Y

End If

End Sub程序运行后的效果是________。

选项：
A:当按下鼠标左键并移动鼠标时，鼠标的位置坐标会同步显示在标签中
B:当按下鼠标左键时，鼠标的位置坐标会同步显示在标签中
C:当按下鼠标右键并移动鼠标时，鼠标的位置坐标会同步显示在标签中
D:当移动鼠标时，鼠标的位置坐标会同步显示在标签中
答案:

17、单选题：
程序运行时，当用鼠标点击滚动条两端的箭头按钮时，不会产生的结果是________。
选项：
A:改变Value属性的值
B:滚动框移动

C:激活Scroll事件

D:激活Change事件
答案:

18、单选题：

当复选框的Value属性值为1时，表示________。

选项：
A:选中该复选框

B:该复选框不可用
C:没有选中该复选框

D:该复选框不可见

答案:

19、单选题：
以下关于图片框控件的说法中，正确的是________。
选项：
A:清空图片框控件中图形的方法之一是将其Picture属性的值设置为Null
B:为使图像能自动适应图片框的大小，应将图片框的Stretch属性设置为False
C:可以通过调用图片框的Print方法在图片框中输出文本
D:用cls方法可以清除图片框中装入的图片
答案:

20、单选题：
当复选框控件被选中（即复选框控件内显示”√”标记）时，其Value属性的值为________。
选项：
A:1
B:0
C:True

D:False

答案:

21、单选题：

设有一名称为mnuBold的下拉菜单项，程序运行时，希望达到如下效果：当第一次单击该菜单项时，其标题左侧显示”√”，当第二次单击该菜单项时，其标题左侧的”√”消失，依此交替进行，…… 。则应在mnuBold_Click事件过程中书写的语句是________。

选项：
A:mnuBold.Checked = True
B:mnuBold.Checked = IIf(mnuBold.Checked, True, False)

C:mnuBold.Checked = Not mnuBold.Checked

D:mnuBold.Checked = False
答案:

22、单选题：
下列与鼠标拖放操作无关的是________。
选项：
A:Drag方法
B:DragDrop事件
C:DragOver事件

D:KeyPress事件
答案:

23、单选题：

在窗体上画一个名称为Text1的文本框，然后编写以下事件过程：

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

If _________________ Then

Text1.SelStart = 0

Text1.SelLength = Len(Text1.Text)

End If

End Sub要求程序运行时，若输入焦点在Text1上，按下组合键Ctrl+A可以选取Text1内所有的文本，则在横线处应填入的表达式是________。

选项：
A:Text1.KeyCode = 65 And Text1.Shift = 2
B:Text1.KeyCode = “A” And Text1.Shift = “Ctrl”
C:KeyCode = “A” And Shift = “Ctrl”
D:KeyCode = 65 And Shift = 2
答案:

24、单选题：
程序运行时若单击水平滚动条上滚动块右边的空白处，则其Value属性值的变化量为________。
选项：
A:Max属性的值

B:Min属性的值

C:LargeChange属性的值
D:SmallChange属性的值
答案:

25、单选题：
下列叙述中，正确的是________。
选项：
A:框架控件的标题不能在程序运行过程中修改

B:标签中显示的文本在运行阶段不能改变

C:文本框可以显示多行文本
D:组合框是组合文本框和列表框的特性而成的控件，所以它具有二者的全部属性

答案:

26、单选题：
对于通用对话框控件，下列说法中错误的是________。
选项：
A:用保存文件对话框可以指定一个文件，由程序使用

B:DefaultEXT和DialogTitle属性只用于打开对话框，不能用于保存对话框
C:用打开文件对话框可以指定一个文件，由程序使用
D:用通用对话框控件可以建立打开文件对话框，也可以建立保存文件对话框
答案:

27、单选题：
为了在程序运行时弹出一个菜单，程序中应使用________。
选项：
A:窗体的PopupMenu方法

B:窗体的ShowMenu方法

C:窗体的Show方法

D:所单击控件的PopupMenu方法
答案:

28、单选题：
下列叙述中错误的是__________。
选项：
A:文本框控件支持Change事件
B:可以使用Print方法在图片框上输出文字
C:图片框可以作为控件的容器
D:由于直线控件没有Move方法，所以直线控件在运行阶段不能移动

答案:

29、单选题：
用于设置计时器事件产生间隔的属性是__________。
选项：
A:Index

B:Tag

C:Value

D:Interval

答案:

30、单选题：
设窗体上有2个框架，每个框架中有若干个单选按钮，下面叙述中正确的是__________。
选项：
A:如果某个框架的Enabled属性为False，则里面的单选按钮一定都是未选中状态

B:每个框架中都有一个单选按钮可以被选中

C:窗体上所有单选按钮中只有一个可以被选中
D:如果某个框架的Enabled属性为True，则里面单选按钮的Enabled属性也都为True

答案:

31、单选题：
在计时器控件中，Interval属性的作用是__________。
选项：
A:设置计时器与窗体上边界之间的距离
B:设置产生计时器事件的间隔

C:决定计时器事件产生的次数

D:决定是否响应用户的操作
答案:

32、单选题：
下列关于键盘事件的说法中，正确的是__________。
选项：
A:主键盘上”4″键的上档字符是”$”，当同时按下Shift和主键盘上的”4″ 键时，KeyPress事件过程的KeyAscii参数值是”$”的ASCII值

B:主键盘上的”1″ 键和数字键盘上的”1″键的KeyCode码相同
C:按下键盘上的任意一个键，都会引发KeyPress事件

D:KeyDown和KeyUp的事件过程中有KeyAscii参数
答案:

第八章 单元测试

1、单选题：

1. 窗体的隐藏和删除分别用在不同的场合，隐藏Form1和删除Form1的命令是__________。

选项：
A:A.Hide.Form1 Unload.Form1
B:Form1.Hide Unload.Form1

C:Hide.Form1 Form1.Unload
D:Form1.Hide Form1.Unload

答案:

2、单选题：
与Forml．Show方法效果相同的是__________。
选项：
A:Form1.Visible=True

B:Form1.Visible=False

C:Visible.Form1=True

D:Visible.Form1=False

答案:

3、单选题：
要从自定义对话框Form2中退出可以在该对话框的“退出”按钮Click事件过程中使用__________语句。
选项：
A:Unload Form2
B:Form2.Unload
C:Form2.Hide

D:Hide Form2

答案:

4、单选题：
如果Form1是启动窗体，并且Form1的Load事件过程中有语句Form2.Show,则程序启动后__________。
选项：
A:在所有的初始化代码运行后Form2是活动窗体
B:在所有的初始化代码运行后Form1是活动窗体
C:发生一个编译错误
D:发生一个运行时错误

答案:

5、单选题：
下面关于多重窗体的叙述中，正确的是__________。
选项：
A:若启动对象是Main子过程，则程序启动时不加任何窗体，以后该过程根据不同情况决定是否加载或加载块

B:没有Main子过程，程序不能执行

C:作为启动对象的Main子过程只能放在窗体模块中
D:没有启动窗体，程序不能执行

答案:

6、单选题：
对于含有多个窗体的工程而言，以下叙述中正确的是________。
选项：
A:Hide方法可以将指定的窗体从内存中清除

B:没有指定启动窗体时，系统自动将最后一个添加的窗体设置为启动窗体
C: Load方法兼有装入和显示窗体两种功能

D:启动窗体可以通过”工程属性”对话框指定

答案:

7、单选题：

以下关于窗体的叙述中错误的是________。

选项：
A:窗体的Hide方法将窗体隐藏并卸载

B:若工程中包含多个窗体，则可指定一个为启动窗体

C:窗体的Show方法可以将窗体装入内存并显示该窗体

D:窗体的Load事件在加载窗体时发生
答案:

8、单选题：
如果要将一个窗体从内存中清除，应使用的语句是________。
选项：
A:Show
B:Hide
C:Load
D:Unload
答案:

9、单选题：
为了在Form_Load事件过程中用Print方法在窗体上输出指定的内容，首先应执行的操作是________。
选项：
A:调用窗体的Show方法
B:设置窗体的AutoRedraw属性
C:设置窗体的Enabled属性
D:设置窗体的Visible属性
答案:

10、单选题：
设一个工程文件包含多个窗体及标准模块，以下叙述中错误的是________。
选项：
A:不能把标准模块设置为启动模块

B:Show方法用于显示一个窗体
C:用Hide方法只是隐藏窗体，不能从内存中清除该窗体
D:如果工程中有Sub Main过程，则程序一定首先执行该过程
答案:

11、单选题：
以下叙述中错误的是________。
选项：
A:Sub Main 过程不能有返回值

B:Sub Main 是定义在标准模块中的特定过程
C:当工程中含有Sub Main过程时，工程执行时一定最先执行该过程

D:一个工程中只能有一个Sub Main过程
答案:

12、单选题：

工程中有Form1、Form2两个窗体（Form1中有文本框Text1；Form2中有Text1文本框和Command1命令按钮）。Form1是启动窗体。在这些模块中编写下面的程序代码：

Form1中的代码如下：

Private Sub Text1_DblClick()

Text1 = “Visual Basic”

Form2.Show

End Sub

Form2中的代码如下：

Private Sub Command1_Click()

Text1 = Form1.Text1

Form1.Show

End Sub下面关于程序的叙述中错误的是________。

选项：
A:单击Form2的命令按钮，Form1成为当前窗体
B:Form2的Text1 = Form1.Text1语句不能正确执行

C:双击Form1的Text1后, Text1中显示”VisualBasic”，弹出Form2

D:双击Form1的Text1后，Form2成为当前窗体

答案:

13、单选题：

Visual Basic中的”启动对象”是指启动Visual Basic应用程序时，被自动加载并首先执行的对象。下列关于Visual Basic”启动对象”的描述中，错误的是________。

选项：
A:”启动对象”可以是Sub Main过程
B:”启动对象”可以是指定的标准模块
C: “启动对象”可以是指定的窗体
D:若没有经过设置，则默认的”启动对象”是第一个被创建的窗体

答案:

14、单选题：
以下关于多重窗体程序的叙述中，错误的是________。
选项：
A:用Hide方法不仅可以隐藏窗体，而且还可以清除内存中的窗体
B:对于多重窗体程序，需要单独保存每个窗体

C:在多重窗体程序中，可以根据需要指定启动窗体

D:在多重窗体程序中，各窗体的菜单是彼此独立的

答案:

15、单选题：
以下关于VB特点的叙述中，错误的是________。
选项：
A:VB程序能够以解释方式运行
B:VB采用事件驱动的编程机制
C:VB程序能够以编译方式运行

D:VB程序总是从Form_Load事件过程开始执行

答案:

16、单选题：
以下关于窗体的叙述中错误的是________。
选项：
A:窗体的Load事件在加载窗体时发生
B:窗体的Show方法可以将窗体装入内存并显示该窗体

C:窗体的Hide方法将窗体隐藏并卸载
D:若工程中包含多个窗体，则可指定一个为启动窗体

答案:

17、单选题：

下列操作中不能向工程添加窗体的是________。

选项：
A:单击工具栏上的”添加窗体”按钮

B:执行”工程”菜单中的”添加窗体”命令

C:右击窗体，在弹出的菜单中选择”添加窗体”命令
D:右击工程资源管理器，在弹出的菜单中选择”添加”命令，然后在下一级菜单中选择”添加窗体”命令
答案:

18、单选题：
下列说法中错误的是________。
选项：
A:当用Static关键字定义一个过程时，该过程中的所有变量都是”Static”存储方式的
B:Sub Main过程一定是程序运行时首先被执行的过程，是整个程序的入口点
C:同一个工程中只能有一个Sub Main过程

D:在过程中，可以用Static定义变量，但当该过程调用结束后，其值继续保留
答案:

第九章 单元测试

1、单选题：

设有如下程序代码：

Private Sub Command1_Click()

Dim Sname As String, SNo As String, Score As Single

Open “D:Score.txt” __________ As #1

SNo = InputBox(“输入学号：”)

Sname = InputBox(“输入姓名：”)

Score = Val(InputBox(“输入成绩：”))

Print #1, SNo, Sname, Score

Close #1

End Sub

以上程序的功能是，向文件D:Score.txt中写入一名同学的学号、姓名和成绩，当文件不存在时，则新建该文件；当文件存在时，则覆盖原文件的内容。在横线处应填入的内容是________。

选项：
A:For Random

B:For Output
C:For Input

D:For OverWrite

答案:

2、单选题：

Visual Basic的窗体文件（.frm文件）是一个文本文件，它________。

选项：
A:不能作为Visual Basic的数据文件来访问
B:可以当作顺序文件读取
C:可以当作随机文件读取
D:既可当作顺序文件读取也可当作随机文件读取

答案:

3、单选题：

在一个有若干个整数的顺序文件中查找一个数（这个数从文本框中输入），找到后在标签Label1中显示该数是文件中第几个数；如果没找到，则显示文件中没有该数的信息

Private Sub Command1_Click()

Dim x As Integer, n As Integer

a = Val(Text1.Text)

Open “file1.txt” For Input As #1

Do While Not EOF(1)

Input  __________________

n = n + 1

If x = a Then

Label1.Caption = a & “是文件中第” & n & “个数”

Close #1

Exit Sub

End If

Loop

Close #1

Label1.Caption = “文件中没有” & a

End Sub

要使上面的程序代码实现上述功能，在横线处应填写的是________。

选项：
A:1, n

B:#1, a
C:1, a

D:#1, x
答案:

4、单选题：

下列关于随机文件的描述中，错误的是________。

选项：
A:数据存取灵活方便，容易修改

B:只能随机存取
C:每条记录都有一个记录号

D:每条记录的长度必须相同
答案:

5、单选题：

在窗体Form1上画一个名称为Command1的命令按钮，编写如下程序代码：

Private Type stu

sn As String * 20

class As String * 20

End Type

Private Sub Command1_Click()

Dim s As stu

Open “c:allstu.dat” For Random As #1 Len = Len(s)

s.sn = “John”

s.class = “Computer 2013”

Put #1, , s

Close #1

End Sub

则以下叙述中正确的是________。

选项：
A:语句’Put #1, , s’中没有指明记录号，因此系统总是把记录写到文件的头部

B:如果文件c:allstu.dat不存在，则Open语句执行中出现’文件未找到’的错误

C:定义记录类型stu的Type语句可以移到事件过程Command1_Click中

D:文件c:allstu.dat中的每条记录是等长的

答案:

6、单选题：

Print #语句的作用是________。

选项：
A:向窗体上输出数据

B:从顺序文件中读入数据
C:向随机文件中写数据

D:向顺序文件中写数据

答案:

7、单选题：

以下关于文件的叙述中，错误的是________。

选项：
A:顺序文件中各记录的长度是固定的

B:随机文件一般占用空间比较小

C:顺序文件有多种打开文件的方式

D:读取顺序文件的记录时，只能从头至尾逐记录进行

答案:

8、单选题：

以下不属于Visual Basic数据文件的是________。

选项：
A:顺序文件
B:随机文件
C:数据库文件

D:二进制文件

答案:

9、单选题：

下列关于顺序文件的描述中，正确的是________。

选项：
A:不能像随机文件一样灵活地存取数据

B:每条记录的长度是固定的

C:主要的优点是占空间少，且容易实现记录的增减操作

D:文件的组织与数据写入的顺序无关

答案:

10、单选题：

下列关于数据文件的描述中，错误的是________。
选项：
A:VB数据文件不包括VB的窗体文件
B:VB应用程序不能把一个二维表格中的数据存入文件
C:VB应用程序在读写数据文件之前，必须用Open语句打开该文件
D:VB应用程序可以用随机方式读写数据文件
答案:

11、单选题：

下面关于文件叙述中错误的是________。

选项：
A:随机文件每个记录的长度是固定的

B:顺序文件的记录是顺序存放的，可以按记录号直接访问某个记录

C:VB数据文件需要先打开，再进行处理

D:不论是顺序文件还是随机文件，都是数据文件
答案:

12、单选题：

以下关于文件的叙述中，错误的是________。
选项：
A:EOF函数用来测试是否到达文件尾
B:随机文件中记录的长度是随机的
C:文件被打开后，自动生成一个文件指针
D:顺序文件中的记录是一个接一个地顺序存放
答案:

13、单选题：

以下关于文件的叙述中，正确的是________。

选项：
A:用Append方式打开的文件，既可以进行读操作，也可以进行写操作

B:随机文件记录中的各个字段具有相同的长度

C:随机文件的记录是定长的

D:随机文件通常比顺序文件占用的空间小
答案:

14、单选题：

关于随机文件，以下叙述中错误的是________。
选项：
A:使用随机文件能节约空间
B:随机文件的每个记录都有一个记录号
C:随机文件记录中，每个字段的长度是固定的
D:随机文件中，每个记录的长度相等
答案:

15、单选题：

在Open语句中可以用Output和Append两种方式打开顺序文件，其主要区别是________。

选项：
A:Output在文件最后一个记录后面添加数据，而Append总是从文件的第一个记录开始写
B:Output总是从文件的第一个记录开始写，而Append在文件最后一个记录后面添加数据

C:Output和Append都可以在文件的最后一个记录后面添加数据

D:Output和Append都只能从文件的第一个记录开始写数据

答案:

16、单选题：

窗体上有一个名称为Command1的命令按钮。要求编写程序，把文件f1.txt的内容写到文件f2.txt中，然后将f1.txt删除。命令按钮的单击事件过程如下：

Private Sub Command1_Click()

Open “c:f1.txt” For Input As #1

Open “c:f2.txt” For Output As #2

Do While Not EOF(2)

Line Input #1, str1

Print #2, str1

Loop

Close

Kill “c:f1.txt”

End Sub

该程序运行时发生错误，应该进行的修改是________ 。

选项：
A:打开f1.txt应该使用Output 方式，打开f2.txt 应该使用Input 方式
B:Close语句改为Close All
C:Line Input应改为Get
D:Not EOF(2)应该改为Not EOF(1)
答案:

17、单选题：

设在工程文件中有一个标准模块，其中定义了如下记录类型：

Type Books

Name As String * 10

TelNum As String * 20

End Type

在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是________。

选项：
A:Private Sub Command1_Click()Dim B As BooksOpen ‘Person.txt’ For Output As #1B.Name＝InputBox(‘输入姓名’)B.TelNum＝InputBox(‘输入电话号码’)Write #1， BClose #1End Sub

B:Private Sub Command1_Click()Open ‘Person.txt’ For Input As #1Name＝InputBox(‘输入姓名’)TelNum＝InputBox(‘输入电话号码’)Print #1， Name， TelNumClose #1End Sub

C:Private Sub Command1_Click()Dim B As BooksOpen ‘Person.txt’ For Output As #1B.Name＝InputBox(‘输入姓名’)B.TelNum＝InputBox(‘输入电话号码’)Write #1， B.Name， B.TelNumClose #1End Sub

D:Private Sub Command1_Click()Dim B As BooksOpen ‘Person.txt’ For Input As #1B.Name＝InputBox(‘输入姓名’)B.TelNum＝InputBox(‘输入电话号码’)Print #1， B.Name， B.TelNumClose #1End Sub

答案:

18、单选题：

窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。以下程序的功能是从顺序文件中读取数据：

Private Sub Command1_Click()

Dim s1 As String， s2 As String

Open “c：d4.dat” For Append As #3

Line Input #3， s1

Line Input #3， s2

Text1.Text＝s1＋s2

Close

End Sub

该程序运行时有错误，应该进行的修改是________。

选项：
A:将Open语句中的For Append改为For Input
B:将两条Line Input语句合并为Line Input #3， s1，s2
C:将Line Input改为Line
D:将Close语句改为Close #3
答案:

19、单选题：

窗体上有一个名称为Command1的命令按钮。其单击事件过程如下：

Private Sub Command1_Click()

Open “c:f1.txt” For Input As #1

Open “c:f2.txt” For Output As #2

Do While Not EOF(1)

Line Input #1, str1

Print #2, str1

Loop

Close

End Sub

以下关于上述程序的叙述中，错误的是________。

选项：
A:EOF函数可以判断是否已到文件的末尾
B:Close能够把打开的两个文件都关闭
C:f1.txt和f2.txt均是顺序文件
D:程序的功能是将f2.txt文件的内容复制到f1.txt中

答案:

20、单选题：

为了保存数据，需打开顺序文件”E:UserData.txt”，以下正确的命令是________。

选项：
A:Open ‘E:UserData.txt’ For Input As #2

B:Open E:UserData.txt For Input As #1

C:Open E:UserData.txt For Output As #1
D:Open ‘E:UserData.txt’ For Output As #2
答案: 【Open ‘E:UserData.txt’ For Output As #2】

21、单选题：

用Open语句打开文件时，如果省略”For 方式”，则该文件的存取方式是________。

选项：
A:二进制存取方式
B:不确定
C:随机存取方式

D:顺序存取方式

答案:

22、单选题：

如果希望向一个顺序文件写入数据，但又要保留文件中的原有内容，应采取的文件打开方式是________。
选项：
A:Output
B:Input
C:Append
D:Random
答案:

23、单选题：

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

Dim s1 As String, s2 As String

Open “D:data.txt” For Input As #1

Seek #1, 5

s1 = Input$(2, #1)

s2 = Input$(3, #1)

Print Seek(1)

Close #1

End Sub

假设有磁盘文件D:data.txt，且文件足够长，当程序运行时，单击Command1，在窗体上输出的结果是________。

选项：
A:9

B:5
C:10

D:11

答案:

24、单选题：

某人编写了下面的程序，希望能把Text1文本框中的内容写到out.txt文件中：

Private Sub Command1_Click()

Open “out.txt” For Output As #2

Print “Text1”

Close #2

End Sub

调试时发现没有达到目的，为实现上述目的，应做的修改是________。

选项：
A:把Print ‘Text1’ 改为Print #2， Text1

B:把所有 #2 改为 #1

C:把Print ‘Text1’ 改为Write ‘Text1’
D:把Print ‘Text1′ 改为 Print Text1
答案:

25、单选题：

某人编写了向随机文件中写一条记录的程序，代码如下：

Type RType

Name As String * 10

Tel  As String * 20

End Type

Private Sub Command1_Click()

Dim p As RType

p.Name＝InputBox(“姓名”)

p.Tel＝InputBox(“电话号”)

Open “Books.dat” For Random As #1

Put #1， ， p

Close #1

End Sub

该程序运行时有错误，修改的方法是________。

选项：
A:Put语句应该写为Put #1，p.Name ，p.Tel
B:应把Open语句中的For Random 改为 For Output

C:Dim p As RType必须置于窗体模块的声明部分
D:在类型定义’Type RType’之前加上’Private’

答案:

26、单选题：

有如下过程：

Sub proc()

Dim ch As String

Open “file1.txt” For Input As #1

Open “file1_bak.txt” For Output As #2

Do While Not EOF(1)

ch = Input$(1, #1)

Print #2, ch;

Loop

Close #1, #2

End Sub

这一过程的功能是________。

选项：
A:读入文件file1_bak.txt的内容在窗体上显示
B:读入文件file1.txt的内容在窗体上显示
C:把文件file1_bak.txt复制为file1.txt文件
D:把文件file1.txt复制为file1_bak.txt文件
答案:

27、单选题：

窗体的单击事件过程如下：

Private Sub Form_Click()

n = FreeFile

Open “e:f1.txt” For Input As n

Do While Not EOF(n)

Line Input #n, str1

Print str1

Loop

Close

End Sub

对于以上程序，如下叙述中错误的是________。

选项：
A:n = FreeFile的作用是自动获取文件号，并赋值给n
B:Line Input语句从#n对应的文件中读数据，并赋值给str1

C:Open打开一个随机文件

D:Not EOF(n)的含义是没有到达n所对应文件的末尾

答案:

28、单选题：

为了返回或设置磁盘驱动器的名称，应使用的驱动器列表框的属性是________。
选项：
A:List
B:Drive
C:ListIndex
D:ChDrive
答案:

29、单选题：

以下说法中正确的是________。

选项：
A:Shape控件可以将同一个窗体上的多个单选按钮分成多个组

B:当在名称为Drive1的驱动器列表框中选取不同的驱动器时，系统将执行事件过程Drive1_Click

C:当一个复选框被选中时，它的Value属性的值是1

D:能获取列表框List1中最后一个列表项内容的表达式是List1.List(ListCount-1)

答案:

30、单选题：

窗体上有一个名称为Command1的命令按钮，一个名称为List1的列表框。命令按钮的单击事件过程如下：

Private Sub Command1_Click()

Open “c:f1.txt” For Input As #1

Do While Not EOF(1)

Input #1, str1

List1.AddItem str1

Loop

Close

End Sub

对于上述程序，以下叙述中错误的是________。

选项：
A:以输入方式打开随机文件f1.txt
B:运行程序后，列表框中的列表项都是f1.txt中的记录
C:Close的作用是关闭已经打开的数据文件
D:单击命令按钮后，把f1.txt中的所有内容添加到列表框中
答案: