2011年最新vb期末复习题(有答案)

Visual Basic 复习题库

一、单项选择题

1) 下列程序运行后，输出的结果为______。 B=1

Do while (b<40) b=b*(b+1) Loop Print b

a) 42 b) 39 c) 6 d) 1 答案：A

2) 设执行以下程序段时依次输入1、3、5，执行结果为_____。 Dim a(4) As Integer Dim b(4) As Integer For K =0 To 2

a(K+1) =Val(InputBox(“请输入数据：\ b(3-K) =a(K+1) Next K Print b(K)

a) 1 b) 3 c) 5 d) 0 答案：A

3) 下列程序执行后，变量s的值为______。 Dim s As long ,x As Integer s=0:x=1

Do While (x<10) s=s+x x=x+2 Loop Print s

a) 10 b) 25 c) 50 d) 100 答案：B

5) 当变量x=2,y=5时，以下程序的输出结果为____。 Do until y>5 x=x*y y=y+1 loop print x

a) 2 b) 5 c) 10 d) 20

1

答案：C

6) 当执行以下程序时，在名为lblResult的标签框内将显示_____。 Private Sub cmdlt_click() Dim I,R R=0

For I=1 To 5 Step 1 R=R+I Next I

lblResult.Caption=Str（R） End Sub

a) 字符串15 b) 整数15 c) 字符串5 d) 整数5 答案：A

7) 如下有一段不完整的程序段，如果要求该程序执行3次循环，则应在程序中的括号里输入______。 X=1 do

x=x+3 print x

loop until(___)

a) x>=8 b) x<=8 c) x>=7 d) x<=7 答案：A

8) 若整型变量a的值为2、b的值为3，则下列程序段执行后整型变量c的值为______。 If a>5 then if b<4 then c=a-b else c=b-a End if

elseif b>3 then c=a*b else

c=a mod b End if

a) 2 b) -1 c) 1 d) 6 答案：A

11) 下列程序的运行后s的值是_____。 S=0

For x=99 to 1 Step-2 s=s+x Next x

2

Print s

a) 100 b) 500 c) 2500 d) 5000 答案：C

12) 下列程序的执行结果是____。 K=0

For I=1 To 3 a=I^I^K print a; Next I

a) 1 1 1 b) 1 2 3 c) 0 0 0 d) 1 4 9 答案：A

13) 下列程序的执行结果是_____。 Dim a(5) As String Dim b As Integer Dim I As Integer For I =0 To 5 a(I)=I+1 Print a(I) Next I

a) 123456 b) 6 c) 654321 d) 0 答案：A

14) 下列程序的执行结果为_____。 Dim intsum As Integer Dim I As Integer intsum=0

For I=20.2 To 5 Step -4.7 intsum=intsum +I Next I

Print intsum

a) 150 b) 200 c) 50 d) 0 答案：C

15) 下列程序的执行结果为_____。 Dim S As Integer,n As Integer S=0:n=1

Do While n<=100 S=S+n n=n+1 Loop Print S

3

a) 5050 b) 2500 c) 3000 d) 4000 答案：A

16) 下列程序的执行结果为_____。 A=100:b=50 If a>b Then a=a-b Else

b=b+a End if Print a

a) 50 b) 100 c) 200 d) 10 答案：A

17) 下列程序的执行结果为________。 Dim intsum As Integer Dim I As Integer intsum=0

For I=0 To 50 Step 10 intsum=intsum+I Next I

Print intsum

a) 150 b) 200 c) 50 d) 0 答案：A

18) 下面程序执行后，X的结果为_____。 X=0

For I =1 to 5 For j=I to 5 X=X+1 Next j Next I Print X

a) 5 b) 10 c) 15 d) 20 答案：C

19) 下面程序执行的结果是____。 Private Sub Form_Click() A$=\ C=Val(A$)+Val(B$) Print C\\100 End Sub

a) 123 b) 3 c) 5 d) 579

4

答案：C

21) 下面程序段的循环结构执行后， 的输出值是_____。 程序段为：

For I=1 to 10 step 2 y=y+I Next I print I;

a) 25 b) 10 c) 11 d) 因为Y的初值不知道，所以不确定 答案：C

22) 写列程序段的执行结果____。 A=\

for I=6 to 2 step -2 x=mid(a,I,I) y=left(a,I) z=right(a,I) z=x & y & z next I

print Ucase(z)

a) ABA b) AABAAB c) BBABBA d) ABBABA 答案：C

24) 有如下程序： For I=1 To 3

