2019VisualBasic程序设计期末测试题库200题（含参考答案）

2019年VisualBasic程序设计期末测试复习题200题

［含答案］

一、选择题

1.在VisualBasic程序设计中，过程名称的长度不能超过个字符。

a)8

b)40

c)255

d)11答案：B

2.在拖动滚动条的滚动块的时候，在没有松开鼠标前会触发滚动条的事件。

a)Change

b)keyDown

c)Scroll

d)DragOver答案：C

3.整型变量占用的字节数为o

a)2个字节

b)3个字节

c)4个字节

d)5个字节答案：A

4.整型数的取值范围为。

a)-32767~+32767

b)-32768〜+32767

c)-32768~+32768

d)0-65535答案：B

5.在程序中使用日期型数据时，必须用符号―将日期型数据括起来。

a)@

b)$

c)%

d)#答案：D

6.下列选项中，为字符串常量的是

a)6/12/2001

b)"6/12/2001"

c)#6,12,2001#

d)6,12,2001#答案：B

7.下列命令按钮事件过程执行后，输出结果是o

Form=lto1000step2

a=10

forn=lto20step2

a=a+2

nextn

nextm

printa

a)1200

b)1000

c)30

d)20答案：C

8.下列数据中哪一个是布尔常量_____。

a)123

b)not

c)TRUE

d)xyz答案：C

9.以下程序段的输出结果是o

A=Sqr(3)

b=Sqr(2)

c=a>b

Printc

a)-1

b)0

c)False

d)Ture答案：D

10.下列程序的运行结果为。

For1=1to3

d⑴=2*1-1

?d(I)

NextI

a)135

b)246

c)146

d)567答案：A

11.下列属性用于设置或返回文本框中的文本。

a)Caption

b)Text

c)Name

d)Dragicon答案：B

12.若要在列表框中显示多列数据，可用列表框的属性来实现。

a)MultiSelect

b)Index

c)Columns

d)List答案：C

13.所有控件都有的属性是,在程序中作为对象的标识引用。

a)Caption

b)Value

c)Text

d)name答案：D

14.要声明一个长度为256个字符的定长字符串变量str,以下语句正确的是

a)DimstrAsString

b)DimstrAsString(256)

c)DimstrAsString(256)

d)DimstrAsString*256答案：D

15.运行VB程序的快捷键为o

a)F4

b)F5

c)F6

d)F7答案：B

16.下列选项中，哪一项是所有控件共有的属性o

a)Caption

b)Value

c)Text

d)Name答案：D

17.下列语句可以将变量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

18.除时钟外其它控件都没有的属性是

a)Top

b)Name

c)Visible

d)Interval答案：D

19.用于获取字符串长度的函数是o

a)Len()

b)Length()

c)Strlen()

d)Lofo()答案：A

20.用于获得字符串S最左边4个字符的函数是：。

a)Left(S,4)

b)Left(l,4)

c)Leftstr(S)

d)Leftstr(3,4)答案：A

21.用户可通过模拟屏幕的小图象来布置应用程序运行后的位置。

a)窗体设计器

b)快捷菜单

c)立即窗口

d)窗体布局窗口答案：D

22.当一个工程含有多个窗体时，其中的启动窗体是。

a)启动VB时建立的窗体

b)第一个添加的窗体

c)最后一个添加的窗体

d)在“工程属性”对话框中指定的窗体答案：D

23.对象是一个逻辑实体，它是的集合。

a)数据

b)代码

c)数据与代码

d)属性答案：C

24.下列程序段的执行结果是。

N=10

Fork=nTo1Step-1

x=Sqr(k)

x=x-2

Nextk

Printx-2

a)-3

b)-1

c)1

d)1.16答案：A

25.单击滚动条两端的滚动箭头，将触发它的事件。

a)Scroll

b)SmallChangeorLangeChange

c)KeyDown

d)Change答案：D

26.下列程序段的执行结果为o

DimM(10),N(10)

