【计算机类职业资格】二级VISUAL+BASIC笔试-111及答案解析.doc

《【计算机类职业资格】二级VISUAL+BASIC笔试-111及答案解析.doc》由会员分享，可在线阅读，更多相关《【计算机类职业资格】二级VISUAL+BASIC笔试-111及答案解析.doc（21页珍藏版）》请在麦多课文档分享上搜索。

1、二级 VISUAL+BASIC 笔试-111 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Commandl_Click()x=ODo Until X=-1a=InputBox(“请输入 a 的值“)a=Val(a)b=InputBox(“请输入 b 的值“)b=Val(b)x=lnputBox(“请输入 x 的值“)x=Val(x)a=a+b+xLoopPrintaEnd Sub程序运行后，单击命令按钮，依次在输入对话框中输入 10、8、9、2、11、-1，则输出结果

2、为( )。（分数：2.00）A.12B.13C.14D.152.VisualBasic 是一种面向对象的程序设计语言，构成对象的三要素是( )。（分数：2.00）A.属性、控件和方法B.属性、事件和方法C.窗体、控件和过程D.控件、过程和模块3.启动 Visual Basic 后，就意味着要建立一个新( )。（分数：2.00）A.窗体B.程序C.工程D.文件4.函数过程冈的功能是：如果参数 b 为奇数，则返回值为 1，否则返回值为 0。以下能正确实现上述功能的代码是( )。（分数：2.00）A.Function Fl(bAsInteger)If b Mod2=0 ThenRemm 0ElseR

3、emm 1End IfEnd FunctiOnB.Function F1(bASInteger)IfbMOd2=0ThenF1=0E1seF1=1End IfEnd FuncdonC.FuncdOnH(b As Integer)IfbMod2=0 ThenF1=1ElseF1=0End IfEnd FunctiOnD.FuncdOn F1(b As Integer)If b MOd20 ThenRetum 0ElseReturn 1End IfEnd FunctiOn5.表达式 12000+“129“b（分数：2.00）A.2 4B.-2 2C.4 2D.2 313.下列程序段的执行结果为(

4、)。x=1:y=2z=x=yPrint x；y；z（分数：2.00）A.1 1 2B.1 1 1C.False FalseD.1 2 False14.如果在立即窗口中执行以下操作，则输出结果是( )。a=8CRb=9CRPrintabCR（分数：2.00）A.-1B.0C.FalseD.True15.窗体上有 1 个名称为 CD1 的通用对话框，1 个名称为 Commandl 的命令按钮。命令按钮的单击事件过程如下：Private Sub Commandl_Click()CD1.FileName=“CD1.Filter=“AllFiles|*.*|(*.Doc)|*.Doc|(*.Txt)|*

5、.Txt“CD1.FilterIndex=2CD1.Action=1End Sub关于以上代码，错误的叙述是( )。（分数：2.00）A.执行以上事件过程，通用对话框被设置为“打开”文件对话框B.通用对话框的初始路径为当前路径C.通用对话框的默认文件类型为*.TxtD.以上代码不对文件执行读写操作16.事件的名称( )。（分数：2.00）A.都要由用户定义B.有的由有用户定，有的由系统定义C.都是由系统预先定义D.是不固定的17.下列程序段的执行结果为( )。a=0:b=1Doa=a+bb=b+1Loop Whilea10Print a；b（分数：2.00）A.105B.abC.01D.103

6、018.通过文本框的( )属性可以获得当前插入点所在的位置。（分数：2.00）A.PositionB.SelStartC.SelEengthD.Left19.有关 VB 应用程序中过程的说法正确的是( )。（分数：2.00）A.过程的定义可以嵌套，但过程的调用不能嵌套B.过程的定义不可以嵌套，但过程的调用可以嵌套C.过程的定义和调用都可能嵌套D.过程的定义和调用都不能嵌套20.在窗体上画一个名称为 Commandl 的命令按钮，再画两个名称分别为 Labe11、Labe12 的标签，然后编写如下程序代码：Private X As IntegerPrivate Sub Commandl_Clic

