Visual Basic 笔试复习资料(3)

单选题：50／１.２, 70

1、若要使print方法在load事件中起作用，要对窗体的（）属性进行设置。

A、backcolor

B、forecolor

C、autodraw

D、caption

2、若要使标签控件显示时不要覆盖其背景内容，要对（）属性进行设置。

A、backcolor

B、borderstyle

C、forecolor

D、backstyle

3、用于产生[10，37]之间的随机整数的表达式是（）。

A、int(rnd()*27)+10

B、int(rnd()*28)+10

C、int(rnd()*27)+11

D、int(rnd()*28)+11

4、为了使名称为MenuItem的菜单项失效（变灰），应使用的语句是（）。

A、menuitem.enabled=true

B、menuitem.enabled=false

C、menuitem.visible=true

D、menuitem.visible=false

5、在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动时间是（）。

A、move

B、scroll

C、change

D、gotfocus

6、为了屏蔽计时器timer1，可使用语句（）。

A、timer1.visible=false

B、timer1.timer=false

C、timer1.interval=0

D、timer1.lostfocus

7、INPUTBOX函数返回值的类型是（）。

A、字符串

B、数值

C、变体

D、数值或字符串

8、表达式4+56*7/8 mod 9 的值是（）。

A、5

B、6

C、7

D、8

9、所有控件都具有的属性是（）。

A、text

B、name

C、alignment

D、value

10、下列可作为VB变量名的是（）。

A、a#a

B、integer

C、123_a

D、cosX

11、以下CASE语句中错误的是（）。

A、case 0 to 10

B、case is >10

C、case is >10 and is <50

D、case 3,5,is >10

12、下列对象中，不属于标准控件的是（）。

A、单选按钮

B、图片框

C、通用对话框

D、文本框

13、以下关于函数过程的叙述中，正确的是（）。

A、函数过程中的所有形参的类型都必须相同。

B、函数过程的返回值只有一个。

C、当数组作为函数过程的参数时，既能以传值方式传递也能以传址方式传递。

D、如果不知函数过程参数的类型，则该参数没有数据类型。

14、把窗体上的若干单选按钮放入不同的（）控件中，可以实现单选按钮的分组。

A、image

B、shape

C、frame

D、combobox

15、使用（）属性可以取得列表框中的项数。

A、count

B、currentcount

C、additem

D、listcount

16、以下关于picturebox、image空间的说法中，错误的是（）。

A、picturebox空间中的图形可以调整大小。

B、清空图片框控件种图形的方法之一是加载一个空白图片。

C、image控件不可以作为容器使用。

D、通过print方法可以在picturebox中输出文本。

17、要使调用过程ABC后返回两个结果，下述正确的语句是（）。

A、sub ABC(n,m)

B、sub ABC(n,byval m)

C、sub ABC(byval n,byval m)

D、sub ABC((n),m)

18、在窗体模块的通用声明段中声明变量，不能使用（）关键字。

A、dim

B、private

C、static

D、public

19、下列关于sub过程与function过程的叙述中，正确的是（）。

A、function过程可有参数，而sub过程没有

B、sub过程的过程名无类型，而function过程的过程名有类型。

C、他们的参数传递方式不同。

D、他们的调用方式都只有一种。

20、将字符型数据转换成数值型数据的函数是（）。

A、str()

B、val()

C、sring()

D、instr()

21、在下面关于数组的声明的叙述中，正确的是（）。

A、dim a(n)中的n可以是变量。

B、redim语句不能改变数组的数据类型。

C、已经声明了静态数组a(3,4)，可以用redim重新定义动态数组a(4,4)。

D、为了保留数组a(3,4)得原来数据，可以使用语句redim preserve a(4,4).

22、用dim arr(1 to 3,4)语句所定义的数组的元素个数是（）。

A、12

B、13

C、14

D、15

23、以下正确的语句是（）。

A、commondialog1.filter=all files|*.*|picture(*.bmp)|*.bmp