1=3

forT=lTo5

M(T)=T

N(I)=2*I+T

NextT

printN(I);M(I)

a)311

b)315

c)113

d)153答案：C

27.以下程序段执行后整型变量n的值为o

N=0

for1=1to20step5

n=n+l

nextI

a)3

b)4

c)5

d)2答案：B

28.以下程序输出的结果为o

X=1

y=4

DoUntily>4

x=x*y

y=y+l

Loop

Printx

a)4

b)8

c)12

d)16答案：A

29.以下面那种方式打开的文件，只能读不能写。

a)Input

b)Output

c)Random

d)Append答案：A

30.以下哪个是合法的变量名o

a)Len

b)Test@qw

c)6cost_1

d)count2s答案：D

31.以下可以构成语句的一项是o

a)对象名.属性名

b)对象名.方法名

c)对象名.事件名

d)对象名.函数名答案：B

32.下列输出语句中，错误的是o

a)?X,y

b)Printx,y

c)Debug.Printx,y

d)Print.Formx,y答案：D

33.Daletime是Dale类型的变量，以下赋值语句中错误的是：。

a)Datetime=#4/14/97#

b)Datetime=#May1,1997#

c)Datetime=#12:15:00AM#

d)Datetime=H8\8\99u答案：D

34.设A、B、C表示三角形的3条边，表示条件“任意两边之和大于第三边”的布尔表达

式可以用(？??)表示。

a)A+B>=COrA+C>=BOrB+C>=A

b)Not(A+B<=COrA+Cv=BOrB+C<=A)

c)A+B>CAnd?A+C>BAndB+C>A

d)A+B>=CAndA+C>=BOrB+C>=A答案：B

35.引用列表框的最后一项应使用()

a)List1.List(List1.ListCount-1)

b)List1.List(List1.ListCount)

c)List1.List(ListCount)

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

36.要在图片框Pl中打印字符串“HowAreYou"，应使用语句()

a)Picturel.Print="HowAreYouv

b)Pl.Picture=LoadPicture(uHowAreYou^)

c)Pl.Print“HowAreYou”

d)Print“HowAreYou”答案：C

37.将字符串“hello”添加到列表框的最后，可使用()请语句。

a)List1.Additemuhellon,List1.ListCount-1

b)List1.Additem“hello”，Listl.ListCount+1

c)List1.Additem“hello”，List1.Listindex

d)List1.Additem“hello”答案：D

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

a)FontStyle

b)BorderStyle

c)BackStyle

d)Border答案：B

39.当事件能被触发时，()就会对该事件作出响应.

a)对象

b)程序

c)控件

d)窗体答案：A

40.以下不属于VisualBasic系统的文件类型是

a).frm

b).cis

c).bat

d).vbp答案：C

41.如果X是一个正的实数，将千分位四舍五入，保留两位小数的表达式是

a)0.01*int(x+0.05)

b)0.0Pint(100*(x+0.005))

c)0.01*int(100*(x+0.05))

d)0.01*int(x+0.005)答案：B

42.下列对象中没有焦点属性的是(???)

a)命令按钮控件

b)窗口控件

c)文本框控件

d)单选框控件答案：B

43.将任意一个正的两数N的个位数与十位数对换的表达式为

a)(N-INT(N/10)*10)*10+INT(N/10)

b)N-7INT(N/10)*10)*10+INT(N)/10

c)INT(N/10)+(N-INT(N/10)

d)(N-7INT(N/10)*10)*10+INT(N/10)答案：A

44.表达式2+3*4八5-SIN(X+l)/2中最先进行的运算是

a)4A5

b)3*4

c)x+1

d)SIN答案：C

45.设A、B、C表示三角形的3条边，表示条件“任意两边之和大于第三边”

的布尔表达式可以用()表示。

a)A+B>=COrA+C>=BOrB+C>=A

b)Not(A+B<=COrA+C<=BOrB+C<=A)

