2014年计算机二级VB模拟试题及答案（3）

　　31、对长度为n 的线性表进行顺序查找，在最坏情况下所需要的比较次数为(　　)。

　　A.log2n

　　B.n/2

　　C.n

　　D.n+1

　　32、下列程序要求用户输入一个年份，并能够判断用户输入的年份是否是闰年，横线处应填(　　)。

　　Sub EnSure(　　)

　　Di myear As Integer

　　year =Val(InputBox("请输入年份："))

　　If(year Mod 4=0_________year Mod 100<>0)

　　________(year Mod 400=0)Then

　　Print "您输入的是闰年"

　　Else

　　Print "不是闰年，是普通年份"

　　End If

　　End Sub

　　A.And And

　　B.And Or

　　C.Or Or

　　D.Or Or

　　33、设有下列程序

　　Private Sub Form_Click()

　　x=50

　　For i =1To 4

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

　　y =Val(y)

　　If y Mod 5=0Then

　　a=a+y

　　x=y

　　Else

　　a=a+x

　　End If

　　Next i

　　Print a

　　End Sub

　　程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为(　　)。

　　A.100

　　B.50

　　C.120

　　D.70

　　34、要清除已经在图片框Picturel 中打印的字符串而不清除图片框中的图像，应使用语句(　　)。

　　A.Picture 1.Cls

　　B.Picture 1.Picture =LoadPicture("")

　　C.Picture 1.Pi nt""

　　D.Picture 1.Picture""

　　35、下列选项中不符合良好程序设计风格的是(　　)。

　　A.源程序要文档化

　　B.数据说明的次序要规范化

　　C.避免滥用goto语句

　　D.模块设计要保证高耦合、高内聚

　　36、下列说法错误的是(　　)。

　　A.窗体文件的扩展名为".frm"

　　B.一个窗体对应一个窗体文件

　　C.Visual Basic 中的一个工程只包含一个窗体

　　D.Visual Basic 中一个工程最多可以包含255个窗体

　　37、两个或两个以上模块之间关联的紧密程度称为(　　)。

　　A.耦合度

　　B.内聚度

　　C.复杂度

　　D.数据传输特性

　　38、假定在工程文件中有一个标准模块，其中定义了如下记录类型：

　　Type Books

　　Name As Stri ng*10

　　TelNum As Stri ng*20

　　End Type

　　要求在执行事件过程Co mmand1_Click 时，在顺序文件Person .txt 中写入一条记录。下列能够完成该操作的事件过程是(　　)。

　　A.Private Sub Co mmand1_Click()

　　Di nt BAs Books

　　Open "c ：\Person .txt"For Output As #1

　　B .Name =InputBox("输入姓名")

　　B .TelNum=InputBox("输入电话号码")

　　Write #1，B.Name ，B.TelNum

　　Close #1

　　End Sub

　　B.Private Sub Co mmand1_Click()

　　Di m BAs Books

　　Open "c ：\Person .txt"For Input As #1

　　B .Name =InputBox("输入姓名")

　　B .TelNum=InputBox("输入电话号码")

　　Print #1，B.Name ，B.TelNum

　　Close #1

　　End Sub

　　C.Private Sub Co mmand1_Click()

　　Di m BAs Books

　　Open "c ：\Person .txt"For Output As #1

　　Name =InputBox("输入姓名")

　　TelNo m=InputBox("输入电话号码")

　　Write #1，B

　　Close #1

　　End Sub

　　D.Private Sub Co mmand1_Click()

　　Di m BAs Book

　　Open "c ：\Person .txt"For Input As #1

　　Name =InputBox("输入姓名")

　　TelNum-InputBox("输入电话号码")

　　Print #1，B.Name .B.TelNum

　　Close #1

　　End Sub

　　39、窗体上有两个文本框Textl、Text2以及一个命令按钮Commandl ，编写下列程序：

　　Di mY As Integer

　　Private Sub Commandl_Click()

　　Di m X As Integer

　　x=2

　　Textl .Text =p2(p1(X)，Y)

　　Text2.Text =pl(x)

　　End Sub

　　Private Function pl(X As Integer)As Integer

　　x+x+y∶y =x+y

　　pl =x+y

　　End Function

　　Private Function p2(X As Integer ，Y As Integer)As Integer

　　p2=2*x+y

　　End Function

　　当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别为(　　)。

　　A.2 4

　　2 4

　　B.2 4

　　4 8

　　C.4 4

　　8 8

　　D.10 10

　　58 58

　　40、窗体文件的扩展名是(　　)。

　　A.bas

　　B.cls

　　C.frm

　　D.res