B、commondialog1.filter=”all files”|”*.*”|”picture(*.bmp)”|”*.bmp”

C、commondialog1.filter=”all files|*.*|picture(*.bmp)|*.bmp “

D、commondialog1.filter={all files|*.*|picture(*.bmp)|*.bmp}

24、一个对象可以执行的动作和可被对象识别的动作分别为（）。

A、事件与方法

B、方法和事件

C、属性和方法

D、过程和事件

25、要使窗体form1的标题栏显示“欢迎使用VB6”，以下语句中正确的是（）。

A、form1.text=欢迎使用VB6

B、form1.caption=欢迎使用VB6

C、form1.text=”欢迎使用VB6”

D、form1.caption=”欢迎使用VB6”

26、设组合框combo1中有3个项目，则以下能删除最后一项的语句是（）。

A、combo1.removeitem text

B、combo1.removeitem 2

C、combo1.removeitem 3

D、combo1.removeitem combo1.listcount

27、下列可以把当前目录下的图形文件pic.jpg再如图片框picture1中语句是（）。

A、picture=”pic.jpg”

B、picture1.handle=”pic.jpg”

C、picture1.picture=loadpicture(“pic.jpg”)

D、picture1=loadpicture(“pic.jpg”)

28、以下控件中可以作为容器控件的是（）。

A、图象框imag

B、图片框picturebox

C、文本框

D、列表框listbox

29、有关列表框的属性和方法的叙述中，正确的是（）。

A、列表框的内容有属性itemdata来确定

B、当多选属性（multiselect）为true时，可通过text属性获取所有内容

C、选中的内容应通过list属性来访问

D、选中的内容应通过text属性来访问，并且每次只能获取一条内容。

30、使用通用对话框控件打开字体对话框时，如果要在字体对话框中列出可用的屏幕字体和打印字体，必须设置通用对话框空间的flages属性为（）。

A、0

B、1

C、2

D、3

31、以下叙述中错误的是（）。

A、同一窗体的菜单项中，不允许出现标题相同的菜单项。

B、在菜单的标题栏中，字符&所引导的字母为访问该菜单项的热键。

C、程序运行过程中，可以重新设置菜单的visible属性。

D、弹出式菜单也在菜单编辑器中定义。

32、以下叙述中错误的是（）。

A、在程序运行时，通用对话框是不可见的。

B、同一个程序中，用不同方法（如showopen或showsave等）打开的通用对话框具有不同的作用

C、调用通用对话框控件的showopen方法，可以直接打开在该通用对话框中指定的文件。

D、调用通用对话框控件的showcolor方法，可以打开颜色对话框。

36、表示列表框list1最后一个数据项的式子为（）。

A、list1.list(list1.listcount)

B、list1.list(list1.listcount-1)

C、list1.list(list1.count)

D、list1.list(list1.count-1)

39、下列关于do while…..loop和do …..loop until循环执行循环体次数的描述，正确的是（）。

A、do while…..loop和do …..loop until至少都执行一次。

B、do while…..loop和do …..loop until可能都不执行。

C、do while…..loop至少执行一次，do …..loop until可能不执行。

D、do while…..loop可能不执行，do …..loop until至少执行一次。

40、下列叙述中不正确的是（）。

A、VB的过程分成函数过程与sub过程两种。

B、sub过程不可以递归

C、子过程不返回与其特定子过程名相关联的值。

D、过程是没有返回值的函数，又常被称为sub过程，在事件过程或其他子过程中按名称调用过程。

41、下列叙述中正确的是（）。

A、在窗体的form_load事件过程中定义的变量是全局变量

B、局部变量的作用域可以超出所定义的过程。

C、在一个sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于该过程。

D、在调用过程时，所有局部变量被系统初始化。

42、下列程序运行的结果是（）。

Public function f(x as integer)

Din y as integer

x=20

y=2

F=x*y

End function

Private sub command1_click()

Static x as integer , y as integer

x=10

y=5

y=f(x)

Print x;y

End sub

A、10 5

B、20 5

C、20 40

D、10 40

