湖北省二级考试VB试题汇总

省二级考试VB试题汇总

省二级考试VB试题汇总

一、选择题（每套试卷有20个选择题，每题1分）

1 以下4种描述中，错误的是_______。 D A. 常量在程序执行期间其值不会发生改变

B. 根据数据类型不同，常量可分为字符型常量 、数值常量、日期/时间型常量和布尔型常量 C. 符号常量是用一个标识符来代表一个常数，好象是为常数取一个名字，但仍保持常数的性质 D. 符号常量的使用和变量的使用没有差别 2 下面合法的常量是_______。 D

A. 1/2 B. 'abcd' C. 1.2*5 D. False 3 Visual Basic中可以用类型说明符来标识变量的 C 类型，其中表示货币型的是_______。 A. % B. # C. @ D. $

4 以下关键字中，不能定义变量的是_______。 A

A. Declare B. Dim C. Public D. Private 5 用十六进制表示Visual Basic的整型常数时，前面要加上的符号是_______。 A

A) &H B) &O C) H D) O 6 Visual Basic日期常量的定界符是_______。 A

A. ## B.?? C. () D. {}

7 数学关系3≤x<10表示成正确的VB表达式为_______。 B A. 3<=x<10 B. 3<=x AND x<10 C. x>=3 OR x<10 D. 3<=x AND <10

8 \\，/，Mod，*四个算术运算符中，优先级别最低的是_______。 C

A. \\ B. / C. Mod D. * 9 下面语句中有非法调用的是_______。 C A. x=SGN(-1) B. x=FIX(-1) C. x=SQR(-1) D. x$=CHR$(65)

10 表达式23/5.8、23\\5.8、23 Mod 5.8的运算结果分别是_______。 B A. 3、3.9655、3 B. 3.9655、3、5 C. 4、4、5 D. 3.9655、4、3

11 如果变量 a=2、b=\、c=\、d=5，则表达式 ac AND b<>c 的值_______。A A. True B. False C. Yes D. No 12 为了给x,y,z三个变量赋初值1，下面正确的赋值 A 语句是_______。

A) x=1∶y=1∶z=1 B) x=1,y=1,z=1 C) x=y=z=1 D) xyz=1

13 以下4类运算符，优先级最低的是_______。 D

A. 算术运算符 B. 字符运算符 C. 关系运算符 D. 逻辑运算符 14 已知a=\，则表达式Left(a, 4) +Mid(a, 4, 2)的值是_______。B

A) 123456 B) \ C) 123445 D) 1279 15 设有如下的记录类型

Type Student number As String name As String

第 1 页 共 50 页

省二级考试VB试题汇总

age As Integer End Type

则正确引用该记录类型变量的代码是_______。 B

A. Student.name=\张红\ B. Dim s As Student

s.name=\张红\

C. Dim s As Type Stuent D. Dim s As Type s.name=\张红\ s.name=\张红\

16 下列程序运行时，从键盘输入字符\，则输出结果是_______。 A