For j=5 To 1 Step-1 Print I+j Next j,I

其循环执行的次数为______。

a) 12 b) 13 c) 14 d) 15 答案：D

25) 有如下程序段，该程序执行后，变量a的值为______。 For I=1 To 2 For J=I To 2 For K=1 To J a=a+2 Next K Next J Next I

a) 2 b) 8 c) 10 d) 20 答案：C

26) 执行下列程序后，变量a的值为____。

5

答案：C

79) 如有数组声明语句Dim a(2,-3 to 2,4)，则数组a包含元素的个数是_____。 a) 40 b) 75 c) 12 d) 90 答案：D

80) 若x是一个正实数，对x的第3位小数四舍五入的表达式是_____。

a) 0.01*Int(x+0.005) b) 0.001*Int(1000*(x+0.005)) c) 0.01*Int(100*(x+0.05)) d) 0.01*Int(x+0.05) 答案：B

82) 能显示窗体的方法是______。

a) Visible b) show c) Hide d) open 答案：B

86) 把 InputBox 的返回值转换为数值应该使用的函数是______。 a) Log b) Str c) Len d) Val 答案：D

87) 为使计时器控件每隔5秒钟产生一个计时器事件(timer 事件)，则应将其Interval属性值设置为______。

a) 5 b) 500 c) 300 d) 5000 答案：D

89) 如果要求设置定时器时间间隔为0.5秒钟，那么它的Interval属性值应该等于_______。 a) 5000 b) 500 c) 50 d) 5 答案：B

90) 如果要改变窗体的标题,需要设置窗体对象的________属性。 a) Name b) Caption c) BackColor d) BorderStyle 答案：B

91) 如果要在文本框中输入字符时，只显示某个字符，如星号（*），应设置文本框的_______属性。

a) Caption b) PasswordChar c) Text d) Char 答案：B

92) 如果有数组声明 Dim a(10) As Integer，则该数组共有______个元素。 a) 10 b) 11 c) 9 d) 不确定 答案：B

93) 若要将窗体从内存中卸载出去，应该使用的方法是______。 a) Show b) UnLoad c) Load d) Hide 答案：B

94) 若要设置定时器控件的定时时间，需设置的属性是_____。 a) interval b) value c) enabled d) text 答案：A

95) 若要在图片框中绘制一个圆，使用的方法是______。 a) Circle b) line c) point d) pset

11

答案：A

96) 删除字符串前导和尾随空格的函数是______。

a) Ltrim() b) Rtrim() c) Trim() d) Lcase() 答案：C

98) 设置命令按钮的标题文字时，应改变的属性是______。 a) text b) Name c) Caption d) （名称） 答案：C

99) Visual basic采用了_____编程机制。

a) 面向过程 b) 面向对象 c) 事件驱动 d) 可视化 答案：C

100) Msgbox 函数返回值的类型是______。

a) 数值 b) 字符串 c) 变体 d) 数值或字符串(视输入情况而定) 答案：A

102) 当某一按钮的（ ）属性设置为False时，该按钮不可见。 a) Enable b) Visibale c) Default d) Cancel 答案：B

105) 工程文件的文件名后缀是_____。

a) .bmp b) .vbp c) .frm d) .bas 答案：B

107) 函数int(abs(99-100)/2)的值为______。 a) 1 b) 0 c) “0” d) “1” 答案：B

108) 函数left(\的值为_____。 a) He b) el c) lo d) true 答案：A

109) 将当前窗体中显示的文字及绘制的图形全部清除，可以用方法_____。 a) Me.Clear b) Me.Cls c) Me=\ 答案：B

115) 数学式子sin25°写成Visual Basic表达式是_____。

a) sin25 b) Sin(25) c) Sin(25*3.14/180) d) sin(25°) 答案：C

117) 设定文本框中是否可以接受多行文本用_____属性。

a) MaxLength b) ToolTipText c) Multiline d) Tag 答案：C

119) _______关键字声明的局部变量在整个程序运行中一直存在。 a) Static b) Private c) Dim d) Public 答案：A

121) Visual Basic应用程序的运行模式是______。

a) 解释运行模式 b) 编译运行模式 c) 既有解释运行模式，又有编译运行模

12

式 d) 汇编运行模式 答案：C

122) 当窗体大小改变时，要使其中的控件也按比例发生变化，应使用窗体的______。 a) AutoSize属性 b) Resize事件 c) AutoRedraw属性 d) Stretch方法 答案：B

126) 菜单控件仅支持以下________事件。

