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

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

［含答案］

一、选择题

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

a)ControlBox

b)MinButton

c)MaxButton

d)Enabeld答案：C

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

J=O:s=O

For1=1To4

j=j+I

s=s+j

NextI

a)20

b)10

c)5

d)15答案：A

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

DimM(10),N(10)

1=3

forT=lTo5

M(T)=T

N⑴=2*I+T

NextT

printN(I);M(I)

a)311

b)315

c)113

d)153答案：C

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

a)Change

b)keyDown

c)Scroll

d)DragOver答案：C

5.写列选项中，合法的变量是o

a)c%aaa

b)sum_3

c)Else

d)5persons答案：B

6.以下控件中没有Caption属性的控件是一

a)标签框

b)文本框

c)框架

d)命令按钮答案：B

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

a)Click

b)Name

c)Caption

d)Top答案：A

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

For1=1to3

d⑴=2*1-1

?d(I)

NextI

a)135

b)246

c)146

d)567答案：A

9.以下哪个是合法的变量名。

a)Len

b)Test@qw

c)6cost_l

d)count2s答案：D

10.若要将窗体隐藏起来，则实现的方法为

a)Unload

b)Show

c)WindowsState

d)Hide答案：D

11.若要使标签透明，则可使用的属性是。

a)BackColor

b)BackStyle

c)BorderStyle

d)ForeColor答案：B

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

a)编写代码

b)新建一个工程

c)打开属性窗口

d)进入VB环境答案：B

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

a)DimstrAsString

b)DimstrAsString(256)

c)DimstrAsString(256)

d)DimstrAsString*256答案：D

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

a).frm

b).cis

c).bat

d).vbp答案：C

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

Form=lto1000step2

a=10

forn=lto20step2

a=a+2

nextn

nextm

printa

a)1200

b)1000

c)30

d)20答案：C

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

a)8

b)40

c)255

d)11答案：B

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

a)Enabled

b)Caption

c)Name

d)Min答案：D

18.下列语句中正确的是

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

b)command1.name=cmdok

c)121abel.caption=1234

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

19.下面的运算符中，哪个是关系运算符o

a)Not

b)mod

c)<>

d)&答案：C

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

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

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

a)工程窗口

b)属性窗口

c)立即窗口

d)窗体窗口答案：A

22.在VisualBasic中，称对象的数据为:

a)属性

b)方法

c)事件

d)封装答案：A

23.用于获取字符串长度的函数是。

a)Len()

b)Length()

c)Strlen()

d)Lofo()答案：A

24.以下程序段的执行结果是o

X=2:y=l

Ifx*y<1Then

y=y-l

Else

y=-l

Printy-x>0

EndIf

a)Ture

b)False

c)-1

d)1答案：B

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

a)窗体设计器

b)快捷菜单

c)立即窗口

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

26.以下可以构成语句的一项是。

a)对象名.属性名

b)对象名.方法名

c)对象名.事件名

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

27.窗体能响应的事件是。

a)ActiveFrom

b)Drive

c)Load

d)Change答案：C

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

a)启动VB时建立的窗体

b)第一个添加的窗体

c)最后一个添加的窗体

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

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

a)数据

b)代码

c)数据与代码

d)属性答案：C

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

a)1000

b)1

c)100

d)10答案：A

31.不能触发滚动条Change事件的操作是。

a)拖动滚动块

b)单击两端箭头

c)单击滚动块

d)单击箭头与滚动块之间的滚动条答案：C

32.命令按钮Command1的Caption属性为“退出(x)”，要将命令按钮的快捷键设为

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

a)在x前插入&

b)在x后插入&

c)在x前插入#

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

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

a)Left(S,4)

b)Left(l,4)

c)Leftstr(S)

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

34.逻辑运算符Xor、Or、Eqv、And中，级别最高的运算符()

a)Xor

b)Or

c)Eqv

d)And答案：D

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

a)?X,y

b)Printx,y

c)Debug.Printx,y

d)Print.Formx,y答案：D

36.将任意一个正的两数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

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

a)[0,99]

b)[1,100J

c)10,100]

d)[1,99]答案：A

38.设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+OA

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

39.设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+O=A答案：B

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

a)8.76

b)7.8

c)6

d)6.67答案：C

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

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

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

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

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

42.设A="abcdefghijklm"，下面()的函数值为“jklm"。?

a)Mid(A,10,4)

b)Ringht(A,5)

c)Ringht(A,l,4)

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

43.窗体的Enable属性的属性值是()类型的数据.

a)整型

b)字符型

c)逻辑型

d)实型答案：C

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

a)Name

b)Print

c)Caption

d)Enabled答案：B

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

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

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

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

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

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

a)解释运行模式

