大一VB语言程序期末考试习题及答案

大一VB语言程序设计期末考试题

一、选择题

1 下列常量中，是Integer类型常量的是（ C ）。

A、123&

B、-38844

C、123%

D、32768

2 下面选项中()是字符连接运算符.（ A ）

A、

B、

C、

D、

3

A、

B

C、"

D

4

A、

B、

C、

D、

5

A、

B、

C、

D、

6

A、

B、

C、

D、

7

A、,

B、;

C、:

D、、

8 将逻辑型数据转换成整型数据时，转换规则是（ D ）。

A、将True转换为 1 ，将False转换为 0

B、将True转换为 1 ，将False转换为 -1

C、将True转换为 0 ，将False转换为 -1

D、将True转换为 -1 ，将False转换为 0

9 表达式2+3*4^5-SIN(X+1)/2中最先进行的运算是(D).

A、SIN

D、x+1

10 如果x=2，则表达式x+1>2 Or sin(x)>0.9 And 3>x+3的值（ B ）。

A、不能计算

B、 True

C、5

D、False

11 随机产生[10，50] 之间整数的正确表达式是（ D ）。

A、Round( Rnd*50)

B、 Int(Rnd*40+10)

C、

D、

12

A

B

C

D

A、

B、

C、

D、

14

A、

B、

C、

D、

A

B

C

D

16

A、

B、[0,1]

C、[1,9]

D、[1,10]

17 以下合法的一组Visual Basic用户标识符是 C

A、Sum 和 8abc

B、a#x 和 Pi

C、ForLoop 和 Total

D、Const 和 DoWhile

18 函数Len(Str(Val("123.4")))的值为(B).

A、5

B、6

19 Int(198.555*100+0.5)/100的值为B

A、199.6

B、198.56

C、200

D、198

20 以下各表达式中, 计算结果为0的是(A).

A、FIX(12.4)+FIX(-12.6)

B、CINT(12.4)+CINT(-12.6)

C、INT(12.4)+INT(-12.6)

D、

21

A、

B、

C、

D、

A、

B、

C、

D、

23

A、

B、

C、

D、

24 设

A、

B、

C、

D、

25

A

B、

C、VB是在20世纪60年代美国Dartmouth学院开发的Basic语言基础上发展而形成的。

D、VB是由美国Microsoft（微软）公司开发程序设计语言。

26 表达式16 / 4-2^5*8 / 4 Mod 5 \ 2 = ( A )。

A、4

B、0

C、-2

D、 -6

27 声明符号常量应该用关键字(B).

A、Private

B、Const

C、Static

D、V26/ariant

28 下列数据类型中,占用内存最大的是(D).

A、Boolean

B、Integer

C、Byte

D、Single

29 下列VB数据类型中，占用内存最少的是（ D ）。

A、Currency

B、Integer

C、Boolean

D、Byte