a) Click b) MouseDown c) KeyPress d) Load 答案：A

127) 若要获得滚动条的当前值，可访问的属性是______。 a) Text b) Value c) Max d) Min 答案：B

128) 若要将某命令按钮设置为默认命令按钮。则应设置为True的属性是_____。 a) Value b) Cancel c) Default d) Enabled 答案：C

129) 双击窗体中的对象后，Visual Basic将显示的窗口是_____。

a) 项目（工程）窗口 b) 工具箱 c) 代码窗口 d) 属性窗口 答案：C

130) 为使文本框显示滚动条，必须先设置文本框的属性是_____。

a) AutoSize b) Alignment c) Multiline d) ScrollBars 答案：C

131) 下列字符串不能作为VB的变量名是______。

a) ABCDEFG b) P000000 c) 89TWDDFF d) XYZ 答案：C

133) 下列各组控件都具有Caption属性的是______。

a) 窗体、文本框 b) 标签、定时器 c) 窗体、标签 d) 文本框、定时器 答案：C

134) 下列各赋值语句，语法不正确的是_____。

a) x+y=5 b) iNumber=15 c) Labell.caption=\ 答案：A

136) 下列变量名中不合法的是_____。

a) strname b) 3abc c) A_one d) vaone 答案：B

137) 下拉式组合框的Style属性值为_____。 a) 0 b) 1 c) 2 d) 3 答案：A

141) 以下不是Visual Basic特点的选项是_____。

a) 可视编程 b) 算法设计 c) 事件驱动 d) 面向对象 答案：B

142) 以下不具有Picture属性的对象是______。

13

a) 窗体 b) 图片框 c) 图像框 d) 文本框 答案：D

143) 以下______控件不能触发Dbclick()事件。

a) Label b) Commandbutton c) PictureBox d) Image 答案：B

145) 要使循环体至少执行一次，应使用_____循环。

a) For-next b) While-wend c) Do--Loop while|until d) do[while|until]-loop 答案：C

146) 要禁用计时器控件、需要将____属性设置为false。

a) Enable b) Visibale c) Timer d) Interval 答案：A

150) 写在一行上的多条语句，应以_____为分隔符。 a) 分号 b) 逗号 c) 冒号 d) 空格 答案：C

153) 若要使某命令按钮获得控制焦点，可使用的方法是_____。 a) lostfocus b) setfocus c) point d) value 答案：B

154) 设a=2,b=3,c=4,d=5,下列表达式a=b<>c=d的值是______。 a) 1 b) Ture c) False d) -1 答案：C

155) 逻辑表达式Not\的值为______。 a) True b) False c) 表达式有错 d) 条件不足 答案：A

160) 下列可以把当前目录下的图形文件picl.jpg装入图片框Picture1中的语句为_________。

a) Picture=\ b) Picture.Handle=\ c) Picture1.Picture=LoadPicture(\ 答案：C

161) 下列哪一个是正确的变量名______。

a) $abc b) Int c) 141abc d) abcf 答案：D

163) 下列能正确产生[1-30]之间的随机整数的表达式是______。

a) 1+rnd(30) b) 1+30*rnd() c) rnd(1+30) d) int(rnd()*30)+1 答案：D

166) 以下VB中对象属性的一项是_____。

a) Click b) Name c) Caption d) Top 答案：A

167) 假定Picture1和Text1分别为图片框和文本框的名称，下列不正确的语句是_______。

14

a) Print 25 b) Picture1.Print 25 c) Text1.Print 25 d) Debug.Print 25

答案：C

168) 将命令按钮Command1设置为不可见，应修改该命令按钮的_______属性。 a) Visible b) Value c) Caption d) Enabled 答案：A

169) 下列表达式中，_____的值为False。

a) BCD b) 12345<>12345 & ABC c) Not 2*5=10 d) 4=4 and 5>2+2 答案：C

170) 下列的程序段执行后，X的值为____。 X=0

for I=1 to 10 for j=I to 10 x=x+1 next j next I

a) 50 b) 55 c) 100 d) 105 答案：B

171) 下面的运算符中，哪个是关系运算符______。 a) Not b) mod c) <> d) & 答案：C

173) 下面的运算符中，哪个是逻辑运算符______。 a) And b) Mod c) >= d) & 答案：A

175) 写列程序段的执行结果为___。 X=5 y=-20

if not x>0 then x=y-3 else y=x+3

print x-y;y-x end if

a) -3 3 b) 5 -8 c) 3 -3 d) 25 -25 答案：A

