2022年对口升学计算机专业试题 .pdf

计算机专业理论试题A 第 1 页 共 13 页计算机专业理论试题（A）注意事项：1本试卷共八道大题。总分240 分。2第 I 卷“一、选择题”、第 II 卷“二、判断题”的答案填涂在机读卡上，其余各题答案写在答题纸上，答在试卷上不得分。用蓝黑钢笔、碳素笔或圆珠笔答题。3答题前将密封线内项目填写清楚。第卷（选择题共 100 分）一、选择题（本大题共50 小题，每小题2 分，共 100 分。在每小题所给出的四个选项中，只有一个符合题目要求，将正确选项填涂在机读卡上 1 计算机处理数据过程中，是将存储介质上的数据调入到下列哪种硬件中进行数据处理.（A）A 内存 B硬盘 C光盘 D软盘 2 按照电子器件更新划分，大规模集成电路计算机是第几代.（D）A 一 B二 C三 D四 3 关于计算机软件描述错误的是.（D）A Windows 98 是操作系统，属于系统软件 B.Office2003是办公软件，属于应用软件 C 图像处理软件是处理图像工具，属于应用软件 D.DOS是操作系统，属于应用软件4二进制数小数0.1B 转换成十六进制数的结果是.（D）A 0.1 B0.4 C 0.6 D0.8 5下列关于计算机病毒防治叙述错误的是.（D）A 计算机要经常更新杀毒软件病毒库并定期查杀 B 计算机要安装软件防火墙，防止病毒侵入 C 来历不明的邮件文件不要打开，防止邮件中携带病毒 D 计算机鼠标、键盘要定期清洗，防止计算机病毒侵入6计算机最早应用于弹道运算属于.（A ）A 科学计算 B辅助技术 C数据处理 D 人工智能7 A文件长度为512KB，B文件长度是2MB，B文件长度是A文件多少倍.（D）A 8 B2 C.3 D4 8同一台计算机能够安装不同位数的操作系统，通常情况下，数据处理速度最慢的操作系统是.（D ）A64 位 B16 位 C 8 位 D32 位9在 Windows XP 中，当用鼠标左键在不同驱动器之间拖动文件时，系统默认的操作是.（C ）A移动 B.创建快捷方式 C.复制 D.无任何操作10在 Windows XP 中，利用“搜索”窗口查找文件时，不能用于文件查找的选项是.（D）A文件名 B文件修改日期 C文件大小 D文件读写的权限属性11在 Windows XP的“控制面板”中不能设置的项目是.（D）A日期和时间 B.添加或删除程序 C输入法 D.Outlook电子邮件账户12在 Word2003编辑状态下，编辑化学反应方程式Fe+2HClFeCl2+H2,必须使用的命令是.（B）A编辑-查找 B 字体-下标 C 插入-图示 D格式-段落13在 Word2003中，哪个命令不会出现在“表格”菜单里.（C）A公式 B排序 C 插入 D自动套用格式14在 Word2003文档中，选中“使用通配符”，在“多”与“体”之间只有一个字符，将所有“多”与“体”之间字符都替换为“媒”，最优的方法是.（A ）A查找“多?体”，替换成“多媒体”B查找“多体”，替换成“多媒体”C分别查找中间字符，替换成“媒”装订线内不要答题名师资料总结-精品资料欢迎下载-名师精心整理-第 1 页，共 13 页 -计算机专业理论试题A 第 2 页 共 13 页D查找“多*体”，替换成“多媒体”15在 Excel2003 文档中，对分数进行高级筛选，如果条件是“语文、数学、外语仅一门不及格”，则下述条件区域表示正确的是.（D）A BC D16打开 Excel2003 工作簿，在单元格中输入内容 2013-4-1，要在其下面单元格内连续出现“日”的递增,不正确的操作是 .（B）A选中内容单元格及要填充的区域，点击编辑菜单，选择填充-序列，选中按日期-日-确定B选中内容单元格，按住Ctrl键，然后拖动向下填充句柄进行填充C选中内容单元格，直接拖动向下填充句柄进行填充 D选中内容单元格，在下面填写“2013-4-2”，选中“2013-4-1”、“2013-4-2”两个单元格，拖动填充句柄进行填充17在 Excel2003 中，下列哪种操作不能输入条件表达式.（C）A高级筛选 B自动筛选 C分类汇总 D条件格式18在 Visual Basic 中，Print Len(ABab 河北)的值是.（B）A4 B.6 C.8 D.12 19在 Visual Basic 中，当窗体被装载时触发的事件是.（C）AUnload B.Click C.Load D.DblClick 20Visual Basic 中决定对象是否可见的属性是.（D）AEnabled BSee C.Name D.Visible 21 Visual Basic 中声明数组 Dim A(1 to 100,-3 to 4),则 Ubound(A,2)的值是（D）A.1 B.100 C.-3 D4 22关于 Visual Basic中控件属性的说法不正确是.（D）A控件都有Name属性 B有些控件有相同的属性C每个控件规定了一个默认属性，在对控件的这个属性进行操作时可不写属性名 D同一窗体中的同类控件，它们的属性值都一样23在 Visual Basic中，关于对象的说法正确的是.（D）A.程序运行时所有对象的位置不能改变 B.所有对象的大小都是可以改变的 C.对象在程序运行时都是可见的 D.有些对象中还可以包含其它对象24在 Visual Basic中，语句 Print Mid(ABCDEFG,2,3)=123的输出结果是.（A）A.False B.True C A123EFG D.123 25.下面 Visual Basic表达式不合法的是.（C）A.12+12 B.ab+12 C.ab+12 D.Now+1 26在 Visual Basic程序运行过程中可以用来输入文本的函数是.（B）A.Msgbox B.Inputbox C.Rnd D.文本框27执行下面Visual Basic程序，最后输出s 的值是 D Dim a As Integer,i As Integer Dim b As Integer,j As Integer Dim s As Integer a=5 b=10 s=0 For i=1 To a b=5 For j=1 To b s=s+b b=b-1 Next j Next i Print s A.15 B.30 C.45 D.75 28在 Visual FoxPro中，以下关于关系模型的叙述错误的是.（B）A构成关系模型的二维表中不允许有重复的字段名语文数学外语60 60 60 语文数学外语60 60 语文数学外语60 60 60 语文数学外语=60=60=60=60=60=60 C.D.-30下列关于Visual FoxPro中报表的叙述，正确的是.（D）A在报表设计器中每个带区的大小是不可以改变的B报表数据源只能是数据库表C如果报表需要按照某一字段值的大小顺序输出，则相应的表或视图必须按该关键字段索引D.报表的“页标头”带区的内容每条记录打印一次31在 Visual FoxPro中，以下关于视图的描述中正确的是.（A）A.视图和查询的最大区别在于视图可以对源表中的数据进行更新B.视图文件的扩展名为.pqr C.视图只能从一个表派生出来D.视图不能检查更新的合法性32在 Visual FoxPro中，项目文件的默认扩展名为.（B ）A.SCR B.PJX C.MPR D.MNX 33在 Visual FoxPro中，关于查询的叙述错误的是.（B）A.在查询设计器中的“杂项”选项卡中可以指定是否包含重复记录以及列在前面的记录个数或百分比B.查询结果保存在数据库中C.在查询去向中，临时表是将查询结果保存在一个临时表中，关闭表时自动清除D.查询设计器中，“筛选”选项卡的作用是指定查询记录的条件34在 Visual FoxPro中，建立索引的INDEX命令的参数中，表示建立唯一索引的是.（D）ACANDIDATE B.ASCENDING C.DISTINCT D.UNIQUE 35在 Visual FoxPro中，下列表达式中运算结果为“good”的是.（D）ASUBSTR(mygoodfriend,AT(good,mygoodfriend)B.SUBSTR(mygoodfriend,2,4)C.RIGHT(LEFT(mygoodfriend,6),4)D.LEFT(RIGHT(mygoodfriend,AT(good,mygoodfriend),4)36以下各项中哪个是数据通讯系统的主要技术指标.（C）A.压缩率 B.分辨率 C.传输速率 D.时钟主频37 下列计算机网络拓扑结构中，一般不在局域网中使用的是.（D）A.总线型结构 B.星型结构 C.环型结构 D.分布式结构38在通信系统中，把来自许多信号源的信号组合起来，再通过一条传输线路同时发送的技术称为.（B）A.多路分解 B.多路复用 C.并行通信 D.同步传输39在 TCP/IP 传输层的协议数据首部，依据下列哪个字段来确定通信双方主机内发送或接收数据的应用进程.（D）A.序号 B.确认号 C.IP 地址 D.端口号40 OSI 参考模型中，数据链路层处理的协议数据单元为.（D）A.数据段 B.比特 C.报文 D.数据帧41下列关于TCP/IP 协议描述错误的是.（D）A.起源于 ARPANET B.是目前 Internet事实上的国际标准和工业标准 C.TCP/IP协议的发展是先定义完整理论框架，再实现相应协议 D.网际层只提供无连接的数据报服务42下面关于TCP协议的特性描述错误的是.（D）A.面向连接 B.提供数据传输的可靠性保证 C.具有差错检验和流量控制功能 D.提供数据格式转换功能43在电子邮件服务中，邮件服务器之间转发邮件使用的协议是.（B）A HTTP BSMTP CPOP3 D IMAP 44 网络操作系统的基本任务是.（D）A.屏蔽本地资源与网络资源之间的差异 B.管理网络系统的共享资源 C.为用户提供基本的网络服务功能 D.以上全是名师资料总结-精品资料欢迎下载-名师精心整理-第 3 页，共 13 页 -计算机专业理论试题A 第 4 页 共 13 页45.在以太网中，设备之间使用非屏蔽双绞线进行连接，则设备的硬件接口是 .（B）A.RJ-11接口 B.RJ-45接口 C.BNC接口 D.AUI接口46.以下网络设备中，在 OSI 参考模型工作层次和网桥相同的是.（A）A.交换机 B.路由器 C.集线器 D.中继器47.WWW服务器的域名为，文件 file1.rar放置在服务器的根目录下，服务器的主目录为D:dir，则使用Internet Explorer浏览器访问该文件使用的 URL为.（B）Ahttp:/ Bhttp:/ Cftp:/ Dftp:/ 48“非对称数字用户线路”的简称是.（B）A ISBN BADSL CDDN DATM 49校园网内的一台计算机访问外部网络的服务器时，使用域名访问失败，而使用IP 地址访问成功，造成这种故障的原因可能是.（C）A 该计算机的网络断开 B 被访问的外部服务器网络断开 C 该计算机的DNS服务器设置有误 D 该计算机与DNS服务器不在同一子网50当前 Internet流行的 P2P（peer-to-peer，对等网络）模式的网络应用淡化了计算机网络服务提供者与服务使用者的界限。和传统的 C/S 模式的网络应用不同，P2P 模式以“非中心化”的方式使得更多的用户计算机同时身兼客户机与服务器的双重身份，将互联网推向了一个新的阶段。使用P2P模式进行通信的网络主机节点之间使用对等的方式，通过直接交换信息来共享计算机资源。以下网络应用使用P2P模式的是.（C）ADNS BWeb CBitTorrent DFTP 名师资料总结-精品资料欢迎下载-名师精心整理-第 4 页，共 13 页 -计算机专业理论试题A 第 5 页 共 13 页第卷（非选择题共 140 分）二、判断题（本大题 14 小题，每小题1 分，共 14 分。将答案填涂在机读卡上，正确的填涂“”格，错误的填涂“”格）1一般情况下，光盘比硬盘读取速度慢。（T）2计算机处理数据快慢和CPU主频无关。（F）3 在 Windows XP中，如果希望某个文件不能被删除，可将它的属性设置为“只读”。（T）4在 Windows XP 中，鼠标右键单击不同的对象，弹出的快捷菜单都是相同的。（F）5在 Word2003编辑状态下，可以对文字进行动态效果设置。（T）6 在 Word2003打印对话框中，打印“8 页至 18 页与 25 页”，在页码范围输入“8-18；25”。（F）7在 Excel2003 文档中，工作表删除后能够通过“撤销”操作恢复工作表。（F）8在 Excel2003 工作表中，不可以对没有合并过的单元格进行拆分。（F）9在 Visual Basic中，不同模块中的变量可以重名。（T）10在 Visual FoxPro中，使用 PACK命令将删除当前表中全部记录。（F）11全双工通信方式中，信息可以向两个相反方向传送，但是不能同时进行。（F）12计算机网络中，通信双方的对等层必须使用相同的协议。（F）13决定局域网性能的三要素是：网络拓扑、传输介质和介质访问控制方法。（T）14在数据通信中，将数字信号变换为模拟信号的过程称为解调。（F）三、填空题（本大题共13 小题，每小题2 分，共 26 分。请将答案填写在答题纸上）1 按照计算机所处理的信号进行分类，可以分为模拟式计算机和数字 式计算机。2中央处理器（CPU）包括运算器和控制器。3把二进制数10100100101B 转换成十六进制为525 H。4如果需要设置Windows XP中窗口的色彩方案、字体大小等属性，可用鼠标右键单击桌面空白处，在快捷菜单中选择“属性”选项打开“显示属性”对话框后，点击外观标签进行设置。5在 Word2003中，如果对表格中的数值进行计算，则需要点击“表格”下的排序。6在 Excel2003 表格中，A1=2,B1=3,C1=4,D1=5,E1=6,A2=7,B2=8,C2=9,D2=10,E2=11,A3=2,B3=3,C3=4,D3=5,E3=6，则 sum（A1：D2,B2：E3）结果为。7在 Visual Basic中，当设置文本框的PasswordChar 属性为*,程序运行后在文本框中输入 123，则用 Print输出文本框的内容时显示的是 123。（填写结果时不要加双引号）8Visual Basic表达式(10 8)Or(5 4)And(-3 6,1,-1)的输出是-1。11计算机网络协议的三要素中，用于定义每部分控制信息和数据所代表含义的是语义。12标准的 B类 IP 地址的网络地址部分为16位二进制值。13用户使用Windows XP 接入 Internet，需要配置的TCP IP 主要参数是IP 地址、子网掩码、默认网关和DNS。四、根据已知的环境与题意，写出相应的Visual FoxPro 操作命令或SQL语句，要求每小题用一条命令或语句完成（本大题共5 小题，每小题4 分，共 20 分，请填写在答题纸上）。现有数据库BOOKGL.DBC，其中包含表“books.dbf”，“books.dbf”结构为：图书编号(C,4)、书名(C,30)、出版社(C,20)、出版日期(D)、价格(N,8,2)、作者(C,10)，页数（N,4）。在相应数据库和表已打开的前提下，写出完成下述功能的命令。1 逻辑删除所有出版社为“清华大学出版社”、价格大于35 的记录。（用 Visual FoxPro 命令）名师资料总结-精品资料欢迎下载-名师精心整理-第 5 页，共 13 页 -计算机专业理论试题A 第 6 页 共 13 页2.以“图书编号”为关键字建立降序的候选索引，索引名为BH。(用 Visual FoxPro 命令）3将“books.dbf”中所有“页数”大于300 的图书“价格”增加10。（用 SQL语句）4在数据库BOOKGL.DBC 中建立表AUTHORS.DBF（作者编号（C,4)，作者姓名(C,10)，所在城市（C,20），联系电话（C,15），作者性别(C,2)），设置“作者编号”字段为主索引，并对“作者性别”字段的输入值限制为只能是“男”或“女”，否则提示“性别输入错误！”（用 SQL语句）5查询 books.dbf表中“价格”大于28 的记录，包括“书名”、“出版社”，“价格”字段内容，按“价格”字段降序排列，结果保存到文本文件GAO.txt 中（用 SQL语句）五、程序分析（本大题共2 小题，每小题5 分，共 10 分，读程序并分析结果，请填写在答题纸上）1运行下面的Visual Basic程序，输出结果中有几个偶数_6_ Private Sub Command1_Click()Dim a(10)As Integer Dim i As Integer Dim j As Integer Dim num As Integer For i=0 To 10 num=10+Int(11*Rnd)For j=0 To i If num=a(j)Then Exit For Next j If j i Then a(i)=num Else i=i-1 Next i For i=0 To 10 Print a(i);Next i End Sub 2有 Visual ForPro程序如下:程序的功能是计算用数学表达式描述!10!9!9!8!8!7!71!6!5!51!4!3!31!211CLEAR SS=0 AA=0 BB=0 FOR I=1 TO 10 FL=0 J=2 DO WHILE J=SQRT(I)AND FL=0 IF I%J=0 FL=1 ELSE J=J+1 ENDIF ENDDO IF FL=0 DO MM WITH AA,I SS=SS-1/AA ELSE DO MM WITH AA,I 名师资料总结-精品资料欢迎下载-名师精心整理-第 6 页，共 13 页 -计算机专业理论试题A 第 7 页 共 13 页 DO MM WITH BB,I-1 SS=SS+BB/AA ENDIF ENDFOR?SS PROCEDURE MM PARAMETERS S,N X=1 P=1 DO WHILE X=N P=P*X X=X+1 ENDDO S=P RETURN ENDPROC 六、写出下列程序的运行结果（本大题共5 小题，每小题5 分，共 25 分，请填写在答题纸上）1分析下面Visual Basic程序段。窗体中有一命令按钮（名称为C6_1）。(5 分)Private Sub C6_1_Click()Dim i As Integer Dim j As Integer Dim w As Integer a=Array(1,2,3,4)b=Array(5,6,7,8)For i=0 To 3 w=w+fu(a(i),b(i)w=w+a(i)Next i Print w End Sub Private Function fu(ByVal x As Integer,ByVal y As Integer)Static k As Integer k=k+1 x=x+y y=x-y x=x-y fu=k End Function 窗体启动后单击命令按钮，输出w的值为20。2下面 Visual Basic程序段，是对顺序文件进行操作。(5 分)Open c6_2.txt For Output As#1 Print#1,k1;k2;k3 Print#1,12;34;56 Print#1,p1;p2;p3 Print#1,88;99;77 Close#1 Open c6_2.txt For Input As#1 Seek#1,10 Line Input#1,score Print score Close#1 程序运行后，Print score 输出结果是23456 。3在 Visual FoxPro的表单上添加两个文本框，一个Name属性为：Text1，另一个 Name属性为：Text2，添加一个命令按钮，其Name属性为：Command1，Caption属性为：确定。Command1 的 Click事件代码如下：xa=VAL(TRIM(ThisForm.Text1.value)n=LEN(TRIM(ThisForm.Text1.value)DIMENSION aa(n)名师资料总结-精品资料欢迎下载-名师精心整理-第 7 页，共 13 页 -计算机专业理论试题A 第 8 页 共 13 页DIMENSION bb(n)FOR i=n TO 1 step-1 aa(i)=xa%10 xa=INT(xa/10)ENDFOR nm=0 FOR i=1 TO n IF aa(i)%20 nm=nm+1 bb(nm)=aa(i)ENDIF ENDFOR FOR i=1 TO nm bb(i)=bb(i)+5 bb(i)=bb(i)%10 ENDFOR FOR i=1 TO INT(nm/2)t=bb(i)bb(i)=bb(nm-i+1)bb(nm-i+1)=t ENDFOR t=0 FOR i=1 TO nm t=t*10+bb(i)ENDFOR ThisForm.Text2.value=STR(t)运行上面的表单，在 Text1 文本框中输入：23456789，单击“确定“按钮，在 Text2文本框中显示的是 4208。第 4、5 题使用下面的数据库设有数据库文件BGGL.DBC，包含 3 个表，分别是 KEFANG、RUZHU、KEHU。其中 KEFANG的结构为：客房号(C，4)、类型(C，10)、价格(N，4，0)，RUZHU 的结构为：客房号(C，4)、客户号(C，4)、入住日期(D)，退房日期（D）,KEHU的结构为：客户号(C，4)、姓名(C，8)、性别(C，2)、工作单位（C，20）；各表中数据如下：KEFANG.DBF 记录号客房号类型价格1 1101 普通客房 280 2 1102 贵宾客房 500 3 1201 总统套房 2000 4 1202 总统套房 1500 5 1301 普通客房 280 6 1302 贵宾客房 600 RUZHU.DBF 记录号客房号客户号入住日期退房日期1 1101 1001 03/25/05 03/28/05 2 1102 1002 03/27/05 03/29/05 3 1201 1003 03/28/05 04/05/05 4 1202 2001 03/27/05 03/31/05 5 1301 2002 03/23/05 04/01/05 KEHU.DBF 记录号客户号姓名性别工作单位1 1001 王林男 AA商贸公司2 1002 刘月明女 BB电子公司3 1003 姚晓敏女 CC农产品公司4 2001 肖敏女 DD商贸公司5 2002 黄小兵男 EE电子公司4.有如下 Visual FoxPro程序：OPEN DATABASE BGGL USE KEHU ACCEPT 请输入客户姓名：TO XM INDEX ON 姓名 TAG XMH OF XM SEEK XM KEHUH=客户号名师资料总结-精品资料欢迎下载-名师精心整理-第 8 页，共 13 页 -计算机专业理论试题A 第 9 页 共 13 页SELECT 1 USE RUZHU GO TOP DO WHILE NOT EOF()IF 客户号=KEHUH KEFANGH=客房号 NM=退房日期-入住日期+1 SELECT 2 USE KEFANG DO WHILE NOT EOF()IF 客房号=KEFANGH S=价格*NM EXIT ENDIF SKIP ENDDO EXIT ENDIF SKIP ENDDO?S 运行上面的程序，输入“姚晓敏”，显示的结果是：18000。5.有如下 Visual FoxPro程序：（代码中行末的分号为逻辑行连接符）OPEN DATABASE BGGL ACCEPT 请输入客房类型名：TO KFLX SELECT 客房号 FROM KEFANG WHERE 类型=KFLX INTO DBF KF ALTER TABLE KF ADD XX C(8)ALTER TABLE KF ADD TH N(3,0)SELECT RUZHU.客房号 AS 客房号,KEHU.姓名 AS 姓名,(RUZHU.退房日期;-RUZHU.入住日期+1)AS 天数 FROM RUZHU,KEHU WHERE RUZHU.客户号=;KEHU.客户号 INTO DBF KH USE KH DO WHILE NOT EOF()KFH=客房号 XM=姓名 TSH=天数 UPDATE KF SET XX=XM,TH=TSH WHERE 客房号=KFH SKIP ENDDO SELECT KEFANG.类型,KEFANG.客房号,KF.XX,TH*KEFANG.价格 AS TJ;FROM KEFANG,KF WHERE KEFANG.客房号=KF.客房号 INTO DBF JG USE JG DO WHILE NOT EOF()?客房号,XX,TJ SKIP ENDDO 1101 王林 840运行上面的程序，输入“普通客房”，显示的结果是：1301 黄小兵 2520。七、Visual Basic程序改错(本大题共有两个小题，每题5 分，共 10 分，每个程序有两个错误行，请在答题纸上写出错误行和对应的正确行，改对一处得一处分，改错不扣分)1下面的程序是利用随机函数产生10 个 10 到 100 之间的随机整数，并按由小到大的顺序放入数组a 中。(提示：题目中的语句Goto x 是转移到标号x 位置执行)程序中有两处错误，请将错误行和相应的正确行写在答题纸横线上。Dim a(10)As Integer Dim num As Integer Dim i As Integer Dim j As Integer Dim k As Integer For i=1 To 10 k=i num=10+Int(Rnd*91)For j=1 To i-1 If num a(j)Then GoTo 20 名师资料总结-精品资料欢迎下载-名师精心整理-第 9 页，共 13 页 -计算机专业理论试题A 第 10 页 共 13 页 Next j a(i)=num 10:Next i GoTo 30 20:For m=k To j M=K TO J-1 STEP-1 a(m+1)=a(m)A（M）=A（M-1）Next m a(j)=num GoTo 10 30:For i=1 To 10 Print a(i);Next i Print 2窗体中（如图所示）有一个定时器控件（名称Timer1），有三个标签（Caption 属性分别是滚动条、组合框、列表框），一个滚动条（名称HS1，Min 和 Max的属性初值分别为 0 和 5，Value 初值为 0），一个组合框（名称Combo1），一个列表框（名称List1），组合框和列表框初始为空，一个框架，框架中有两个复选框（名称分别为Check1 和Check2，Caption 属性如图所示）。程序的功能是：窗体启动后，定时器开始工作，工作时每隔3 秒钟触发一次事件，Timer 事件中完成4项工作：（1）滚动条的值加1；（2）往组合框中添加滚动条的Value值；（3）调用 Combo1_Change 过程；（4）当滚动条的值为5 时定时器停止工作。在Combo1_Change 过程中，要将滚动条当前值加上复选框中当时所有选中项的标题添加到列表框中，Combo1_Change 过程中只给出了部分程序，省略的程序都是正确的。程序中有两处错误,请将错误行和相应的正确行写在答题纸横线上。Private Sub Combo1_Change()List1.AddItem HS1.Value If Check1.Value=True Then 1List1.List(HS1.Value-1)=List1.List(HS1.Value-1)+Check1.Caption End If End Sub Private Sub Timer1_Timer()HS1.Value=HS1.Value+1 Combo1.AddItem HS1.Value Combo1_Change If HS1.Value=5 Then Timer1.Visible=False ENABLEEnd Sub 八、程序填空（本大题共7 个空，每空5 分，共 35 分，按程序要求在答题纸上填入相应的内容，使程序完整正确）1下面程序运行时输入长度少于20 个字符的字符串，以“#”结束，然后对字符串从左端进行处理。处理方式：把数字和非数字内容分别放入两个数组，数组a 存放数字，数组 b 存放非数字，存放时把相邻的数字或非数字内容作为一个整体进行存放，如输入的字符串为“12abc3d456ef#”,则 12、3、456 分别存放到数组a 的前三个元素中，”abc”中，”abc”、”d”、”ef”分别存放到数组b 的前三个元素中。请填空。(Visual Basic题)Dim a(20)As Integer Dim b(20)As String Dim c As String Dim i As Integer Dim j As Integer 名师资料总结-精品资料欢迎下载-名师精心整理-第 10 页，共 13 页 -计算机专业理论试题A 第 11 页 共 13 页Dim w1 As String Dim w2 As String Dim m As Integer Dim n As Integer c=InputBox(请输入 c$=,输入数据)c=Trim(c)w1=Left(c,1)c=Mid(c,2)Do While w1#If w1=0 And w1=0 And w2=9 And w2#w1=w1*10+w2 w2=Mid(c,1,1)c=Mid(c,2)Loop a(i)=w1 i=i+1 (1)_W1=W2 _ w2=Left(c,1)c=Mid(c,2)Do While Not(w2=0 And w2=9)And w2#w1=w1+w2 w2=Left(c,1)c=Mid(c,2)Loop b(j)=w1 j=j+1 End If w1=w2 Loop If w1=0 And w1=0 And w2=9)_ Then b(j)=w1 j=j+1 End If End If For m=0 To i-1 Print a(m);Next m For n=0 To j-1 Print b(n);Next n 2、窗体中(如图所示)有五个标签，分别显示了姓名，照片，滚动条，个人信息四项提示信息，还有一个标签(Label5)在图中显示的是“年龄是：12”；一个文本框（名称为 Text1），用来输入多个姓名；一个图片框在窗体中显示的是一动物图片；一个框架，框架中有两个单选按钮（名称分别为Option1，Option2）用来选择性别；一个列表框（名称为List1）用来显示个人信息；一个滚动条（名称为HS1）；一个命令按钮。当移动滚动条后在Label5 上显示滚动条的值作为年龄的信息。当单击命令按钮后将把选中的姓名、性别、滚动条移动产生的值作为年龄在列表框中显示出来，并根据选择的姓名把此人的照片（以姓名作为照片的名字，扩展名为bmp）在图片框中显示出来。不完整的空白位置请写出正确的内容(Visual Basic题)。名师资料总结-精品资料欢迎下载-名师精心整理-第 11 页，共 13 页 -计算机专业理论试题A 第 12 页 共 13 页Private Sub Command1_Click()Dim xm As String xm=Text1._(3)_SELTEXT_ _ Picture1.Picture=LoadPicture(d:&xm&.bmp)List1.AddItem 姓名：+xm If Option1.Value=True Then List1.AddItem 性别:+Option1.Caption If Option2.Value=True Then List1.AddItem 性别:+Option2.Caption List1.AddItem 年龄：+Str(HS1.Value)End Sub Private Sub HS1_Change()_(4)_LABEL5.CAPTION _=年龄是：&HS1.Value End Sub 3已知有“STUDENT.DBC”数据库，其中包含三个表：USER、XUESHENG和 CHENGJI，其中 USER 表的结构为：用户名(C，10)、权限(C，4)，XUESHENG表的结构为：学号(C，10)、姓名(C，8)，CHENGJI表的结构为：学号(C，10)、数学(N，5，1)、英语(N，5，1)、信息技术(N，5，1)，设计应用程序界面如下：设置控件属性如下：有三个标签，其Name属性分别为Label1、Label2 和 Label3，Caption属性分别为“用户名：”、“学号：”、“结果：”。有三个文本框，其Name 属性分别为Text1、Text2、Text3，一个命令按钮，Name属性为 Command1，Caption 属性为“确定”。编写 Visual FoxPro程序实现下述功能：在 Text1 文本框中输入用户名,单击“确定”按钮，如果用户不存在，在Text1文本框中显示“用户不存在，请重新输入!”；如果用户存在，则根据权限的不同进行不同的操作：如果“权限”是“查询”，则标签 Label2 的 Caption变成“学号”，“确定”按钮变成“查询”按钮（命令按钮的Caption变成“查询”）；如果“权限”是“统计”，则标签 Label2 的 Caption变成“班级”，“确定”按钮变成“统计”按钮（命令按钮的Caption变成“统计”）。在 Text2 文本框中输入学号，单击“查询”按钮，如果该学号存在，则在Text3文本框中显示学生的姓名，数学，英语，信息技术字段的值；如果不存在，则在Text3文本框中显示“没找到！”；在 Text2 文本框中输入班级(班级是学号的前8 位)，单击“统计”按钮，如果班级存在，则在Text3 文本框中显示班级、该班级数学的平均分、该班级英语的平均分以及该班级信息技术的平均分；如果不存在，则在 Text3 文本框中显示“该班级不存在!”。Command1 的 Click事件代码如下，请在空白位置填写正确的命令。（代码中行末的分号为逻辑行连接符）(5)mm=trim(mand1.caption)SHURU=TRIM(ThisForm.Text2.Value)OPEN DATABASE STUDENT DO CASE CASE MM=确定 SELECT*FROM USER WHERE 用户名=TRIM(ThisForm.Text1.Value)INTO DBF YH USE YH GO TOP IF EOF()THEN ThisForm.Text1.Value=用户不存在，请重新输入!ELSE (6)if 权限=”查询”名师资料总结-精品资料欢迎下载-名师精心整理-第 12 页，共 13 页 -计算机专业理论试题A 第 13 页 共 13 页 ThisForm.Command1.Caption=查询 ThisForm.Label2.Caption=学号 ELSE ThisForm.Command1.Caption=统计 ThisForm.Label2.Caption=班级 ENDIF ENDIF (7)case mm=”查询”SELECT XUESHENG.姓名,CHENGJI.数学,CHENGJI.英语,CHENGJI.信息技术;FROM XUESHENG,CHENGJI WHERE XUESHENG.学号=SHURU AND XUESHENG.学号=;CHENGJI.学号 INTO