b)编译运行模式

c)两者都有

d)汇编模式答案：C

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

a)TEXT

b)CAPTION

c)NAME

d)FONT答案：D

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

a)TEXT

b)CAPTION

c)NAME

d)FORECOLOR答案：C

49.以下()程序段可以实施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

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

a)1

b)5

c)4

d)出错答案：B

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

a)how

b)are

c)you

d)ho答案：A

52.下列声明语句中存在变体变量的是o

a)Dima,bAsInteger

b)DimaAsString

c)StaticaAsInteger

d)PublicaAsCurrenency答案：A

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

a)标题

b)名称

c)索引

d)快捷键答案：B

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

a)编译过程

b)Sub通用过程

c)proper属性过程

d)Event事件过程答案：A

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

a)0.1*Int(x+0.05)

b)0.PInt(10*(x+0.05))

c)0,1*Int(100*(x+0.5))

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

56.Pr血方法不允许在对象上输出数据。

a)窗体

b)代码窗口

c)立即窗口

d)图片框答案：B

57.设x=・18,则Abs(5*x)=。

a)-90

b)90

c)18

d)5答案：B

58.标准工具箱中的控件()

a)数目是固定不变的

b)数目可以增加或减少

c)包含了Visual?Basic所有控件

d)在窗体建立对象时不一定被使用答案：B

59.表达式Int(-17.8)+Sgn(17.8)的值是。

a)18

b)-17

c)-18

d)-16答案：B

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

a)show

b)hide

c)load

d)unload答案：D

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

a)Beijing

b)jing

c)eiji

d)ijin答案：B

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

a)Load

b)Enabled

c)Unload

d)Activate答案：B

63.VB6.0中，执行下面的四个语句时出现错误的是。

a)x=SGN(0)

b)x=SQR(0)

c)x=LOG(0)

d)x=SIN(0)答案：C

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

a)命令按钮控件

b)窗口控件

c)文本框控件

d)单选框控件答案：B

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

a)Combol.CIS

b)Combol.Clear

c)Combol.Delete

d)Combo1.Remove?答案：B

66.要使标签中显示的文本靠右显示，则应将其Alignment属性设置为()

a)0

b)1

c)2

d)3答案：B

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

a)"Vis1"

b),'suan

c)HBas"

d)nsicH答案：D

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

a)6

b)7

c)8

d)9答案：B

69.17mod3的运算结果是。

a)0.5

b)1

c)1.5

d)2答案：D

70.复选对象是否被选中，是由其属性决定的。

a)Checked

b)Value

c)Enabled

d)Selected答案：B

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

X=6

ForK=1To10Step-2

X=X+K

NextK

PrintK;X

a)-16

b)-116

c)16

d)1131答案：C

72.15.5X2的结果是o

a)1

b)1.5

c)7

d)8答案：D

73.19.5Mod2*2的运算结果是。

a)3.5

b)1

c)3

d)0答案：D

74.假定Picturel和Textl分别为图片框和文本框的名称，下列不正确的语句是

a）Print25

b）Picture1.Print25

c）Text1.Print25

d）Debug.Print25答案：C

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

a）a=0orb=0

b）a=0Xorb=0

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

d）a=0Andb=（）答案：B

76.刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是。

a）单选按钮

b）图片框

c）通用对话框

d）文本框答案：C

77.Inputbox。函数的返回值类型为o

a）数值型

b）字符型

c）逻辑型

d）变体型答案：B

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

a）输出信息

b）定义提示信息

c）定义隐含信息

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

79.Rnd函数不可能产生的值是。

a）0

b）1

c）0.1234

d）0.00005答案：B

80.VisualBasic是一种面向对象的程序设计语言，构成对象的三要素是

a）属性、事件、方法

b）控件、属性、事件

c）窗体、控件、过程

d）窗体、控件、模块答案：A

81.变量A%的类型是oDimaasinteger

a)Integer

b)Single

c)String

d)Boolean答案：A

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

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.0PInt(x+0.05)答案：B

83.a=5,b=8,则int((b-a)*rnd+a)的结果是介于之间的整数。

a)[5,8)

b)(0,5)

c)[3,5)

d)(0,3]答案：A

84.下面程序段的循环结构执行后，的输出值是o

程序段为：

For1=1to10step2

y=y+I

NextI

printI;

a)25

b)10

c)11

d)因为Y的初值不知道，所以不确定答案：C

85.编写如下事件过程：

PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

IfShift=6AndButton=2Then

PrintuHello"

EndIf

EndSub

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

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

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

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

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

86.我们在一个窗体上建立两个文本框，名称分别为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

87.下列程序的运行后s的值是o

S=0

Forx=99to1Step-2

s=s+x