Private Sub Form_Click() op$=InputBox(\ If op$=\ If op$=\ Print a End Sub

A. -2 B. 0 C. +2 D. +0 17 下列程序段的运行结果为_______。 B

For i=3 To 1 Step -1 Print Space(5-i); For j=1 To 2*i-1 Print \ Next j Print Next i

A. * B. ***** C. ***** D. ***** *** *** *** *** ***** * * * 18 执行 PRINT 18/2*3,-3^2 命令后，输出结果为_______。 C A. 3 9 B. 3-9

C. 27 -9 D. -9 27 19 执行 PRINT 9.4\\3.7,9.4 MOD 3.7 命令后，输出 A 结果为_______。

A. 2 1 B. 3 0 C. 2 20 D. 1 2 20 运行以下程序后，输出结果为_______。 C

x%=1/4

y%=11/4 PRINT x%;y% END

A. 0.25 0.75 B. 0 2 C. 0 3 D. 1 3

21 窗体里有两个对象，分别是图片框Picture1和标签Label1。那么下面关于Print方法的使用中，错误的一条是_______。 D

A. Picture1.Print 147 B. Print 147

C. Printer.Print 147 D. Label1.Print 147

22 下面的_______语句可以实现：先在窗体上输出大写字母A，然后在同一行的第10列输出小写字母b。 B

A. Print \ B. Print \ C. Print \ D. Print \

第 2 页 共 50 页

省二级考试VB试题汇总

23 阅读下面的程序段： n1=InputBox(\请输入第一个数：\ n2=InputBox(\请输入第二个数：\ Print n1+n2

当输入分别为111和222时，程序输出为______。 A

A. 111222 B. 222 C. 333 D. 程序出错 24 语句Print Format (\的输出结果是_______。 B A. HELLO B. hello C. He D. he 25 语句 Print (a=2) And (b=-2) 的输出结果是_______。 D

A. True B. 结果不确定 C. -1 D. False 26 以下程序段运行后，输出字符的排列顺序是_______。 D

For i=1 To 6

If i Mod 2=0 Then Print \ Else Print \ End If

Next i

A. #*#*# B. ##### C. ***** D. *#*#*# 27 用MSGBOX函数显示的对话框，以下叙述正确的是_______。 D

A) 该对话框有一个“确定”按钮 B) 该对话框有“是”，“否”两个按钮 C) 该对话框有“是”，“否”，“取消”三个按钮

D) 该对话框通过选择参数可以得到以上不同的的按钮组合 28 与语句Dim abc%作用相同的语句是_______。 A

A) Dim abc As Integer B) Dim abc As Long C) Dim abc As String D) Dim abc As Date

29 设a=1,b=2,c=3,d=4，则表达式IIf(a

A. 198 B. 199.6 C. 198.56 D. 200

31 要使变量x赋值为1～100间（含1，不含100）的一个随机整数，正确的语句是_______。D A. x=Int(100*Rnd) B. x=Int(101*Rnd) C. x=1+Int(100*Rnd) D. x=1+Int(99*Rnd) 32 Visual Basic表达式 Cos(0)+Abs(1)+Int(Rnd(1))的值是_______。 D A. 1 B. -1 C. 0 D. 2

33 表达式Int(5*Rnd+1)* Int(5*Rnd-1) 值的范围是_______。 D

A. [0,15] B. [-1,15] C. [-4,15] D. [-5,15]

34 当函数MsgBox返回值为1，对应的符号常量是 vbOK，那么此时表示用户做的操作是_______。

A

A. 用户单击了对话框中的“确定”按钮 B. 用户单击了对话框中的“取消”按钮 C. 用户单击了对话框中的“是”按钮 D. 用户单击了对话框中的“否”按钮

35 在Visual Basic中，InputBox函数的默认返回值类型为字符串，用InputBox函数输入数值型数据时，下列操作中可以有效防止程序出错的操作是_______。 A

第 3 页 共 50 页

省二级考试VB试题汇总

A. 事先对要接收的变量定义为数值型

B. 在函数InputBox前面使用Str函数进行类型转换

C. 在函数InputBox前面使用Value函数进行类型转换 D. 在函数InputBox前面使用String函数进行类型转换 36 表达式Len(\程序设计ABC\的值是_______。 A

A. 10 B. 14 C. 20 D. 17

37 赋值语句g = 123 + Mid(\执行后，变量g中的值是_______。 D

A） \ B） 123C） 12334 D） 157

38 如果x是一个正实数，对x的第3位小数四舍五入的表达式是_______。B A. 0.01 * Int(x + 0.005)

B. 0.01 * Int(100 * (x + 0.005)) C. 0.01 * Int(100 * (x + 0.05)) D. 0.01 * Int(x + 0.05)

39 MsgBox函数的返回值的类型是_______。 A

A） 整数 B） 字符串 C）逻辑值 D） 日期

40 使用下列语句：Dim x(1 to 10,3) As Single，则数组占用内存空间的字节数是_______。 A. 132 B. 80 C. 160 D. 120 41 若x=1，执行语句If x Then x = 0 Else x = 1的结果是_______。 D A. 实时错误 B. 编译错误 C. x=1 D. x=0 42 下列程序段的循环结构执行后，i的输出值是_______。 C

Dim y as Integer

For i = 1 To 10 Step 2 y = y + i Next i

Print i

A) 25 B) 10 C) 11 D) 因为y初值不知道，所以不确定 43 以下程序段的运行结果是_______。 D