7、k()X=5:Y=3Callproc(X,Y)Labe11.Caption=XLabel2.Caption=YEnd SubPrivate Sub proc(ByVala As Integer,ByValb As Integer)X=a*aY=b+bEnd Sub程序运行后，单击命令按钮，则两个标签中显示的内容分别是( )。（分数：2.00）A.5 和 3B.25 和 3C.25 和 6D.5 和 621.使标签所在处显示背景，应把 BackStyle 属性设置为( )。（分数：2.00）A.0B.1C.TreeD.False22.在运行阶段，要在文本框 Text1 获得焦点时选中文本框中所有

8、内容，对应的事件过程是 ( )。（分数：2.00）A.B.C.D.23.标准模块存盘后，形成的磁盘文件扩展名是( )。（分数：2.00）AbasBcisCrrmDtxt24.在窗体上有一个文本框控件，名称为 TextTime；一个计时器控件，名称为 Timed。要求每一秒在文本框中显示一次当前的时间。程序为：Private Sub Timerl_ _TextTime.text=TimeEnd Sub在下划线上应填入的内容是( )。（分数：2.00）A.Ena bledB.ViSibleC.IntervalD.Timer25.执行以下程序段后，整型变量 C 的值为( )。a=24b=328Sel

9、ect Caseb/10Case0c=a*10+bCase 1 to 9c=a*100+bCase 10 to 99c=a*1000+bEnd Select（分数：2.00）A.537B.2427C.24328D.24032826.将任意一个正的两位数 N 的个位数与十位数对换的表达式为( )。A(N-Int(N/10)*10)*10+Int(N/10)BN-Int(N)/10*10+Int(N)/10DInt(N/10)+(N-Int(N/10)D(N-Int(N/10)*10+Int(N/10)（分数：2.00）A.B.C.D.27.关于多行结构条件语句的执行过程，正确的是( )。（分数：

10、2.00）A.各个条件所对应的语句序列中，一定有一个语句序列被执行B.找到条件为 TRUE 的第一个入口，便从此开始执行其后的所有语句序列C.若有多个条件为 TRUE，则它们对应的语句序列都被执行D.多行选择结构中的语句序列，有可能任何一个语句序列都不被执行28.Cls 方法可以清除窗体或图片框中的( )内容。（分数：2.00）A.在设计阶段使用 Picture 属性设置的背景位图B.在设计阶段放置的控件C.在运行阶段产生的图形和文字D.以上全部内容29.货币型数据需( )字节内存容量。（分数：2.00）A.2B.4C.6D.830.下列成员中不属于主窗口的是( )。（分数：2.00）A.最大

11、化按钮B.状态栏C.系统菜单D.工具栏31.表达式 X+1X 是( )。（分数：2.00）A.算术表达式B.非法表达式C.字符串表达式D.关系表达式32.以下叙述中错误的是( )。（分数：2.00）A.语句“Dima,b As Integer“声明了两个整型变量B.不能在标准模块中定义 Static 型变量C.窗体层变量必须先声明，后使用D.在事件过程或通用过程内定义的变量是局部变量33.设 a=2，b=3，c=4，d=5，下列表达式的值是( )。Nota=C Or 4*c=b2 And bOa+C（分数：2.00）A.-1B.1C.TrueD.False34.Visual Basic 集成环

12、境的大部分窗口都可以从主菜单项( )的下拉菜单中找到相应的打开命令。（分数：2.00）A.编辑B.视图C.格式D.调式35.下列选项中，为字符串常量的是( )。（分数：2.00）A.6/12/2001B.“6/12/2001“C.#6,12,2001#D.6,12,2001#二、填空题(总题数：13，分数：30.00)36.将控件添加到工具箱中，应先在工具箱的空白处单击右键，在弹出的快捷菜单中选择 1 选项，然后在弹出的对框中选择所需的控件。（分数：2.00）填空项 1:_37.建立窗口并存盘后，除了生成窗体文件外，还会生成 1 文件。（分数：2.00）填空项 1:_38.为在新建工程中模块的

13、“通用声明”段自动加入 Option Explicit 语句，应在 1 对话框中的“编辑器”选项卡上进行相应选项的选择。（分数：2.00）填空项 1:_39.Visual Basic 对象可以分为两类，分别为上 1 和用户定义对象。（分数：2.00）填空项 1:_40.读下列程序：Pfivme Sub Form_Crick()Stmic X(4) As IntegerFori=1 To 4x(i)=x(i)+i*3NextiPrintFori=1 To 4Print“x(“；i；“)=“：x(i)；NextiEnd Sub该程序在运行了三次后，其最终结果是_。（分数：2.00）填空项 1:_窗

14、体上有一个名称为 List1 的列表框，一个名称为 Text1 的文本框，一个名称为 Labe11、 Caption 属性为“Sum“的标签，一个名称为 Command1、标题为“计算”的命令按钮。程序运行后，将把 1100 之间能够被 7 整除的数添加到列表框中。如果单击“计算”按钮，则对 List1 中的数进行累加求和，并在文本框中显示计算结果，如下图所示。以下是实现上述功能的程序，请填空。（分数：4.00）填空项 1:_填空项 1:_41.在 C 盘当前文件夹下建立一个名为 StuData.txt 的顺序文件。要求用 InputBox 函数输入 5 名学生的学号(StuNo)、姓名(St

15、uName)和英语成绩(StuEng)。Pfivate Sub Form_Click()Open“C:StuData.txt“ForOut PUt As#1Fori=l To5StuNo=InputBox(“请输入学号“)StuName=InputBox(“请输入姓名“)StuEng=Val(1nputBox(“请输入英语成绩”)_ NextiClose#1End Sub（分数：2.00）填空项 1:_在窗体上面两个名称分别为 Command1 和 Command2、标题分别为“初始化”和“求和”的命令按钮。程序运行后，如果单击“初始化”命令按钮，则对数组 a 的各元素赋值；如果单击“求和”命

16、令按钮，则求出数组 a 的各元素之和，并在文本框中显示出来，如下图所示。请填空。（分数：4.00）填空项 1:_填空项 1:_42.以下程序用于求 S=1+3+32+33+310的值。Private Sub Commandl_Click()S=1T=1ForI=1 To 10T=_S=S+TNextIPrint“S=“；SEnd Sub（分数：2.00）填空项 1:_43.滚动条响应的重要事件有 1 和 Change。（分数：2.00）填空项 1:_44.阅读以下程序：Private Sub Form_Click()Dimk,n,m As Integern=10m=1k=1DoWhilek=n

17、m=m+2k=k+1LoopPrintmEnd Sub单击窗体，程序的执行结果是_。（分数：2.00）填空项 1:_45.语句 FontSize=FontSize*2 的功能是 1。（分数：2.00）填空项 1:_46.以下是一个比赛评分程序。在窗体上建立一个名为 Text1 的文本框数组，然后画一个名为 Text2 的文本框和名为 Commandl 的命令按钮。运行时在文本框数组中输入 7 个分数，单击“计算得分”命令按钮，则最后得分显示在 Text2 文本框中(去掉一个最高分和一个最低分后的平均分即为最后得分)，如下图所示。请填空。（分数：2.00）填空项 1:_二级 VISUAL+BAS

18、IC 笔试-111 答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Commandl_Click()x=ODo Until X=-1a=InputBox(“请输入 a 的值“)a=Val(a)b=InputBox(“请输入 b 的值“)b=Val(b)x=lnputBox(“请输入 x 的值“)x=Val(x)a=a+b+xLoopPrintaEnd Sub程序运行后，单击命令按钮，依次在输入对话框中输入 10、8、9、2、11、-1，则输出结果为( )。（分数：2.00）

19、A.12 B.13C.14D.15解析：2.VisualBasic 是一种面向对象的程序设计语言，构成对象的三要素是( )。（分数：2.00）A.属性、控件和方法B.属性、事件和方法 C.窗体、控件和过程D.控件、过程和模块解析：3.启动 Visual Basic 后，就意味着要建立一个新( )。（分数：2.00）A.窗体B.程序C.工程 D.文件解析：4.函数过程冈的功能是：如果参数 b 为奇数，则返回值为 1，否则返回值为 0。以下能正确实现上述功能的代码是( )。（分数：2.00）A.Function Fl(bAsInteger)If b Mod2=0 ThenRemm 0ElseRem

20、m 1End IfEnd FunctiOnB.Function F1(bASInteger)IfbMOd2=0ThenF1=0E1seF1=1End IfEnd Funcdon C.FuncdOnH(b As Integer)IfbMod2=0 ThenF1=1ElseF1=0End IfEnd FunctiOnD.FuncdOn F1(b As Integer)If b MOd20 ThenRetum 0ElseReturn 1End IfEnd FunctiOn解析：5.表达式 12000+“129“b（分数：2.00）A.2 4 B.-2 2C.4 2D.2 3解析：13.下列程序段的执

21、行结果为( )。x=1:y=2z=x=yPrint x；y；z（分数：2.00）A.1 1 2B.1 1 1C.False FalseD.1 2 False 解析：14.如果在立即窗口中执行以下操作，则输出结果是( )。a=8CRb=9CRPrintabCR（分数：2.00）A.-1B.0C.False D.True解析：15.窗体上有 1 个名称为 CD1 的通用对话框，1 个名称为 Commandl 的命令按钮。命令按钮的单击事件过程如下：Private Sub Commandl_Click()CD1.FileName=“CD1.Filter=“AllFiles|*.*|(*.Doc)|*

22、.Doc|(*.Txt)|*.Txt“CD1.FilterIndex=2CD1.Action=1End Sub关于以上代码，错误的叙述是( )。（分数：2.00）A.执行以上事件过程，通用对话框被设置为“打开”文件对话框B.通用对话框的初始路径为当前路径C.通用对话框的默认文件类型为*.Txt D.以上代码不对文件执行读写操作解析：16.事件的名称( )。（分数：2.00）A.都要由用户定义B.有的由有用户定，有的由系统定义C.都是由系统预先定义 D.是不固定的解析：17.下列程序段的执行结果为( )。a=0:b=1Doa=a+bb=b+1Loop Whilea10Print a；b（分数：2

23、.00）A.105 B.abC.01D.1030解析：18.通过文本框的( )属性可以获得当前插入点所在的位置。（分数：2.00）A.PositionB.SelStart C.SelEengthD.Left解析：19.有关 VB 应用程序中过程的说法正确的是( )。（分数：2.00）A.过程的定义可以嵌套，但过程的调用不能嵌套B.过程的定义不可以嵌套，但过程的调用可以嵌套 C.过程的定义和调用都可能嵌套D.过程的定义和调用都不能嵌套解析：20.在窗体上画一个名称为 Commandl 的命令按钮，再画两个名称分别为 Labe11、Labe12 的标签，然后编写如下程序代码：Private X A

24、s IntegerPrivate Sub Commandl_Click()X=5:Y=3Callproc(X,Y)Labe11.Caption=XLabel2.Caption=YEnd SubPrivate Sub proc(ByVala As Integer,ByValb As Integer)X=a*aY=b+bEnd Sub程序运行后，单击命令按钮，则两个标签中显示的内容分别是( )。（分数：2.00）A.5 和 3B.25 和 3 C.25 和 6D.5 和 6解析：21.使标签所在处显示背景，应把 BackStyle 属性设置为( )。（分数：2.00）A.0 B.1C.TreeD.

25、False解析：22.在运行阶段，要在文本框 Text1 获得焦点时选中文本框中所有内容，对应的事件过程是 ( )。（分数：2.00）A. B.C.D.解析：23.标准模块存盘后，形成的磁盘文件扩展名是( )。（分数：2.00）Abas BcisCrrmDtxt解析：24.在窗体上有一个文本框控件，名称为 TextTime；一个计时器控件，名称为 Timed。要求每一秒在文本框中显示一次当前的时间。程序为：Private Sub Timerl_ _TextTime.text=TimeEnd Sub在下划线上应填入的内容是( )。（分数：2.00）A.Ena bledB.ViSibleC.Int

26、ervalD.Timer 解析：25.执行以下程序段后，整型变量 C 的值为( )。a=24b=328Select Caseb/10Case0c=a*10+bCase 1 to 9c=a*100+bCase 10 to 99c=a*1000+bEnd Select（分数：2.00）A.537B.2427C.24328 D.240328解析：26.将任意一个正的两位数 N 的个位数与十位数对换的表达式为( )。A(N-Int(N/10)*10)*10+Int(N/10)BN-Int(N)/10*10+Int(N)/10DInt(N/10)+(N-Int(N/10)D(N-Int(N/10)*10

27、+Int(N/10)（分数：2.00）A. B.C.D.解析：27.关于多行结构条件语句的执行过程，正确的是( )。（分数：2.00）A.各个条件所对应的语句序列中，一定有一个语句序列被执行B.找到条件为 TRUE 的第一个入口，便从此开始执行其后的所有语句序列C.若有多个条件为 TRUE，则它们对应的语句序列都被执行D.多行选择结构中的语句序列，有可能任何一个语句序列都不被执行 解析：28.Cls 方法可以清除窗体或图片框中的( )内容。（分数：2.00）A.在设计阶段使用 Picture 属性设置的背景位图B.在设计阶段放置的控件C.在运行阶段产生的图形和文字 D.以上全部内容解析：29.

28、货币型数据需( )字节内存容量。（分数：2.00）A.2B.4C.6D.8 解析：30.下列成员中不属于主窗口的是( )。（分数：2.00）A.最大化按钮B.状态栏 C.系统菜单D.工具栏解析：31.表达式 X+1X 是( )。（分数：2.00）A.算术表达式B.非法表达式C.字符串表达式D.关系表达式 解析：32.以下叙述中错误的是( )。（分数：2.00）A.语句“Dima,b As Integer“声明了两个整型变量 B.不能在标准模块中定义 Static 型变量C.窗体层变量必须先声明，后使用D.在事件过程或通用过程内定义的变量是局部变量解析：33.设 a=2，b=3，c=4，d=5，

29、下列表达式的值是( )。Nota=C Or 4*c=b2 And bOa+C（分数：2.00）A.-1B.1C.TrueD.False 解析：34.Visual Basic 集成环境的大部分窗口都可以从主菜单项( )的下拉菜单中找到相应的打开命令。（分数：2.00）A.编辑B.视图 C.格式D.调式解析：35.下列选项中，为字符串常量的是( )。（分数：2.00）A.6/12/2001B.“6/12/2001“ C.#6,12,2001#D.6,12,2001#解析：二、填空题(总题数：13，分数：30.00)36.将控件添加到工具箱中，应先在工具箱的空白处单击右键，在弹出的快捷菜单中选择 1

30、 选项，然后在弹出的对框中选择所需的控件。（分数：2.00）填空项 1:_ （正确答案：部件）解析：37.建立窗口并存盘后，除了生成窗体文件外，还会生成 1 文件。（分数：2.00）填空项 1:_ （正确答案：工程(.vbp)）解析：38.为在新建工程中模块的“通用声明”段自动加入 Option Explicit 语句，应在 1 对话框中的“编辑器”选项卡上进行相应选项的选择。（分数：2.00）填空项 1:_ （正确答案：“选项”）解析：39.Visual Basic 对象可以分为两类，分别为上 1 和用户定义对象。（分数：2.00）填空项 1:_ （正确答案：预定义对象）解析：40.读下列程

31、序：Pfivme Sub Form_Crick()Stmic X(4) As IntegerFori=1 To 4x(i)=x(i)+i*3NextiPrintFori=1 To 4Print“x(“；i；“)=“：x(i)；NextiEnd Sub该程序在运行了三次后，其最终结果是_。（分数：2.00）填空项 1:_ （正确答案：x(1)=9 x(2)=18 x(3)=27 x(4)=36）解析：窗体上有一个名称为 List1 的列表框，一个名称为 Text1 的文本框，一个名称为 Labe11、 Caption 属性为“Sum“的标签，一个名称为 Command1、标题为“计算”的命令按钮

32、。程序运行后，将把 1100 之间能够被 7 整除的数添加到列表框中。如果单击“计算”按钮，则对 List1 中的数进行累加求和，并在文本框中显示计算结果，如下图所示。以下是实现上述功能的程序，请填空。（分数：4.00）填空项 1:_ （正确答案：Lisn.Addnem I）解析：填空项 1:_ （正确答案：Ust1.List(i)或 Val(Listl.List(i)或 CInt1(List1.ist(0)）解析：41.在 C 盘当前文件夹下建立一个名为 StuData.txt 的顺序文件。要求用 InputBox 函数输入 5 名学生的学号(StuNo)、姓名(StuName)和英语成绩(

33、StuEng)。Pfivate Sub Form_Click()Open“C:StuData.txt“ForOut PUt As#1Fori=l To5StuNo=InputBox(“请输入学号“)StuName=InputBox(“请输入姓名“)StuEng=Val(1nputBox(“请输入英语成绩”)_ NextiClose#1End Sub（分数：2.00）填空项 1:_ （正确答案：Whte#1,StuNo，StuNanne，StuEng）解析：在窗体上面两个名称分别为 Command1 和 Command2、标题分别为“初始化”和“求和”的命令按钮。程序运行后，如果单击“初始化”命

34、令按钮，则对数组 a 的各元素赋值；如果单击“求和”命令按钮，则求出数组 a 的各元素之和，并在文本框中显示出来，如下图所示。请填空。（分数：4.00）填空项 1:_ （正确答案：a(i，j)）解析：填空项 1:_ （正确答案：Str(s)或 s）解析：42.以下程序用于求 S=1+3+32+33+310的值。Private Sub Commandl_Click()S=1T=1ForI=1 To 10T=_S=S+TNextIPrint“S=“；SEnd Sub（分数：2.00）填空项 1:_ （正确答案：T*3）解析：43.滚动条响应的重要事件有 1 和 Change。（分数：2.00）填空

35、项 1:_ （正确答案：ScroU）解析：44.阅读以下程序：Private Sub Form_Click()Dimk,n,m As Integern=10m=1k=1DoWhilek=nm=m+2k=k+1LoopPrintmEnd Sub单击窗体，程序的执行结果是_。（分数：2.00）填空项 1:_ （正确答案：21）解析：45.语句 FontSize=FontSize*2 的功能是 1。（分数：2.00）填空项 1:_ （正确答案：将当前字体放大两倍）解析：46.以下是一个比赛评分程序。在窗体上建立一个名为 Text1 的文本框数组，然后画一个名为 Text2 的文本框和名为 Commandl 的命令按钮。运行时在文本框数组中输入 7 个分数，单击“计算得分”命令按钮，则最后得分显示在 Text2 文本框中(去掉一个最高分和一个最低分后的平均分即为最后得分)，如下图所示。请填空。（分数：2.00）填空项 1:_ （正确答案：sum 或 max 或 Text1(0)或 Text1(0).Text）解析：