c)A+B>CAndA+C>BAndB+C>A

d)A+B>=CAndA+C>=BOrB+C>=A答案：B

46.表达式(7\3+l)*(18\5-l)的值是()

a)8.76

b)7.8

c)6

d)6.67答案：C

47.表达式25.28Mod10的值是()

a)1

b)5

c)4

d)出错答案：B

48.下列哪项是窗体对象的方法而不是属性()

a)Name

b)Print

c)Caption

d)Enabled答案：B

49.将任意一个正的两数N的个位数与十位数对换的表达式为？

a)(N-INT(N/10)*10)*10+INT(N/10)

b)N-7INT(N/10)*10)*10+INT(N)/10?

c)INT(N/10)+(N-INT(N/10)

d)(N-7INT(N/10)*10)*10+INT(N/10)答案：A

50.Strc=Mid(nVisualBasic",10,3)，则Strc的值。

a)"Vis11

b)"suaM

c)“Bas”

d)“sic”答案：D

51.下列方法是将项目添加到List控件中。

a)List

b)ListCount

c)Move

d)Additem答案：D

52.在visualbasic中，要将一个窗体从内存中释放，应使用语句。

a)show

b)hide

c)load

d)unload答案：D

53.下列结构中不属于循环结构的是。

a)for/next

b)while/wend

c)With/endwith

d)do/loop答案：C

54.下列控件中可自动设置滚动条的是o

a)复选框

b)框架

c)列表框

d)标签框答案：C

55.某顶级菜单项的热键字母为F,以下操作等同于单击该菜单项。

a)同时按下Ctrl+F键

b)按下F键

c)同时按下Alt+F键

d)同时按下Shift+F键答案：C

56.在使用菜单编辑器设计菜单时，必须输入的项是—o

a)标题

b)名称

c)索引

d)快捷键答案：B

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

a)Combol.CIS

b)Combol.Clear

c)Combol.Delete

d)Combo1.Remove?答案：B

58.Print方法不允许在对象上输出数据。

a)窗体

b)代码窗口

c)立即窗口

d)图片框答案：B

59.下列赋值语句正确的是(??)

a)Text1,text=Text.text+Text2.text?

b)Textl,name=Textl.Name+Text2.Name?

c)Textl.Caption=Texll.Caption+Text2.Caption?

d)Text1.Enable=Text1.Enable+Text2.Enable?答案：A

60.表达式val(-17.8)+Abs(17.8)的值是。

a)0

b)0.8

c)-0.2

d)-34.8答案：A

61.RGB(x,y,z)函数中x,y,z的取值范围____。

a)[0,255)

b)(0,255]

c)10,255]

d)(0,255)答案：C

62.表达式Right("Beijing”,4)的值是。

a)Beijing

b)jing

c)eiji

d)ijin答案：B

63.下面____控键对象具有绘图方法。

a)Image

b)Line

c)Picturebox

d)Frame答案：C

64.表达式：5\2*3的值___o

a)7.5

b)0

c)1

d)2答案：B

65.在VisualBasic设计界面中不能隐藏的窗口是。

a)工程窗口

b)属性窗口

c)立即窗口

d)窗体窗口答案：A

66.执行语句Printformat(5459.478,"##,#0.00"),正确的输出是

a)5459.48

b)5,459.48

c)5,459,478

d)5,459。47答案：B

67.窗体的BackColor属性用于设置窗体的。

a)高度

b)亮度

c)背景色

d)前景色答案：C

68.下列程序段运行后，输出结果是一。

B=1

Dountilb>7

b=b*(b+l)

Loop

Printb

a)7

b)39

c)42

d)1答案：C

69.@=5,1)=8,则由1((1)臼)*「血+2)的结果是介于之间的整数。

a)[5,8)

b)(0,5)

c)[3,5)

d)(0,3]答案：A

70.a和b中有且只有一个为0,可以用以下表达式来表示。

a)a=0orb=0

