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

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

［含答案］

一、选择题

1.下面的运算符中，优先级别最高的是O

a)AND

b)*

c)〉=

d)&答案：B

2.在VisualBasic环境下，当写一个新的VisualBasic程序时，所做的第一件事是

a)编写代码

b)新建一个工程

c)打开属性窗口

d)进入VB环境答案：B

3.要使窗体Forml关闭，错误的是。

a)UnloadForml

b)Unloadme

c)End

d)Forml.Visiable=False答案：D

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

a).frm

b).cis

c).bat

d).vbp答案：C

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

a)List

b)ListCount

c)Move

d)Additem答案：D

6.下列结构中不属于循环结构的是o

a)for/next

b)while/wend

c)With/endwith

d)do/loop答案：C

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

a)0

b)0.8

c)-0.2

d)-34.8答案：A

8.目录列表框的path属性的作用是o

a)显示目录列表框中打开的当前目录。

b)显示当前驱动器或指定驱动器上的某目录下的文件名。

c)显示根目录下的文件名。

d)显示路径下的文件。答案：A

9.当复选框设置为图片风格时，下列属性可以在复选框被选中时显示图形。

a)DisabledPicture

b)DownPicture

c)Picture

d)Image答案：B

10.以下过程不属于Sub过程的是o

a)编译过程

b)Sub通用过程

c)proper属性过程

d)Event事件过程答案：A

11.如果x是一个正实数，对x的第二位小数四舍五入的表达式是o

a)0.1*Int(x+0.05)

b)0.1*Int(10*(x+0.05))

c)0.1*Int(100*(x+0.5))

d)0.1*Int(x+0.5)答案：B

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

a)窗体

b)代码窗口

c)立即窗口

d)图片框答案：B

13.设x=-18,则Abs(5*x)=o

a)-90

b)90

c)18

d)5答案：B

14.Strc=Mid(nVisualBasic'1,10,3)，则Strc的值___。

a)HVisn

b)nsuan

c)"Bas"

d)“sic”答案：D

15.下列语句中正确的是

a)txt1.text+txt2.text=txt3.text

b)command1.name=cmdok

c)121abel.caption=1234

d)a=inputbox(hello)答案：D

16.命令按钮Commandl的Caption属性为“退出(x)”,要将命令按钮的快捷键设为

Alt+x,应修改Caption属性为。

a)在x前插入&

b)在x后插入&

C)在X前插入#

d)在x后插入#答案：A

17.下列程序运行后，变量s的值为o

J=O:s=O

For1=1To4

j=j+I

s=s+j

NextI

a)20

b)10

c)5

d)15答案：A

18.用以下语句Dimb(-2to4)asstring所定义的数组的元素个数是个。

a)2

b)4

c)6

d)7答案：D

19.以下选项中，不属于单选按扭属性的是。

a)Enabled

b)Caption

c)Name

d)Min答案：D

20.单精度浮点数占用的字节数为o

a)2个字节

b)3个字节

c)4个字节

d)8个字节答案：C

21.将定时器的时间间隔设置为1秒，那么定时器的Interval属性应设置为

a)1000

b)1

c)100

d)10答案：A

22.Datetime是Date类型的变量，以下赋值语句中错误的是：。

a)Datetime=#4/14/97#

b)Datetime=#May1,1997#

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

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

23.下列语句可以将变量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)A=(A+B)/2:B=(A-B)/2答案：B

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

a)Caption

b)Value

c)Text

d)name答案：D

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

X=1

y=4

DoUntily>4

x二x*y

y=y+i

Loop

Printx

a)4

b)8

c)12

d)16答案：A

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

a)MultiSelect

b)Index

c)Columns

d)List答案：C

27.如下数组声明语句，正确的是o

a)dima[3,4]asintiger

b)dima(3,4)asstring

c)dima(n,n)assingle

d)dima(34)asinteger答案：B

28.整型数的取值范围为0

a)-32767〜+32767

b)-32768〜+32767

c)-32768〜+32768

d)0-65535答案：B

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

a)6/12/2001

b)"6/12/2001”

c)#6,12,2001#

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

30.下列程序的运行结果为o

For1=1to3

d(I)=2*I-l

?dQD

NextI

a)135

b)246

c)146

d)567答案：A

31.若要取消窗体的最大化功能，则可设置____属性为False来实现。