43、下列程序运行的结果是（）。

Private sub command1_click()

Dim num as integer

num=1

Do until num>6

Print num;

num=num+4

Loop

End sub

A、1、4、8

B、1、3、5

C、1、4、7

D、1、5、无数据输出

44、下列程序运行的结果是（）。

Private sub command1_click()

Dim a as integer, s as integer

A=8

S=1

Do

S=s+a

A=a-1

Loop while a<=0

Print s; a

End sub

A、7，9

B、34，0

C、9，7

D、死循环无输出

45、print format$(545478,”###,#00”)的结果是（）。

A、545，478

B、5，4548

C、5，45478

D、5，4547

46、下列程序运行的结果是（）。

A=”ABBACDDCBA”

I=2

X=mid(a,I,i)

Y=left(a,i)

Z=right(a,i)

Z=x & y & z

Print z

A、ABA

B、AABAAB

C、BBABBA

D、ABBABA

47、下列程序输出的结果是（）。

Private sub form_click()

a=1

For i=1 to 3

Select case i

Case 1,3

a=a+1

Case 2,4

a=a+2

End select

Next i

Print a

End sub

A、6

B、5

C、4

D、3

48、以下程序运行后，单击命令按钮，输出结果是（）。Private sub command1_click()

Dim k%,n%,m%

M=1：k=1：n=5

Do while k<=n

M=m*2 ：k=k+1

Loop

Print m

End sub

A、12

B、32

C、48

D、96

49、下列程序输出的结果是（）。

Private sub command1_click()

Dim a(5) as integer,b(5) as integer

For i=1 to 4

A(i)=3*i

B(i)=a(i)*3

Next i

Print b(i\2)

End sub

A、25

B、18

C、36

D、35

50、以下程序运行后，单击命令按钮，输出结果是（）。Function func(a as integer , b as integer) as integer

Static m%,i%

I=i+m+1

M=i+a+b

Func=m

End function

Private sub command1_click()

Dim k%,p%

P=func (4,1)

Print p

P=func(4,1)

Print p

End sub

A、6,17

B、8,16

C、8,20

D、6,13

填空题10 / 2 ,20

1、执行下面的程序段后，i的值为（5.6），s的值为（5）。S=2

For i=3.2 to 4.9 step 0.8

S=s+1

Next i

2、以下程序的功能为：单击命令按钮cmdexit时，程序结束运行。请对以下事件过程填空。Private sub (3) _click() Cmdexit

(4) End

End sub

3、结构化程序设计包含的三种结构分别为：(5)、(6)、(7)。

4、用于保存整数的变量应当声明为整型或（8）。长整型

5、判定变量A为偶数的表达式是（9）。A mod 2=0

6、在调用过程时，为仅将实参的值传递给形参，应当在形参前加上（10）关键字。ByV al

7、下列过程第一次、第二次、第三次被调用的结果分别是：（11）、（12）、（13）。5,10,15 Sub First()

Static s%

Dim i%

For i = 1 To 10 Step 2

s = s + 1

Next i

Print s;

End Sub

8、以下程序实现每次单击按钮时，标签在窗体form1上向右移动100（twip），当标签移出窗体时，在次单击按钮，标签将回到窗体的左边。

Private sub command1_cilick()

If label1.left>form1.width then

(14) label1.left=0

Else

(15) label1.left= label1.left+100

endif

End sub

9、以下程序的功能是：生成10个100到500之间的随机整数，输出其中能被5整除的数，并求出它们的和。

Private sub command1_cilick()

For i=1 to 10

X=int (16) Rnd*400+100

If x mod 5=0 then

Print x

S=(17) s+x

Endif

Next i

Print s

End sub

10、以下程序在文本框text1中输入任意一字符串，并按相反的次序显示在文本框text2中。Private sub command1_cilick()

Dim n$,d$,m%

n=text1.text

m=(18) len(n)

For i=m to 1 step -1

c=mid(n,I,1)

d=d & (19) C Next i

(20)=d text2 End sub