2014VB期末复习题(1)

一、单选题

1.下列说法有错误的是（ A ）

A)默认情况下，属性Visible的值为False

B)如果设置控的Visible属性为False，则运行时控件会隐藏

C)Visible的值可设为True或者False

D)设置Visible属性同设置Enabled属性的功能是相同的，都是使控件处于失

效状态。

2. 如果在程序中要将a定义为静态变量，且为整型数，则应使用的语句是（B）

A) Redim a As Integer

B) Static a As Integer

C) Public a As Integer

D) Dim a As Integer

3. 执行x$=InputBox(“请输入x的值”)时，在弹出的对话框中输入123，在列表框List1选中第1个列表项（数据为456），使y的值为123456的语句是（A）

A)y=x$+List1.List(0)

B)y=x$+List1.List(1)

C)y=Val(x$)+Val(List1.List(0))

D)y=Val(x$) & Val(List1.List(1))

4.下面的属性中，用于自动调整图像框中图形内容的大小的是（D）

A) Picture B)CurentY

C) CurentX D) Stretch

5. 在窗体上建立通用对话框需要添加的控件是（C）

A) Data 控件B) Form 控件

C) CommandDialog 控件D) VBComboBox 控件

6. 运行下列程序段后，显示的结果为（B）

J1=23

J2=32

If J1

A) 23 B) 32 C)55 D)2323

7. 不能脱离控件（包括窗体）而独立存在的过程是（A）

A) 事件过程B) 通用过程

C) Sub过程D) 函数过程

8. 下列说法错误的是C

A)窗体文件的扩展名为.frm

B)一个窗体对应一个窗体文件

C)Visual Basic中的一个工程只包含一个窗体

D)Visual Basic中一个工程最多可以包含255个窗体

9.下列四组控件属性中，属性值的类型不相同的一组是B

A)Label控件的Enabled属性与TextBox控件的Enabled属性

B)OptionButton控件的V alue属性与CheckBox控件的Value属性

C)Command控件的Default属性与Command控件的Cancel属性

D)Command控件的Visible属性与Form控件的Visible属性

10. 可以实现从键盘输入一个作为双精度变量a的值的语句是

A) a=inputbox( C)

B) a=InputBox(“请输入一个值”)

C) a=Val(InputBox(“请输入一个值”))

D) a=val(InputBox(A ))

11. 下列语句中，获得列表框List1中项目个数的语句是A

A)x=List1.ListCount B)x=ListCount

C)List1.ListIndex D)x=ListIndex

12. 要获得当前驱动器应使用驱动器列表框的属性是B

A)Path B)Drive

C)Dir D)Pattern

13. 要将名为MyForm的窗体显示出来，正确的使用方法是（A）

A) MyForm.Show B) Show.MyForm

C)MyForm Load D) MyForm Show

14. 下列程序段的执行结果为（C）

a =5

For k= 1 To 0

A=a + k

Next k

Print k;a

A) –1 6 B) –1 16 C) 1 5D) 11 21

15. 下列程序段的执行结果为（D）

I =9

X=5

Do

I=I+1

X=x+2

Loop Until I>=7

Print “I=”; I,

Print “x=”;x

A) I=4 x =5 B)I=7 x=15 C) I=6 x =8 D) I=10 x =7

16. 下面程序段，运行后的结果是（B）

Private Sub Command1_Click()

Dim b (1 To 4) As Integer, i As Integer, t As Long

For i = 1 To 4

b(i) = i

Next i

t = Tof(b())

Print "t="; t,

End Sub

Function Tof(a() As Integer)

Dim t As Long, i As Integer

t = 1

For i = 1 To UBound(a)

t = t * a(i)

Next i

Tof = t

End Function

A) t = 18 B) t= 24 C) t= 30 D) t= 32

17. 在Visual Basic中，组合框是文本框和什么的特性的组合？（C）

A) 复选框B) 标签

C) 列表框D) 目录列表框

18. 当滚动条位于最左端或最上端时，V alue属性被设置为（A）

A) Min B) Max

C) Max 和Min之间D) Max 和Min 之外

19. 有如下事件过程：B

Private Sub Command1_Click()