a)ControlBox

b)MinButton

c)MaxButton

d)Enabeld答案：C

32.表达式Left("howareyou”,3)的值是。

a)how

b)are

c)you

d)ho答案：A

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

34.哪个不是VisualBasic的数据类型。

a)Single

b)Object

c)Integer

d)Bool答案：D

35.设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+OBAndB+C>A

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

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

a)8.76

b)7.8

c)6

d)6.67答案：C

37.Rnd函数可能产生的()值

a)2

b)1

c)0.1234

d)1.00005答案：C

38.在一个语句行内写多条语句时，语句之间应该用()分隔

a)逗号

b)分号

c)顿号

d)冒号答案：D

39.设A="abcdefghijklm",下面()的函数值为"jklm"。?

a)Mid(A,10,4)

b)Ringht(A,5)

c)Ringht(A,l,4)

d)Left(A,10,4)答案：A

40.要把一个命令按钮设置成无效，应设置其哪一属性值___o

a)Visible

b)Enabled

c)Default

d)Cancel答案：B

41.设在窗体上有两个命令按钮，其中一个命令按钮的名称为cmda,则另一个命令按钮的

名称不能是()

a)cmdc

b)cmdb

c)cmdA

d)Command1答案：c

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

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

b)N-?INT(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

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

a)Top

b)Name

c)Visible

d)Interval答案：D

44.叹金丁喂

说法不正确的是

a)必须是字母开头，不能是数字或其他字符

b)不能用VisualBasic保留字

c)可以包含字母、数字、下划线和标点符号

d)不能超过255个字符答案：C

45.下列关于属性设置的叙述错误的是：()

a)一个控件具有什么属性是VB预先设计好的，用户不能改变

b)一个控件具有什么属性是VB预先设计好的，用户可以改变

c)一个控件的属性即可以在属性窗口中设置，也可以用程序代码设置

d)一个控件的属性在属性窗口中设置，还可以利用程序代码为其设置新值答案：A

46.VB应用程序的运行模式是

a)解释运行模式

b)编译运行模式

c)两者都有

d)汇编模式答案：C

47.任何控件都具有的属性是()

a)TEXT

b)CAPTION

c)NAME

d)FORECOLOR答案：C

48.变量未赋值时，数值型变量的值为()

a)0

b)空

c)1

d)0.1答案：A

49.启动VisualBasic后，系统为用户新建的工程起一个名为()的临时名称

a)工程1

b)窗体1

c)工程

d)窗体答案：A

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

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

b)Listl.List(Listl.ListCount)

c)List1.List(ListCount)

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

51.表达式Fix(-23.87)+int(24.56)的值为。

a)-1

b)0

c)1

d)2答案：C

52.下面四个选项，不是事件的是o

a)Load

b)Enabled

c)Unload

d)Activate答案：B

53.能够改变窗体边框线类型的属性是o

a)Fontstyle

b)Borderstyle

c)Backstyle

d)Border答案：B

54.如果有声明Optionbase1dimarr(3,3),则该数组共有个元素。

a)16

b)9

c)4

d)6答案：B

55.如果有声明Optionbase1dimarr(-8to-2,4),则该数组共有个元素。

a)36

b)28

c)34

d)35答案：B

56.如果有声明Optionbase1dimarray(15),则该数组共有个元素。

a)16

b)15

c)13

d)14答案：B

57.INT(100*RND(1))产生的随机整数的闭区间是

a)[0,99]

b)[1,100]

c)[0,100]

d)[1,99]答案：A

58.文本框控件中将Text的内容全部显示为所定义的字符的属性项是(?？)

a)PasswordChar

b)需要编程来实现

c)Password

d)以上都不是答案：A

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

a)0.01*int(x+0.05)

b)0.01*int(100*(x+0.005))

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

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

60.“对象”是计算机系统运行的()

a)程序单位

b)逻辑单位

c)物理实体

d)基本实体答案：D

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

a)对象

b)程序

c)控件

d)窗体答案：A

62.下列叙述正确的是()

a)对象是包含数据又包含对象数据进行操作的方法的物理实体

b)对象的属性只能在属性窗口中设置

c)不同的对象能识别不同的事件

d)事件过程都要由用户点击对象来触发答案：C

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

a)0.01*int(x+0.05)

