2005年4月全国计算机等级考试二级VB笔试试卷及答案

　　PrivateSubForm_Click()

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

　　Printx+Text1。Text

　　EndSub

　　程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容是：

　　A)123

　　B)456

　　C)579

　　D)123456

　　（18）在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1，在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False，程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序：

　　PrivateSubCommand1_Click()

　　Timer1。_________

　　EndSub

　　PrivateSubTimer1_Timer()

　　Text1。Text=Time

　　EndSub

　　在______处应填入的内容是

　　A)Enabled=True

　　B)Enabled=False

　　C)Visible=True

　　D)Visible=False

　　(19)假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是：

　　A)选择图片框，然后按Del键

　　B)执行语句Picture1。Picture=LoadPicture(“”)

　　C)执行语句Picture1。Picture=””

　　D)选择图片框，在属性窗口中选择Picture属性，然后按回车键

　　（20）在窗体上画一个List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目，当单击列表框中的某个项目时，在标签中显示被选中的项目的名称，下列能正确实现上述操作的程序是

　　A)PrivateSubList1_Click()

　　Label1。Caption=List1。ListIndex

　　EndSub

　　B)PrivateSubList1_Click()

　　Label1。Name=List1。ListIndex

　　EndSub

　　C)PrivateSubList1_Click()

　　Label1。Name=List1。Text

　　EndSub

　　D)PrivateSubList1_Click()

　　Label1。Caption=List1。Text

　　EndSub

　　（21）在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：

　　PrivateSubCommand1_Click()

　　DimiAsInteger，xAsInteger

　　Fori=1To6

　　Ifi=1Thenx=i

　　Ifi<=4Then

　　x=x+1

　　Else

　　x=x+2

　　EndIf

　　Nexti

　　Printx

　　EndSub

　　程序运行后，单击命令按钮，其输出结果为

　　A)9

　　B)6

　　C)12

　　D)15

　　（22）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

　　PrivateSubCommand1_Click()

　　c="ABCD"

　　Forn=1To4

　　Print_________

　　Next

　　EndSub

　　程序运行后，单击命令按钮，要求在窗体上显示如下内容：

　　D

　　CD

　　BCD

　　ABCD

　　则在________处应填入的内容为

　　A)Left(c，n)

　　B)Right(c，n)

　　C)Mid(c，n，1)

　　D)Mid(c，n，n)

　　(23)执行以下程序段

　　DimxAsInteger，iAsInteger

　　x=0

　　Fori=20To1Step-2

　　x=x+i\5

　　NextI

　　后，x的值为

　　A)16

　　B)17

　　C)18

　　D)19

　　（24）在VisualBasic工程中，可以作为启动对象的程序是

　　A)任何窗体或标准模块

　　B)任何窗体或过程

　　C)SubMain过程或其他任何模块

　　D)SubMain过程或任何窗体

　　(25)假定建立了一个名为Command1的命令按钮数组，则以下说法中错误的是

　　A)数组中每个命令按钮的名称(名称属性)均为Command1

　　B)数组中每个命令按钮的标题(Caption属性)都一样

　　C)数组中所有命令按钮可以使用同一个时间过程

　　D)用名称Command1(下标)可以访问数组中的每个命令按钮

　　(26)把窗体的KeyPreview属性设置为True，然后编写如下事件过程：

　　PrivateSubForm_KeyPress(KeyAsciiAsInteger)

　　DimchAsString

　　ch=Chr(KeyAscii)

　　KeyAscii=Asc(UCase(ch))

　　PrintChr(KeyAscii+2)

　　EndSub

　　程序运行后，按键盘上的”A”键，则在窗体上显示的内容是

　　A)A

　　B)B

　　C)C

　　D)D

　　(27)在窗体上画一个命令按钮和一个文本框，名称分别为Command1和Text1，然后编写如下程序：

　　PrivateSubCommand1_Click()

　　a=InputBox("请输入日期(1~31)")