Private Sub Form_Click() x = 5 m = 1 n = 1 Do

m = m * n n = n + 1 Loop Until n > 5 Print x ^ 2 + m / 3 End Sub

A. 25 B. 45 C. 55 D. 65 44 以下程序段的运行结果是_______。 A

Private Sub Form_Click() Dim s As Long, f As Long

Dim n As Integer, i As Integer f = 1 n = 4 For i = 1 To n f = f * i

第 4 页 共 50 页

C 省二级考试VB试题汇总

s = s + f Next i Print \End Sub

A. 33 B. 34 C. 35 D. 36 45 以下程序段的运行结果是_______。 A

Private Sub Form_Click() a = 1 b = a Do Until a >= 5 X = a * b

Print Str(a) & \ a = a + b b = b + a Loop End Sub

A. 1*1=1 2*3=6 B. 1*1=2 2*2=4 C. 1*1=1 3*3=9 D. 1*1=2 3*2=6

46 下面分别是求两个数中的大数的四个程序段，_______不正确。 D

A) Max=IIf(x>y,x,y) B) If x>y Then Max=x Else Max=y C) Max=x D) If y>=x Then Max=y If y>=x Then Max=y Max=x 47 下列循环能正常结束的是_______。 C A. i=5 B. i=1

DO DO i=i+1 i=i+2

Loop Until i<0 Loop Until i=10 C. i=10 D. i=6 DO DO i=i+1 i=i-2

Loop Until i>0 Loop Until i=1

48 有如下程序，运行时从键盘输入4，则输出的结果是_______。 B

Private Sub Form_Click()

a=InputBox(\ Select Case a Case Is>2 b=a+1 Case Is>3 b=a+2 Case Is>5 b=a+3 Case Else b=a+4 End Select Print a;b End Sub

第 5 页 共 50 页

省二级考试VB试题汇总

A. 4 4 B. 4 5 C. 4 6 D. 4 7

49 执行如下程序段时，从键盘输入-5，输出的结果是_______。 A

x=-5

s=Val(InputBox(\请输入s的值:\ Select Case s Case Is>0 y=x+1 Case Is=0 y=x+2 Case Else y=x+3 End Select Print x;y

A. -5 -2 B. -5 -4 C. -5 -3 D. -5 -5

50 某林场1995年植树100亩，以后每年的植树面积按5%的速度增长，能正确计算到1998年时四年的植树总面积的程序是_______。 B

A. s=100:r=0.05 B. s=100:sum=100:r=0.05 For i=1996 To 1998 For i=1996 To 1998 s=s*(1+r) s=s*(1+r) Next i sum=sum+s Print i Next i End Print sum

C. s=100:r=0.05 D. s0=100:sum=100:r=0.05 For i=1996 To 1998 For i=1996 To 1998 s=s*(1+r)+s s=s0*(1+r) Next i sum=sum+s Print i Next i End Print sum

51 以下程序段执行后，变量s、x的值分别为 _______。 C

Dim s As Integer, x As Integer s = 10: x = 1 Do While x < 10 s = s + 2 x = x + 2 Loop

Print s, x

A. 50 11 B.20 10 C. 20 11 D. 100 10 52 以下程序段的执行结果是_______。 A

For i=1 To 4 x=2

For j=1 To 3 x=1 For k=1 To 2 x=x+3

第 6 页 共 50 页

省二级考试VB试题汇总

Next k Next j Next i

Print x

A. 7 B. 6 C. 56 D. 72

53 用语句 Dim A(-3 to 5) As Long 定义的数组元素个数是_______。 C A. 7 B. 8 C. 9 D.10 54 以下程序运行的结果是_______。 D

Dim a

a=Array(1, 3, 4, 5, 6, 7)

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

Print a(i)

A) 49 B) 0 C) 不确定 D) 下标越界