b)a=0Xorb=0

c)a*b=0Anda+b<>0

d)a=0Andb=0答案:B

71.Boolean类型的数据由几个字节组成。

a)1

b)2

c)3

d)4答案：B

72.ControlBox属性只适用于窗体，当窗体的属性设置为0-None时,

则ControlBox属性不起作用。

a)Borderstyle

b)Autoredraw

c)Windowstate

d)Enabled答案：A

73.设置标签边框的属性是o

a)BorderStyle

b)BackStyle

c)AutoSize

d)Alignment答案：A

74.Inputbox函数的参数中，必选参数Prompt的作用是。

a)输出信息

b)定义提示信息

c)定义隐含信息

d)定义输入的位置答案：B

75.RGB函数通过红、绿、蓝三基色混合产生某种颜色，其语法为RGB(红，绿，蓝)，

括号中红、绿、蓝三基色的成分使用0-255之间的整数。若使用3个滚动条分别输入3种

基色，

为保证输入数值有效，则应设置____属性。

a)Max和Min

b)SmallChange和LargeChange

c)Scroll和Change

d)Value答案：A

76.VisualBasic的文件管理控件是。

a)驱动器列表框、目录列表框、文件列表框

b)驱动器列表框、文件列表框、组合框

c)文本框、驱动器列表框、文件列表框

d)驱动器列表框、文件列表框、图像框答案：A

77.如果要求设置定时器时间间隔为0.5秒钟，那么它的Interval属性值应该等于

a)5000

b)500

c)50

d)5答案：B

78.如果要改变窗体的标题,需要设置窗体对象的属性。

a)Name

b)Caption

c)BackColor

d)BorderStyle答案：B

79.如果有数组声明Dima(10)AsInteger,则该数组共有个元素。

a)10

b)11

c)9

d)不确定答案：B

80.若要设置定时器控件的定时时间，需设置的属性是。

a)interval

b)value

c)enabled

d)text答案：A

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

a)AutoSize属性

b)PasswordChar属性

c)SelLength属性

d)MaxLength属性答案：D

82.Double类型的数据由个字节组成。

a)21

b)4

c)8

d)16答案：C

83.有如下语句，执行后该段语句的循环次数是o

Dims,I,jasinteger

ForI=1to3

Forj=3To1Step-1

S=I*j

Nextj

NextI

a)9

b)10

c)3

d)4答案：A

84.菜单控件只包括一个事件，即(1),当用鼠标单击或键盘选中后按“回车”键

时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。C

A、GotFocusLoadC、ClickD、KeyDown

85.如下有一段不完整的程序段，如果要求该程序执行3次循环，则应在程序中的括号里

输入O

X=1

do

x=x+3

printx

loopuntil(___)

a)x>=8

b)x<=8

c)x>=7

d)x<=7答案：A

86.若整型变量a的值为2、b的值为3,则下列程序段执行后整型变量c的值为

Ifa>5then

ifb<4then

c=a-b

else

c=b-a

Endif

elseifb>3then

c=a*b

else

c=amodb

Endif

a)2

b)-1

c)1

d)6答案：A

87.设有如下语句：

strl=inputbox("输入二二“练习”)

从键盘上输入字符串“示例”后，strl的值是

a)“输入”

b)

c)“练习”

d)“示例”答案：D

88.下面程序执行的结果是—o

PrivateSubForm_Click()

A$=M123n:B$=n456"

C=Val(A$)+Val(B$)

PrintCM00

EndSub

a)123

b)3

c)5

d)579答案：C

89.有如下程序段，该程序执行后，变量a的值为o

For1=1To2

ForJ=ITo2

ForK=1ToJ

a=a+2

NextK

NextJ

NextI

a)2

b)8

c)10

d)20答案：C

90.下列程序段的执行结果为o

M=0

For1=1To3

ForJ=5ToIStep-1

N=N+l

NextJ,I

PrintN;J;I

a)1204

b)1504

c)1231