176) 循环结构for i=1 to 10 step 1.5的执行次数是_____。 a) 6 b) 7 c) 9 d) 10 答案：B

179) 在Visual Basic中，要设置菜单项的快捷访问键，应使用哪个符号：______。

15

a) & b) * c) $ d) @ 答案：A

180) 在Visual Basic中，下列________控件可以包含其他控件。

a) Picturebox b) Commandbutton c) Label d) Checkbox 答案：A

182) 在Visual Basic 中，称对象的数据为：______。 a) 属性 b) 方法 c) 事件 d) 封装 答案：A

183) 在VB中，常量12#的数据类型是_____。

a) 整型 b) 双精度浮点型 c) 长整型 d) 字符串 答案：B

185) 语句Print 5*5/5的输出结果是________。 a) 5 b) 25 c) 0 d) 5*5/5 答案：A

186) 用于设定文本框中最多可接受的字符数的属性是______。

a) AutoSize属性 b) PasswordChar属性 c) SelLength属性 MaxLength属性 答案：D

187) 用于获取字符串长度的函数是_______。

a) Len() b) Length() c) Strlen() d) Lofo() 答案：A

188) 用于获得字符串S从第4各字符开始的4个字符的函数是______。

a) Mid(S,4,4) b) Middle(S,4,4) c) Midstr(S,4,4) MiddleStr(S,4,4) 答案：A

189) 用于获得字符串S最左边4个字符的函数是：_______。

a) Left(S,4) b) Left(1,4) c) Leftstr(S) d) Leftstr(3,4) 答案：A

190) 用以下语句 Dim b(-2 to 4)as string 所定义的数组的元素个数是_______个。 a) 2 b) 4 c) 6 d) 7 答案：D

191) 用于将菜单项级别提升一级的按钮为________。 a) ← b) → c) ↑ d) ↓ 答案：A

192) 用户可通过______模拟屏幕的小图象来布置应用程序运行后的位置。 a) 窗体设计器 b) 快捷菜单 c) 立即窗口 d) 窗体布局窗口 答案：D

193) 以下选项中，是Visual Basic控件的是_____。

a) 文本框 b) Print c) Click d) Debug

16

d) d)

答案：A

194) 以下选项中，不属于单选按扭属性的是______。 a) Enabled b) Caption c) Name d) Min 答案：D

196) 单精度浮点数占用的字节数为______。

a) 2个字节 b) 3个字节 c) 4个字节 d) 8个字节 答案：C

197) 当一个工程含有多个窗体时，其中的启动窗体是_____。

a) 启动VB时建立的窗体 b) 第一个添加的窗体 c) 最后一个添加的窗体 d) 在“工程属性”对话框中指定的窗体 答案：D

198) 对象是一个逻辑实体，它是______的集合。

a) 数据 b) 代码 c) 数据与代码 d) 属性 答案：C

199) 改变驱动器列表框的Drive属性值将激活_____事件。 a) Change b) Scroll c) KeyDown d) KeyUp 答案：A

200) 将定时器的时间间隔设置为1秒，那么定时器的Interval属性应设置为______。 a) 1000 b) 1 c) 100 d) 10 答案：A

202) 不能触发滚动条Change事件的操作是_______。

a) 拖动滚动块 b) 单击两端箭头 c) 单击滚动块 d) 单击箭头与滚动块之间的滚动条 答案：C

204) 当程序运行时，在窗体上单击鼠标，以下_______事件是窗体不会接收到的。 a) MouseDown b) MouseUp c) Load d) Click 答案：C

206) 数组Dim D(3, 1 To 10, 1 To 15)共有元素________。 a) 100 b) 600 c) 30 d) 450 答案：B

208) 单击滚动条两端的滚动箭头，将触发它的_____事件。

a) Scroll b) SmallChange or LangeChange c) KeyDown d) Change 答案：D

209) 程序的基本控制结构是______。 a) 顺序结构、多分支结构和单分支结构 b) For?Next结构、Do?loop结构 c) 顺序结构、选择结构和循环结构 d) 单行结构和多行结构 答案：C

210) 下列______语句可以将变量A、B的值互换。

a) A=B:B=A b) A=A+B:B=A-B:A=A-B c) A=C:C=B:C=A d)

17

A=(A+B)/2:B=(A-B)/2 答案：B

211) 下列______语句可以将变量A、B的值互换。

a) A=B:B=A b) C=A:A=B:B=C c) A=C:C=B:C=A d) B=A:A=B 答案：B