55 在窗体上添加一个命令按钮Command1，然后编写如下代码：

Private Sub Command1_Click() Dim city As Variant

city = Array(\北京\上海\天津\重庆\ Print city(1) End Sub

程序运行后，单击命令按钮，输出结果是_______。 D

A. 空白 B. 错误提示 C. 北京 D. 上海 56 以下程序运行的结果是_______。 D

Option Base 1

Private Sub Command1_Click() Dim a,b(3,3)

a=array(1,2,3,4,5,6,7,8,9) For i=1 To 3 For j=1 To 3 b(i,j)=a(i*j)

If (j>=i) Then Print Tab(j*3);Format(b(i,j),\ Next j Print Next i End Sub

A. 1 2 3 B. 1 C. 1 4 7 D.1 2 3 4 5 6 4 5 2 4 6 4 6 7 8 9 7 8 9 3 6 9 9 57 在窗体上画一个命令按钮Command1，然后编写如下代码：

Private Sub Command1_Click() Dim arr1(10), arr2(10) As Integer n = 3 For i = 1 To 5 arr1(i) = i

第 7 页 共 50 页

arr2(n) = 2 * n + i Next i

Print arr1(n),arr2(n); End Sub

程序运行后，单击命令按钮，输出结果是 _______。 B

A) 11 3B) 3 11 C) 13 3 D) 3 13 58 在窗体上画一个命令按钮Command1，然后编写如下代码：

Private Sub Command1_Click() Dim a(4, 4) For i = 1 To 4 For j = 1 To 4 a(i, j) = (i - 1) * 3 + j Next j Next i For i = 3 To 4 For j = 3 To 4 Print a(j, i); Next j Print Next i End Sub

程序运行后，单击命令按钮，输出结果是_______。 D

A. 6 9 B. 7 10 C. 8 11 D. 7 10 8 11 9 12 59 有如下程序：

Private Sub Form_Load()

Dim arr1(10, 10) As Integer Dim i, j As Integer For i = 1 To 3 For j = 2 To 4 arr1(i, j) = i + j Next j Next i

Text1.Text = arr1(2, 3) + arr1(3, 4) End Sub

程序运行后，单击窗体，在文本框显示的值是_______。 C A. 5 B. 7 C. 12 D. 20

60 在窗体上添加一个命令按钮Command1，然后编写如下代码：

Option Base 1

Private Sub Command1_Click() d = 0: c = 10

x = Array(10, 12, 21, 32, 24) For i = 1 To 5

If x(i) > c Then d = d + x(i) c = x(i)

第 8 页 共 50 页

省二级考试VB试题汇总

9 12 10 13 省二级考试VB试题汇总

Else d = d - c

End If Next i Print d End Sub

程序运行后，单击命令按钮，输出结果是_______。 C A. 89 B. 99 C. 23 D. 77

61 下列语句声明的数组a包含的元素个数有_______。 A

Dim a(3 ，-2 to 2，5)

A. 120 B. 75 C. 60 D. 13 62 定义数组Array(1 to 5,5)后，下列哪一个数组元素不存在_______。 C A. Array(1,1) B. Array(1,0) C. Array(0,1) D. Array(5,5)

