1、二级 VISUAL+BASIC 笔试-240 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.Sub 过程与 Function 过程最根本的区别是( )。（分数：2.00）A.Sub 过程可以使用 Call 语句或直接使用过程名调用，而 Function 过程不可以B.Function 过程可以有参数，Sub 过程不可以C.两种过程参数的传递方式不同D.Sub 过程的过程名不能返回值，而 Function 过程能通过过程名返回值2.假定在窗体(名称为 Form1)的代码窗口中定义如下记录类型：Private Type animalanima
2、lName As String*20a Color As String*10End Type在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Crick()Dim rec As animalOpen“c:/vbTest.dat“For Random As #1 Len=Len(rec)rec.animalName=“Cat“rec.aColor=“White“Put #1,recClose #1End Sub则以下叙述中正确的是( )。（分数：2.00）A.记录类型 animal 不能在 Form1 中定义，必须在标准模块中定义
3、B.如果文件 c:/vbTest.dat 不存在，则 Open 命令执行失败C.由于 Put 命令中没有指明记录号，因此每次都把记录写到文件的末尾D.语句“Put#l,rec”将 animal 类型的两个数据元素写到文件中3.在窗体上添加一个按钮，名为 Command1，然后编写如下的事件过程，输出结果为( )。Prinvate Sub Comand1_Click()For i=1 To 4x=4For j=1 To 3x=3For k=1 To 2x=x+5Next kNext jNext iPrint xEnd Sub（分数：2.00）A.13B.26C.30D.404.下列表达式中，(
4、)的值为 false。（分数：2.00）A.“BCD“BCE“B.“12345“12345“/Picture.jpg”)，设置值为“C:Picture.jpg”的属性是 1。（分数：2.00）填空项 1:_46.块结构条件语句中的必选项是 1。（分数：2.00）填空项 1:_47.下列语句段在运行时的显示结果是_。Clsx=10.34+8Print Len(x)（分数：2.00）填空项 1:_48.下面语句的输出结果为_。x!=3.1415926Print x（分数：2.00）填空项 1:_下列程序的功能是：当 x50 时，y=0.8x；当 50x100 时，y=0.7x；当 x100 时，没
5、有意义。请填空。Private Sub Command1_Click()Dim x AS Singlex=InputBox(“请输入 x 的值!“)(14) Case Is50y=0.8*xCase 50 To 100y=0.7*K(15) Print“输入的数据出界!“End SelectPrint x，yEnd Sub（分数：4.00）填空项 1:_填空项 1:_二级 VISUAL+BASIC 笔试-240 答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.Sub 过程与 Function 过程最根本的区别是( )。（分数：2.00）A.S
6、ub 过程可以使用 Call 语句或直接使用过程名调用，而 Function 过程不可以B.Function 过程可以有参数，Sub 过程不可以C.两种过程参数的传递方式不同D.Sub 过程的过程名不能返回值，而 Function 过程能通过过程名返回值 解析：2.假定在窗体(名称为 Form1)的代码窗口中定义如下记录类型：Private Type animalanimalName As String*20a Color As String*10End Type在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Crick()D
7、im rec As animalOpen“c:/vbTest.dat“For Random As #1 Len=Len(rec)rec.animalName=“Cat“rec.aColor=“White“Put #1,recClose #1End Sub则以下叙述中正确的是( )。（分数：2.00）A.记录类型 animal 不能在 Form1 中定义，必须在标准模块中定义B.如果文件 c:/vbTest.dat 不存在，则 Open 命令执行失败C.由于 Put 命令中没有指明记录号，因此每次都把记录写到文件的末尾D.语句“Put#l,rec”将 animal 类型的两个数据元素写到文件中
8、解析：3.在窗体上添加一个按钮，名为 Command1，然后编写如下的事件过程，输出结果为( )。Prinvate Sub Comand1_Click()For i=1 To 4x=4For j=1 To 3x=3For k=1 To 2x=x+5Next kNext jNext iPrint xEnd Sub（分数：2.00）A.13 B.26C.30D.40解析：4.下列表达式中，( )的值为 false。（分数：2.00）A.“BCD“BCE“B.“12345“12345“/Picture.jpg”)，设置值为“C:Picture.jpg”的属性是 1。（分数：2.00）填空项 1:_
9、（正确答案：Picture）解析：46.块结构条件语句中的必选项是 1。（分数：2.00）填空项 1:_ （正确答案：If 后的条件及其对应的语句块）解析：47.下列语句段在运行时的显示结果是_。Clsx=10.34+8Print Len(x)（分数：2.00）填空项 1:_ （正确答案：5）解析：48.下面语句的输出结果为_。x!=3.1415926Print x（分数：2.00）填空项 1:_ （正确答案：3.141593）解析：下列程序的功能是：当 x50 时，y=0.8x；当 50x100 时，y=0.7x；当 x100 时，没有意义。请填空。Private Sub Command1_Click()Dim x AS Singlex=InputBox(“请输入 x 的值!“)(14) Case Is50y=0.8*xCase 50 To 100y=0.7*K(15) Print“输入的数据出界!“End SelectPrint x，yEnd Sub（分数：4.00）填空项 1:_ （正确答案：Select Case x）解析：填空项 1:_ （正确答案：Case Eles）解析：