d)1531答案：B

91.执行下列程序段后，整型变量c的值为一o

A=24

b=328

selectcaseb\10

case0

c=a*10+b

case1to9

c=a*100+b

case10to99

c=a*1000+b

endselect

a)537

b)2427

c)24328

d)240328答案：C

92.滚动条单击边上的箭头按钮移动的大小由设定。

a)Change

b)SmallChange

c)Scroll

d)Tabstop答案：B

93.有如下程序，该程序将o

For1=1to10step0

K=k+2

NextI

a)形成无限循环。

b)循环体执行一此后结束循环。

c)语法错误。

d)循环体不执行即结束循环。答案：A

94.有如下程序，该程序的运行结果为o

DimkAsInteger

n=5:m=l:k=l

DoWhilek<=n

m=m*2

k=k+l

Loop

Printm

a)1

b)5

c)32

d)40答案：C

95.是由VisualBasic提供的一种专门的子程序，由对象本身所具有,

反映该对象功能的内部函数或过程。

a)文件

b)属性

c)方法

d)窗体答案：C

96.用InputBox函数可帮助生成。

a)消息框

b)“保存”对话框

c)简单输入框

d)“颜色”对话框答案：C

97.变量X=32769,则变量声明时不能将其声明为。

a)Integer

b)Variant

c)Long

d)Single答案：A

98.Visualbasic采用了编程机制。

a)面向过程

b)面向对象

c)事件驱动

d)可视化答案：C

99.执行下列程序后，X的值为。

X=3

y=6

DoWhiley<=6

x=x*y

y=y+l

Loop

a)3

b)6

c)18

d)20答案：C

100.下面四个选项，不是事件的是。

a)Click

b)Visibale

c)Unload

d)Change答案：B

101.要禁用计时器控件、需要将—属性设置为false。

a)Enable

b)Visibale

c)Timer

d)Interval答案：A

102.要改变控件的宽度，应修改该控件的属性。

a)Top

b)Left

c)Width

d)Height答案：C

103.写在一行上的多条语句，应以为分隔符。

a)分号

b)逗号

c)冒号

d）空格答案：C

104.下列可以把当前目录下的图形文件picl.jpg装入图片框PictureI中的语句为

a)Picture="pic1.jpg”

b)Picture.Handle=*'pic1.jpg"

c)Picture1.Picture=LoadPicture("pic1.jpg")

d)Picture:LoadPicture(^'picl.jpg,^)答案：C

105.以下不是VB对象属性的一项是o

a)Click

b)Name

c)Caption

d)Top答案：A

106.若要在图片框中绘制一个圆，使用的方法是。

a)Circle

b)line

c)point

d)pset答案：A

107.下列的程序段执行后，X的值为—o

X=0

for1=1to10

forj=Ito10

x=x+l

nextj

nextI

a)50

b)55

c)100

d)105答案：B

108.文件列表框中用于设置或返回所选文件的文件名的属性是

a)File

b)FilePath

c)Path

d)FileName答案：D

109.下面的运算符中，哪个是算术运算符。

a)Mod

b)=

c)Eqv

d)Xor答案：A

110.下列程序段的执行结果为

X=5

y=-20

ifnotx>0then

x=y-3

else

y=x+3

printx-y;y-x

endif

a)-33

b)5-8

c)3-3

d)25-25答案：A

111.在VisualBasic中通过属性设置字体颜色。

a)Fontcolor

b)Forecolor

c)Backcolor

d)Showcolor答案：B

112.在VisualBasic中按文件的访问方式不同，可以将文件分为

a)顺序文件、随机文件和二进制文件

b)文本文件和数据文件

c)数据文件和可执行文件

d)ASCII文件和二进制文件答案：A

113.在VisualBasic中，要设置菜单项的快捷访问键，应使用哪个符号：

a)&

b)*

c)$

d)@答案：A

114.在VisualBasic中，下列控件可以包含其他控件。