63 在Visual Basic应用程序中，以下描述正确的是_______。 B A. 过程的定义可以嵌套，但过程的调用不能嵌套 B. 过程的定义不可以嵌套，但过程的调用可以嵌套 C. 过程的定义和过程的调用均可以嵌套 D. 过程的定义和过程的调用均不可以嵌套 64 假定有如下的Sub过程：

Sub swapp(x As Single, y As Single) t = x x = t / y y = t Mod y End Sub

在窗体上添加一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click() Dim a As Single Dim b As Single a = 5: b = 4 swapp a, b Print a, b End Sub

程序运行时，单击命令按钮得到的结果是_______。 D A. 5 4 B. 1 1 C. 1.25 4 D. 1.25 1

65 以下程序的运行结果是_______。 C

Function fun(a As Integer) b = 0 Static c b = b + 1 c = c + 1 fun = a + b + c End Function

Private Sub Command1_Click() Dim a As Integer

第 9 页 共 50 页

省二级考试VB试题汇总

a = 2 For i = 1 To 3

Sum = Sum + fun(a) Next i Print Sum End Sub

A. 24 B. 12 C. 15 D. 32 66 阅读程序：

Sub subp(b() As Integer) For i = 1 To 4 b(i) = 2 * i Next i End Sub

Private Sub Command1_Click() Dim a(1 To 4) As Integer

a(1) = 5: a(2) = 6: a(3) = 7: a(4) = 8 subp a For i = 1 To 4 Print a(i); Next i End Sub

程序运行时，单击命令按钮得到的结果是_______。 A A. 2 4 6 8 B. 5 6 7 8 C. 10 12 14 16 D. 出错 67 假定有以下两个过程：

Sub s1(ByVal x As Integer, ByVal y As Integer) Dim t As Integer t = x x = y y = t End Sub

Sub s2(x As Integer, y As Integer) Dim t As Integer t = x x = y y = t End Sub

则以下说法中正确的是_______。 B

A. 用过程S1可以实现交换两个变量的值的操作，S2不能实现 B. 用过程S2可以实现交换两个变量的值的操作，S1不能实现 C. 用过程S1和S2都可以实现交换两个变量的值的操作 D. 用过程S1和S2都不能实现交换两个变量的值的操作

68 在窗体上添加一个命令按钮Command1和两个名称分别为Label1和Label2的标签，在通用声明段声明变量x,并编写如下事件过程和SUB过程：

Private x As Integer

Private Sub Command1_Click()

第 10 页 共 50 页

省二级考试VB试题汇总

x = 5: y = 3 Call proc(x, y)

Label1.Caption = x Label2.Caption = y End Sub

Sub proc(ByVal a As Integer, ByVal b As Integer) x = a * a y = b + b End Sub

程序运行后，单击命令按钮，则两个标签中显示的内容分别是_______。B A) 5和3 B) 25和3 C) 25和6 D) 5和6 69 下列程序输出结果为_______。A

Private Sub Command1_Click() For i = 1 To 3

GetValue (i) Next i

Print GetValue(i) End Sub

Private Function GetValue(ByVal a As Integer) dim S As Integer S = S + a GetValue = S End Function

A. 4 B. 5 C. 10 D. 11 70 以下程序的运行结果是_______。 C

Dim x As Integer, y As Integer, z As Integer Sub s2(a As Integer, ByVal b As Integer) a = 2 * a b = b + 2 End Sub

Private Sub Command1_Click() x = 4 y = 4 Call s2(x, y) Print x + y End Sub

A) 0 B) 8 C) 12 D) 14 71 以下程序的运行结果是_______。 C

Private Sub Form_Click() a = 1: b = 1

Print \ Call mult(a, b)

Print \ End Sub Sub mult(x, y)

第 11 页 共 50 页

省二级考试VB试题汇总

x = 2 * x y = 3 * y End Sub

A. A=1 B=1 B. A=1 B=1 C. A=1 B=1 D. A=1 B=1 A=1 B=1 A=1 B=3 A=2 B=3 A=2 B=1