Nextx

Prints

a)100

b)500

c)2500

d)5000答案：C

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

K=0

For1=1To3

a=IAIAK

printa;

NextI

a)111

b)123

c)000

d)149答案：A

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

DimintsumAsInteger

DimIAsInteger

intsum=0

For1=20.2To5Step-4.7

intsum=intsum+1

NextI

Printintsum

a)150

b)200

c)50

d)0答案：C

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

DimSAsInteger,nAsInteger

S=0:n=l

DoWhilen<=100

S=S+n

n=n+l

Loop

PrintS

a)5050

b)2500

c)3000

d)4000答案：A

91.用InputBox函数可帮助生成一

a)消息框

b)“保存”对话框

c)简单输入框

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

92.下面程序执行的结果是一。

PrivateSubForm_Click()

A$="123":B$="456"

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

PrintCM00

EndSub

a)123

b)3

c)5

d)579答案：C

93.以下不属控件的一项是

a)文本框

b)标签框

c)列表框

d)消息框答案：D

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

For1=1To2

ForJ=ITo2

ForK=1ToJ

a=a+2

NextK

NextJ

NextI

a)2

b)8

c)10

d)20答案：C

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

For1=1.7To5.9Step0.9

a=a+l

Printa

NextI

a)3

b)4

C)5

d)6答案：C

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

Dims,I,jasinteger

ForI=1to3

Forj=3To1Step-1

S=I*j

Nextj

NextI

a)9

b)10

c)3

d)4答案：A

97.以下程序输出1到1000之间所有的偶数之和，请补充完该程序。

PrivateSubCommand_Click()

DimxAsDouble

For1=0To1000

IfThen

X=X+I

EndIf

NextI

Printx

EndSub

a)iMod2=0

b)xMod2=0

c)IMod2<>0

d)xMod2<>0答案：A

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

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

a)文件

b)属性

c)方法

d)窗体答案：C

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

a)空格

b)逗号

c)冒号

d)分号答案：B

100.下面程序执行后，X的结果为。

X=0

ForI=1to5

Forj=Ito5

X=X+1

Nextj

NextI

PrintX

a)5

b)10

c)15

d)20答案：C

101.要使循环体至少执行一次，应使用循环。

a)For-next

b)While-wend

c)Do-Loopwhile|until

d)do[while|until]-loop答案：C

102.确定一个窗体大小的属性是o

a)Width和Height

b)Width和Top

c)Top和Left

d)Top和Height答案：A

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

a)ABCDEFG

b)P000000

c)89TWDDFF

d)XYZ答案：C

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

a)123+abc

b)123&"abcM

c)1+2/3

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

105.下列各赋值语句，语法不正确的是o

a)x+y=5

b)iNumber=15

c)Labeil.caption=,,timeu

d)sLength=x+y答案：A

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

a)Integer

b)Single

c)Date

d)Byte答案：D

107.下拉式组合框的Style属性值为。

a)0

b)1

c)2

d)3答案：A

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

a)Text

b)Value

c)Max

d)Min答案：B

109.要输出简单信息，可以使用o

a)InputBox函数

b)MsgBox函数

c)ShowFont方法

d)ShowPrinter方法答案：B

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

a)BackColor

b)FillColor

c)ForeColor

d)BackStyle答案：C

111.要获得当前驱动器应使用驱动器列表框的属性。

a)Path

b)Drive

c)Dir

d)Pattern答案：B

112.如果将布尔常量值True赋给一个整型变量，则整型变量的值为

a)0

b)-1

c)TRUE

d)FALSE答案：B

113.若要使某命令按钮获得控制焦点，可使用的方法是o

a)lostfocus

b)setfocus

c)point

d)value答案：B

114.命令Picture.Cirle(500,800),800能够在图片框Picture中画出的图形是_

a)半径为sin的椭圆

b)细而高的椭圆

c)扁而平的椭圆

d)圆心在(500,800)的一个圆弧答案：D

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

a)Position

b)SeiStart

c)SelLength

d)Left答案：B

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

a)Picture=Mpicl.jpgM

b)Picture.Handle=npic1.jpgn

c)Picture1.Picture=LoadPicture(npicl.jpg'*)

d)Picture:LoadPicture(npic1.jpgu)答案：C

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

a)Label

b)Commandbutton

c)PictureBox

d)Image答案：B

118.函数lefi(”Hello”,2)的值为0

a)He

b)el

c)lo

d)true答案：A

119.下列程序运行后，输出的结果为o

B=1

Dowhile(b<40)

b=b*(b+l)

Loop

Printb

a)42

b)39

c)6

d)1答案：A

120.VisualBasic主要用于。

a)图像处理

b)文字处理

c)制作视频文件

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

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