212) 以下程序段执行后整型变量n 的值为_____。 N=0

for I=1 to 20 step 5 n=n+1 next I

a) 3 b) 4 c) 5 d) 2 答案：B

213) 以下程序输出的结果为______。 X=1 y=4

Do Until y>4 x=x*y y=y+1 Loop Print x

a) 4 b) 8 c) 12 d) 16 答案：A

215) 以下哪个是合法的变量名_______。

a) Len b) Test@qw c) 6cost_1 d) count2s 答案：D

216) 以下可以构成语句的一项是_______。

a) 对象名.属性名 b) 对象名.方法名 c) 对象名.事件名数名 答案：B

217) 以下程序段的执行结果是_____。 X=2:y=1

If x*y<1 Then y=y-1 Else y=-1

Print y-x>0 End If

a) Ture b) False c) -1 d) 1 答案：B

18

对象名.函 d)

218) 以下程序段的输出结果是______。 A=Sqr(3) b=Sqr(2) c=a>b Print c

a) -1 b) 0 c) False d) Ture 答案：D

220) 下列程序运行后，变量s的值为______。 J=0:s=0

For I=1 To 4 j=j+I s=s+j Next I

a) 20 b) 10 c) 5 d) 15 答案：A

221) 下列程序段的执行结果为_____。 Dim M(10),N(10) I=3

for T=1 To 5 M(T)=T N(I)=2*I+T Next T

print N(I);M(I)

a) 3 11 b) 3 15 c) 11 3 d) 15 3 答案：C

222) 下列程序段的执行结果是_____。 N=10

For k=n To 1 Step-1 x=Sqr(k) x=x-2 Next k

Print x-2

a) -3 b) -1 c) 1 d) 1.16 答案：A

223) 如下数组声明语句，正确的是______。 a) dim a[3,4] as intiger b) dim a(3,4) as string c) dim d) dim a(3 4) as integer 答案：B

224) 可以通过_____来删除列表框中的选择项。

19

a(n,n) as single

a) Enable属性 b) RemoveItem方法 c) AddItem方法 d) Text属性 答案：B

225) 在拖动滚动条的滚动块的时候，在没有松开鼠标前会触发滚动条的______事件。 a) Change b) keyDown c) Scroll d) DragOver 答案：C

226) 写列选项中，合法的变量是______。

a) caa b) sum_3 c) Else d) 5persons 答案：B

227) 要想改变一个窗体的标题内容，则应该设置______属性的值。 a) Name b) Fontname c) Caption d) Text 答案：C

228) 以下控件中没有Caption属性的控件是______。

a) 标签框 b) 文本框 c) 框架 d) 命令按钮 答案：B

233) 在程序中使用日期型数据时，必须用符号____将日期型数据括起来。 a) @ b) $ c) % d) # 答案：D

234) 下列选项中，为字符串常量的是______。

a) 6/12/2001 b) \ 答案：B

235) 下列选项中，哪一项是所有控件共有的属性_______。 a) Caption b) Value c) Text d) Name 答案：D

236) 下列数据中哪一个是布尔常量_______。 a) 123 b) not c) TRUE d) xyz 答案：C

237) 下列数据类型不可能占8个字节的是_____数据类型。 a) Date b) Long c) Double d) Currency 答案：B

238) 在Visual Basic程序设计中，过程名称的长度不能超过_______个字符。 a) 8 b) 40 c) 255 d) 11 答案：B

239) 如果有声明Dim a(5) As Integer，则该数组共占用______个字节内存。 a) 5 b) 6 c) 10 d) 12 答案：D

240) 下列程序的运行结果为________。 For I=1 to 3 d(I)=2*I-1 print d(I)

20

Next I

a) 1 3 5 b) 2 4 6 c) 1 4 6 d) 5 6 7 答案：A

244) 若要将窗体隐藏起来，则实现的方法为_______。

a) Unload b) Show c) WindowsState d) Hide 答案：D

246) 若要使标签的大小自动适应所显示的文本，可通过设置______属性的值来实现。 a) AutoSize b) Alignment c) Enabled d) Visble 答案：A

251) 所有控件都有的属性是_______，在程序中作为对象的标识引用。 a) Caption b) Value c) Text d) name 答案：D

252) 在Visual Basic环境下，当写一个新的Visual Basic 程序时，所做的第一件事是________。

a) 编写代码 b) 新建一个工程 c) 打开属性窗口 d) 进入VB环境 答案：B

255) 要使窗体Form1关闭,错误的是______。