a)Picturebox

b)Commandbutton

c)Label

d)Checkbox答案：A

115.如果ABC的值为100,下列表达式中，的值为False。

a)ABC

b)12345012345&ABC

c)Not2*5=10

d)4=4and5>2+2答案：C

116.若要获得滚动条的当前值，可访问的属性是o

a)Text

b)Value

c)Max

d)Min答案：B

117.Msgbox函数返回值的类型是o

a)数值

b)字符串

c)变体

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

118.对象可以识别和响应的某些行为称为。

a)属性

b)方法

c)继承

d)事件答案：D

119.改变控件在窗体中的上下位置应修改控件的属性。

a)Top

b)Left

c)Width

d)Height答案：A

120.函数int(abs(99-100)/2)的值为。

a)1

b)0

c)“0”

d)“1”答案：B

121.数组的下标可取的变量类型是o

a)日期型

b)字符型

c)数值型

d)可变型答案：C

122.关键字声明的局部变量在整个程序运行中一直存在。

a)Static

b)Private

c)Dim

d)Public答案：A

123.要输出简单信息，可以使用。

a)InputBox函数

b)MsgBox函数

c)ShowFont方法

d)ShowPrinter方法答案：B

124.菜单控件仅支持以下事件。

a)Click

b)MouseDown

c)KeyPress

d)Load答案：A

125.以下控件不能触发Dbclick。事件。

a)Label

b)Commandbutton

c)PictureBox

d)Image答案：B

126.若要将某命令按钮设置为默认命令按钮。则应设置为True的属性是

a)Value

b)Cancel

c)Default

d)Enabled答案：C

127.下列字符串不能作为VB的变量名是o

a)ABCDEFG

b)P000000

c)89TWDDFF

d)XYZ答案：C

128.下列表达式不合法的是o

a)123+abc

b)123&Habcn

c)1+2/3

d)[3*(4+5)-6]/7答案：D

129.下列各组控件都具有Caption属性的是。

a)窗体、文本框

b)标签、定时器

c)窗体、标签

d)文本框、定时器答案：C

130.下列类型的变量中占用字节数最小的是o

a)Integer

b)Single

c)Date

d)Byte答案：D

131.设执行以下程序段时依次输入1、3、5,执行结果为。

Dima(4)AsInteger

Dimb(4)AsInteger

ForK=0To2

a(K+l)=Val(InputBox(“请输入数据：”))

b(3-K)=a(K+l)

NextK

Printb(K)

a)1

b)3

c)5

d)0答案：A

132.可变数组的各个数组元素的数据类型可以o

a)相同

b)不相同

c)两可

d)都不对答案：A

二、填空题

133.复选框控件Value属性指示复选框处于—(10)—或禁止状态(暗淡的)中

的某一种。选中

134.下列程序的执行结果是o

PrivateFunctionP(NAsInteger)

ForI=1ToN

SUM=SUM+i

NextI

P=SUM

EndFunction

PrivateSubCommandl_Click()

S=P(1)+P(2)+P(3)+P(4)

PrintS;

EndSub答案：20

135.激活属性窗口的快捷键是o答案：F4

136.表达式Fix(-32.68)+Int(-23.02)的值为。答案：-56

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

PrivateSubCommandl_Click()

