VB测试题及其答案 (一)

VB测试题及其答案

1、VisualBasic中可以用类型说明符来标识变量的类型，其中表示货币型的是

。［单选题］*

A.%

B.#

C.@（正确答案）

D.$

2、下列标识符不能作为VisualBasic变量的是（）［单选题］*

A、Print_n1

B、abc%

C、Const

D、xI_x2_x3

3、下列程序段的输出结果为（）

A=0

A=3

PrintA+l［单选题］*

A、1

B、-1

C、3

D、0

4、设a=6,则执行x=HF（a>5,-l,0）,X的值为（）［单选题］*

A、5

B、6

C、0

D、-1（正确答案）

5、在程序运行期间，当滚动条的滑块被拖动时，则立即触发滚动条的（）事件。［单

选题］*

A.Click

B.Change

C.DbIClick

D.Scroll（正确答案）

6、为了使计时器控件每隔5秒钟产生一个计时器事件（Timer）,则应将其Interval

属性值设置为（）［单选题］*

A、5

B、50（）

C、5000

D、50000

7、文件列表框控件的（）属性用于返回当前选择文件的索引。［单选题］*

A、List

B、ListCount

C、Listindex

D、Pattern

8、在vb中赋值语句：a=123+mid(123456，,3,2)执行后，a的变量中的值是()

［单选题］*

A.T2334'

B.123

C.12334

D.157(正确答案)

9、在VisualBasic中，表达式asc("abc")的值是........(｝［单选题］*

A.97确答案)

B.98

C.99

D.65