a) Unload Form1 b) Unload me c) End d) Form1.Visiable=False 答案：D

257) 以下不属于Visual Basic系统的文件类型是 a) .frm b) .cls c) .bat d) .vbp 答案：C

258) 下列命令按钮事件过程执行后，输出结果是_____。 For m=1 to 1000 step 2 a=10

for n=1 to 20 step 2 a=a+2 next n next m print a

a) 1200 b) 1000 c) 30 d) 20 答案：C

259) 下列是一个循环结构的程序，循环体内的语句将执行_____次。 K=0

For I=1 to 10 For j=1 to 100 K=K+1 Next j Next I

21

a) 0 b) 10 c) 100 d) 1000 答案：D

260) 下列输出语句中，错误的是______。

a) X,y b) Print x,y c) Debug.Print x,y d) Print.Form x,y 答案：D

261) 下列_______方法是将项目添加到List控件中。

a) List b) ListCount c) Move d) AddItem 答案：D

262) 在visual basic中，要将一个窗体从内存中释放，应使用______语句。 a) show b) hide c) load d) unload 答案：D

263) 下列结构中不属于循环结构的是______。

a) for/next b) while/wend c) With/end with d) do/loop 答案：C

266) 单击命令按钮时，下列程序的执行结果为______。 Private Function P(N As Integer) Static sum For I = 1 To N sum = sum + 1 Next I P = sum End Function

Private Sub Command1_Click() S = P(1) + P(2) + P(3) + P(4) Print S; End Sub

a) 20 b) 30 c) 115 d) 135 答案：A

268) 某顶级菜单项的热键字母为F，以下_____操作等同于单击该菜单项。

a) 同时按下Ctrl+F键 b) 按下F键 c) 同时按下Alt+F键 d) 同时按下Shift+F键 答案：C

270) 已知变量A、B、C中C的值最小，则判断A、B、C可否构成三角形的逻辑表达式是____。 a) A>=B AND B>=C AND C>0 b) A+C>B AND B+C>A AND C>0 c) (A+B)>=C OR A-B<=C AND C>0 d) A+B>C AND A-B0 答案：B

271) 下面的运算符中，优先级别最高的是_____。 a) AND b) * c) 〉= d) & 答案：B

22

273) 要使一个命令按钮成为图形命令按钮，则应首先设置_____属性值。 a) Picture b) Style c) Downpicture d) Disabledpicture 答案：B

276) 当x=-5时，下列语句y=iif(x>0,x^2+1,x-1)执行后y的值_____。 a) 0 b) 26 c) -6 d) 4 答案：C

279) 设x=-18，则Abs(5*x)=_____。

a) -90 b) 90 c) 18 d) 5 答案：B

280) Strc=Mid(\，则Strc的值_____。 a) \ 答案：D

281) 要把一个命令按钮设置成无效，应设置其哪一属性值_____。 a) Visible b) Enabled c) Default d) Cancel 答案：B

282) 表达式Int(-17.8)+Sgn(17.8)的值是______。 a) 18 b) -17 c) -18 d) -16 答案：B

283) 表达式val(-17.8)+Abs(17.8)的值是______。 a) 0 b) 0.8 c) -0.2 d) -34.8 答案：A

284) 若x=5,y=6,则表达式x+y=11的值是_____。 a) x+y=11 b) 11 c) True d) False 答案：C

285) 列表框中的列表项的数目可通过以下哪个属性的值获得_____。 a) Count b) Listcount c) Listindex d) Index 答案：B

288) 表达式Left(\的值是_____。 a) how b) are c) you d) ho 答案：A

289) 表达式Right(\的值是______。

a) Beijing b) jing c) eiji d) ijin 答案：B

290) 表达式Fix(-23.87)+int (24.56)的值为_____。 a) -1 b) 0 c) 1 d) 2 答案：C

292) 表达式Abs(-5)+Len(\的值是_____。 a) 5ABCDE b) -5ABCDE c) 10 d) 0 答案：C

23

297) 如果有声明Option base 1 dim arr(3,3),则该数组共有_____个元素。 a) 16 b) 9 c) 4 d) 6 答案：B

298) 如果有声明Option base 1 dim arr(-8 to -2,4)，则该数组共有_____个元素。 a) 36 b) 28 c) 34 d) 35 答案：B

299) 如果有声明Option base 1 dim array(15)，则该数组共有_____个元素。 a) 16 b) 15 c) 13 d) 14 答案：B

300) 表达式：5\\2*3的值_____。

a) 7.5 b) 0 c) 1 d) 2 答案：B