a=InputBox("请输入一个整数”)

b=InputBox("请输入一个整数”)

Printa+b

EndSub

程序运行后，单击命令按钮，在输入对话框中分别输入321和456,输出结果为—o

答案：321456

138.滚动条响应的重要事件有和(提示：该题只填写英文，如Click事

件，只写Click即可)。答案：CHANGE#SCROLL

139.方法是VB提供的一种，用来完成一定的操作。答案：特殊子程序

140.语句a%=3.14156:Printa%的输出结果是。答案：3

%表示整数，相当于dimaasinteger.长整数符号是&

141.设置窗体的属性，可在窗体上显示图片。答案：Picture

142.下列程序用来计算1+2+3……+10的值，请补充完程序。

Dimt,kassingle

K=0

DOWhilek<10

K=k+1:

loop

printt答案：T=T+K

143.以下程序段的输出结果是一o

Num=O

Whilenum<=2

num=num+l

Wend

Printnum答案：3

144.如果要将某个菜单项设计为分隔线，则该菜单项的标题应设置为o答案：-

145.以下语句的执行结果是—o

I=Format(5459.4,u##,##0.00n)

PrintI答案：5,459.40

146.可用窗体的—(9)_方法在窗体中显示文字。Print

147.窗体中有图片框(Picturel)和计时器(Timerl)两个控件，运行程序时，

将图片加载到图片框中，然后图片框以每1秒钟一次的速度向窗体的右下

脚移动，每次向左、向下移动150twipo请填空：

PrivateSubForm_load()

(1)=loadPicture("c:\pic\ball.ico")

(2).Interval=(3)

EndSub

PrivateSubTimerl_Timer()

Staticx,yAsInteger

x=x+150

y=(4)

Picturel.Move(5)

EndSub

答案：(1)piclurel.picture(2)Timerl(3)1000(4)y+150(5)x,y

148.VisualBasie中的常量分为两种，一种是文字常量，一种是一常量。答案：符号

149.设有数组声明语句：Optionbase1dimA(3,-2to1),则数组A中有个元素。

答案：12

150.假定在C：盘根目录下有一个名为pic2.gif的图形文件，要在运行期间把该文件装

入一个图片框PICTURE1,应执行的语句为o答案：

PICTURE1,PICTURE=LOADPICTURE("C:\PIC2.GIF,')

151.PrivateSubForm_Click()

Printn*";Tab(6);2,Tab(15);5

Print

Forl=15To16

PrintI;

Forj=2To6Step3

PrintTab(3*j);j*I;

Nextj

Print

NextI

EndSub

程序运行结果：

152.双精度数用字母将尾数与指数分开。答案：D

153.在Selectcase结构中应至少包含一个子句。答案：CASE

154.窗体的属性可在属性窗口中设置，也可在程序中用语句动态设置。答案:

赋值

155.有如下Sub过程：

Subind(aAsInteger)

StaticxAsInteger

x=x+a

Printx;

EndSub

以下是调用它的事件过程，程序运行后，单击命令按钮Command1，输出结果为。

PrivateSubCommandl_Click()

Ind(2)

EndSub答案：2

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

157.下列程序的执行结果是o

Ml=l:m2=1

DoWhilem2<>6

ml=ml*m2:m2=m2+l

Loop

Printml答案：120

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

提示：闰年的条件是年号可以被4整除但不能被100整除，或者能被400整除。

PrivateSubCommand6_Click()

DimyAsInteger

y=InputBox("请输入年号”)

If(yMod4=0yMod100<>0)or(yMod400=0)Then

Print”是闰年”

ElsePrint”是普通年份”

EndIf

EndSub答案：AND

159.下列程序是用来计算1+2+3……+10的程序段，请补充完该程序。

DimI,s,kAsInteger

s=0:k=0

For____To-1

k=k+l:s=s+k

NextI

Prints答案：J=-10

160.根据变量的定义位置和所使用的变量定义语句的不同，VB中的变量可以分为3类,

即、模块变量和全局变量。答案：局部变量

161.下列程序段的执行时，共循环一次。

Fora=0To1

Forb=lTo2

Forc=lTo3

1=1+1

Nextc

Nextb

nexta答案：12

162.下列程序段的运行结果是：

Subsele()

DimnasInteger

I=21:n=3

DoWhileI>n

I=I-n

Loop

PrintI

EndSub

打印结果答案：3

163.一个程序最多可以有窗体。答案：255

164.假定有一个文本框，其名称为Textl,为了使该文本框具有焦点，应执行的语句是

。答案：TEXT1.SETFOCUS

165.执行下面的程序段后，s