b = 10

Do Until b = -1

a = InputBox("请输入a的值")

a = Val(a)

b = InputBox("请输入b的值")

b = Val(b)

a = a * b

Loop

Print a

End Sub

程序运行后，依次输入数值30，20，10，-1，输出的结果为（B）

A) 6000 B) –10C) 200 D) –6000

20. 执行下面的程序段，x的值为____C_

Private Sub Command1_Click()

For i = 1 To 9

a = a + i

Next i

x = Val(i)

MsgBox x

End Sub

A) 45 B) 0 C) 10D) 9

21. Visual Basic与机器语言或汇编语言相比，具有的特点是___D___。

A) 运行速度快B) 表达方式接近自然语言，占用内存少

C) 可以被计算机直接识别、运行D) 表达方式接近自然语言，易学易掌握

22. 表示控件在窗体上位置的属性是_____A_。

A) Top和Left B) Height和Width

C) Top或Left D) Enabled和Visible

23.以下可以用作其他控件容器的控件是____C__。

A) 窗体、列表框、图像框B) 窗体、文本框、框架

C) 窗体、框架、图片框D) 窗体、标签、图片框

24. 以下关于窗体的叙述中，错误的是__D____。

A) 窗体的Name属性用于标识一个窗体

B) 运行程序时，改变窗体大小，能够触发窗体的Resize事件

C) 窗体的Enabled属性为False时，不能响应单击窗体的事件

D) 程序运行期间，可以改变Name属性值

25.设a=2，b=3，c=4，d=5，表达式a <= c Or 4 * c = b ^ 2 And b <> a + c的值是__D____。

A）-1 B）1 C）False D）True

26. VB中有3个键盘事件：KeyPress、KeyDown和KeyUp，若光标在Text1文本框中，则每输入一个字母时，下列选项正确的是____C__。

A) 只触发KeyPress事件B) 只触发KeyDown、KeyUp事件

C) 这3个事件都会触发D) 不触发其中任何一个事件

27. 定义静态变量的关键字是____D__。

A) Private B) Dim C) Public D) Static

28. 下列表达式中不能判断x是否为偶数的是_B_____。

A) Fix(x/2)=x/2 B) x\2=0 C) x/2=Int(x/2) D) x Mod 2=0

29.以下叙述中错误的是_____A_。

A) 当一行中有多个语句时，看可以用逗号作为分隔符

B) 在Dim语句中，所定义的多个变量可以用逗号作为分隔符

C) 在Print方法中，多个输出项之间可以用逗号作为分隔符

D) 在自定义过程中，多个形式参数之间可以用逗号作为分隔符

30.当一个复选框被选中时，它的Value属性的值是__B____。

A) 0 B) 1 C) 2 D) Ture

31.以下关于Timer控件的描述错误的是____A__。

A) Timer控件可根据需要改变大小

B) Timer控件在运行时不可见

C) Timer 控件的Interval属性为0时，时钟不可用

D) Timer控件的Enabed属性为False时，时钟不可用

32． y=IIf(x>0,x Mod 3,0)，若x=1,则y的值是_B_____。

A) 0 B) 1 C) 3 D) 语句有错

33.“一辆小客车在正常行进过程中被一辆大型货车撞坏了”，在这句话中，“客车”、“小”、“行进”和“被一辆大型货车撞坏了”分别对应Visual Basic中的哪些术语_D_____。

A) 对象、属性、事件、方法B) 对象、属性、方法、事件

C) 属性、对象、事件、方法D) 属性、对象、方法、事件

34. Print Format(12.3456, "00000.00%")语句的输出结果是_____A_。

A) 01234.56% B) 1234.56% C) 12.34%D) 12.3400%

35.现有由多个单选按钮构成的控件数组，用于区别该控件数组中各控件的属性是B______。

A) Name B) Index C) Caption D) V alue

36.在窗体上有一个名为Cd1的通用对话框，为了在运行程序时打开保存文件对话框，则在程序中应使用的语句是___B___。

A) Cd1.Action=1 B) Cd1.Action=2

C) Cd1.ShowSave=0 D) Cd1.ShowSave=0