72 在窗体上添加一个命令按钮Command1和3个名称分别为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

程序运行后，连续3次单击命令按钮，则3个标签中显示的内容分别是_______。 C A. 10 10 10 B. 30 30 30 C. 30 30 10 D. 10 30 30 73 一个工程中包含两个名称分别为Form1和Form2的窗体，一个名称为mdlfunc的标准模块。假定Form1,Form2和mdlfunc中分别建立了自定义过程，其定义格式为： Form1中定义的过程：

Private sub frmFunction1() … End Sub

Form2中定义的过程： Pubilc sub frmFunction2() … End Sub

Md1func中定义的过程： Public sub md1Function () … End Sub

在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是_______。 D A. 上述三个过程都可以在工程中的任何窗体或模块中被调用

B. frmFunction2和md1Function过程能够在工程中各个窗体或模块中被调用 C. 上述三个过程都只能在各自被定义的模块中调用

D. 只有md1Function过程能够被工程中各个窗体或模块调用 74 以下程序段的运行结果是_______。 B

Function abc(n As Integer) As Integer abc = n * 5 + 10 End Function

Private Sub Form_Click() Dim x As Integer

第 12 页 共 50 页

省二级考试VB试题汇总

x = abc(234) + 109 * abc(10) Print x End Sub

A. 7700 B. 7720 C. 2340 D. 7770 75 下列程序运行后显示的结果是_______。 A

Public Sub F1(n%,ByVal m%)Private Sub Command1_Click() n=n Mod 10Dim x%,y% m=m\\10x=12:y=34 End Sub Call F1(x,y) Print x,y End Sub

A. 2 34 B. 12 34 C. 2 3 D. 12 3 76 以下关于窗体的描述中，错误的是_______。 A

A. 执行Unload Form1语句后，窗体Form1消失，但仍在内存中 B. 窗体的load事件在加载窗体时发生

C. 当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止 D. 窗体的Height、Width属性用于设置窗体的高和宽

77 若要使某命令按钮获得控制焦点，则可使用_______方法来设置。B A. Refresh B. SetFocus C. GotFocus D. Value

78 设组合框Combo1中有3个项目，则能删除最后一个项的语句是_______。B A. Combo1.RemoveItem Text B. Combo1.RemoveItem 2 C. Combo1.RemoveItem 3

D. Combo1.RemoveItem Combo1.Listcount

79 将数据项\添加到列表框List1中，成为第一项应使用语句_______。A A. List1.AddItem \ B. List1.AddItem \ C. List1.AddItem 0, \ D. List1.AddItem 1, \

80 假定时钟控件的Interval属性为1000，Enabled属性为True，并且有下面的事件过程，计算机将发出_______次Beep声。 D

Private Sub Timer1_Timer() For i = 1 To 5 Beep Next i End Sub

A. 1000次 B. 10000次 C. 5次 D. 以上都不对

81 将命令按钮Command1的标题作为文本框Text1的文本内容，应执行语句_______。 B A. Text1= Command1

B. Text1.Text= Command1.Caption C. Text1.Caption=Command1.Caption D. Text1.Text= CStr(Command1)

82 下列控件可以用作其他控件容器的有_______。 D A. 窗体，标签，图片框

第 13 页 共 50 页

省二级考试VB试题汇总

B. 窗体，框架，文本框 C. 窗体，图像，列表框 D. 窗体，框架，图片框

83 改变驱动器列表框的Drive属性将激活_______事件。 A

A) Change B) Scroll C) KeyDown D) KeyUp 84 在窗体上添加一个列表框和一个文本框，然后编写如下两个事件过程：

Private Sub Form_Load() List1.AddItem \ List1.AddItem \ List1.AddItem \ List1.AddItem \End Sub

Private Sub List1_DblClick() a = List1.Text

Print a + Text1.Text End Sub

