2023年河北省对口升学计算机专业理论试题(附答案)

第19页共19页2023年河北省普通高等学校对口招生考试计算机专业理论试题〔A〕考前须知：1．本试卷共八道大题。总分240分。2．第I卷“一、选择题〞、第II卷“二、判断题〞的答案填涂在机读卡上，其余各题答案写在答题纸上，答在试卷上不得分。用蓝黑钢笔、碳素笔或圆珠笔答题。3．答题前将密封线内工程填写清楚。第一卷〔选择题共100分〕一、选择题〔本大题共50小题，每题2分，共100分。在每题所给出的四个选项中，只有一个符合题目要求，将正确选项填涂在机读卡上〕1.计算机能够自动、准确、快速地按照人们的意图运行的最根本原因是〔〕A.采用超大规模集成电路B.CPU作为中央核心部件C.具有操作系统D.具有存储程序和程序控制功能2.以下各组设备中，同时包括了输入设备、输出设备和存储设备的是〔〕A．CRT显示器、CPU、CacheB．绘图仪、鼠标、键盘C．鼠标、绘图仪、光盘D．硬盘、打印机、LED显示器3．以下各组软件中，全部属于应用软件的是〔〕A.程序语言处理程序、操作系统、数据库管理系统B.文字处理程序、编辑程序、MS-DOSC.Word2003、MySQL5.0、程序语言处理程序D.财务处理软件、Flash、WPS、Office20234．在标准ASCII码表中，数字、大小写英文字母的编码从小到大的次序是〔〕A.大写英文字母、小写英文字母、数字B.数字、小写英文字母、大写英文字母C.小写英文字母、大写英文字母、数字D．数字、大写英文字母、小写英文字母5.存储300个24×24点阵的汉字字形码，所需的存储容量大小为〔〕A.0.1728M个二进制位B．21600个字节C．42.1875K个字节D．0.3456M个二进制位6.运算器〔ALU〕的功能是(〕A．只能进行逻辑运算B．进行算术运算或逻辑运算C．只能进行算术运算D．做初等函数的计算7.以下关于病毒的描述，正确的是〔〕A．计算机病毒只在可执行文件中传播B．计算机病毒主要通过读/写存储器或网络进行传播C．只要删除所有感染了病毒的文件就可以彻底去除病毒D．计算机杀毒软件可以查出和去除所有病毒8.在以下各数据中，数值最小的是〔〕A．(156)8B．(139)10C．(2FF)16D．(10100001)29．在WindowsXP中，关于“画图〞工具，以下说法不正确的是〔〕A．点击“开始〞-“搜索〞，输入“画图〞可以找到“画图〞工具B．点击“开始〞-“所有程序〞-“附件〞，可以找到“画图〞工具C．翻开“控制面板〞-“添加/删除程序〞，可以卸载“画图〞工具D．在“画图〞工具图标上点右键，可以将其添加到“开始〞菜单10．在WindowsXP中，不能在“任务栏〞内进行的操作是〔〕A.窗口之间切换B.排列桌面图标C.设置系统日期和时间D.启动“开始〞菜单11.在WindowsXP中，以下关于文件名的说法，不正确的是〔〕A.由于文件的扩展名使用‘.’,因此文件命名时不能使用‘.’B.文件名可以使用通配符‘？’和‘*’C.给文件命名时字母可以使用大小写格式，但不能用大小写区别文件名D.文件名可用英文字母、数字和汉字命名12．在Word2003中，将“计算机〞一词设置为艺术字“〞，那么以下方法中不正确的是〔〕A.“编辑〞-“替换〞B.“插入〞-“图片〞-“艺术字〞C.“视图〞-“工具栏〞-“艺术字〞D.“格式〞-“字体〞-“文字效果〞13．在Word2003中，假设要设置表格的外框线为双线，内框线为单线，如以下图，正确的操作是〔〕三年前北京各区平均租金表区名一居室二居室三居室东城区149718772150西城区144219532260崇文区128415512000宣武区123315531900朝阳区126515641943A.翻开“表格〞-“表格属性〞-“边框底纹〞，选择“方框〞命令B．翻开“表格〞-“表格属性〞-“边框底纹〞，选择“全部〞命令C．翻开“表格〞-“表格属性〞-“边框底纹〞，选择“自定义〞命令D.以上都可以14．在Word2003中，如果在文档顶部或底部添加图形或文本，正确的操作是〔〕A.通过“视图〞-“页眉和页脚〞进行设置B.通过“插入〞-“页眉和页脚〞进行设置C.通过“文件〞-“页眉和页脚〞进行设置D.以上都不对15.在Excel2003中，假设要在“计算机专业考试成绩单〞表中，按输入公式方式填充“等级〞列，填充要求是：“综合成绩〞高于90分〔含90〕为“优秀〞，60分〔含60〕到90分〔不含90〕为“合格〞，60分以下“不合格〞。以下公式正确的是．．．〔〕A．=IF(E3>=90,"优秀",(IF(E3>=60,"合格","不合格")))B．=IF(E3>=90,"优秀",IF(E3>=60,"合格","不合格"))C．=IF(E3>=60,"合格",(IF(E3>=90,"不合格","优秀")))D．=IF(E3<60,"不合格",(IF(E3>=90,"合格","优秀")))16.在Excel2003中，如15题图“计算机专业考试成绩单〞所示，假设突出显示“等级〞为“优秀〞的单元格，以下操作正确的是〔〕A．使用“自动筛选〞功能B．使用“高级筛选〞功能C．使用“条件格式〞功能D．使用“IF〞函数17．在Excel2003中，单元格中的数据显示为一串“#〞时，说明〔〕A．公式中出现了0为除数的情况B．单元格数据长度大于该列的宽度C．出现语法错误D.公式中含有不能识别的函数18．在VisualBasic中，设A=“12345678”，那么表达式的值为〔〕A．123456B.56784519.在VisualBasic中，将文本框的内容全部显示为用户所定义的字符的属性是〔〕A.PasswordCharB.PasswordC.SelTextD.以上都不对20.假设评选优秀毕业学生的条件是：政治面貌〔party〕为团员，课程总分(total)大于285分，其中三门主课(mark1,mark2,mark3)中有一门课为100分，VisualBasic表达式应写为〔〕A.party＝"团员"andtotal>285andmark1=100ormark2=100ormark3=100B.party＝"团员"andtotal>285ormark1=100ormark2=100ormark3=100C.(party＝"团员"andtotal>285)and(mark1=100ormark2=100ormark3=100)D.(party＝"团员"ortotal>285)and(mark1=100ormark2=100ormark3=100)21.在VisualBasic中,下面哪个选项属于控件的方法〔〕A.ClickB.ChangeC.SetFocusD．Dim22.在VisualBasic中，窗体上有一个命令按钮〔其Name属性为Command1〕，运行以下程序，单击命令钮，其输出结果是〔〕OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4)j=1Fori=4To1Step-1s=s+a(i)*jj=j*10NextiPrintsEndSubA．4321B．234C．34D23.在VisualBasic中，下面关于图片框(PictureBox)和图像框(Image)说法不正确的是〔〕A.图片框中可以装载其他控件B.均可加载图片C.图像框中可以装载其他控件D.图像框比图片框占用更少内存24.在VisualBasic中，有一个10个元素的数组，以下程序可将该数组逆置。即第1个元素与第10个元素交换，第2个元素与第9个元素交换……，第5个元素与第6个元素交换，为实现此功能，应在横线处填写〔〕PrivateSubCommand1_Click()Dima(1To10)AsIntegerDimiAsIntegerDimpAsIntegerDimtAsIntegerDimjAsIntegerFori=1To10a(i)=iNextiForj=1To5t=a(j)NextjFori=1To10Printa(i)NextiEndSubA.a(j)=a(11-j)a(11-j)=tB.a(11-j)=a(j)a(j)=tC．a(j)=ta(11-j)=a(j)D.a(11-j)=ta(j)=a(11-j)25.在VisualBasic中，单击一次命令按钮，以下程序代码的执行结果为〔〕PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsIntegera=2:b=3:c=4Printfun2(a,b,c)EndSubPrivateFunctionfun1(xAsInteger,yAsInteger,zAsInteger)fun1=2*x+y+3*zEndFunctionPrivateFunctionfun2(xAsInteger,yAsInteger,zAsInteger)fun2=fun1(z,x,y)+xEndFunctionA.27B.2126.在VisualBasic设计阶段，为了去除窗体上的一个控件，以下正确的操作是〔〕A.单击要去除的控件，然后按回车键B.单击要去除的控件，然后按Esc键C.单击要去除的控件，然后按Del键D.以上都不对27.在VisualBasic中，以下程序段的输出结果是〔〕x=5SelectCasex+1Case5,6,7Print"5,6,7"Case0To9Print"0to9"CaseIs>=15Print"is>=5"EndSelectA.5，6，7B.0-928.在VisualFoxPro中，使用DIMENSIONa(10)定义了一个一维数组，正确的赋值语句是〔〕A.a=10B.a[10]=10C.STORE10a[3],a[4],a[5]D.a[2],a[3],a[4]=1029.在VisualFoxPro中，下面有关视图的描述，正确的是〔〕A.可以使用MODIFYSTRUCTURE命令修改视图的结构B.视图不能删除，否那么影响原来的数据文件C.视图是对表的复制产生的D.使用SQL对视图进行查询时，必须事先翻开该视图所在的数据库30.在VisualFoxPro中，连续执行以下命令后，变量B的值为〔〕SETEXACTOFFA="河北"B=(A="中国河北")?BA..F.B.中国河北C.河北D..T.31.在VisualFoxPro中，为了在报表中参加一个文字说明，应该插入一个．．〔〕A.表达式控件B.域控件C.标签控件D.文本控件32.在VisualFoxPro中，已使用命令MODIFYMENUmymenu创立了一个菜单并生成了相应的菜单程序，那么正确运行该菜单程序的命令是〔〕A．DOmymenu.mprB．DOMENUmymenu.mprC．DOMENUmymenuD．DOmymenu33.在VisualFoxPro中，下述描述正确的是〔〕A.利用查询可能修改数据B.利用视图可以修改数据C.查询和视图的功能相同D.视图可以定义输出去向34.VisualFoxPro是一种关系型数据库管理系统，所谓“关系〞是指〔〕A.数据模型符合满足一定条件的二维表格B.一个数据库文件与另一个数据库文件之间有一定的关系C.各字段间的数据彼此有一定的关系D.各条记录中的数据彼此有一定的关系35．在VisualFoxPro中，变量a的值是“计算机网络工程师〞,变量b的值是“程序设计员〞，结果为“程序设计工程师〞的表达式是〔〕A.substr(b,1,4)-substr(a,6,3)B.left(b,8)-right(a,6)C.left(b,4)-right(a,3)D.以上都正确36．用户在互联网上经常使用的一种信息查询工具是．．．．．．．．．．．．．．．.．．．．．〔〕A.电子公告板系统B.电子邮件C.网络加速器D.搜索引擎37.网络中的计算机可以分为效劳器和客户机，效劳器主要用来向全网络提供某种协议的网络效劳，客户机那么主要用来访问、使用效劳器上的效劳。在以下关于客户机的描述中，错误的是．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．〔〕A．智能不能用作客户机B．平板电脑可以作为客户机使用C．笔记本电脑可以用作客户机D．高端台式机能用作客户机38.以下哪种数据交换技术不属于存储交换技术．．．〔〕A．分组交换B．报文交换C．信元交换D．线路交换39．ISO是以下哪个组织的英文简写．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．〔〕A．国际电报咨询委员会B．国际标准化组织C．电气和电子工程师协会D．电子工业协会40.在使用IE浏览器过程中点击“主页〞按钮，以下说法正确的是．．．．．．．．〔〕A．在IE中显示最近访问过的网页B．访问Microsoft公司的主页C．访问百度公司的主页D．用户在IE中自定义的主页41.网络浏览器通常使用的协议是HTTP，该协议在效劳器上使用的默认端口号为〔〕A．21B．25C42.如以下图所示，计算机A向计算机B发送数据包，过程为：计算机A通过网络1向路由器C发送数据包1；路由器C通过网络2向路由器D发送数据包2；路由器D通过网络3向计算机B发送数据包3。计算机及路由器的关键参数已经在邻近位置给出。问：在数据包传输过程中，封装在数据包2中的目的IP地址和目的MAC地址是．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．〔〕A．0和B．00和C．0和D．00和43.Unix是一种网络操作系统，可以安装运行TCP/IP协议。有一台计算机安装了Unix操作系统和TCP/IP协议，以下说法中错误的是．．．．．．．．．．．．．．．．．．．．．〔〕A．该计算机在联网后具有所在网络唯一的IP地址。B．该计算机网络参数中可以设置网关参数。C．该计算机不能访问安装Windows网络操作系统的计算机网络。D．该计算机可以按域名访问互联网网站。44.以下关于UDP协议的描述中正确的是．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．〔〕A．不可靠B．传输过程不透明C．面向连接D．有序传送数据包45.在TCP/IP协议体系中，ARP协议的作用是．．．．．．．．．．．．．．．．．．．．．．．．．〔〕A．解析端口和效劳类型的对应关系B．解析MAC地址和端口的对应关系C．解析IP地址和域名的对应关系D．解析IP地址和MAC地址的对应关系46.在OSI网络参考模型中，能够确定网络接头及其电器性能标准的是．．．．〔〕A．传输层协议B．网络层协议C．数据链路层协议D．物理层协议47.为了提高网络平安性、防止网络效劳器遭受黑客攻击，目前经常采用的技术是．．．〔〕A.双机热备份技术B.生物特征识别技术C．数据加密技术D．防火墙技术48.在以下网络调试命令中，可以用来测试两台机器之间是否有物理通路的是〔〕A．netstatB.ipconfigC．pingD．telnet49.IP地址0属于以下哪类IP地址．．．．．．．．．．．．．．．．．．．．．．．〔〕A．D类地址B．C类地址C．B类地址D．A类地址50.假设干计算机使用交换机和双绞线、应用TCP/IP协议组成了一个局域网，并通过一台路由器与互联网连接。在为计算机设置网络参数时，以下哪个网络参数没有必要进行设置．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．〔〕A．DNS效劳器B．IP地址C．WINS效劳器D．默认网关A网络1数据包201.6a.75.66.0f.11网络3网络2B数据包3数据包1路由器C路由器D第二卷〔非选择题共140分〕二、判断题〔本大题14小题，每题1分，共14分。将答案填涂在机读卡上，正确的填涂“√〞格，错误的填涂“×〞格〕1．计算机能够进行逻辑判断，并根据判断的结果选择相应的处理。这说明计算机具有自动控制能力。〔〕2．计算机断电后，RAM存储的信息不会丧失，ROM存储的信息会丧失。〔〕3.在WindowsXP中，回收站容量大小是固定的，不能调整。〔〕4.在WindowsXP中，任务栏可以放在桌面的四个边的任意边上。〔〕5．在Word2003中，如果需要对插入的图片作精确定位，那么图片与文字的环绕方式应该选择“浮于文字上方〞。〔〕6.在Word2003中，使用“查找〞命令时，可以区分全角和半角字符，也可以区分大小写字母。〔〕7．在Excel2003中，分类汇总的关键字段可以是多个字段。〔〕8.在Excel2003中，选中单元格按Delete键，那么单元格的内容被删除而格式保持不变。〔〕9.在VisualBasic中，可以用LoadPicture函数给图片框加载图片，但不能用此函数去除其中的图片。〔〕10．在VisualFoxPro中，使用查询设计器创立的是一个包含SQL的SELECT语句的文本文件。〔〕11．从技术上看，可以将普通交换机视为一种多端口的网桥，该设备工作在数据链路层。〔〕12．由于网络使用了分层结构，所以当某层的实现技术发生变化时，与其相邻的层次必须进行相应变化，才能保证网络功能的正常实现。〔〕13．网络效劳器上的DHCP效劳，其主要功能是进行IP地址和域名之间的相互转换。〔〕14．工作在数据链路层和网络层的设备都具有所在网络的唯一地址标识或能够判识所在层次的地址标识。〔〕三、填空题〔本大题共13小题，每题2分，共26分。请将答案填写在答题纸上〕1．进位计数制允许选用的根本数码的个数称为。2．冯·诺依曼计算机体系中，中央处理器包含和。3．计算机中所有信息都是以形式存储的。4．在WindowsXP中，是内存的一块区域，用于各个应用程序之间相互交换信息。5．在Word2003中，包含有最近使用过文档列表的是菜单。6．在Excel2003中，单元格E4中有公式“=$C$3+D4”，将公式复制到E6中，单元格E6中的公式为。7.在VisualBasic中，文本框的默认属性是。8.在VisualBasic中，代数式1323xx的算术表达式是。9．在VisualFoxPro中，要屏蔽系统菜单，使用命令。10.在VisualFoxPro中，一个表只能建立一个的是索引。11.在OSI网络参考模型中，传输层传送信息的组织单位是。12.用来代表本机IP地址的第一个字段的值是〔请填写十进制数〕。13.〔请填写设备名称〕可以按不同的网络协议完成数据包格式的转换，从而将环型网络和总线型网络进行互连。四、根据的环境与题意，写出相应的VisualFoxPro操作命令或SQL语句，要求每题用一条命令或语句完成〔本大题共5小题，每题4分，共20分，请填写在答题纸上〕。现有数据库“HETONG.DBC〞，其中包含表“TAB_HETONG.DBF〞，该表有以下字段：编号(C,10)、供方(C,50)、合同编号(C,10)、签订地点(C,50)、数量(N,10,0)，需方(C,50)。相应的数据库和表已翻开，写出实现下述功能的命令(注意：每个命令只能写一条语句，多于一条不得分)。1.以“合同编号〞为关键字建立降序的候选索引，索引名为“HT〞,复合索引文件名为HTBH.CDX。〔用VisualFoxPro命令〕2.将所有“供方〞为“阳春白雪集团〞的所有记录的“签订地点〞改为“金阳大厦〞〔用VisualFoxPro命令〕3.查询统计“TAB_HETONG〞表中不同需方“数量〞的最大值，并将结果从打印机上打印出来。〔用SQL语句〕计算机专业理论试题第7页共13页4．修改表“TAB_HETONG〞的结构，删除“合同编号〞字段的默认值。〔用SQL语句〕5.删除“TAB_HETONG〞表中“供方〞为“百得公司〞或“数量〞小于500的记录。〔用SQL语句〕五、程序分析〔本大题共2小题，每题5分，共10分，读程序并分析结果，请填写在答题纸上〕1．阅读下面的VisualBasic程序，循环体中的语句s=s+2共执行了次。PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsIntegerDimiAsInteger,sAsIntegera=5:b=2:c=2:s=0DoWhileb<=aForj=1To200Stepcs=s+2Nextjb=b+cLoopPrintsEndSub2．有数据表JY.DBF的内容如下：〔注：日期格式为“月/日/年〞〕Record#借书证号借书日期1001002/01/162000701/01/163000611/03/154001002/17/16数据表JYR.DBF的内容如下：Record#借书证号姓名职称10006孟小梅教授20010郑财勇讲师30007王志军助教有VisualForPro程序TX.prg如下:CLEARSTORE12TOTASTORE18TOTBSTORE0TOTC,TSDOJSWITHTA,TB,TC,TSSELECT1USEJYRINDEXON借书证号TAGGYROFGYRYSELECT2USEJYH=1DOWHILE.NOT.EOF()TE=DATE()-借书日期IFTE>(TS-TA*2)*10SELECT1SEEKB.借书证号IFTE>(TS-27)*10OR职称<>'教授'?姓名+'同志，您借的书已过期，请归还'H=H+1ENDIFSELECT2ENDIFSKIPENDDORETURNPROCEDUREJSPARAMETERSTA,TB,TC,TSTC=MAX(TA,TB)DOWHILETC<=TA*TBIFTC%TA=0ANDTC%TB=0TS=TCEXITENDIFTC=TC+1计算机专业理论试题第8页共13页ENDDORETURNENDPROCEDURE请分析职称为“教授〞和其它不是“教授〞的教师借书的最多天数分别是和。设系统的当前日期为2023年3月19日，程序将显示〔填姓名〕教师的还书信息。六、写出以下程序的运行结果〔本大题共5小题，每题5分，共25分，请填写在答题纸上〕1．分析下面VisualBasic程序段。窗体中有一命令按钮〔名称为B6〕。PrivateSubB6_Click()Dimnum1AsIntegerDimnum2AsIntegerDimnumAsIntegerDimiAsInteger,kAsIntegernum1=InputBox("num1=")num2=InputBox("num2=")num=1：i=2Ifnum1>num2Thenk=num2Elsek=num1DoWhilei<=kIfnum1Modi=0Andnum2Modi=0Thennum=iEndIfi=i+1LoopPrintnumEndSub窗体启动后单击命令按钮，分别给num1和num2赋值为18和27，输出变量num的值为。2．分析下面VisualBasic程序段,如下图，界面中左侧是列表框〔名称List1〕，显示省份名称，右侧从上向下分别是文本框1〔名称Text1〕，文本框2〔名称Text2〕，命令按钮〔名称Command1〕。PrivateSubCommand1_Click()DimiAsIntegerFori=0ToList1.ListCount-1IfTrim(Text1.Text)=List1.List(i)AndList1.Selected(i)ThenText2.Text=Mid(List1.List(List1.ListIndex),1,2)ExitForElseText2.Text="其它"EndIfNextiEndSubPrivateSubForm_Load()List1.AddItem"河北省"List1.AddItem"河南省"List1.AddItem"湖北省"List1.AddItem"山东省"List1.AddItem"湖南省"EndSub窗体启动后，选中列表框中“湖北省〞工程，并在文本框1中输入“湖北省〞，单击命令按钮，文本框2显示的内容是。3．有VisualForPro程序如下:CLEARINPUT"请输入数据："TOAXB?CAS(AXB,1)FUNCTIONCASPARAMETERSnAmount,IsDWnDZS=CDE(RTRIM(LTRIM(STR(nAmount,18,2))),".","")cHZDX="零壹贰叁肆伍陆柒捌玖"cDW="分角元拾佰仟万拾佰仟亿拾佰仟万拾佰仟亿"cRMBDX=""nCd=LEN(nDZS)FORI=1TOLEN(nDZS)cNumbers=SUBSTR(cHZDX,INT(VAL(SUBSTR(nDZS,I,1))*2+1),2)计算机专业理论试题第9页共13页IFIsDW=1cDWs=SUBSTR(cDW,nCd*2-1,2)ELSEcDWs=SPACE(0)ENDIFcRMBDX=cRMBDX+cNumbers+cDWSnCd=nCd-1ENDFORFORI=LEN(nDZS)+1TO7cNumbers=SUBSTR(cHZDX,INT(VAL(SUBSTR(nDZS,I,1))*2+1),2)IFIsDW=1cDWs=SUBSTR(cDW,I*2-1,2)ENDIFcRMBDX=cNumbers+cDWS+cRMBDXENDFORRETURNcRMBDXFUNCTIONCDEPARAMETERSnAmountY,nDot,nREPcRMBDE=""FORI=1TOLEN(nAmountY)IFSUBSTR(nAmountY,I,1)<>"."cRMBDE=cRMBDE+SUBSTR(nAmountY,I,1)ENDIFENDFORRETURNcRMBDE运行上面的程序，输入123.4，显示的结果为4.现有2个表，分别是“JSB.DBF〞、“KCB.DBF〞。其中“JSB〞表的结构为：楼号(N,2,0)、教室名(C，5)、容纳人数(N,4,0)，是否占用(L)；“KCB〞表的结构为：课程名(C,20)、选课人数(N,3,0),各表中数据如下：JSB.DBF记录号楼号教室名容纳人数是否占用111-304120.T.211-20580.T.322-10370.T.422-20480.F.533-10330.T.633-10465.F.733-201100.F.KCB.DBF记录号课程名选课人数1计算机根底352操作系统60有如下VisualFoxPro程序：DIMEJIZHI(1,1)SELECT楼号,教室名,容纳人数,是否占用FROMJSBINTOTABLELINSHIALTERTABLELINSHIADDCHAZHIN(3,0)USEACCEPT"请输入课程名："TOKCMSELECT1USEKCBINDEXON课程名TAGABCSEEKKCMSELECT2USELINSHIREPLACEALLCHAZHIWITH容纳人数-A.选课人数DELETEALLFORCHAZHI<0OR是否占用=.T.PACKSELECTMIN(CHAZHI)FROMLINSHIINTOARRAYJIZHIGOTOPJIEGUO=""DOWHILENOTEOF()IFCHAZHI=JIZHI(1,1)JIEGUO=JIEGUO+A.课程名+STR(楼号)+""+教室名ENDIFSKIP计算机专业理论试题第10页共13页ENDDO?JIEGUO运行上面的程序，输入“操作系统〞，显示的结果是：5.现有数据库文件WATER.DBC，包含2个表，分别是WATERMETER.DBF和USEB.DBF。其中WATERMETER表的结构为：水表编号(C,8)、本月读数(N,10,2)、上月读数(N,10,2)、使用数(N,10,2)；USEB表的结构为：户主姓名(C,10)、房间编号(C,6)、水表编号(C,8)。其表中数据如下：WATERMETER.DBF记录号水表编号本月读数上月读数使用数13-1001-A235.67201.3423-1002-B678.34450.0032-0101-A289.23200.43USEB.DBF记录号户主姓名房间编号水表编号1张斌3-10013-1001-A2王阳新3-10023-1002-B3马国庆2-01012-0101-A新建一个表单，表单的Name属性为Form1，程序运行时的界面如以下图所示：表单中，有一个标签，其Name属性为Label1，Caption属性为“户主姓名：〞；有两个文本框，其Name属性分别为Text1和Text2；一个命令按钮，其Name属性为Command1，Caption属性为“计算〞；有一个选项按钮组，其Name属性为Optiongroup1，其中包含两个单项选择按钮，一个的Name属性为Option1、Caption属性为“1-9楼〞，另一个的Name属性为Option2、Caption属性为“10楼以上〞。Command1的Click事件代码如下：〔代码中行末的分号为逻辑行连接符〕OPENDATABASEWATERUPDATEWATERMETERSET使用数=本月读数-上月读数SELECT(MAX(使用数)+MIN(使用数))/2ASABFROMWATERMETERINTOTABLEMABUSEMABGOTOPXAB=ABXM=TRIM(THISFORM.TEXT1.TEXT)SELECT水表编号,使用数FROMWATERMETERWHERE水表编号IN(SELECT；水表编号FROMUSEBWHERE户主姓名=XM)IFTHISFORM.OPTIONGROUP1.OPTION1.VALUE=1IF使用数>XABJIEGUO=XAB*3.5+(使用数-XAB)*10ELSEJIEGUO=使用数*3.5ENDIFELSEIF使用数>XABJIEGUO=XAB*3.5+(使用数-XAB)*10+50ELSEJIEGUO=使用数*3.5+50ENDIFENDIFTHISFORM.TEXT2.VALUE=XM+""+"应收金额="+STR(JIEGUO)运行上面的表单，在Text1中输入“王阳新〞，选择单项选择按钮“10楼以上〞，单击“计算〞选钮，那么在Text2中显示的是：七、VisualBasic程序改错(本大题共2小题，每题5分，共10分，每个程序有两个错误行，请在答题纸上写出错误行代码和对应的正确代码，改对一处得一处分，改错不减分。注：要把整行写完整)1．下面的程序是利用随机函数产生10个1到30之间的随机整数，然后把产生的这计算机专业理论试题第11页共13页些整数放入数组b中，并按一定规那么放入数组a中。存放数组a中的规那么是：〔1〕如果产生的是1到9之间〔含1和9〕的数，那么直接放入数组a中。〔2〕如果产生的是大于9的数，那么按如下方法存放：偶数那么把十位数字放入数组a中，奇数那么把个位数字放入数组a中。如：假设产生的整数是：22，17，18，9，10，24，1，23，25，22。放入数组a中的数字是：2，7,1,9,1,2,1，3,5，2。程序中有两处错误，请将错误行和相应的正确行写在答题纸横线上。OptionBase1PrivateSubCommand1_Click()Dima(10)AsIntegerDimb(10)AsIntegerDimiAsIntegerDimnumAsIntegerFori=1To10num=Int(Rnd*30)b(i)=numIfnum>=1Andnum<10Thenb(i)=numElseIfnumMod2=0Thena(i)=num\10Elsea(i)=numMod10EndIfEndIfNextiFori=1To10Printb(i);NextiPrintFori=1To10Printa(i);"";NextiEndSub2．以下程序的功能是：产生一个3行4列的数组并赋值，再用Inputbox函数输入一个列号，然后对数组中的该列进行由小到大排列。如产生的数组是：221719102422325221813输入一个列号3221719102422325221813221718910241232522213程序中有两处错误,请将错误行和相应的正确行写在答题纸横线上。OptionBase1PrivateSubCommand1_Click()Dima(3,4)AsIntegerDimiAsInteger,jAsIntegerDimcolAsIntegerDimtAsIntegerFori=1To3Forj=1To4a(i,j)=20+Int(Rnd*30)Printa(i,j);NextjPrintNexticol=InputBox("col=")Fori=1To3Forj=2To4Ifa(i,col)>a(j,col)Thent=a(i,col)a(i,col)=a(j,col)a(j,col)=tEndIfNextjNextiPrintFori=1To3Forj=1To4Printa(i,j);NextjPrintNextiEndSub八、程序填空〔本大题共7个空，每空5分，共35分，按程序要求在答题纸上填入相应的内容，使程序完整正确〕1．(VisualBasic题)下面的程序是输入偶数个字符的字符串给变量c，然后从字符串两端分别截取字符赋给c1和c2，每次截取一个。如果是数字字符，那么按“前端截取放前、后端截取放后〞的方法存入数组a中；如果是其它字符，那么不存放。然后依次分别截取下一个字符，并用同样的方法处理，直到所有字符处理完为止。如输入的字符为12AB34C56D78，存入数组a中的顺序为1,8,2,7,6,3,5,4。最后显示出来。请在空白位置填写正确的代码。OptionBase1PrivateSubCommand1_Click()DimcAsStringDimc1AsStringDimc2AsStringDima(20)AsIntegerDimiAsIntegerDimjAsIntegerDimkAsIntegerc=InputBox("c=")j=Len(c):i=1k=1DoWhilei<jc1=Mid(c,i,1):c2=Mid(c,j,1)Ifc1>="0"Andc1<="9"Thena(k)=Val(c1):k=k+1Ifc2>="0"Andc2<="9"Thena(k)=Val(c2):k=k+1i=i+1:(1)______________________LoopPrintcFori=1To(2)_____________________________Printa(i);NextiEndSub2．(VisualBasic试题)窗体(运行后如下图)中有一个标签(名称为Label1)，用于显示其下方滚动条的Value值，滚动条〔名称为HS1〕最小值和最大值分别是1和5。滚动条下方是组合框〔名称为Combo1〕，显示内容如图及程序。滚动条右侧是列表框〔名称为List1〕，显示内容如图及程序。列表框下方是文本框〔名称为Text1〕，用于显示列表框中的某项内容，有一定时器控件，初始设置Timer1.Enabled为True，timer1.Interval=1000，定时器的Timer1_Timer事件功能是：〔1〕把组合框选定的值赋给滚动条的Value属性；〔2〕标签显示当前滚动条的值；〔3〕文本框显示与组合框中位置一致的列表框中的内容。窗体的Load事件是给组合框中添加1到5，给列表框中添加A到E，组合框显示第一项内容1。请在空白位置填写正确的代码。PrivateSubForm_Load()Combo1.AddItem"1"Combo1.AddItem"2"Combo1.AddItem"3"Combo1.AddItem"4"Combo1.AddItem"5"List1.AddItem"A"List1.Ad