b)0.01*int(100*(x+0.005))

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

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

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

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

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

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

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

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

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

a)F4

b)F5

c)F6

d)F7答案：B

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

a)7.5

b)0

c)1

d)2答案：B

67.变量A%的类型是oDimaasinteger

a)Integer

b)Single

c)String

d)Boolean答案：A

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

N=O:J=1

DoUntilN>2

N=N+1

j=J+N*(N+1)

Loop

PrintN;J

a)01

b)37

c)321

d)313答案：C

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

X=6

ForK=1To10Step-2

X=X+K

NextK

PrintK;X

a)-16

b)-116

c)16

d)1131答案：C

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

K=0

ForJ=1to2

ForI=1to3

K=I+1

NextI

ForI=1to7

K=K+1

NextI

NextJ

PrintK

a)10

b)6

c)11

d)16答案：C

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

M=0

For1=1To3

ForJ=5To1Step-1

N=N+1

NextJ,I

PrintN;J;I

a)1204

b)1504

c)1231

d)1531答案：B

72.下列程序共执行了循环。

DimintsumAsInteger

DimIAsInteger

DimjAsInteger

For1=1To10Step2

Forj=lTo5Step2

intsum=intsum+j

Nextj

NextI

a)10

b)20

c)25

d)15答案：D

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

a)Left(S,4)

b)Left(l,4)

c)Leftstr(S)

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

74.Inputbox()函数的返回值类型为。

a)数值型

b)字符型

c)逻辑型

d)变体型答案：B

75.17mod3的运算结果是。

a)0.5

b)1

c)1.5

d)2答案：D

76.不能作为容器的对象是o

a)窗体

b)框架

c)图片框

d)图像框答案：D

77.如有数组声明语句Dima(2,-3to2,4),则数组a包含元素的个数是.

a)40

b)75

c)12

d)90答案：D

78.若x是一个正实数，对x的第3位小数四舍五入的表达式o

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)答案：B

79.Print方法可以输出多个表达式值，若使用标准格式输出，各表达式的分割符应是

a)空格

b)逗号

c)冒号

d)分号答案：B

80.VisualBasic主要用于。

a)图像处理

b)文字处理

c)制作视频文件

d)开发应用程序答案：D

81.把InputBox的返回值转换为数值应该使用的函数是o

a)Log

b)Str

c)Len

d)Vai答案：D

82.dima(-3to3)所定义的数组元素个数是。

a)6

b)7

c)8

d)9答案：B

83.执行完下面的程序段后，循环将执行一次。

For1=1.7To5.9Step0.9

a=a+l

Printa

NextI

a)3

b)4

c)5

d)6答案：C

84.编写如下事件过程：

PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

IfShift=6AndButton=2Then

Print"Hello"

EndIf

EndSub

程序运行后，为了在窗体上输出"Hello”，应在窗体上执行以下操作。

a)同时按下Shift键和鼠标左键

b)同时按下Shift键和鼠标右键

c)同时按下Ctrl、Alt键和鼠标左键

d)同时按下Ctrl、Alt键和鼠标右键答案：D

85.当执行以下程序时，在名为IblResult的标签框内将显示。

PrivateSubcmdlt_click()

DimI,R

R=0

For1=1To5Step1

R=R+I

NextI

lblResult.Caption=Str(R)

EndSub

a)字符串15

b)整数15

c)字符串5

d)整数5答案：A

86.设有如下语句：

strl=inputbox("输入练习")

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

a)“输入”

b)

c)"练习"

d)“示例”答案：D

87.我们在一个窗体上建立两个文本框，名称分别为Textl和Text2,事件过程如下,

PrivateSubTextl_change()

Text2.text=Ucase(Textl.text)

EndSub

则在Textl文本框输入"visualbasic"，Text2将。

a)Text2中无内容显示。

b)Text2显示“VISUALBASIC”。

c)Text2显示"visualbasic"

d)Textl显示"visualbasic”答案：B

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

K=0

For1=1To3

a=IAIAK

printa;

NextI

a)111

b)123

c)000

d)149答案：A

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

A=100:b=50

Ifa>bThen

a=a-b

Else

b=b+a

Endif

Printa

a)50

b)100

c)200

d)10答案：A

90.控件可以使用SetFocus()方法。

a)Frame

b)Label

c)TextBox