302) 文本框控件中将Text的内容全部显示为所定义的字符的属性项是（ ）

a) PasswordChar b) 需要编程来实现 c) Password d) 以上都不是 答案：A

304) 下列赋值语句正确的是（ ）

a) Text1.text=Text.text+Text2.text b) Text1.name=Text1.Name+Text2.Name c) Text1.Caption=Text1.Caption+Text2.Caption d) Text1.Enable=Text1.Enable+Text2.Enable 答案：A

305) 要清除组合框Combol中的所有内容，可以使用( )语句

a) Combo1.ClS b) Combo1.Clear c) Combo1.Delete d) Combo1.Remove 答案：B

306) 引用列表框的最后一项应使用（ ）

a) List1.List(List1.ListCount-1) b) List1.List(List1.ListCount) c) List1.List(ListCount) d) List1.List(ListCount-1) 答案：A

308) 要在图片框P1中打印字符串“How Are You”，应使用语句（ ）

a) Picture1.Print=“ How Are You” b) P1.Picture=LoadPicture(“How Are You”) c) P1.Print“How Are You” d) Print “How Are You” 答案：C

311) 为了在按下回车键时执行某个按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是（ ）

a) Value b) Cancle c) Enable d) Default 答案：D

324) 表达式2+3*4^5-SIN（X+1）/2中最先进行的运算是 a) 4^5 b) 3*4 c) x+1 d) SIN 答案：C

326) 表达式（7\\3+1）*(18\\5-1)的值是（）

24

a) 8.76 b) 7.8 c) 6 d) 6.67 答案：C

327) 表达式25.28 Mod 10的值是( ) a) 1 b) 5 c) 4 d) 出错 答案：B

347) 以下（）程序段可以实施X、Y变量值的变换

a) Y=X：X=Y b) Z=X：Y=Z：X=Y c) Z=X：X=Y：Y=Z d) Z=X：W=Y：Y=Z：X=Y

答案：C

填空题

1) 假定当前日期为2002年7月12日，星期六，则执行语句Print day(now)后，输出结果是______。 答案：12

2) 语句a%=3.14156:Print a%的输出结果是______。 答案：3

3) 以下循环的执行次数是_____。 K=0

Do While k<=10 k=k+1 Loop 答案：11

4) 双精度数用字母_____将尾数与指数分开。 答案：D

5) 下列程序段的执行后输出的结果为_____。 I=4:A=5 Do

I=I+1:A=A+2 Loop Until I>=7 Print \ 答案：A=11

6) 表达式3/6*5的值是_______。 答案：2.5

7) 下列程序的作用是将三个数按从大到小进行排序，请补充完该程序。 If a

25

EndIf

If a

If_____Then d=b:b=c:c=d EndIf

Print a,b,c 答案：b

8) 在Select case 结构中应至少包含一个______子句。 答案：CASE

9) 窗体的属性可在属性窗口中设置，也可在程序中用______语句动态设置。 答案：赋值

10) 有如下Sub过程: Sub ind(a As Integer) Static x As Integer x = x+a Print x; End Sub

以下是调用它的事件过程，程序运行后，单击命令按钮Command1，输出结果为______。 Private Sub Command1_Click() Ind(2) End Sub 答案：2

11) 逻辑常量值为TRUE或_______。 答案：FALSE

12) 货币类型的数据小数点的位置是固定的，精确到小数点后_____位。 答案：4

13) 表达式（2+8*3）/2的值是______。 答案：13

14) 以下程序用来判断一个整数X是否为偶数，并将其中的偶数在窗体上显示，请补充完该程序。

If X___2=____ Then Print X 答案：MOD#0

15) 当对窗体中的对象进行_____操作时，Visual Basic 就会显示该对象的代码窗口。 答案：双击

到 15 (总共 103 个记录) 第一页 前一页 下一页 最后一页 16) 下列程序的执行结果是____。 T = O : m = 1 : Sum = 0

26

Do

t = t + m : Sum = Sum + t : m = m + 2 Loop While m <= 9 Print Sum 答案：55

17) 一组具有相同名称，不同下标的下标变量称为______。 答案：数组

18) 给定年份，下列程序用来判断该年是否闰年，请补充完该程序。

提示：闰年的条件是年号可以被4整除但不能被100整除，或者能被400整除。 Private Sub Command6_Click() Dim y As Integer