10、在VB中语句instr(2,"abcdeabfg",“ab")的输出结果是()［单选题］*

A.0

B.I

C.-1

D.6(正确答案)

11、下列程序段的执行结果为()

a=95

Ifa>60Then1=1

Ifa>70Then1=2

Ifa>80Then1=3

Ifa>90Then1=4

PrintI

［单选题］*

A、1=1

B、1=2

C、1=3

D、1=4

12下列程序段执行结果为（）

x=5

y=-6

IfNotx>0Thenx=y-3Elsey=x+3

Printx-y;y-x

y=-6［单选题］*

A、-33（正确答案）

B、5-9

C、3-3

D、-65

13、下面语句正确的是（）［单选题］*

A、Ifx<3*yAndx>yTheny=xA3由答母

B、Ifx<3*yAndx>yTheny=3x

C、Ifx<3*y:x>yTheny=xA3

D、Ifx<3*y:x>yTheny=x**3

14、下列语句正确的是［单选题］*

A）IfARBThenPrint"A不等于B"

B）IfAoBThenPrintif"A不等于B"

C）IfA<>BThenPrint"A不等于B"I确答案）

D）IfA#BPrint"A不等于B"

15、计算z的值，当x大于y时，z=x；否则z=y。下列语句错误的是［单选题］*

A、Ifx>=yThenz=x:z=y

B、Ifx>=yThenz=xElsez=y

C、z=y:Ifx>=yThenz=x

D、Ifx<=yThenz=yElsez=x

16、下列程序段的执行结果为X=2

Y=5

IfX*Y<1ThenY=Y-1ElseY=-l

PrintY-XX）［单选题］*

A、True

B、False（正确答案）

C、-1

D、1

17、下列说法正确的是（）［单选题］*

A）对象的可见性可设为True或False;答案）

B）标题的属性值不可设为任何文本

C）属性窗口中属性只能按字母顺序排列

D）某些属性的值可以跳过不设置，自动设为空值

18、在VisualBasic中，下列说法不正确的是()［单选题］*

A、程序中分隔符语句是“：”

B、注释语句可以写到程序的任何位置

C、变量名ABC和abc,系统认为是同一变量

D、注释语句不被编译或翻译

19、Visualbasic中，关于对象的属性、事件、方法说法正确的是()［单选题］*

A、可以通过改变对象的属性值来改变属性的特性

B、事件必须在鼠标单击或双击对象后触发

C、VisualBasic中，所有的对象都设置了相同的的方法

D、窗体不是对象，按钮是对象

20、关于VisualBasic中列表框属性的说法不正确的选项是()［单选题］*

A.列表框既有添加列表项的方法，也有删除列表项的方法

B.列表框中列表项个数无法统计

C.向列表框中添加项目时可以插入在列表项之间

D.列表框中的每个列表项都有一个索引位置

1、表示x是5的倍数或是9的倍数的逻辑表达式为:xMod5=0ORxMod9=0o

()［单选题］*

正确(正确答案)

错误

2、在VisualBasic中，Integer是合法的变量名。()［单选题］*

正确

错误（正而

3、图像控件可以用来显示图片、作为其它控件的容器、显示用图形方法输出的图

形以及用Print方法输出的文本。（）［单选题］*

正确

错误（正确答案）

4、假如A=10:B=8:C=6,则表达式：A<Bornot（B<C）的值为True。［单选题］*

正确（正确答案）

错误

5、#6/12/1999#是一个日期常量。［单选题］*

正确（正确答案）

错误

6、函数Int（-4.98）的返回值为：-4.［单选题］*

正确

错误

7、在VisualBasic中，要对文本框中已有内容进行编辑，按下键盘的按键却不起

作用，原因是设置了Enabled的属性为True。（）。［单选题］*

正确

错误

8.随机函数产生一个0-1之间的数（）。［单选题］

正确

错误

9、selectcase选择结构中，case语句可用逗号间隔多个表达式。（）［单选题］*

正确（正确答案）

错误

10、ifa=lthenb=2,a=l和b=2者R是给a,b赋值。（）［单选题］*

正确

错误（正确答案）

1、在模块文件中的声明部分用Global或关键字声明的变量为

全局变量。［填空题］

2、日期表达式#2/24/02#-#2/12/02#的值为。［填空题］

3、已知a=2.5,b=5.0,c=2.5,d=True,则表达式：a>=0ANDa+c>b+3ORNOTd

的值是［填空题］

4、Shape属性决定形状控件的形状，当Shape属性值为0时，它的表现形式是

______________________o［填空题］

5、设从键盘上输入20,下面程序的运行结果为

PrivateSubForm_Click（）

Dimtitle%,fee!

title=Val（InputBox（"请输入一个数"））

fee=sgn(title)

Printfee

EndSub［填空题］

6、执行下面程序，单击窗体，则在窗体上显示的内容是

PrivateSubForm_Click()

DimaAsInteger,bAsinteger,cAsInteger

b=6:c=6.5

a=b=c

Printa

EndSub［填空题］

7、下面程序段，运行后结果为_______________________________

dimx

x=int(rnd)+5

selectcasex

case5

print“优秀”

case4

print“良好”

case3

print"及格”

caseelse

print“不及格”

endselect［填空题］

8、一元二次方程ax2+bx+c=()有实根的条件为：aKO,并且b2-4acN0,其相

应的VB布尔表达式为o［填空题1

9、读下面VisualBasic程序，最后一行输出结果是

a=-262:b=5

c=Len(Str(a)+Str(b))

Printc［填空题］

10、VisualBasic表达式(10<8)And(10>8)Or(5>4)And(-3<3)的值是

____________________o［填空题］

1、新建一个工程，内有两个窗体，窗体Forml上有一个命令按钮Commandl,单

击按钮，Forml窗体消失，显示Form2窗体，试补充程序。

PrivateSubCommand1_C1ick()

Form2._____________

EndSub［填空题］

2、有下面一个程序段，从文本框中输入数据，如果该数据满足条件，除以4余

1,除以5余2,则输出，否则，将焦点定位在文本框中，并清除文本框的内容。

PrivateSubCommandl_Click()

x=Val(Textl.Text)

IfThen

Printx

Else

Text1.Text="”

EndIf

EndSub［填空题］

3、下列程