37.下面正确使用动态数组的是___B___。

A) Dim arr(30) As Integer B) Dim arr()

…………

ReDim arr(10) ReDim arr(30) As Integer

C) Dim arr() As Integer D) Dim arr()

…………

ReDim arr(30) As String ReDim arr(3,6)

38.下列关于局部变量的叙述中错误的是__D____。

A) 在过程中用Dim语句或Static语句声明的变量是局部变量

B) 局部变量的作用域是它所在的过程

C) 在过程中用Static语句声明的变量时静态局部变量

D) 过程执行完毕，该过程中用Dim或Static语句声明的变量即被释放

39．某人创建了1个工程，其中的窗体名称为Form1;之后又添加了1个名为Form2的窗体,并希望程序执行时先显示Form2窗体,那么,他需要做的工作是_A_____。

A) 在工程属性对话框中把"启动对象"设置为Form2

B) 在Forml的Load事件过程中加入语句Load Form2

C) 在Form2的Load事件过程中加入语句Form2.Show

D) 把Form2的TabIndex属性设置为l,把Form1的TabIndex属性设置为2

40.设已打开5个文件，文件号分别为1,2,3,4,5。要关闭所有文件，以下语句正确的是__D____。

A) Close #1,2,3,4,5 B) Close #1;#2;#3;#4;#5

C) Close #1-#5 D) Close

41. 程序运行后，单击命令按钮，在Text1中输入1000，则窗体上显示的是 D 。Private Sub Command1_Click()

Dim x As Integer, y As Integer

x = Text1.Text: y = 0

If x >= 1000 Then y = y + 1

If x < 1000 And x > 500 Then

y = y + 2

Else

y = y + 3

End If

Print y

End Sub

A）1 B）2 C）3 D）4

42. 程序运行后，单击命令按钮，窗体上显示的是 A 。

Private Sub Command1_Click()

Select Case Int(Rnd(0) + 1) + Int(Rnd(1) - 1)

Case 0

Print "good"

Case 1

Print "pass"

Case 2

Print "ok"

Case -1

Print "bad"

End Select

A）good B）pass C）ok D）bad

End Sub

43. 程序运行后，单击命令按钮，窗体上显示的是 C 。

Private Sub Command1_Click()

Dim a As Integer, b As Integer

a = 1:

b = a

Do Until a >= 5

x = a * b

Print b; x

a = a + b

b = b + a

Loop

End Sub

A）1 1 B）1 1 C）1 1 D）1 1

2 3 2 4 3 6 3 8 44. 程序运行后，单击命令按钮，窗体上显示的是 C 。

Private Sub Command1_Click()

Dim a(5) As String

For i = 1 To 5

a(i) = Chr(Asc("A") + (i + 1))

Next i

For Each b In a

Print b;

Next b

End Sub

A) ABCDE B) BCDEF C) CDEFG D) 12345

45. 以下程序运行时的输出结果是 B 。

Private Sub Command1_Click()

Dim x(10) As Integer, y(5) As Integer

For i = 1 To 10

x(i) = 10 - i + 1

Next i

For i = 1 To 5

y(i) = x(2 * i - 1) + x(2 * i)

Next i

For i = 1 To 5

Print y(i);

Next i

End Sub

A ）3 7 11 45 19

B ）19 15 11 7 3

C ）1 3 5 7 9

D ）不确定的值

46. 运行程序，单击命令按钮Command1时,输出结果为 D 。 Private Sub Command1_Click() Dim a,b,c as integer a=10 : b=20 : c=30 Call sub1(a, b, c) Print a ; b ; c End Sub

Private sub Sub1(Byval a As Integer, Byval b As Integer,c As Integer) a=a+b b=b-c c=c+a End Sub

A) 10 20 30 B) 10 20 40 C) 30 -10 60 D) 10 20 60 47. 运行程序，单击命令按钮Command1时,输出结果为 B 。 Private Sub Command1_Click() For i = 1 To 3 Step 1 Print Tab(5 - i); For j = 1 To 2 * i - 1 Print "*"; Next j Print Next i End Sub