a)ShowOpen

b)ShowColor

c)ShowSave

d)ShowPrinter答案：B

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

a)interval

b)value

c)enabled

d)text答案：A

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

a)BorderStyle

b)BackStyle

c)AutoSize

d)Alignment答案：A

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

a)数值

b)字符串

c)变体

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

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

a)AutoSize

b)Alignment

c)Multiline

d)ScrollBars答案：C

126.当某一按钮的()属性设置为False时，该按钮不可见。

a)Enable

b)Visibale

c)Default

d)Cancel答案：B

127.能显示窗体的方法是o

a)Visible

b)show

c)Hide

d)open答案：B

128.将当前窗体中显示的文字及绘制的图形全部清除，可以用方法

a)Me.Clear

b)Me.Cis

c)Me="”

d)Me.Delete答案：B

129.下列事件中，命令按钮能响应的事件是o

a)DblClick

b)Click

c)Scroll

d)Load答案：B

130.数学式子sin25°写成VisualBasic表达式是。

a)sin25

b)Sin(25)

c)Sin(25*3.14/180)

d)sin(25°)答案：C

131.设定文本框中是否可以接受多行文本用属性。

a)MaxLength

b)ToolTipText

c)Multiline

d)Tag答案：C

132.当窗体大小改变时，要使其中的控件也按比例发生变化，应使用窗体的

a)AutoSize属性

b)Resize事件

c)AutoRedraw属性

d)Stretch方法答案：B

133.可变数组的各个数组元素的数据类型可以。

a)相同

b)不相同

c)两可

d)都不对答案：A

134.OOP的含义是。

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

b)开放数据库接口

c)图形设备接口

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

二、填空题

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

136.以下循环的执行次数是

K=0

DoWhilek<=10

k=k+l

Loop答案：11

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

S=5

For1=2.6To4.9Step0.6

s=s+l

NextI答案：9

138.执行下面的程序段后，b的值为。

a=300:b=20

a=a+b:b=a-b:a=a-b答案：

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

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

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

格）。

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

141.执行inputbox函数后，会产生一个对话框，对话框上通常有两个按纽，

它们是按纽和取消按钮。答案：确定

142.设有数组声明语句：Optionbase1dimA（3,-2to1）,则数组A中有个元素。

答案：12

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

DimI,s,kAsInteger

s=0:k=0

For__To-1

k=k+l:s=s+k

NextI

Prints答案：J=-10

144.程序运行工程中，清除BMP图片框中的图片应使用语句。答案：cis

145.表达式Int(Rnd(O)+l)+Int(Rnd⑴-1)的值是。答案：0

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

答案：顺序#循环

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

答案：OR

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

的某一种。选中

149.属性为列表框中的每个列表项设置一个对应的数值，它是一个整数数组，

数组大小与列表项的个数一致。答案：LIST

150.有一数组定义语句：dimM(-2toI)asstring,该语句定义的数组M中包含个元

素。答案：4

151.设a=2,b=3,c=4,d=5下歹Ua>bandcodorc=a表达式的值是。答案：FALSE

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

153.表达式3/6*5的值是o答案：2.5

154.有如下Sub过程：

Subind(aAsInteger)

StaticxAsInteger

x=x+a

Printx;

EndSub

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

PrivateSubCommandl_Click()

Ind(2)

EndSub答案：2

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

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.PrivateSubForm_Click()

StaticSUMAsInteger

1=1

DoWhileI<=10

SUM=SUM+I

1=1+1

Loop

PrintSUM

EndSub

运行程序，第一次单击窗体：

第二次单击窗体：

160.以下的程序用来输出100到200间不能被3整除的数字，请补充完该程序。

PrivateSubCommmand1_Click()

DimxAsInteger

x=100

DoUntilx>

IfxMod3coThen

Printx

EndIf

X=X+1

Loop

EndSub答案：200

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

Fora=0To1

Forb=lTo2

Forc=lTo3

1=1+1

Nextc

Nextb

nexta答案：12

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

Submult（）

DimSumAsInteger

Sum=0

DimIasinteger

For___to50

IfIMOD2=Then—

NextI

Printsum

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

163.人=7出=3,04,则表达式人乂0口3+8八3£\5的值为。答案：2

164.VB程序设计的主要特点是（1）和（2）o

可视化设计事件驱动编程

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

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

完该程序。

IfX_2=ThenPrintX答案：MOD0

三、判断题

167.若要使标签透明，则可使用属性BackColor。答案：错

168.在VisualBasic设计界面中，工程窗口是不能隐藏的窗口对

3、在菜单编辑器中使用“索引”时，可有一组菜单项具有相同的“名字”。

4、通过改变属性窗口中的Na