【计算机类职业资格】二级VISUAL+BASIC笔试-285及答案解析.doc
《【计算机类职业资格】二级VISUAL+BASIC笔试-285及答案解析.doc》由会员分享,可在线阅读,更多相关《【计算机类职业资格】二级VISUAL+BASIC笔试-285及答案解析.doc(29页珍藏版)》请在麦多课文档分享上搜索。
1、二级 VISUAL+BASIC 笔试-285 及答案解析(总分:98.00,做题时间:90 分钟)一、选择题(总题数:35,分数:70.00)1.阅读下列程序:PrivateSubCommand1_Click() Dim i As Integer,k As Integerk=2For i=1 To 3Print Fun(k);NextEnd SubFunction Fun(j As Integer) Static ba=0a=a+1b=b+1Fun=a*b+jEnd Function程序运行后,单击命令按钮输出结果是(分数:2.00)A.234B.345C.567D.3562.以下各项中,Vi
2、sual Basic 不能接收的图形文件是(分数:2.00)Aico 文件BjpS 文件Cpsd 文件Dbmp 文件3.执行下列程序段后,输出的结果是For k1=0 To 4y=20For k2=0 To 3y=10For k3=0 To 2y=y+10Next k3,k2,k1Print y(分数:2.00)A.90B.60C.40D.104.树是节点的集合,它的根节点数目是(分数:2.00)A.有且只有 1B.1 或多于 1C.0 或 1D.至少 25.当文本框 ScrollBars 属性设置了非零值,却没有效果,原因是(分数:2.00)A.文本框中没有内容B.文本框的 MuhiLine
3、 属性为 FalseC.文本框的 MultiLine 属性为 TrueD.文本框的 Locked 属性为 True6.在设计程序时,应采纳的原则之一是(分数:2.00)A.不限制 goto 语句的使用B.减少或取消注解行C.程序越短越好D.程序结构应有助于读者理解7.下列有关数据库的描述正确的是(分数:2.00)A.数据库是一个 DBF 文件B.数据库是一个关系C.数据库是一个结构化的数据集合D.数据库是一组文件8.以下不属于对象的基本特点的是(分数:2.00)A.分类性B.多态性C.继承性D.封装性9.如果在 C 盘当前文件下已存在名称为 studata.dat 的顺序文件,那么执行语句 O
4、pen “C:/studata.dat“ For Append As#1 之后,将(分数:2.00)A.删除文件中原有内容B.保留文件中原有内容,并在文件尾填加新内容C.保留文件中原有内容,并在文件头填加新内容D.以上均不对10.软件是指(分数:2.00)A.程序B.程序和文档C.算法加数据结构D.程序、数据与相关文档的完整集合11.在运行阶段,要在文本框 Text1 获得焦点时选中文本框中所有内容,对应的事件过程是) Private Sub Text1_GotFocus() Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub )
5、Private Sub Text1_LostFocus() Text1.SelStart=0Text1.SelLength=Len(Text1.Text)End Sub) Private Sub Text1_Change()Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub ) Private Sub Text1_SetFocus() Text.SelStart=0Text1.SelLength=Len(Text1.Text)End Sub(分数:2.00)A.B.C.D.12.设已经在菜单编辑器中设计了窗体的快捷菜单,某顶级菜单为
6、 a1,且取消其“可见”属性。运行时,哪个事件过程可以使快捷菜单的菜单项响应鼠标左键单击和右健单击的事件过程是) Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) If Button=2 Then PopupMenu a1,2End Sub) Private Sub Form_MouseDown(ButtonAsInteger,ShiftAsInteger,X As Single,Y As Single) PopupMenu a1,0End Sub) Private Su
7、b Form_Mouse Down(Button As Integer,Shift As Integer,X As Single,Y As Single) PopupMenu a1End Sub) Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) If(Button=vbLetfButton) Or (Button=vbRightButton) Then PopupMenu a1End Sub(分数:2.00)A.B.C.D.13.设在窗体上有个文本框,然后编写如下的事件
8、过程:Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Const Alt=4Const Key_F2=d(3) End Sub(分数:2.00)A.abB.bdC.acD.出错19.定时器的 Interval 属性以什么为单位指定 Timer 事件之前的时间间隔(分数:2.00)A.分B.秒C.毫秒D.微秒20.窗体上有 Text1、Text2 两个文本框及一个命令按钮 Command1,编写下列程序:Dim y As IntegerPrivate Sub Command1_Click() Dim x As Inte
9、gerx=2Text1.Text=Fun2(Fun1(x),y) Text2.Text=Fun1(x) End SubPrivate Function Fun1(x As Integer) As Integerx=x+y:y=x+yFun1=x+yEnd FunctionPrivate Function Fun2(x As Integer,y As Integer) As IntegerFun2=2*x+yEnd Function当单击 1 次和单击 2 次命令按钮后,文本框 Text1 和 Text2 内的值分别是) 2 4 2 4) 2 44 8 ) 10 1058 58) 4 48 8(
10、分数:2.00)A.B.C.D.21.设用复制、粘贴的方法建立了一个命令按钮数组 Command1,以下对该数组的说法错误的是(分数:2.00)A.命令按钮的所有 Caption 属性都是 Command1B.在代码中访问任意一个命令按钮只需使用名称 Command1C.命令按钮的大小都相同D.命令按钮共享相同的事件过程22.在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click() For i=1 To 4x=4For j=1 To 3X=3For k=1 To 2x=x+6NextNextNextPrint xEnd Sub程序运行后,单击命令按
11、钮,输出的结果是(分数:2.00)A.7B.15C.157D.53823.要使菜单项 MenuOne 在程序运行时失效,使用的语句是(分数:2.00)A.MenuOne.Visible=TrueB.MenuOne.Visible=FalseC.MenuOne.Enabled=TrueD.MenuOne.Enabled=False24.用于获得字符串 S 最左边 4 个字符的函数是(分数:2.00)A.Left(S,4)B.Left(1,4)C.Leftstr(S)D.Leftstr(3,4)25.执行下列程序后,鼠标单击窗体,输出结果为Private Sub Form_Click() Prin
12、t “Click“;End SubPrivate Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) Print “Donw“End SubPrivate Sub Form_MouseUp(ButtonAs Integer,Shift As Integer,X As Single,Y As Single) Print “Up“End Sub(分数:2.00)A.DownUpClickB.ClickDownUpC.DownClickUpD.UpDownCliek26.线性表的顺序存储结构和线
13、性表的链式存储结构分别是(分数:2.00)A.顺序存取的存储结构、顺序存取的存储结构B.随机存取的存储结构、顺序存取的存储结构C.随机存取的存储结构、随机存取的存储结构D.任意存取的存储结构、任意存取的存储结构27.数据结构中,与所使用的计算机无关的是数据的(分数:2.00)A.存储结构B.物理结构C.逻辑结构D.物理和存储结构28.下面的数组声明语句中正确的是(分数:2.00)A.Dim gg1,5 As StringB.Labell.BackStyle=1C.Dim gg(1 To 5) As StringD.Dim gg1:5,1:5As String29.下列叙述中正确的是(分数:2.
14、00)A.程序执行的效率与数据的存储结构密切相关B.程序执行的效率只取决于程序的控制结构C.程序执行的效率只取决于所处理的数据量D.以上 3 种说法都不对30.检查软件产品是否符合需求定义的过程称为(分数:2.00)A.确认测试B.集成测试C.验证测试D.验收测试31.单击命令按钮时,下列程序的执行结果是Private Sub Commandl_Click() Dim a As Integer,b As Integer,c As Integera=3:b=4:c=5Print SecProc(c,b,(分数:2.00)A.32.当程序运行时,在窗体上单击鼠标,以下哪个事件是窗体不能响应的事件(
15、分数:2.00)A.MouseDownB.MouseUPC.LoadD.Click33.数据库、数据库系统和数据库管理系统之间的关系是(分数:2.00)A.数据库包括数据库系统和数据库管理系统B.数据库系统包括数据库和数据库管理系统C.数据库管理系统包括数据库和数据库系统D.3 者没有明显的包含关系34.为了在列表框中使用 Ctrl 和 Shift 键进行多个列表项的选择,应将列表框的 Multiselect 属性设置为(分数:2.00)A.0B.1C.2D.335.在窗体上画一个通用对话框,其名称为 CommonDialog1,然后画一个命令按钮,并编写如下事件过程:Private Sub
16、Command1_Click() CommonDialog1.Flags=vbOFNHideReadOnlyCommonDialog1.Filter=“All Files(*.*)|*.*|Text Files(*.txt)|*.txtCommonDialog1.FiherIndex=1CommonDialog1.ShowOpenMsgBox CommonDialog1.FileNameEnd Sub程序运行后,单击命令按钮,将显示一个“打开”对话框,此时在“文件类型”框中显示的是(分数:2.00)A.All Files(*.*)B.Text Files(*.*)C.*.txtD.All Fi
17、les(*.*)|Text Files(*.*)二、填空题(总题数:13,分数:28.00)36.需求分析的最终结果是产生 1。(分数:2.00)填空项 1:_37.为了便于对照检查,测试用例应由输入数据和预期的 1 两部分组成。(分数:2.00)填空项 1:_38.数据结构分为逻辑结构和存储结构,线性链表属于 1。(分数:2.00)填空项 1:_39.某二叉树中度为 2 的节点有 18 个,则该二叉树中有 1 个叶子节点。(分数:2.00)填空项 1:_40. 1 是数据库设计的核心。(分数:2.00)填空项 1:_41.在窗体上面有一个列表,然后编写如下两个事件过程:Private Sub
18、 Form_Click() List1.RemoveItem1:List1.RemoveItem2List1.RemoveItem3End SubPrivate Sub Form_Load() List1.AddItem“ItemA“:List1.Addhem“ItemB“List1.AddItem“ItemC“:List1.Addhem“ItemD“List1.AddItem“ItemE“End Sub运行上面的程序,然后单击窗体,列表框中显示的项目是_。(分数:2.00)填空项 1:_42.控件数组的名字由 Name 属性指定,而数组中的每个元素由 1 属性指定。(分数:2.00)填空项
19、1:_43.为了能自动放大或缩小图像框中的图形与图像框的大小相适应,必须把该图片框的 Stretch 属性设置为 1。(分数:2.00)填空项 1:_44.下列程序的功能是:将数据 1,2,10 写入顺序文件 Base.txt 中,请填空。Private Sub Form_Click() Dim i As IntegerOpen_As#1For i=1 To 10Print #1,iNextClose #1End Sub(分数:2.00)填空项 1:_45.下列程序的功能是:将数据 1,2,8 写入顺序文件 Num.txt 中,请补充完整。Private Sub Form_Click() Di
20、m i As IntegerOpen “Num.txt“ For Output As#1For i=1 To 8_NextClose #1End Sub(分数:2.00)填空项 1:_46.执行下面程序,第一行输出结果是 11 ,第二行输出结果是 12 。Option ExplicitPrivate Sub Form_Click() Dim A As IntegerA=2Call Sub1(A) End SubPrivate Sub1(x As Integer) x=x*2+1If x10 ThenCall Sub1(x) End Ifx=x*2+1Print xEnd Sub(分数:4.00
21、)填空项 1:_47.能够将文本框控件隐藏起来的属性是 1。(分数:2.00)填空项 1:_48.下面程序的功能是产生 10 个小于 100(不含 100) 的随机正整数,并统计其中 5 的倍数所占比例,但程序不完整,请补充完整。Sub PR() RandomizeDim a(10) For i=1 To 10a(i) =Int( 14 ) If 15 Then k=k+1Print a(j) Next jPrintPrint k/10End Sub(分数:2.00)填空项 1:_二级 VISUAL+BASIC 笔试-285 答案解析(总分:98.00,做题时间:90 分钟)一、选择题(总题数
22、:35,分数:70.00)1.阅读下列程序:PrivateSubCommand1_Click() Dim i As Integer,k As Integerk=2For i=1 To 3Print Fun(k);NextEnd SubFunction Fun(j As Integer) Static ba=0a=a+1b=b+1Fun=a*b+jEnd Function程序运行后,单击命令按钮输出结果是(分数:2.00)A.234B.345 C.567D.356解析:解析 在此题中,被调过程是一个函数过程,它有一个形式参数 j,在被调过程声明中,定义了一个参数 a,初值为 0,一个静态变量 b
23、。语句 a=a+1 和 b=b+1 分别使 a 和 b 各增加 1,然后返回 H 的值,因为 b 是静态变量,所以每次调用同一个参数 k 时,b 会保留前次的数值,使输出结果变化,否则每次输出的结果都将是一样的。根据分析,第一次调用时 a=1,b=1,Fun=3;第二次调用时 a=1,b=2,Fun=4;第三次调用时 a=1,b=3,Fun=5。所以最后的输出结果是 345。2.以下各项中,Visual Basic 不能接收的图形文件是(分数:2.00)Aico 文件BjpS 文件Cpsd 文件 Dbmp 文件解析:解析 在 Visual Basic 中,可以接受不同的图形文件,见表 2.19
24、。表 2.19 文件类型 文件扩展名位图文件 .bmp;.dib图标文件 .ico;.curWindows 图元文件 .wmf;.emfGIF 格式图形压缩文件 .gifJPEG 格式图形压缩文件 .jpg从上表可知,psd 文件不是 Visual Basic 所支持的图形文件。3.执行下列程序段后,输出的结果是For k1=0 To 4y=20For k2=0 To 3y=10For k3=0 To 2y=y+10Next k3,k2,k1Print y(分数:2.00)A.90B.60C.40 D.10解析:解析 这是一个 3 重循环嵌套的程序。多重 For 循环的执行过程是:外层循环的循
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
5000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 职业资格 二级 VISUALBASIC 笔试 285 答案 解析 DOC