A) B) C) D) 48. 运行程序，单击命令按钮Command1时,输出结果为 B 。 Private Sub Command1_Click() Dim total As Integer total = s(1) + s(2) Print total End Sub

Private Function s(m As Integer) As Integer Static x As Integer For i = 1 To m x = x + 1 Next i s = x

End Function

A ）3

B ）4

C ）10

D ）16

49. 程序运行后，在文本框中输入3，然后单击命令按钮，则输出结果为B 。 Private Sub Command1_Click() x = Val(Text1.Text)

* *** ***** * *** ***** * *** ***** *****

*** *

Select Case x

Case 1, 3

y = x * x

Case Is >= 1, Is <= -1

y = x

Case -10 To 10

y = -x

End Select

Print y

End Sub

A）-3 B）9 C）3 D）-9

50. 程序运行后，单击命令按钮，窗体上显示的是 A 。

Private Sub Command1_Click()

Dim i As Integer, jc As Integer

sum = 0: jc = 1

For i = 1 To 3

jc = jc * i

sum = sum + jc

Next i

Print sum

End Sub

A）9 B）6 C）3 D）2

51. 程序运行后，单击命令按钮，窗体上显示的是 D 。

Private Sub Command1_Click()

Dim i As Integer, x As String, y As String

x = "ABCDEFG"

For i = 1 To 4

y = Mid(x, i, i) + y

Next i

Print y

End Sub

A) DCBA B) DDDDCCCBBA C) ABCD D) DEFGCDEBCA

52. 运行程序后，单击命令按钮，并依此输入1，5，-2，-4，9，2，-999，输出结果为 A 。Private Sub Command1_Click()

Dim x As Integer, i As Integer, s As Single

x = Val(InputBox("请输入数据："))

Do While x <> -999

If x < 0 Then i = i + 1

s = s + x

x = Val(InputBox("请输入数据："))

Loop

Print i; s

End Sub

A）2 11 B）2 -6 C) 3 -1005 D) 3 -988

53. 程序运行时，单击命令按钮，则输出结果为 B 。

Private Sub Command1_Click()

Dim a As Integer, b As Integer

a = 13:

b = 27

Print Fun(a, b); a; b

End Sub

Private Function Fun(ByVal a As Integer, b As Integer) As Integer

a = a Mod 5

b = b \ 5

Fun = a

End Function

A）3 8 5 B）3 13 5 C）3 13 27 D）13 13 27 54. 程序运行时，单击命令按钮，则列表框中数据为 A 。

Private Sub Command1_Click()

Dim a(1 To 5) As Integer, i As Integer

For i = 1 To 5

a(i) = i - 1

List1.AddItem a(i)

Next i

For i = 1 To 2

List1.RemoveItem i

Next i

End Sub

A）0 2 4 B）0 3 4 C）2 3 4 D）1 3 4 55. 程序运行时，单击命令按钮，则输出结果为 B 。

Private Sub Command1_Click()

Dim a(10) As Integer

For i = 1 To 10

a(i) = 10+i

Next i

For i = 1 To 10

For j = 2 To a(i) - 1

If a(i) Mod j = 0 Then Exit For

Next j

If j < a(i) - 1 Then

Print a(i);

End If

Next i

End Sub

A）12 14 16 18 20 B）12 14 15 16 18 20

C）11 13 17 19 D）11 13 15 17 19

56. 程序运行后，单击命令按钮，窗体上显示的是 D 。

Private Sub Command1_Click()

Dim i As Integer, j As Integer

Dim a(10, 10) As Integer

For i = 1 To 3

For j = 1 To 3

a(i, j) = (i - 1) * 3 + j

Print a(i, j);

Next j

Print

Next i

End Sub

A）1 2 3 B）1 2 3 C）1 2 3 D）1 2 3

2 4 6

3

4

5 2 5 8 4 5 6

3 6 9

4

5

6 3 6 9

7

8 9

57 保存一个工程文件至少应保存两个文件，这两个文件是__B____。

A) 文本文件和工程文件B) 窗体文件和工程文件

C) 窗体文件和标准模块文件D) 类模块和工程文件

58 结构化程序设计用到的三种基本结构是______A。

A) 顺序结构、选择结构、循环结构B) 顺序结构、逻辑结构、循环结构