程序运行后，在文本框中输入\，然后双击列表框中的\，则输出结果为_______。 B A. 1245 B. 456789 C. 789 456 D. 0 85 在窗体上添加一个文本框，然后编写如下事件过程：

Private Sub Form_Load() Text1.Text = \ For i = 1 To 10

Sum = Sum + i Next i

Text1.Text = Sum End Sub

上述程序的运行结果是_______。 A

A. 在文本框Text1中输出55 B. 在文本框Text1中输出0

C. 出错 D. 在文本框Text1中输出不定值

86 在窗体上添加一命令按钮Command1，并将其Caption属性设置为cmdAA、名称属性设置为cmdBB，则关于该控件的下列_______语句是正确的。 C A. Command1.Left=100 B.cmdAA.Left=100 C. cmdBB.Left=100 D. 以上语句都不对

87 在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。在List1的单击事件过程中能正确实现上述功能的语句是_______。 D

A） Label1.Caption = List1.ListIndex B) Label1.Name = List1. ListIndex C） Label1.Name = List1.Text D） Label1.Caption = List1.Text

88 下面对语句 Open \的功能描述错误的是_______。C A. 以顺序输出模式打开文件\

B. 如果文件\不存在，则建立一个新文件

C. 如果文件\已存在，则打开该文件，新写入的的数据将添加到文件末尾 D. 如果文件\已存在，则打开该文件，新写入的的数据将覆盖原来的数据 89 执行语句Open \ #1 Len = 50 后，对文件\中的数据能够进

第 14 页 共 50 页

省二级考试VB试题汇总

行的操作是_______。 C A. 只能写不能读 B. 只能读不能写

C. 即可以读，也可以写 D. 不能读，也不能写

90 下列说法错误的是_______。 C

A) 当用Write # 语句写顺序文件时，文件必须以Output或Append方式打开 B) 用Input方式打开一个文件时，对同一个文件可以用几个不同的文件号打开 C) 用Output和Append方式打开文件时，不用将文件关闭，就能重新打开文件

D) 用Append方式打开文件时，进行写操作，写入文件的数据附加到原来文件的后面 91 下面几个关键字均表示文件的打开方式，只能进行读不能写的是_______。 A A. Input B. Output C. Random D. Append 92 下列哪个不是写文件语句_______。 D

A. Put B. Print C. Write D. Output 93 以下叙述中正确的是_______。B

A. 一个记录中所包含的各个元素的数据类型必须相同 B. 随机文件中每个记录的长度是固定的

C. Open命令的作用是打开一个已经存在的文件 D. 使用Input#语句可以从随机文件中读取数据

94 在窗体上添加一个命令按钮Command1和一个文本框Text1，然后编写如下事件过程：

Private Sub Command1_Click() Dim s As String * 20 s = Text1.Text …… End Sub

该程序的功能是当单击按钮Command1时，把变量S的内容写入一个顺序文件dat1.dat中，正确的程序段是_______。 B

A. Open \ B. Open \ Write #1, s Write #1, s Close #1 Close #1

C. Open \ D. Open \ Write #1, s Write #1, s Close #1 Close #1

95 FileFiles.Pattern=\程序代码执行后，会显示_______。 A A. 只包含文件扩展名为\的文件 B. 第一个dat文件 C. 包含所有的文件 D. 显示磁盘的路径

96 目录列表框的Path属性的作用是_______。A A. 显示当前驱动器或指定驱动器上的路径

B. 显示当前驱动器或指定驱动器上的某个目录下的文件名 C. 显示根目录下的文件

D. 只显示当前路径下的文件

97 为了使Drive1驱动器列表框、Dir1目录路径列表框和File1文件列表框同步协调工作，需要_______。 A

A. Drive1的Change事件过程中加入Dir1.Path = Drive1.Drive，在Dir1的Change事件中加入

第 15 页 共 50 页

本文来源：https://www.bwwdw.com/article/gn83.html