对口试题计算机试卷2017一_第1页
对口试题计算机试卷2017一_第2页
对口试题计算机试卷2017一_第3页
对口试题计算机试卷2017一_第4页
对口试题计算机试卷2017一_第5页
已阅读5页,还剩9页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

PAGE14一、选择题(本大题共50小题,每小题2分,共100分。在每小题所给出的四个选项中,只有一个符合题目要求,将正确选项填涂在机读卡上)1.下列关于计算机语言的描述不正确的是()A.程序设计语言通常分为机器语言、汇编语言和高级语言三类B.VisualBasic程序设计语言属于结构化程序设计语言C.汇编语言编写的程序必须编译成机器语言才能执行D.常见的解释型语言有C语言2.影响计算机运行速度的主要性能指标是()A.显示器的分辨率、打印机的性能B.硬盘的容量和内存的容量C.字长、内存容量和CPU的时钟频率D.计算机所配备的语言、操作系统、外部设备3.下列描述不正确的是()A.多媒体技术最主要的两个特点是集成性和交互性B.所有计算机的字长都是固定不变的,都是8位C.CPU主要包括运算器和控制器两大部件D.各种高级语言的编译系统都属于系统软件4.下列关于计算机数制的描述正确的是()A.八进制数有8个数码,范围是从1到8B.一般在数字后面加一个大写字母B表示十六进制数C.计算机内部所有信息都是以二制数表示的D.十进制整数转换为二进制的规则是“除2取余数,余数顺序排列”5.下列4种不同数制表示的数中,数值最大的一个是()A.八进制数367 B.十进制数258C.十六进制数F6 D.二进制数100000016.下列选项体现了冯·诺依曼计算机体系结构特点的是()A.引入了CPU的概念 B.ASCII编码和指令系统C.程序存储和程序控制 D.机器语言和十六进制7.下列关于病毒的描述,正确的是()A.只要不上网,就不会感染病毒B.不随意打开陌生、可疑邮件是预防病毒的一种手段C.只要安装最好的杀毒软件,就不会感染病毒D.所有的病毒都会导致计算机越来越慢,甚至可能使系统崩溃8.为了解决计算机中CPU与内存储器之间速度不匹配问题,常使用的部件是()A.Cache B.EPROM C.ROM D.Flash9.在WindowsXP中,为避免文件内容被任意更改,可将其属性设置为()A.系统 B.压缩 C.存档 D.只读10.在WindowsXP中,关于文件快捷方式的描述正确的是()A.删除文件快捷方式,即删除该快捷方式所指向的文件B.对快捷方式重新命名后,双击该快捷方式图标,则不能打开其指向的文件C.在桌面上创建文件的快捷方式,就是将相应的文件复制到桌面D.创建文件快捷方式,就是建立指向相应文件的链接11.在WindowsXP中,下列关于回收站的描述正确的是()A.放入回收站的内容,不占用硬盘的存储空间B.U盘上被删除的文件或文件夹,可以利用回收站的“还原”命令将其恢复C.执行回收站中的“清空回收站”命令,可以将回收站中的内容还原到原来位置D.放置在回收站中的文件或文件夹,在回收站被清空之前,可以恢复12.在Word2003中,实现下图显示的排版效果,正确的操作方法是()A.将光标置于此段中,单击“格式”菜单中的“首字下沉”菜单项,选择“下沉”格式。“下沉行数”设置为“2”,单击“确定”B.将光标置于此段中,单击“工具”菜单中的“首字下沉”菜单项,选择“下沉”格式。“下沉行数”设置为“2”,单击“确定”C.选中相关文字,单击“格式”菜单中的“字体”菜单项,将“效果”中“上标”前面的复选框选中,单击“确定”D.将光标置于此段中,单击“插入”菜单中的“首字下沉”菜单项,选择“下沉”格式。“下沉行数”设置为“2”,单击“确定”13.在Word2003中,若要计算如下表中第2行第6列“厂家A”的“季度平均值”,需在“表格”菜单中打开“公式”对话框,如下图所示,应在“=”后面输入正确的公式是()A.AVERAGE(B2:E2) B.AVERAGE(LEFT)C.AVERAGE(ABOVE) D.AVERAGE(B2:D2)14.在Word2003文档的页面设置中,不能进行的操作是()A.设置页边距 B.设置纸张大小C.设置纸张来源 D.设置分栏15.Excel2003的数据表“销售业绩提成表”如下图所示。若“总销量”达到或高于“奖励标准”,则在“有无奖金”列填充“有”,否则填充“无”。单元格H6中是“奖励标准”的值。现要求在单元格F3中填入公式,判断是否有奖金,并向下自动填充F列其他单元格;H9中填入公式计算奖励比例(有奖金人数除以总人数)。下列是F3和H9中分别填入的公式,其中完全正确的选项是()A.=IF(E3>=H6,"有","无");=COUNTIF(F3:F10,"有")/COUNT(E3:E10)B.=IF(E3>=$H$6,"有","无");=COUNTIF(F3:F10,"有")/COUNT(E3:E10)C.=IF(E3>=H$6,"有","无");=COUNTIF(F3:F10,F6)/COUNT(F3:F10)D.=IF(E3>=$H6,"有","无");=COUNTIF(F3:F10,F6)/COUNT(F3:F10)16.在Excel2003中,对数据进行分类汇总前,必须进行的操作是()A.查询 B.筛选 C.检索 D.排序17.在Excel2003工作表中,用“高级筛选”方式筛选数据时,在条件区同一行输入的多个条件之间的关系是()A.“与”关系 B.“或”关系C.“非”关系 D.“异或”关系18.在VisualBasic中,要产生10到80之间(含10和80)的随机整数,下列表达式中正确的是()A.Int(Rnd*80+10) B.Int(Rnd*71+10)C.Int(Rnd*71+70) D.Int(Rnd*10+80)19.在VisualBasic中,使用PictureBox控件装载图形,下列方法中不能实现此功能的选项是()A.在设计时使用对象的Picture属性B.在设计时使用剪贴板把图形从剪贴板粘贴到控件上C.在运行时使用剪贴板把图形从剪贴板粘贴到控件上D.在运行时使用LoadPicture函数装入指定的图形文件,然后将函数返回值赋值给控件的Picture属性20.在VisualBasic中,下列为双精度类型的变量是()A.a$ B.a! C.a% D.a#21.在VisualBasic中,表达式String$(3,"abc")的值是()A."abcabcabc" B."aaa"C."abc" D."cba"22.在VisualBasic的窗体上有一个定时器控件Timer1和一个命令按钮C1,假定定时器控件Timer1的Interval属性值为500,Enabled属性值为True;命令按钮C1的Left属性值为400,Width属性值为200。Timer1的Timer事件代码为:PrivateSubTimer1_Timer() C1.Left=C1.Left-100EndSub则程序开始运行多少秒后,命令按钮恰好完全从窗体的左边移出()A.5 B.4 C.3 D.223.在VisualBasic中,下列控件没有Caption属性的是()A.列表框 B.复选按钮 C.单选按钮 D.框架24.在VisualBasic的窗体中,有名称为List1的列表框,程序运行时,如果选中了列表项号为5的列表项(列表框中最上面的列表项号为0),下列描述不成立的是()A.List1.Selected(List1.ListIndex)的值为逻辑值TrueB.List1.Selected(5)的值为逻辑值TrueC.List1.List(5)的值为逻辑值TrueD.List1.Listindex的值为525.在VisualBasic中,下列程序运行后,单击命令按钮,则输出结果为()PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=10y=15Callproc(x,y)Printx,yEndSubPublicSubproc(aAsInteger,ByValbAsInteger)a=a*bx=a+bb=b+100EndSubA.10165 B.15015C.16515 D.15011526.在VisualBasic中,为了使一个复选框被禁用(灰色显示),应把它的Value属性设置为()A.0 B.1C.2 D.False27.在VisualBasic中,有如下程序段。程序运行后,单击命令按钮,在输入对话框中依次输入25,33,55,66,输出结果是()PrivateSubCommand1_Click()DimxAsInteger,yAsInteger,aAsIntegerx=100Fori=1To4y=InputBox("请输入一个整数")IfyMod5=0Thena=a+yx=yElsea=a+xEndIfNextiPrintaEndSubA.160 B.100C.120 D.9028.在VisualFoxpro中,恢复系统菜单默认设置的命令是()A.SETDEFAULTSYSTEM B.SETMENUTODEFAULTC.SETSYSTEMTODEFAULT D.SETSYSMENUTODEFAULT29.在VisualFoxpro中,如果指定参照完整性的“删除规则”为“级联”,则当删除父表中的记录时()A.系统自动备份子表相关记录到一个新表中B.若子表中有相关记录,则禁止删除父表中记录C.会自动删除子表中所有相关记录D.不作参照完整性检查,删除父表记录与子表无关30.在VisualFoxpro中,在DOWHILE……ENDDO循环结构中LOOP语句的作用是..()A.转移到DOWHILE语句行,开始下一次判断和循环B.终止循环,将控制转移到本循环结构ENDDO后面的第一条语句继续执行C.该语句在DOWHILE……循环结构中不起任何作用 D.退出循环,返回到程序开始处31.在VisualFoxpro中,下列表达式返回结果为.T.的是()A.AT("计算机","电子计算机") B.TYPE("CTOD('01/01/2017')")="D"C."计算机系统结构"$"计算机"D.SUBSTR(STR(120),3,1)="0"32.在VisualFoxpro中,下列关于查询的描述正确的是()A.不能将查询结果保存在报表文件中B.查询文件的扩展名为.pqrC.只能对数据库表建立查询D.查询是从指定的表或视图中提取满足条件的记录,可将结果定向输出33.在VisualFoxpro中,用报表向导创建报表时,可设置的报表布局方式有()A.列数、方向、字段布局 B.列数、行数、字段布局C.行数、方向、字段布局 D.列数、行数、方向34.在VisualFoxpro中,关于过程调用的描述正确的是()A.当实参的数量多于形参的数量时,多余的实参被忽略B.过程中必须包含RETURN语句,否则不能返回调用程序C.参数传递都是按引用传递D.上面的都不正确35.在VisualFoxpro中,下列程序段执行以后,显示的结果为()CLEARA=10B=20SETUDFPARMSTOREFERENCESWA((A),B)?A,BPROCEDURESWAPARAMETERSX1,Y1TEMP=X1X1=Y1Y1=TEMPENDPROCA.1010 B.1020 C.2010 D.202036.下列选项不属于计算机网络性能指标的是()A.速率 B.带宽 C.主频 D.时延37.在同一种网络体系结构下,下列关于网络协议与网络服务的描述中,正确的是()A.网络协议与网络服务同时存在,可以相互替代B.网络协议与网络服务没有联系,可以独立存在并独立运行C.网络协议是分层次的,而网络服务是不分层次的D.网络协议水平存在于不同网络结点(即同层次同协议),网络服务垂直存在于同一网络结点相邻层次之间38.在互联网中的两台计算机间传递文件时,组成该文件的数据被划分为若干个数据包进行传送。下列关于数据传送过程的描述中,不正确的是()A.受网络协议控制,数据包可能需要重新发送B.数据包的长度不一定都是相同的C.不同的数据包经过的传送路径是相同的D.数据包不一定按发送顺序到达目标计算机39.下列关于物理层通信的描述不正确的是()A.信号是数据的载体,可以通过物理层无差错传递B.基带传输时,传送的是数字信号;宽带传输时,传送的是模拟信号C.并行传输比串行传输效率高、信息吞吐量大D.全双工通信的效率比半双工通信、单工通信高40.在下列通信介质中,对抗电磁干扰最为理想的是()A.同轴电缆 B.光纤 C.卫星通信 D.屏蔽双绞线41.NIC(网络适配器,即网卡)不具备下列哪个功能()A.透明传输 B.拥塞控制C.封装成帧 D.差错检测42.为了通过共享信道、最大限度提高信道利用率,在网络通信中广泛使用多路复用技术。下列关于多路复用技术的描述不正确的是()A.频分复用是指在同一物理连接中使用不同的频率来传输不同的信号B.时分复用是指在同一物理连接的不同时段来传输不同的信号C.码分复用是指使用同一码制携带多路信号D.波分复用是指将波长不同的光信号合成一束,沿着单根光纤进行传输43.下列关于以太网标准10BASE-T的描述不正确的是()A.“10”表示信号在电缆上的传输速率为10MB/sB.“T”表示连网介质为双绞线C.“BASE”表示通过连网介质传送的信号是基带信号D.使用10BASE-T标准的网络,其物理拓朴结构为星形44.下列关于网络设备的描述正确的是()A.网卡工作在数据链路层,可以进行路由选择B.集线器与交换机都是工作在数据链路层的,但交换机性能优于集线器C.中继器可以有效扩展网络范围,其工作在物理层D.路由器在传输层将不同网络进行了互连45.下列关于网络协议及拓朴的描述正确的是()A.使用不同协议的网络,不能进行互连B.不同拓朴结构的网络,可以进行互连C.拓朴结构与网络协议有关,即一种网络结构只能使用一种特定的网络协议D.环形网中使用的硬件设备,可以直接应用到星形网络中46.下列对CSMA/CD的描述正确的是()A.CSMA/CD通过令牌帧的传递控制结点数据的收、发过程B.CSMA/CD工作方式允许多个结点同时发送数据而不会产生信道冲突C.CSMA/CD指载波监听多点接入/碰撞检测,是一种公共介质竞争使用的控制方法D.CSMA/CD是环形网络广泛使用的工作方式47.计算机网络中主机的硬件地址是指()A.域名地址 B.端口地址C.IP地址 D.MAC地址48.下列关于子网掩码的描述不正确的是()A.子网掩码由四个十进制数组成,这四个十进制数只能是0或255B.子网掩码与IP地址按位与运算,可以得到该计算机所在的网络地址C.子网掩码可以用来屏蔽IP地址的一部分,以区别网络标识和主机标识D.子网掩码可以用于将一个大的IP网络划分为若干小的子网络49.有下列6个IP地址,下列关于IP地址分类的描述不正确的是()(1) (2)7(3)53 (4)48 (5) (6)A.(2)和(5)是A类 B.(6)和(2)是D类C.(1)和(3)是B类 D.(4)和(6)是C类50.下列关于ARP协议的描述正确的是()A.ARP协议向网络层提供地址转换服务,所以ARP工作在数据链路层B.ARP协议工作时只通过检索方式,即可获得目标MAC地址C.ARP协议完成从IP地址到MAC地址的转换D.ARP协议通过向服务器问询,获得目标MAC地址二、判断题(本大题14小题,每小题1分,共14分。将答案填涂在机读卡上,正确的填涂“√”格,错误的填涂“×”格)1.目前在生活和工作中普遍使用的计算机,主要电子元器件采用的是大规模和超大规模集成电路。()2.CPU可以直接访问硬盘存储器。()3.操作系统的主要功能是对计算机所有资源进行统一控制和管理,为用户使用计算机提供方便。()4.在WindowsXP中,将文件以鼠标左键拖拽方式释放至另一文件夹,完成的功能是复制而非移动。()5.在Word2003中,表格外框线的线型可以设置不同,但表中内框线的线型设置必须一致。()6.在Word2003中,通过“插入”菜单中的“页眉和页脚”菜单项,可以为文档设置页眉和页脚。()7.在Excel2003中,可以通过使用“条件格式”功能,将满足条件的数据进行突出显示。()8.在Excel2003中,如果要一次性在多个单元格中填入相同内容,采取的步骤是:①选中多个单元格;②输入内容;③按Ctrl+Enter键。()9.在VisualBasic中,单击滚动条上的箭头,可触发滚动条的Scroll事件。()10.在VisualFoxPro中,当表单运行时,数据环境中的表处于只读状态,只能显示不能修改。()11.DHCP协议的主要功能是建立IP地址与域名的对应关系。()12.网络防火墙工作在网络层,可以实现基于IP地址的数据包过滤。()13.能够共享到网络中的资源,只能是以文件、数据等形式提供的软件资源,而不能是计算机硬件资源。()14.FTP是一个应用层协议,可以用来传输各种格式的文件。()三、填空题(本大题共13小题,每小题2分,共26分。请将答案填写在答题纸上)1.已知字母a的ASCII码是(97)10,则字母f的ASCII码是()10。2.在计算机中,供用户自定义计算机外观和功能,添加或删除程序,设置网络连接和用户账户等的应用程序的集合是。3.在WindowsXP中,要将整个桌面以图片的方式存入剪贴板,应按_键。4.“计算机辅助设计”的英文缩写是。5.在Word2003中,去除图片的部分边缘,使用的是图片工具栏中的命令。6.在Excel2003中,在某一单元格填充分数2/3,输入方法为。7.在VisualBasic中,顺序文件关闭语句是。8.VisualBasic中,由a和b两个变量组成的代数式的算术表达式是。9.在VisualFoxPro中,设M=200,N=300,X="M+N",Y="01/01/2017",则表达式IIF(TYPE("&Y")$X,REPLICATE("AAA",2),REPLICATE("BBB",2))的值为。10.在VisualFoxPro中,使用命令DECLAREMM(5,6)定义的数组,包含的数组元素的个数为。11.与IPv4不同,IPv6协议使用个字节来表示一个IP地址。12.计算机网络的OSI参考模型,其中文名称为。交换机PC1PC2交换机PC1PC2PC3PC4PC5路由器LAN口:00WAN口:2 Internet 四、根据已知的环境与题意,写出相应的VisualFoxPro操作命令或SQL语句,要求每小题用一条命令或语句完成(本大题共5小题,每小题4分,共20分,请将答案填写在答题纸上)现有数据库“JXC.DBC”,其中包含表“PROINFO.DBF”,该表有以下字段:商品编号(C,6)、商品名称(C,40)、商品类别(C,4)、商品单位(C,6)、商品单价(N,8,1),库存下限(N,8,0),产地(C,40),并建立了以“商品编号”为关键字的主索引。相应的数据库和表已打开,写出实现下述功能的命令(注意:每个命令只能写一条语句,多于一条不得分)。1.删除所有“库存下限”小于100,“商品单位”不是“箱”的记录。(要求使用VisualFoxPro命令)2.假设表“GOODS.DBF”与表“PROINFO.DBF”结构相同,将“GOODS.DBF”中的数据添加到“PROINFO.DBF”表中。(要求使用VisualFoxPro命令)3.创建“SALLINFO.DBF”表(商品编号(C,6),售价(N,8,1)),并与“PROINFO.DBF”建立关联,关联字段为“商品编号”。(要求使用SQL语句)4.将“PROINFO.DBF”表所有“商品单位”为“听”,商品类别为“0001”的商品“库存下限”调整为200。(要求使用SQL语句)5.按不同“商品类别”计算“PROINFO.DBF”表中“商品单价”的平均值。(要求使用SQL语句)五、程序分析(本大题共2小题,每小题5分,共10分,读程序并分析结果,请填写在答题纸上)1.分析下面的VisualBasic程序,循环体中的语句s=s+1循环了_______次。OptionBase1PrivateSubCommand1_Click()DimiAsIntegerDimsAsIntegerDimkAsIntegeri=0:s=0a=Array(80,20,100,40,70,60,50,10,90,30)Fork=1To10Fori=a(k)To1Step-1Ifi>=45ThengotoLab1s=s+1NextiLab1:NextkPrintsEndSub2.分析下面的VisualFoxPro程序,要使输出结果为VhayagawVgavIx,则输入的字符串应为。CLEARACCEPT"请输入字符串:"TOCHARINN=LEN(CHARIN)DIMEYCHAR(N)FORI=1TONIFI%2=0YCHAR(I)=SUBSTR(CHARIN,I,1)ELSEYCHAR(I)=UPPER(SUBSTR(CHARIN,I,1))ENDIFENDFORFORI=1TON/2TEMP=YCHAR(I)YCHAR(I)=YCHAR(N-I+1)YCHAR(N-I+1)=TEMPENDFORDCHAR=""FORI=1TONIFASC(YCHAR(I))>=ASC("A")ANDASC(YCHAR(I))<=ASC("Z")DCHAR=DCHAR+LOWER(CHR(ASC("A")+ASC("Z")-ASC(YCHAR(I))))ELSEIFASC(YCHAR(I))>ASC("a")ANDASC(YCHAR(I))<=ASC("z")DCHAR=DCHAR+UPPER(CHR(ASC("a")+ASC("z")-ASC(YCHAR(I))))ELSEDCHAR=DCHAR+YCHAR(I)ENDIFENDIFENDFOR?DCHAR六、写出下列程序的运行结果(本大题共5小题,每小题5分,共25分,请将答案填写在答题纸上)1.分析下面VisualBasic程序。窗体中有一命令按钮(名称为Command1)。OptionBase1PrivateSubCommand1_Click()DimiAsIntegerDimkAsIntegerDimmAsIntegera=Array(6,4,8,2,1,3,9,12,43,67,8)Fori=1To10Fork=i+1To11Ifa(i)>a(k)Thena(i)=a(i)+a(k):a(k)=a(i)-a(k):a(i)=a(i)-a(k)EndIfNextkIfa(i)>=10Thena(i)=Int(a(i)/10)NextiIfa(i)>=10Thena(i)=Int(a(i)/10)m=0Fori=1To11m=m+a(i)NextiPrintmEndSub窗体启动后,单击命令按钮,窗体显示的结果为________。2.分析下面VisualBasic程序。如图所示,界面中有两个文本框和一个命令按钮,上面有字符的控件是文本框1(名称Text1),中间的控件是文本框2(名称Text2),最下面的控件是命令按钮(名称Command1)。PrivateSubCommand1_Click()DimnumAsStringDimnum1AsStringDimnum2AsStringDimcAsStringDimiAsIntegerDimlengthAsIntegerDimlength1AsIntegerDimlength2AsIntegerlength1=0:length2=0num=Text1.Textlength=Len(num)Fori=1Tolengthc=Mid(num,i,1)Ifc<>"8"Thennum1=num1+clength1=length1+1ElseIflength1>length2Thenlength2=length1:num2=num1length1=0:num1=""Elselength1=0:num1=""EndIfEndIfNextiIflength1>length2Thennum2=num1EndIfText2.Text=num2EndSub窗体运行后,在文本框1中输入图中所示的字母和数字,单击命令按钮,则在文本框2显示的内容是__________________。3.有如下VisualFoxPro程序:CLEARPUBLICC,DA=12345678B=10C=20D=30N=0DOSUB1WITHA,B?A,B,C,DPROCEDURESUB1PARAMETERSX,YPRIVATECY=0FLAG=.T.DOWHILEFLAGY=X%10+Y*10X=INT(X/10)N=N+1I=0E=Y%10DOWHILEI<=NE=E*10I=I+1ENDDOD=E+DIFX<100FLAG=.F.ENDIFENDDOC=STR(X)+STR(Y)RETURNENDPROC运行上面的程序,显示的结果为:。4.现有表“CJB.DBF”,结构为:BJ_NAME(C,30)、XM(C,8)、YW(N,4,1),表中数据如下图所示:有如下VisualFoxPro程序:ACCEPT"请输入班级名:"TOBJMUSECJB.DBFINDEXONYWTAGYWSXDIMETEMP(10)K=0SAV=0N=0DOWHILENOTEOF()IFTRIM(BJ_NAME)=TRIM(BJM)TEMP(K+1)=YWK=K+1ENDIFN=N+1SAV=SAV+YWSKIPENDDOFORM=1TO1ZH1=TEMP(M) ENDFORFORM=2TO2ZH2=TEMP(M)ENDFORFORM=3TO3IFK<3ZH3=ZH2ELSEZH3=TEMP(K)ENDIFENDFORP=ZH1*0.5+ZH2*0.35+ZH3*0.15-SAV/N?P运行上面的程序,输入“高三(1)班”,显示的结果是:。5.数据库文件ZKSCORE.DBC包含1个表“CJB.DBF”,表结构为:准考证号(C,9)、姓名(C,8)、学校名称(C,20)、班级名称(C,20)、总分(N,5,1)。表数据如下图所示:有如下VisualFoxPro程序:ACCEPT"请输入准考证号:"TOZKZOPENDATABASEZKSCOREALTERTABLECJBADDX2N(2,0)SELECT准考证号,姓名,学校名称,班级名称,总分,X2FROMCJBORDERBY;学校名称,班级名称,总分DESCINTOTABLECJTMPGOTOPX=1Y=XNX1=CJTMP.总分BJ=CJTMP.班级名称XX=学校名称DOWHILENOTEOF()IFBJ=CJTMP.班级名称ANDXX=CJTMP.学校名称REPLACEX2WITHIIF(NX1=CJTMP.总分,Y,X)Y=CJTMP.X2X=X+1BJ=CJTMP.班级名称XX=学校名称NX1=CJTMP.总分ELSEX=1Y=XNX1=CJTMP.总分REPLACEX2WITHXX=X+1BJ=CJTMP.班级名称XX=CJTMP.学校名称ENDIFSKIPENDDOSELECT准考证号,姓名,X2WHERE准考证号=ZKZFROMCJTMPINTOTABLETMPJG?准考证号,姓名,X2运行上面的程序,输入“801510114”,显示的结果是:。七、VisualBasic程序改错(本大题共2小题,每题5分,共10分,每个小题的程序有两个错误行,请在答题纸上写出错误行代码和对应的改正后代码,错误行代码和改正后代码完全正确方可得分)1.下面的程序是利用InputBox函数依次输入两个长度小于20的、均由数字字符组成的字符串,依次存入到两个字符串变量中,然后从两个字符串的起始位置开始依次取出一个字符进行操作,操作的规则是:(1)把取出的字符转换成数字分别存入到数组a和数组b中,将两个数组中下标相同的元素值相加,如果它们的和大于9,则存入数组c中,否则不存入。然后再分别取下一个字符,进行同样的操作。(2)如果某个字符串中的字符已经取完,则把另一个未取完的字符串中的字符单个取出,转换成数字后加上10直接存入到数组c中。例如输入的字符串是:“123456789”和“96666666666”,则最后数组c中存入的应该是:10,10,11,12,13,14,15,16,16。OptionBase1PrivateSubCommand1_Click()Dima(20)AsIntegerDimb(20)AsIntegerDimc(20)AsIntegerDimiAsIntegerDimjAsIntegerDimlen1AsIntegerDimlen2AsIntegerDimstr1AsStringDimstr2AsStringstr1=InputBox("请输入第一个数字字符串:")str2=InputBox("请输入第二个数字字符串:")len1=Len(str1)len2=Len(str2)i=1:j=1DoWhilei<=len1Andi<=len2a(i)=Val(Mid(str1,i,1))b(i)=Val(Mid(str2,i,1))Ifa(i)+b(i)>9Thenc(j)=a(i)+b(i):j=j+1i=i+1LoopIflen1>len2Thenstr1=Mid(str1,i)ElseStr2=Mid(str2,i)EndIflen1=Len(str1)i=1DoWhilei<=len1c(j)=Val(Mid(str1,i,1))+10i=i+1:j=j+1LoopFori=1TojPrintc(i);NextiEndSub2.下面程序的功能是:定义一个4行4列的数组并赋值,要求第1行至第4行产生的数分别在10至19、20至29、30至39、40至49之间,再用Inputbox函数输入一个1到4之间的数字,然后求该数字所对应行与列元素的和。如产生的数组是: 10171819212425233532303841444742若输入一个数字2,则求第2行与第2列元素的和,结果为210。OptionBase1PrivateSubCommand1_Click()Dima(4,4)AsIntegerDimnumAsIntegerDimsAsIntegerDimiAsInteger,jAsIntegerFori=1To4Forj=1To4a(i,j)=10+Int(Rnd*10)Printa(i,j);NextjPrintNextinum=InputBox("请输入一个1至4的数字:")s=a(num,num)Fori=1To4Forj=1To4Ifi=numOrj=numThens=s+a(num,num)EndIfNextjNextiPrintsEndSub八、程序填空(本大题共7个空,每空5分,共35分,按程序要求在答题纸上填入相应的内容,使程序完整正确)1.(VisualBasic试题)下面程序的功能是输入一个大于等于10小于500的数字,然后把10到该数字之间的所有素数找出并存入到数组a中,并输出此数组。请在划线位置填写正确的内容。OptionBase1PrivateSubCommand1_Click()DimnumAsIntegerDima(100)AsIntegerDimnAsIntegerDimkAsIntegerDimiAsIntegerDimjAsIntegern=1num=InputBox("请输入一个数字:")Fori=10Tonumk=Sqr(i)Forj=2TokIfiModj=0Then______________NextjIfj>kThen____________:n=n+1EndIfNextiIfn=1ThenPrint"一个也没有"ElseFori=1Ton-1Printa(i);NextiEndIfEndSub2.(VisualBasic试题)窗体上有五个标签(用来提示其右侧的内容,标题分别是数据1,数据2,滚动条,运算符,结果)。数据1右侧是文本框1(名称为Text1),数据2右侧是一列表框(名称为List1),运算符右侧是一组合框(名称为Combo1),上述三个控件内容如程序及图所示。滚动条(名称为HS1)最小值和最大值分别是10和50,滚动条的LargeChange属性值为10。界面中目前显示42的控件是文本框2(名称为Text2),其值由文本框1中部分数据、组合框中选定的运算符及列表框中数据进行某种运算产生。标题显示“开始”的是一命令按钮(名称为Command1)。有一定时器控件(名称为Timer1),初始设置Timer1.Enabled为False,Timer1.Interval=2000,定时器的Timer1_Timer事件主要功能是:程序中的变量a保存从Text1中选定的内容,变量c保存从Combo1中选定的值,变量b保存List1及HS1的运算结果。这些变量按指定规则运算,结果显示在Text2中。下图是窗体启动并单击“开始”按钮后,滚动条的值达到30时的状态。请在划线位置填写正确的内容。PrivateSubForm_Load()List1.AddItem"10"List1.AddItem"20"List1.AddItem"30"List1.AddItem"40"List1.AddItem"50"Combo1.AddItem"+"Combo1.AddItem"-"Combo1.AddItem"*"Combo1.AddItem"/"Text1.Text="0123456789"EndSubPrivateSubCommand1_Click()Timer1.Enabled=TrueText1.SelStart=__________Text1.SelLength=2EndSubPrivateSubTimer1_Timer()DimaAsIntegerDimbAsIntegerDimsAsIntegerDimcAsStringStaticnAsI

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论