C) 逻辑结构、选择结构、递归结构D) 逻辑结构、选择结构、循环结构

59在语句Text1.Text="Welcome"中，Text1、Text、"Welcome"分别代表_B_____。

A) 对象、方法和事件B) 对象、属性和值

C) 对象、属性和方法D) 对象、方法和值

60所有控件均具有的属性是___C___属性。

A) Caption B) Text C) Name D) Visible

61下列可作为Visual Basic变量名的是C

A) A#A B) 4ABC C) Print_Text D)?xy

62在Visual Basic集成开发环境中，可以列出工程中所有模块名称的窗口是_____B_。

A) 属性窗口B) 工程资源管理器窗口C) 窗体设计窗口D) 工具箱窗口63如果一个变量未经定义就直接使用，则该变量的类型为___D__。

A) Integer B) Byte C) Boolean D) Variant

64 以下能触发文本框Change事件的操作是____D_。

A) 文本框失去焦点B) 文本框获得焦点

C) 当文本框不可用时D) 改变文本框的内容

65 语句Print Sgn(-4^5)+Abs(-4^5)+Int(-4^5)的输出结果是__D____。

A) -120 B) -60 C) 1 D) -1

66设A="123456"，则表达式Val(Left(A,4)+Mid(A,4,2))的值为_B_____。

A) 123456 B) 123445 C) 5 D) 6

67表达式Int(Rnd(0)+1) + Int(Rnd(1)-1)的值为____A__。

A) 0 B) 1 C) 2 D) -1

68运行下列程序会弹出出错信息，产生错误的原因是（A ）。

x = 5

Dim A(x)

For i = 1 To 5

A(i) = i + 1

Next i

A) Dim语句中不能用变量x来定义数组的下标B) 变量x没有定义

C) 循环变量的范围越界D) 数组元素A(i)的下标越界

69列表框的AddItem方法可以____B__。

A) 用来修改列表框中的任意数据项B) 用来向列表框中添加数据项

C) 每次可修改列表框中的多个数据项D) 每次向列表框中添加多个数据项

70．将通用对话框类型设置为“另存为”对话框，应修改的属性是___C___。

A) Filter B) Font C) Action D) FileName

71．Option Explicit语句，用于拒绝变量的隐式声明，该语句不能放在__D____。

A) 窗体模块的声明段中B) 标准模块的声明段中

C) 类模块的声明段中D) 事件过程中

72.若窗体上的图片框中有一个命令按钮，则此按钮的Top属性是指_B_____。

A) 按钮上边到上边界的距离

B) 按钮上边到图片框上边界的距离

C) 按钮中心点到窗体上边界的距离

D) 按钮中心点到图片框上边界的距离

73.下面关于标准模块的叙述中错误的是_____D_。

A) 标准模块中可以声明全局变量

B) 一个工程中可以含有多个标准模块

C) 标准模块中可以包含一些Public过程

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

74.以下关于函数过程的叙述中，正确的是____B__。

A) 在函数过程中，过程的返回值可以有多个

B) 函数过程形参的类型与函数返回值的类型没有关系

C) 如果不指明函数过程参数的类型，则该参数没有数据类型

D) 当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递

75.以下描述中错误的是___A___。

A) 在多窗体应用程序中，可以有多个当前窗体

B) 多窗体应用程序的启动窗体可以在设计时设定

C) 多窗体应用程序中每个窗体作为一个磁盘文件保存

D) 多窗体应用程序可以编译生成一个EXE文件

76.以下关于顺序文件的描述中，正确的是__B___。

A) 可以用不同的文件号以不同的读写方式同时打开同一个文件

B) 文件中各记录的写入顺序与读出顺序是一致的

C) 可以用Input # 或Line Input #语句向文件写记录

D) 如果用Append方式打开文件，则既可以在文件末尾添加记录，也可以读取原有记录

77. 下列哪个符号是合法的变量名____C__。

A) 123abc B) Abs C) No_1 D) x+y

78. 如果希望用变量X来存放数据1234.5678912应将X定义为_B_____。

A)单精度实型B) 双精度实型C)长整型D)字符型