(红.绿.

的整数.

有效,

A、

B、

C、

D、

31

A、

B、

C、

D、

32

A、

B、

C、

D、

33

A、

B、

C、

D、

34

A、工程管理窗口

B、运行一个应用程序

C、打开被选中对象的代码窗口

D、运行一个窗体

35 不需要编译，计算机便可直接执行的程序是（ B ）。

A、C语言程序

B、机器语言程序

C、汇编语言程序

D、 Visual Basic语言程序

36 Val (“123ab”)=（ D ）。

A、0

B、不能转换

C、1230

D、123

37 表达式16/4-2^5*8/4MOD5\2的值为 A

A、4

B、2

C、14

D、20

38 删除字符串前导和尾随空格的函数是(D).

A、Rtrim( )

B、Ltrim()

C、

D、

39

A、

B、

C、

D、

40

A、

B、

C、

D、

41

A、

B、

C、

D、

42 \、

A、

B、

C、

D、

43

A、

B、

C、x+y=1

D、x=y+z1

44 Len("实践应用能力")的值是(A).

A、6

B、4

C、不能确定

D、8

45 表达式Mid("SHANGHAI",6,3)的值是(C).

A、ANGH

B、SHA

C、HAI

D、SHANGH

46 表达式25\3 mod 3 *Int(4.5)的值为(B).

A、1

B、8

C、4

D、5

47 下面变量名称正确的是（C ）。

A、x □1

B、integer

C、 x_1_y

D、

48

A、

B、

C、

D、

49

A、

B、

C、

D、

50

A

B

C

D

51．

A

B

C

D、可视化

52 下面4

A、X_yz

B、X-Y

C、

D、integer

53 以下可以作为VB变量名的是(C).

A、COS(X)

B、X(-1)

C、CO1

D、SIN

54 表达式(7\3+1)*(18\5-1)的值是(B).

A、8.76

B、6

C、6.67

D、7.8

55 下列哪个变量名的取法是不正确的(C).

A、sTme

D、T_Temp

56 可以同时删除字符串前导和尾部空白的函数是(B).

A、Ltrim

B、Trim

C、Mid

D、Rtrim

57 VB窗体文件的扩展名是(A).

A、FRM

B、VBW

C、VBP

D、BAS

58

A

B

C

D

59

A、

B、

C、

D、

60 表达式

A、.5

B、0.48

C、.05

D、0.048

61

A、空

B

C、0

D、1

62

A、

B、

C、3xy

D、

63 当

A、字母

B

C、

D、不一定

64 表达式(-1)*Sgn(-100+Int(Rnd*100))的值是(A).

A、1

B、-1

C、随机数

D、0

65 表达式print Len(trim(" abcd ")&"123")的结果是 D

A、abcd

B、9

C、123

D、7

66 Rnd函数不可能产生的()值.B

A、0

B、1

67 下面变量名称不正确的是（ B ）。

A、x1

B、1x

C、 x1y

D、x_1

68 下列哪个变量名的取法是不正确的(B).

A、T_Temp

B、T32#

C、T32

D、TName

69 选中复选框控件时,value属性的值,可以是(C).

A、True

B、false

C、1

D、0

70

A、1

B、False

C、

D、 0

71

A、0

B、1

C、False

D、

72 下列()

A、frm

B、cls

C、dll

D、bas

73

A、

B、

C、

D、

74

A、

B、

C、

D、Click

75 要使窗体运行时充满整个屏幕，应设置其（ D ）属性。

A、AutoRedraw

B、Width

C、 Height

D、WindowState

76 要使得窗体一开始运行就充满整个屏幕则须设置()属性. A

A、windowstate

B、borderstyle

C、appearance

D、drawmode

77 要使一个文本框具有水平和垂直滚动条,则应先将其MultiLine

属性设置为True,然后再将ScrollBar属性设置为(A).

A、3

B、0

C、1

D、2

78 决定控件上文字的字体、字形、大小及效果的属性是(C).

A、TEXT

B、CAPTION

C、FONT

D、NAME

79 在窗体设计器窗口双击窗体的任何地方,可以打开的窗口是(A).

A、代码窗口

B、以上3个选项都不对

C、工程管理窗口

D、属性窗口

80

A

B

C

D

81

A

B

C

D

82 下面

A、标签框

B

C、文本框

D、单选钮

83

A、Name

B、Text

C、

D、

84

A、

B、

C、

D、

85

A

B

C

D

86若设置窗体的BorderStyle=1，则在程序运行时窗体的行为是（ A ）。

A、窗体没有最大化和最小化按钮，窗体可以移动，但不能改变大小。

B、窗体有最大化和最小化按钮，窗体既可以移动，也可以改变大小。

C、窗体没有最大化和最小化按钮，窗体既不能移动，也不能改变大小。

D、窗体有最大化和最小化按钮，窗体可以移动，但不能改变大小。

87 如果要设置窗体的标题栏,应选择以下那种属性(D).

A、Tips

B、Name

C、Text

D、Caption

88 要把一个命令按钮设置成无效,应设置其哪一属性值(D).

A、Visible

B、Default

D、Enabled

89 将焦点主动设置到指定的控件或窗体上,应采用(C)方法.

A、SetText

B、GetGata

C、SetFocus

D、SetData

90 要使标签控件的大小随Caption 属性值而自动调整，应设置其（B ）属性。

A、Alignment

B、AutoSize

C、Width

D、Caption

91 能够改变窗体边框线类型的属性是(C).

A、

B、

C、

D、

92 要使

A、

B、

C、

D、

93

A、

B、

C、

D、

94 在VB

A、.frx

B、.bas

C、.frm

D、.vbp

95

A、Style

B、Style

C、

D、

96

A、

B、Style

C、

D、

97

A、ForeColor

B、Name

C、Caption

D、Text

98 要使标签控件标题内容居中显示，应设置其（ B ）属性。

A、 ToolTipText

B、 Alignment

C、 BackStyle

D、 Appearance

99 使命令按钮获得“焦点”的方法是（ A ）。

A、SetFocus

B、Move

C、Refresh

100 改变控件在窗体中的上下位置应修改控件的()属性. C

A、Height

B、Wide

C、Top

D、Left

101、语句PRINT"SGN(-26)=";SGN(-26)的输出结果为（C）

A、SGN(-26)=-26

B、SGN(-26)=26

C、SGN(-26)=-1

D、SGN(-26)=+1

102、若要使得文本框的初始值为空,则应更改文本框的属性是（A）

A、text

B、index

C、name

D、

103、

A、tag

B、

C、

D、

104、

A、

B、

C、

D、

105、

A、

B、

C、

D、

106

A、Font

B、

C、

D、

107、

A、.frm

B、.vbp

C、.bas

D、.cls

108、

A、caption

B、text

C、name

D、width

109、(A)对象不具有Caption属性.

A、Timer

B、Form

C、Option

D、Label

110、一个窗体上有三个文本框，按放置顺序分别是：Text1，Text2，Text3 ，若使程序运行时Text3首先获得“焦点”，那么，应设置其（ B ）属性值为0 。

A、Index

B、Tabindex

C、Tag

D、Top

111、如果要改变窗体的标题,则需要设置的属性是( D ).

A、BorderStyle

B、Name

C、BackColor

D、Caption

112、欲使某命令按钮失效,应修改命令按钮的(C)属性.

A、Enable

B、Caption

C、Enabled

D、Visible

113、为使文本框显示滚动条,必须首先设置的属性是(D).

A、

B、

C、

D、

114、

A、Right

B、Left

C、Width

D、Top

115、

A、1

B、3

C、2

D、0

116

A

B

C

D

117、

A、

B、

C、

D、

118

Label1

A、

B、

C、

D、Private Sub Label1_Click()

119、如果设计时在属性窗口将命令按钮的(B)属性设置为False,

则运行时按钮从窗体上消失.

A、DisabledPicture

B、Visible

C、Default

D、Enabled

120、一个窗体上有两个文本框，按放置顺序分别是：Text1，Text2 ，要想在Text1中按“回车”键，“焦点”自动转到Text2上，应在（ D ）事件过程中编写程序。

A、Private Sub Text1_Click()

B、Private Sub Text2_GotFocus()

C、Private Sub Text1_LostFocus()

D、Private Sub Text1_KeyPress(KeyAscii As Integer)

121、文本框中选定的内容,由下列( A )属性反映.

A、Seltext

B、Caption

C、sellenght

D、Text

122、下面4项中不属于面向对象系统三要素的是( A ).

A、变量

B、事件

C、方法

D、属性

123、若要使命令按钮不可操作,要设置的属性是( A ).

A、Enabled

B、

C、

D、

124、

A、

B

C

D、

125、

A、

B、

C、

D、

126、

A、变体

B、数值

C、字符串

D

127、

A

B

C

D

128、

A、

B、

C、

D、left

129、

A、

B、FontSize

C、FontName

D、FontBold

130、Text1控件在运行时不可见,是设置下列(B)属性的结果.

A、Cancel

B、Visible

C、ControlBox

D、Enabled

131、若要使标签控件显示时,不覆盖其背景内容,应设置标签控件的(D)属性.

A、BORDERSTYLE

B、BACKCOLOR

C、FORECOLOR

D、BACKSTYLE

132、要使“命令按钮”在程序运行时不可见，可以将其（ C ）属性设置为False。

A、Cancel

B、Default

C、Visible

D、Enabled

133、下列赋值语句正确的是(D).

A、https://www.360docs.net/doc/6e15075527.html,=https://www.360docs.net/doc/6e15075527.html,+https://www.360docs.net/doc/6e15075527.html,

B、Text1.Caption=Text1.Caption+Text2.Caption

C、Text1.Enable=Text1.Enable+Text2.Enable

D、Text1.text=Text.text+Text2.text

134、不具有输入数据功能的控件是(C)控件.

A、列表框

B、选项按钮

C、窗体

D、文本框

135、

A、Load

B、Click

C、

D、

136、

A、

B、

C、

D、Text

137、

A

B

C

D

138、

End Sub

A、

C、

D、

139、下面

A、Line

B、

C、Timer

D、Text

140、若要清除列表框的所有内容,可用什么方法实现 C

A、以上均不可以

B、Cls

C、Clear

D、RemoveItem

141、要使时钟控件Timer1的Timer事件不起作用,以下正确的语句是 A

A、Timer1.Enabled=False

B、Timer1.Index=0

C、Timer1.Interval=1000

D、Timer1.Visible=False

142、为使计时器控件每隔5秒钟产生一个计时器事件(Timer事件),则应

将其Interval属性值设置为( D).

A、300

B、5

C、500

D、5000

143、将数据项"China"添加到列表框(List1)中成为第一项应使用的语句是（ A）。

A、List1.AddItem〞China〞,0

B、List1.AddItem〞China〞,1

C、List1.AddItem 0, 〞China〞

D、List1.AddItem 1,〞China〞

144、在程序代码中修改滚动条的value 属性时将激发滚动条的( D)事件.

A、scroll

B、dragdrop

C、gotfocus

D、change

145、循环结构For I%= -1 to -17 Step -2 共执行( C)次.

A、6

B、5

C、9

D、8

146、

x=5

x=x+i\5

Next i

A、24

B、23

C、22

D、21

147、由

A、-11

B、12

C、-10

D、0

148、

A、

B、

C、add

D、

149、

A

B

C

D

150、

x = 8

For i = 0 To 20 Step 5

x = x + i

Next

Print "X="; x

End Sub

A、X=50

B、X=218

C、X=210

D、X=58

151、定时器的Interval属性以()为单位指定Timer事件之间的时间间隔. C

A、分

B、微秒

C、毫秒

D、秒

152、由For k=35 to 0 step 3:next k循环语句控制的循环次数是(). A

A、0

B、-10

C、12

D、-11

153、在列表框中当前被选中的列表项的序号是由下列哪个属性表示(). C

A、List

B、Index

C、ListIndex

D、TabIndex

154、设计动画通常使用时钟控件()来控制动画速度. C

A、Enabled

B、Timer

C、

D、Move

155、

将列表框的

A、1

B、3

C、2

D、0

156、

A、

B、

C、

D、

157、

A、List

B、

C、Name

D、Text

填空

1.

2.

3 .已知。

4.表示x

5.

____3_。

https://www.360docs.net/doc/6e15075527.html,bel

8.若命令按钮的名称为Cmdopen，程序要求单击该命令按钮时，打开一个窗口frm1，请对以下

事件过程填空。

Private Sub Cmdopen_Click()_____

_frm1.show____

end sub

9.表达式93 \ 7 Mod 2 ^ 2 的值是__1___。

10.表达式Ucase(Mid(“abcdefgh”,3,4))的值是__CDEF___。

11.当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的__属性___窗

口中，把此文本框的__text___属性设置成空白。

12.已知a=3，b=4，c=5，表达式a>b and Not c>a Or c>b And c

表达式c>a And Not b

程序设计

1.'------------------------------------------------ '【程序改错】

'------------------------------------------------ '题目：程序功能：求1+2+3……，直到其和超出3000为

' 止，并输出结果。

'------------------------------------------------ Option Explicit

Private Sub Form_Click()

Cls

Dim i As Integer

i =0

s = 1

Do

Print "

答案

i=i+1

2.

'

862

'

For n = 101 To 300 Step 2

k = Int(Sqr(n))

i = 2

'**********ERROR**********

swit = 1

'**********ERROR**********

While swit = 0

If n Mod i = 0 Then

swit = 1

Else

'**********ERROR**********

i = i - 1

End If

Wend

If swit = 0 Then

Print n;

End If

Next n

End Sub

答案【学生答案】

swit = 1

【参考答案】

swit=0

i=i+1

Next i

Print

For k = 1 To j

Print Tab(k * 6); j * k; " "; '**********ERROR**********

Next j

Print

'**********ERROR**********

Next k

答案【学生答案】

Print Tab(i * 6); i

【参考答案】

Print Tab(i * 6); i;

【学生答案】

Next j

【参考答案】

Next k

【学生答案】

Next k

【参考答案】

Next j

4.'------------------------------------------------ '【程序改错】

'------------------------------------------------ '

答案

【学生答案】

Next

【参考答案】

loop

'------------------------------------------------ 5.'【程序改错】

'------------------------------------------------ '题目：以下程序段用于打印如图1所示的九九乘法表：

'------------------------------------------------ Option Explicit

Private Sub Form_Click()

Dim i As Integer, j As Integer, k As Integer

Print Tab(30); "9*9 table"

Print: Print

Print " * ";

For i = 1 To 9

'**********ERROR**********

Print Tab(i * 6); i

Next i

Print

For j = 1 To 9

Print j; " ";

Next j

答案

6.'

'

' *****

' *******

' *********

'------------------------------------------------

Option Explicit

Private Sub Form_Click()

Dim m As Integer, n As Integer, s As String, i As Integer, j As Integer n = 4

m = 1

s = "*"

For i = 5 To 1 Step -1