y=InputBox(\请输入年号\

If(y Mod 4=0______y Mod 100<>0) or (y Mod 400=0) Then Print \是闰年\

Else Print \是普通年份\End If End Sub 答案：AND

19) 设a=2,b=3,c=4,d=5下列a>b and c<>d or c=a表达式的值是_____。 答案：FALSE

20) 假定在C：盘根目录下有一个名为pic2.gif的图形文件，要在运行期间把该文件装入一个图片框，应执行的语句为_____。

答案：PICTURE1.PICTURE=LOADPICTURE(\

21) 为了能自动放大或缩小图象框中的图形以与图象框的大小相适应,必须把该图象框的Stretch属性设置为______。 答案：TRUE

22) 根据变量的定义位置和所使用的变量定义语句的不同，VB中的变量可以分为3类，即_____、模块变量和全局变量。 答案：局部变量

23) 表达式3>4 and 7=5的值是______。 答案：FALSE

24) 以下的程序用来输出100到2000间不能被3整除的数字，请补充完该程序。 Private Sub Commmand1_Click() Dim x As Integer x = 100

Do Until x > _____ If x Mod 3 <> 0 Then Print x End If

27

x = x + 1 Loop End Sub 答案：X>200

25) 下列程序段的执行时，共循环____次。 For a=0 To 1 For b=1 To 2 For c=1 To 3 I=I+1 Next c Next b next a 答案：12

26) 以下程序计算2到50间所有偶数的和，请补充完该程序 Sub mult()

Dim Sum As Integer Sum=0

Dim I as integer For___to 50

If I MOD 2=___Then___ Next I Print sum End Sub

答案：I=2#0#SUM=SUM+I

27) A=7,B=3,C=4,则表达式 A MOD 3+B^3/C\\5的值为____。 答案：2

28) 下列循环语句，要求和数达到10既停止累加，退出循环，请补充完程序。 For j=1 to 10 s=s+j

If s>=10 then______。 Next j

答案：EXIT FOR

29) 下列程序段的运行结果是： Sub sele()

Dim n as Integer I=21:n=3 Do While I>n I=I-n Loop

28

Print I End Sub

打印结果_____。 答案：3

30) Visual Basie中的常量分为两种，一种是文字常量，一种是____常量。 答案：符号

31) Visual Basie 提供了列表框控件， 当列表框中的项目较多、超过了列表框的长度时， 系统会自动在列表框边上加一个______。 答案：滚动条

32) 一个程序最多可以有________窗体。 答案：255

33) 将一般窗体转换为MDI窗体的子窗体时要把MDIChild属性的值设置为_______。 答案：TRUE

34) 要选择多个不相邻的控件，按住_______或SHIFT键不放，再单击要选择的控件。 答案：CTRL

35) 表达式：\的值是_______。 答案：FALSE

36) ______属性用来设置窗体的标题。它确定和改变显示在窗体的标题栏中的文本。 答案：CAPTION

37) 假定有一个文本框，其名称为Textl，为了使该文本框具有焦点，应执行的语句是______。 答案：TEXT1.SETFOCUS

38) 执行下面的程序段后，s的值为____。 S=5

For I=2.6 To 4.9 Step 2 s=s+1 Next I 答案：7

39) 表达式“12345”<>“12345”&“ABC”的值是_____。 答案：TRUE

40) 下列程序用来计算1+2+3??+10的值，请补充完程序。 Dim t,k as single K=0

DO While k<10 K=k+1:______ loop print t 答案：T=T+K

41) 下列程序段的执行后输出的结果为_______。 K = 1

29

For I = 1 To 3 A = I ^ I ^ K Next I Print A 答案：27

42) 下列程序是用来计算1＋2＋3??＋10的程序段，请补充完该程序。 Dim I, s, k As Integer s = 0: k = 0 For____To -1

k = k+1:s = s+k Next I Print s 答案：J=-10

43) 执行inputbox函数后，会产生一个对话框，对话框上通常有两个按纽，它们是_____按纽和取消按钮。 答案：确定

44) 下列程序的执行结果是_____。 M1 = 1:m2 = 1 Do While m2<>6

m1 = m1*m2 : m2 = m2+1 Loop Print m1 答案：120

45) 下列程序的执行结果是_____。 Private Function P(N As Integer) For I = I To N SUM = SUM + 1 Next I P = SUM End Function

Private Sub Command1_Click() S = P(1) + P(2) + P(3) + P(4) Print S; End Sub 答案：14

46) 货币型数据的类型标识符为______。 答案：@

47) 以下程序用来输出1到100所有奇数的和，请补充完该程序。 Private Sub Command3_Click()

30