79. 下列属于日期型常量的是__C____。

A) "2/1/2011" B) 2/1/2011 C) #2/1/2011# D){2/1/2011}

80. 用户自定义数据类型时使用的关键字是___A___。

A) Type B) Dim C) Public D) Const

81. 定义静态变量的关键字是___D___。

A) Private B) Dim C) Public D) Static

82. 表示x在10和20之间(不包括10和20)的VB表达式是___C___。

A) 1020

C) x>10 And x<20 D) x>10 Or x<20

83. 数学式子sin45°写成Visual Basic表达式是____D__。

A) Sin45 B) Sin(45) C) Sin(45°) D) Sin(45*3.14/180)

84. 把数值型数据转换为字符型数据的函数为__B____。

A) Val B) Str C) Asc D) Chr

85. 随机生成[1,6]之间的整数，所用表达式为___B___。

A) Int(6*Rnd) B) Int(1+6*Rnd) C) Int(6*Rnd-1) D) Int(7*Rnd-1)

86. 表达式Mid("asdf",2)+UCase("as")的值为____C__。

A) sdas B) sdfas C) sdfAS D) asAS

87. 用于截去字符串左右空格的函数是_____A_。

A) Trim() B) Rtrim() C) LTrim() D) Instr()

88. 用于获取字符ASCII码及将ASCII码转换为字符的函数是_C_____。

A) Str和Val B) Rtrim和LTrim C) Asc和Chr D) Time和Date

89.已知Str1="Visual Basic"，Str2="a"，下列表达式中结果为True的是__D____。

A) Instr(Str1,"a")+60>Asc(UCase(Str2)) B) Right(Str1,3)="cis"

C) Len(Str1)>2*Instr(Str1, "c") D) Mid (Str1,5,1) = Str2

90. 表达式4+5\6*7/8 Mod 9的值是____B__。

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

91. 表达式"12"+"34"和"12" & 34及表达式"12"+34的值分别是_B_____。

A) "1234" 、"1234" 和"1234" B) "1234" 、"1234" 和46

C) "46" 、"1234" 和"1234" D) 46 、"1234" 和"46"

92. Option Explicit语句，用于拒绝变量的隐式声明，该语句不能放在_D_____。

A) 窗体模块的声明段中B) 标准模块的声明段中

C) 类模块的声明段中D) 事件过程中

93.下列赋值语句合法的是____A__。

A) A = B + C B) B + C = A C) 2B = A D) A = 2B

94. 指出执行下面赋值语句后，哪组语句可使变量A的值为True__B____。

A) A = 5 = 6 B) A = 5 = 5 C) A = " 5 > 3 " D) A =" 5=3+2 "

95. 假设变量flag是一个逻辑型变量，则下面正确的赋值语句是__D____

A) flag = "True" B) flag="False" C) flag=3+4 D) flag=True

96. 下列哪组赋值语句能使变量p、q的值交换____C__。

A) p = q : q = p B) p = t : p = q : q = t

C) t = p : p = q : q = t D) t = p : q = t : p = q

97. 语句y=y+1的正确含义是__C____。

A)变量y的值与y+1的值相等 B)将变量y的值存到y+1中去

C) 将变量y的值加1后赋值给变量y D)变量y的值为1

98. 在Print中若使数据以紧凑格式输出，应在输出项之间加入哪种分隔符_B_____。

A)逗号 B)分号 C)空格 D)顿号

99. 下面的叙述中正确的是______A。

A) Spc函数不只能用于Print方法中，也能用于表达式

B) Tab函数不只能用于Print方法中，也能用于表达式

C) Spc函数和Tab函数都可使用在Print方法中确定输出项的位置

D) Tab函数能用于表达式, Spc函数不能用于表达式

100. 下列语句中错误的是____C__。

A)MsgBox a+b B)MsgBox a & b C) MsgBox a; b D)Print a; b

101. 已知变量d=100，则执行x=IIf（d>10,5,10）后，x的值为___A___。

A) 5 B) 10 C) 100 D) 0

102. 已知变量d=3，函数Choose（d,5,10,15,20）的返回值为___C___。

A) 5 B) 10 C) 15 D) 20