d)Timer答案：C

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

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.RGB函数通过红、绿、蓝三基色混合产生某种颜色，其语法为RGB（红，绿，蓝）,

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

基色，

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

a)Max和Min

b)SmallChange和LargeChange

c)Scroll和Change

d)Value答案：A

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

For1=1to10step0

K=k+2

NextI

a)形成无限循环。

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

c)语法错误。

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

94.有如下程序段，该程序段执行完毕后，共循环了o

For1=1To5

Forj=lToI

Fork=jTo4

Print"a"

Nextk

Nextj

NextI

a)4

b)5

c)38

d)40答案：D

95.有如下程序，该程序的运行结果为。

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

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

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

a)文件

b)属性

c)方法

d)窗体答案：C

97.下列各项不是VisualBasic的基本数据类型的是。

a)Char

b)String

c)Integer

d)Double答案：A

98.若要将窗体从内存中卸载出去，应该使用的方法是o

a)Show

b)UnLoad

c)Load

d)Hide答案：B

99.有如下程序：

For1=1To3

Forj=5To1Step-1

PrintI+j

Nextj

NEXTI

其循环执行的次数为o

a)12

b)13

c)14

d)15答案：D

100.将命令按钮Commandl设置为不可见，应修改该命令按钮的属性。

a)Visible

b)Value

c)Caption

d)Enabled答案：A

101.通用对话框中能打开“颜色对话框”的方法是o

a)ShowOpen

b)ShowColor

c)ShowSave

d)ShowPrinter答案：B

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

a)分号

b)逗号

c)冒号

d)空格答案：C

103.如果A为一boolean型数据，则下列赋值语句正确的是

a)A=Htruen

b)A=.true

c)A=#TURE#

d)A=3<4答案：D

104.设a=2,b=3,c=4,d=5,下歹ij表达式a=b<>c=d的值是。

a)1

b)Ture

c)False

d)-1答案：C

105.通过文本框的属性可以获得当前插入点所在的位置。

a)Position

b)SelStart

c)SelLength

d)Left答案：B

106.下列哪一个是正确的变量名o

a)$abc

b)Int

c)141abc

d)abcf答案：D

107.设定当鼠标移动到文本框控件上时给用户提示文本的属性是一

a)HideSelection

b)ToolTipText

c)Aligmment

d)Wordwrap答案：B

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

a)Click

b)Name

c)Caption

d)Top答案：A

109.下列逻辑运算结果为“true”的是。

a)falseornottrue

b)falseandnottrue

c)trueornottrue

d)trueandnottrue答案：C

HO.下列的程序段执行后，X的值为一o

X=0

for1=1to10

forj=Ito10

x=x+l

nextj

nextI

a)50

b)55

c)100

d)105答案：B

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

a)&

b)*

c)$

d)@答案：A

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

a)工程窗口

b)属性窗口

c)立即窗口

d)窗体窗口答案：A

113.在VisualBasic中，称对象的数据为：«

a)属性

b)方法

c)事件

d)封装答案：A

114.在VB中，常量12#的数据类型是o

a)整型

b)双精度浮点型

c)长整型

d)字符串答案：B

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

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

A、GotFocusB、LoadC、ClickD、KeyDown

116.下列能正确产生［1-30］之间的随机整数的表达式是o

a)l+rnd(30)

b)l+30*rnd()

c)md(l+30)

d)int(md()*30)+l答案：D

117.通常，文本框的Setfocus方法不能使用在____事件中。

a)Form_click

b)Form_load

c)Command_click

d)Label_click答案：B

118.用于获得字符串S从第4各字符开始的4个字符的函数是o

a)Mid(S,4,4)

b)Middle(S,4,4)

c)Midstr(S,4,4)

d)MiddleStr(S,4,4)答案：A

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

a)interval

b)value

c)enabled

d)text答案：A

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

a)Circle

b)line

c)point

d)pset答案：A

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

a)数值

b）字符串

c）变体

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

122.OOP的含义是-

a）面向对象的程序设计方法

b）开放数据库接口

c）图形设备接口

d）图形用户界面答案：A

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

a）属性

b）方法

c）继承

d）事件答案：D

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

a）File

b）FilePath

c）Path

d）FileName答案：D

125.控件内的对齐方式由___属性决定。

a）Alignment

b）Wordwrap

