【计算机类职业资格】二级VISUAL+BASIC笔试41及答案解析.doc
《【计算机类职业资格】二级VISUAL+BASIC笔试41及答案解析.doc》由会员分享,可在线阅读,更多相关《【计算机类职业资格】二级VISUAL+BASIC笔试41及答案解析.doc(15页珍藏版)》请在麦多课文档分享上搜索。
1、二级 VISUAL+BASIC 笔试 41 及答案解析(总分:98.00,做题时间:90 分钟)一、B选择题/B(总题数:35,分数:70.00)1.在窗体上画一个命令按钮(其 Name 属性为 Command1),然后编写如下代码: Option Base 1 Private Sub Command1_Click( ) Dim a s=0:j =1 a = Array(1,2,3,4) For i=4 To 1 Step -1 s =s +a(i) *j j=j * 10 Next Print s End Sub 运行上面的程序并单击命令按钮,其输出结果是(分数:2.00)A.4221B.1
2、234C.34D.122.设执行以下程序段时依次输入 2,4,6 执行结果为 Dim a(4) As Integer,b(4) As Integer For k =0 To 2 a(k + 1) = Val(InputBox( “Enter data:“ ) ) b(3 - k) =a(k + 1) Next Print b(k)(分数:2.00)A.2B.4C.6D.03.编写如下两个事件过程: Private Sub Form_KeyDown (KeyCode As Integer, Shift As Integer) Print Cb_r(KeyCode) End Sub Private
3、 Sub Form_KeyPress( KeyAscii As Integer) Print Chr(KeyAscii) End Sub 在一般情况下(即不按住 Shift 键和锁定大写键时)运行程序,如果按“A”键,则程序输出的结果是(分数:2.00)A.A AB.a AC.A aD.a a4.设用复制、粘贴的方法建立了一个命令按钮数组 Command1,以下对该数组的说法错误的是(分数:2.00)A.命令按钮的所有 Caption 属性都是 Command1B.在代码中访问任意一个命令按钮只需使用名称 Command1C.命令按钮的大小都相同D.命令按钮共享相同的事件过程5.用 Input
4、Box 函数设计的对话框,其功能是(分数:2.00)A.只能接收用户输入的数据,但不会返回任何信息B.能接收用户输入的数据,并能返回用户输入的信息C.既能用于接收用户输入的信息,又能用于输出信息D.专门用于输出信息6.将一个窗体设置为 MDI 子窗体的方法是(分数:2.00)A.将窗体的名称改为 MDIB.将窗体的 MDIChild 属性设为 TrueC.将窗体的 MDIChild 属性设为 FalseD.将窗体的 Enabled 属性设为 False7.应用数据库的主要目的是(分数:2.00)A.解决数据保密问题B.解决数据完整性问题C.解决数据共享问题D.解决数据量大的问题8.在数据管理技
5、术的发展过程中,经历了人工管理阶段、文件系统阶段和数据库系统阶段。其中数据独立性最高的阶段是(分数:2.00)A.数据库系统B.文件系统C.人工管理D.数据项管理9.下列命令按钮的事件过程执行后,输出的结果是 Private Sub command1_click() For m=1 To 10 Step 2 a=10 For n=1 To 10 Srep 2 a=a+2 Next Next Print a End Sub(分数:2.00)A.60B.50C.30D.2010.用链表表示线性表的优点是(分数:2.00)A.便于随机存取B.花费的存储空间较顺序存储少C.便于插入和删除操作D.数据元
6、素的物理顺序与逻辑顺序相同11.在用通用对话框控件建立“打开”或“保存”文件对话框时,如果需要指定文件列表框所列出的文件类型是文本文件(即.txt 文件),则正确的描述格式是(分数:2.00)A.“text(.tx|(*.tx“B.“文本文件(.tx|(.tx“C.“text(.txFFFFF|(*.tx“D.“text(.tx(*.tex“12.函数过程 Fun1 的功能是:如果参数 b 为奇数,则返回值为 1, 否则返回值为 0。 Function Fun1 (b As Integer) if _ Then Fun1 =0 Else Fun1 = 1 End If End Function
7、 使该功能完整,应在空行处填入以下哪条语句(分数:2.00)A.b Mod 20B.b Mod 2 =0C.b/2 = 1D.b/2 =013.目录列表框 Path 属性的作用是(分数:2.00)A.显示当前驱动器或指定驱动器上的目录结构B.显示录前驱动器或指定驱动器上的某目录下的文件C.显示根目录下的文件名D.显示路径下的文件14.下面程序段,运行后的结果是 Private Sub Command1_Click() Dim b%(1 To 4) ,i%, t# For i = 1 To 4 b(i) =i Next t =Tof(b() ) Print “t =“; t, End Sub F
8、unction Tof(a() As Integer) Dim t#, i% t=1 For i =2 To UBound(a) t=t * a(i) Next Tof = t End Function(分数:2.00)A.t=18B.t=24C.t=30D.t=3215.软件设计包括软件的结构、数据接口和过程设计,其中软件的过程设计是指(分数:2.00)A.模块间的关系B.系统结构部件转换成软件的过程描述C.软件层次结构D.软件开发过程16.有如下函致: Function fact(x As Integer)As Long Dim p As Long,i As Integer p=1 For
9、 i=1 To x p=p*1 Next fact=p End Function 调用它的事件过程如下: Private Sub Command1_Click() i=Val(Inputbox(“请输入数据“) a=fact(i) Print a End Sub 若输入数据 5,则运行结果为(分数:2.00)A.120B.60C.80D.10017.下列程序的执行结果为 Private Sub Command1_Click( ) Dim FirStr As String FirSt = “abcdef“ Print Pat(FirStr) End Sub Private Function Pa
10、t( xStr As String) As String Dim tempStr As String, strLen As Integer tempStr =“ strLen = Len(xStr) i=1 Do While i=Len(xStr)-3 tempStr = tempStr + Mid(xStr, i, 1 ) + Mid(xStr, strLen - i + 1, 1 ) i=i+1 Loop Pat = tempStr End Function(分数:2.00)A.abcdefB.afbecdC.fedcbaD.defabc18.下列语句中,不能实现循环 100 次的是(分数
11、:2.00)A.Do N=N+1 Loop Until N=100B.Do N=N+1 Loop While n100C.Do N=N+1 Loop Until N100D.Do While n100 N=N+1 Loop19.算法的空间复杂度是指(分数:2.00)A.算法程序的长度B.算法程序中的指令条数C.算法程序所占的存储空间D.执行算法需要的内存空间20.数据结构中,与所使用的计算机无关的是数据的(分数:2.00)A.存储结构B.物理结构C.逻辑结构D.物理和存储结构21.结构化程序设计主要强调的是(分数:2.00)A.程序的规模B.程序的效率C.程序设计语言的先进性D.程序易读性22
12、.下列程序运行后的输出结果是 Private Sub Command1_Click() For k=3 To 1 Step-1 x=String(k,“*“) Print x Next End Sub(分数:2.00)A.* * * * * *B.1 * 2 * 3 *C.3 * 2 * * 1 * * *D.* * * * * *23.检查软件产品是否符合需求定义的过程称为(分数:2.00)A.确认测试B.集成测试C.验证测试D.验收测试24.假定有下表所列的菜单结构:(分数:2.00)A.标题B.名称C.层次D.显示 大图标 小图标E.appear bigicon smalliconF.1
13、(主菜单) 2(子菜单) 2(子菜单)25.下列程序段的执行结果为 For X=5 To 1 Step -1 For Y=1 To 6-x Print Tab(Y+5);“ * “; Next Print Next(分数:2.00)A.* * * * *B.* * * * *C.* * * * *D.* * * *26.在数据库设计中,将 E-R 图转换成关系数据模型的过程属于(分数:2.00)A.需求分析阶段B.逻辑设计阶段C.概念设计阶段D.物理设计阶段27.下列程序段的执行结果为 i=4:x=5:Do i=i+1; x=x+2 Loop Until i=7 Print “i=“;i Pr
14、int “x=“;x(分数:2.00)A.i=4 x=5B.i=7 x=15C.i=6 x=8D.i=7 x=1128.有如下程序: Private Sub Form_Click( ) Dim i As Integer, Sum As Integer Sum = 0 For i = 2 To 10 If i Mod 2=0 And i Mod 30 Then Sum = Sum + i End If Next Print Sum End Sub 程序运行后,单击窗体,输出结果为(分数:2.00)A.12B.30C.24D.1829.在窗体上画一个命令按钮,然后编写如下事件过程: Private
15、 Sub Command1_Click( ) For i =1 To 4 x=4 For j = 1 To 3 x=3 For k = 1 To 2 x=x+6 Next Next Next Print x End Sub 程序运行后,单击命令按钮,输出的结果是(分数:2.00)A.7B.15C.157D.53830.数据流图用于抽象描述一个软件的逻辑模型,数据流图由一些特定的图符构成。下列图符名标识的图符不属于数据流图合法图符的是(分数:2.00)A.控制流B.加工C.数据存储D.源和潭31.Mid(“Hello Everyone“,7,3)的执行结果是(分数:2.00)A.yonB.eve
16、ryC.EveD.one32.从键盘上输入一个实数 nu,利用字符串函数对该数进行处理,如果输出的内容不是字符 End,则程序输出的内容是 nu = InputBox(“nu = “) n$ = Str$ (nu) p=InStr(n$,“.“) if p0 Then Print Mid$(n$.p) Else Print “END“ End If(分数:2.00)A.用字符方式输出数据 nuB.输出数据的整数部分C.输出数据的小数部分D.只去掉数据中的小数点,保留所有数字输出33.以下语句用于打开一个顺序文件 Open“C:/MyFile.txt“For OutPut,但是该语句的一个重要错
17、误是没有(分数:2.00)A.指定打开方式B.指定文件号C.指定打开文件名D.指定文件类型34.以下语句中那句可以选择指定的表项或取消已选择的表项(分数:2.00)A.列表框.Selected(索引值)B.列表框Selected(索引值);True|FalseC.列表框.SelectedD.列表框.Selected=True |False35.下列可以启动 Visual Basic 的方法是(分数:2.00)A.打开“我的电脑”,找到存放 Visual Basic 所在系统文件的硬盘及文件夹,双击“VB6.exe”图标B.在 DOS 窗口中,键入 Visual Basic 的路径,执行 Vis
18、ual Basic 可执行文件C.利用“开始”菜单中的“程序”命令可启动 Visual BasicD.) 和)二、B填空题/B(总题数:14,分数:28.00)36.数据的逻辑结构有线性结构和U 【1】 /U两大类。(分数:2.00)填空项 1:_37.顺序存储方法是把逻辑上相邻的结点存储在物理位置U 【2】 /U的存储单元中。(分数:2.00)填空项 1:_38.一个类可以从直接或间接的祖先中继承所有属性和方法。采用这个方法提高了软件的U 【3】 /U。(分数:2.00)填空项 1:_39.软件工程研究的内容主要包括:U 【4】 /U技术和软件工程管理。(分数:2.00)填空项 1:_40.
19、关系操作的特点是U 【5】 /U操作。(分数:2.00)填空项 1:_41.关系式 x-5 或 x5 所对应的布尔表达式是U 【6】 /U。(分数:2.00)填空项 1:_42.函数 Str$(256.36)的值是U 【7】 /U。(分数:2.00)填空项 1:_43.新建一个工程,内有两个窗体,窗体 Form1 上有一个命令按钮 Command1,单击该按钮, Form1 窗体消失,显示 Form2 窗体,程序如下,请填空。 Private Sub Command1_Click() Form1.Hide Form2.U 【8】 /U End Sub(分数:2.00)填空项 1:_44.有如下
20、函数过程: Function gys(ByVal x As Integer,ByVal y As Integer)As Integer Do While y0 preminder=x/y x=Y y=preminder Loop gys=x End Function 以下是调用该函数的事件过程,该程序的运行结果是U 【9】 /U。 Private Sub Command1_Click() Dim a As Integer,b As Integer a=10:b=2 x=gys(a,b) Print x End Sub(分数:2.00)填空项 1:_45.有一个事件过程,其功能是:从已存在于磁盘
21、上的顺序文件 NM1.txt 中读取数据,计算读出数据的平方值,将该数据及其平方值存入新的顺序文件 NM2.txt 中。请填空。 Private Sub Form_Click() Dim x As Single,y As Single Open “NM1.txt“ For Input As #1 Open “NM2.txt “For Input As #2 Do While Not EOF(1) U【10】 /U Print x y=x2 U 【11】 /U Print y Loop Close #1, S2 End Sub(分数:2.00)填空项 1:_46.下面程序是用冒泡法将数组 a 中
22、的 10 个整数按升序排列,请将程序补充完整。 Private Sub Command1_Click( ) Dim a, Tmp As Integer a = Array (678,45,324,528,439,387,87,875,273,823) For i =U 【12】 /U Forj =0 To 9 Ifa (i)a(j) Then Tmp = a(i): a(i) = a(j) i a(j) = Tmp End If Next j,i For i = 0 To 9 Print a(i) Next End Sub(分数:2.00)填空项 1:_47.下列程序段的执行结果为U 【13】
23、 /U。 Dim A (10,10) For i = 2 To 4 For j =4 To 5 A(i,j) =i*j Next Next Print A (2,5) +A(3,4) +A(4,5)(分数:2.00)填空项 1:_48.把窗体的 KeyPreview 属性设置为 True,并编写如下两个事件过程: Private Sub Form_KeyDown( KeyCode As Integer, Shift As Integer) Print KeyCode; End Sub Private Sub Form_KeyPress( KeyAscii As Integer) Print K
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
5000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 职业资格 二级 VISUALBASIC 笔试 41 答案 解析 DOC