103. 当复选框（CheckBox）控件被选中后，其Value属性取值为__B____。

A) 0 B) 1 C) True D) False

104. 单选按钮（Option Button）控件被选中后，其V alue的属性值为_C__。

A) 是B) 否C) True D) False

105. 多种选项可同时选中的控件是___A_。

A) CheckBox B) Option Button C) CommandButton D) Frame

106. 列表框的AddItem方法可以____B__。

A) 用来修改列表框中的任意数据项B) 用来向列表框中添加数据项

C) 每次可修改列表框中的多个数据项D) 每次向列表框中添加多个数据项107. 如下程序段，其运行结果为____C__。

Dim x As Integer, y As Integer

x = 1: y = 0

Do While x <= 5

y = y + 5

x = x + 1

Loop

Print x, y

A) 4 15 B) 5 20 C) 6 25 D) 7 30

108. 如下程序段，其运行结果为__D____。

Private Sub Form_Click()

Dim str1 As String, i As Integer

str1 = "abc"

For i = Len(str1) To 1 Step -1

str1 = str1 & Mid(str1, i, 1)

Next i

Print str1

End Sub

A)abc B)cba C)abcabc D)abccba

109. 在窗体上放置4个命令按钮，组成一个名为Cmd的控件数组，用于标识控件数组各个元素的参数是（B ）。

A) Tag B) Index C) ListIndex D) Name

110. 以下定义的函数中，不是按“传地址”方式传递参数的是_B_____。

A) Public Function Sum(x,y)

B) Public Function Sum(Byval x,Byval y)

C) Public Function Sum(x as integer,y as integer)

D) Public Function Sum(x%,y%)

111.窗体中有如下子过程和一命令按钮Command1，单击Command1，输出结果为_A____。

Public Sub change(ByVal x As Integer, ByVal y As Integer)

Dim t As Integer

t = x: x = y: y = t

End Sub

Private Sub Command1_Click()

Dim a As Integer, b As Integer

a = 12:

b = 34

Call change(a, b)

Print a; b

End Sub

A) 12 34 B) 34 12 C) 21 34 D) 43 21

112. 已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为___C___。

Private Sub Command1_Click()

Print fun(3, 4)

End Sub

Public Function fun(x As Integer, y As Integer)

Dim i As Integer

fun = 1

For i = 1 To y

fun = fun * x

Next i

End Function

A) 3 B) 4 C)81 D)256

113. 执行以下程序，单击命令按钮Command1三次，输出结果为__D____。

Private Sub Print_number()

Static x

x = x + 10

Print x

End Sub

Private Sub Command1_Click()

Print_number

End Sub

A) 0 B) 10 C) 20 D) 30

114. 指出读文件过程中是否到了文件末端的函数是__D_。

A) END B) LOC C) LOF D) EOF

115. 以随机方式打开文件out.dat的语句是____B__。

A) Open “out.dat” For Input AS #fno

B) Open “out.dat” For Random AS #fno

C) Open “out.dat” For Append AS #fno

D) Open “out.dat” For Output AS #fno

116. 下面关于顺序文件的描述正确的是____C__。

A) 每条记录的长度必须相同

B) 可通过编程对文件中的某条记录方便地修改

C) 数据只能以ASCII码形式存放在文件中, 所以可通过文本编辑软件显示

D) 文件的组织结构复杂

117.为了把一个记录型变量的内容写入文件中指定的位置, 所使用的语句为_____B_。

A) Put #文件号,变量名,记录号B) Put #文件号, 记录号,变量名

C) Get #文件号,记录号,变量名D) Get #文件号, 变量名,记录号

118. 获得随机文件记录长度，应该使用的函数是__B____。

A) FileLen 函数和FreeFile B) Lof 函数和Len 函数

C) Loc 函数和Lof 函数D) Eof 函数和Lof 函数

119.将CommonDialog通用对话框以“打开”文件对话框方式打开，须选用的方法是_____A_。

A) ShowOpen B) ShowColor C) ShowFont D) ShowSave

120.通用对话框用来设定过滤文件类型的属性是_____D_。

A) Action B)FilterIndex C)Font D)Filter