c）AutoSize

d）Style答案：A

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

a）Name

b）Caption

c）BackColor

d）BorderStyle答案：B

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

a）日期型

b）字符型

c）数值型

d）可变型答案：C

128.以下控件中没有Caption属性的是。

a)标签框

b)文本框

c)框架

d)命令按钮答案：B

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

a)相同

b)不相同

c)两可

d)都不对答案：A

130.若要设置文本框中所显示的文本颜色，使用的属性是

a)BackColor

b)FillColor

c)ForeColor

d)BackStyle答案：C

131.双击窗体中的对象后，VisualBasic将显示的窗口是一

a)项目(工程)窗口

b)工具箱

c)代码窗口

d)属性窗口答案：C

132.下列表达式不合法的是0

a)123+abc

b)123&"abc"

c)1+2/3

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

133.函数int(10*rnd)是在___范围内的整数。

a)[0,1)

b)[1,10)

c)[1,9)

d)[0,9]答案：D

二、填空题

134.有如下程序，该程序的运行结果是。

A=20:b=10

printa>b答案：TRUE

135.VisualBasie提供了列表框控件，当列表框中的项目较多、超过了列表框的长度时,

系统会自动在列表框边上加一个o答案：滚动条

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

137.下列程序段的运行后t的值为。

Dimt,kassingle

k=5:t=l

doWhilek>=-l

t=t*k:K=K-1

loop答案：0

138.执行语句“a=6=5”后，变量a的值为。答案：FALSE

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

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

140.执行下面的程序段后，s的值为一o

S=5

For1=2.6To4.9Step2

s=s+l

NextI答案：7

141.下列程序用来将变量X,Y的值互换，请补充完程序（提示：该题答案中不要出现空

格）。

T=Y::X=T答案：Y=X

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

。答案：TEXT1.SETFOCUS

143.表达式：5\2*3的值是-答案：0

整除'的运算级别小于乘*除/

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

145.VB程序设计中三种基本结构分是：结构、选择结构和结构。

答案：顺序#循环

146.x,y中至少有一个变量小于变量z的VB表达式为x<zy<z。

答案：OR

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

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

PrintI答案：5,459.40

148.窗体中有图片框(Picture1)和计时器(Timer1)两个控件，运行程序时，

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

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

PrivateSubForm_load()

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

(2).Interval=(3)

EndSub

PrivateSubTimerl_Timer()

Staticx,yAsInteger

x=x+150

y=(4)

Picture1.Move(5)

EndSub

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

149.工程是构成应用程序文件的。答案：集合

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

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

PICTUREl.PICTURE=LOADPICTURE(nC:\PIC2.GIFH)

151.PrivateSubForm_Click()

Print"*"；Tab(6);2,Tab(15);5

Print

Forl=15To16

PrintI;

Forj=2To6Step3

PrintTab(3*j)；j*I；

Nextj

Print

NextI

EndSub

程序运行结果:

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

Ifa<bThen

d=a:a=b:b=d

Endlf

Ifa<cThen

d=a:a=c:c=d

Endlf

IfThen

d=b:b=c:c=d

Endlf

Printa,b,c答案：b<c

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

赋值

154.逻辑常量值为TRUE或o答案：FALSE

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

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

Ml=l:m2=1

DoWhilem2<>6

ml=ml*m2:m2=m2+l

Loop

Printml答案：120

157.一组具有相同名称，不同下标的下标变量称为o答案：数组

158.假定当前日期为2002年7月12日，星期六，则执行语句Printday(now)后，输出结

果是o答案：12

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

Fora=0To1

Forb=1To2

Forc=lTo3

1=1+1

Nextc

Nextb

nexta答案：12

160.以下程序计算2到50间所有偶数的和，请补充完该程序

Submult()

DimSumAsInteger

Sum=0

DimIasinteger

For___to50

IfIMOD2=_Then—

NextI

Printsum

EndSub答案：1=20SUM=SUM+I

161.下列循环语句，要求和数达到10既停止累加，退出循环，请补充完程序。

Forj=lto10

s=s+j

Ifs>=10then。

Nextj答案：EXITFOR

162.在VB中，最主要的两种对象是(3)和(4)o

窗体(form)控件

163..34要选择多个不相邻的控件，按住_____或SHIFT键不放，再单击要选择的控

件