当前位置:首页 >> 其它课程 >>

2013年河北省对口升学计算机专业试题(带答案,已修正排版)


2013 年河北省普通高等学校对口招生考试

计算机专业理论试题(A)
注意事项: 1.本试卷共八道大题。总分 240 分。 2.第 I 卷“一、选择题” 、第 II 卷“二、判断题”的答案填涂在机读卡上,其余各题答案写在答题纸上,答在试卷上不得分。用蓝黑钢笔、碳素笔或圆珠笔答题。 3.答题前将密封线内项目填写清楚。

第Ⅰ卷(选

择题

共 100 分)

A.8

B.2

C.3

D.4 )

装 订 线 内 不 要 答 题

一、选择题(本大题共 50 小题,每小题 2 分,共 100 分。在每小题所给出的四个选 项中,只有一个符合题目要求,将正确选项填涂在机读卡上 1.计算机处理数据过程中,是将存储介质上的数据调入到下列哪种硬件中进行数 据处理......................................................( A ) A.内存 A.一 B.硬盘 B.二 C.光盘 C.三 D.软盘 ) ) D.四 2. 按照电子器件更新划分, 大规模集成电路计算机是第几代. ......... ( D 3. 关于计算机软件描述错误的是................................... ( D A.Windows 98 是操作系统,属于系统软件 B. Office2003 是办公软件,属于应用软件 C.图像处理软件是处理图像工具,属于应用软件 D. DOS 是操作系统,属于应用软件 4.二进制数小数 0.1B 转换成十六进制数的结果是....................( D A.0.1 B.0.4 C.0.6 D.0.8 ) 5.下列关于计算机病毒防治叙述错误的是...........................( D A.计算机要经常更新杀毒软件病毒库并定期查杀 B.计算机要安装软件防火墙,防止病毒侵入 C.来历不明的邮件文件不要打开,防止邮件中携带病毒 D.计算机鼠标、键盘要定期清洗,防止计算机病毒侵入 6.计算机最早应用于弹道运算属于.................................( A A.科学计算 B.辅助技术 C.数据处理 D.人工智能 ) 7. A 文件长度为 512KB, B 文件长度是 2MB, B 文件长度是 A 文件多少倍..... ( D ) )

8.同一台计算机能够安装不同位数的操作系统,通常情况下,数据处理速度最慢的操 作系统是........................................................ ( D A.64 位 B.16 位 C.8 位 D.32 位 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+2HCl=FeCl2+H2↑,必须使用的 命令是......................................................... ( B A.编辑-查找 B.字体-下标 C.插入-图示 D.格式-段落 13. 在 Word2003 中, 哪个命令不会出现在 “表格” 菜单里............... .. ( C ) )

A.公式 B.排序 C.插入 D.自动套用格式 14.在 Word2003 文档中,选中“使用通配符” ,在“多”与“体”之间只有一个字符, 将所有“多”与“体”之间字符都替换为“媒” ,最优的方法是.........( A ) A.查找“多?体” ,替换成“多媒体” B.查找“多×体” ,替换成“多媒体” C.分别查找中间字符,替换成“媒” D.查找“多*体” ,替换成“多媒体”

计算机专业理论试题 A

第 1 页 共 13 页

15.在 Excel2003 文档中,对分数进行高级筛选,如果条件是“语文、数学、外语 仅一门不及格” ,则下述条件区域表示正确的是....................( A. 语文 >60 C. 语文 <60 >=60 >=60 数学 >=60 <60 >=60 外语 >=60 >=60 <60 数学 >60 外语 <60 D. 语文 <60 <60 <60 数学 外语 B. 语文 <60 数学 >60 外语 >60 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 A. "12"+12 A. Msgbox B. True B. "ab"+"12" B. Inputbox C.A123EFG C."ab"+12 C. Rnd D. 123 ) ) D.Now+1 D. 文本框 D 25.下面 Visual Basic 表达式不合法的是.............................( C ) )

16.打开 Excel2003 工作簿,在单元格中输入内容 2013-4-1,要在其下面单元格内连 续出现 “日” 的递增,不正确的操作是. . . ............................. ( B -日-确定 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 ) A.4 B. 6 C. 8 D.12 19.在 Visual Basic 中,当窗体被装载时触发的事件是..................( C ) A.Unload B.Click C.Load D.DblClick 20.Visual Basic 中决定对象是否可见的属性是..................... ...( D ) A.Enabled B.See 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 D.4 ) 22.关于 Visual Basic 中控件属性的说法不正确是....................( D ) A.选中内容单元格及要填充的区域,点击编辑菜单,选择填充-序列,选中按日期

26.在 Visual Basic 程序运行过程中可以用来输入文本的函数是.. .....( B 27.执行下面 Visual Basic 程序,最后输出 s 的值是 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 A.构成关系模型的二维表中不允许有重复的字段名 B.构成关系模型的二维表中同一列数据可以有不同的数据类型

D. 75 )

28.在 Visual FoxPro 中,以下关于关系模型的叙述错误的是...........( B

计算机专业理论试题 A

第 2 页 共 13 页

C.构成关系模型的二维表中不允许有完全相同的记录 D.在关系模型中数据被组织成二维表 29.在 Visual FoxPro 中,定义菜单标题,设置菜单访问键时,需要在访问键代表字母 前加字符....................................................( A. \B. >\ C. \< D. -\ D ) 30.下列关于 Visual FoxPro 中报表的叙述,正确的是................( A.在报表设计器中每个带区的大小是不可以改变的 B.报表数据源只能是数据库表 C.如果报表需要按照某一字段值的大小顺序输出,则相应的表或视图必须按该关 键字段索引 D. 报表的“页标头”带区的内容每条记录打印一次 31.在 Visual FoxPro 中,以下关于视图的描述中正确的是...........( A. 视图和查询的最大区别在于视图可以对源表中的数据进行更新 B. 视图文件的扩展名为 .pqr C. 视图只能从一个表派生出来 D. 视图不能检查更新的合法性 32.在 Visual FoxPro 中,项目文件的默认扩展名为.................( B A. .SCR B. .PJX C. .MPR D. .MNX B ) 33.在 Visual FoxPro 中,关于查询的叙述错误的是.................( 的记录个数或百分比 B. 查询结果保存在数据库中 C. 在查询去向中,临时表是将查询结果保存在一个临时表中,关闭表时自动清除 D. 查询设计器中,“筛选”选项卡的作用是指定查询记录的条件 34.在 Visual FoxPro 中,建立索引的 INDEX 命令的参数中,表示建立唯一索 引的是.....................................................( A.CANDIDATE B. ASCENDING C. DISTINCT D ) D. UNIQUE D ) ) A ) A )

D. LEFT(RIGHT("mygoodfriend",AT("good","mygoodfriend")),4) 36.以下各项中哪个是数据通讯系统的主要技术指标....................( C A. 压缩率 A. 总线型结构 B. 分辨率 B. 星型结构 C. 传输速率 C. 环型结构 D. 时钟主频 D. 分布式结构 ) )

37. 下列计算机网络拓扑结构中, 一般不在局域网中使用的是.............. ( D ) 38.在通信系统中,把来自许多信号源的信号组合起来,再通过一条传输线路同时发送 的技术称为... ................................................ (B A. 多路分解 B. 多路复用 C. 并行通信 D. 同步传输 ) D ) )

39.在 TCP/IP 传输层的协议数据首部,依据下列哪个字段来确定通信双方主机内发送 或接收数据的应用进程... ... .................................... ( D A. 序号 A. 数据段 A. 起源于 ARPANET B. 是目前 Internet 事实上的国际标准和工业标准 C. TCP/IP 协议的发展是先定义完整理论框架,再实现相应协议 D. 网际层只提供无连接的数据报服务 42.下面关于 TCP 协议的特性描述错误的是............................. ( D A. 面向连接 B. 提供数据传输的可靠性保证 C. 具有差错检验和流量控制功能 D. 提供数据格式转换功能 43.在电子邮件服务中,邮件服务器之间转发邮件使用的协议是..........( B A.HTTP B.SMTP C.POP3 D.IMAP ) 44. 网络操作系统的基本任务是....................................... ( D A. 屏蔽本地资源与网络资源之间的差异 B. 管理网络系统的共享资源 C. 为用户提供基本的网络服务功能 D. 以上全是 45. 在以太网中,设备之间使用非屏蔽双绞线进行连接,则设备的硬件接口是 ) ) B. 确认号 B. 比特 C. IP 地址 C. 报文 D. 端口号 D. 数据帧 40. OSI 参考模型中, 数据链路层处理的协议数据单元为.... ............. ( 41.下列关于 TCP/IP 协议描述错误的是................................( D

A. 在查询设计器中的“杂项”选项卡中可以指定是否包含重复记录以及列在前面

35.在 Visual FoxPro 中,下列表达式中运算结果为“good”的是.....( A.SUBSTR("mygoodfriend",AT("good","mygoodfriend")) B. SUBSTR("mygoodfriend",2,4) C. RIGHT(LEFT("mygoodfriend",6),4)

计算机专业理论试题 A

第 3 页 共 13 页

.............................................................. ( B A. RJ-11 接口 A. 交换机 B. RJ-45 接口 B. 路由器 C. BNC 接口 C. 集线器 D. AUI 接口 46. 以下网络设备中,在 OSI 参考模型工作层次和网桥相同的是......... ( A D. 中继器 47. WWW 服务器的域名为 ftp.hevttc.edu.cn,文件 file1.rar 放置在服务器的根目 录下,服务器的主目录为 D:\dir,则使用 Internet Explorer 浏览器访问该文件 使用的 URL 为....................................................( B A.http://ftp.hevttc.edu.cn/dir/file1.rar B.http://ftp.hevttc.edu.cn/file1.rar C.ftp://ftp.hevttc.edu.cn/file1.rar D.ftp://ftp.hevttc.edu.cn/dir/file1.rar 48. “非对称数字用户线路”的简称是.................................( B A.ISBN B.ADSL C.DDN D.ATM C

) )

2.计算机处理数据快慢和 CPU 主频无关。

( F ( T ( F

) ) ) ) ) ) ) ) ) ) ) ) )

3. 在 Windows XP 中, 如果希望某个文件不能被删除, 可将它的属性设置为 “只读” 。 4.在 Windows XP 中,鼠标右键单击不同的对象,弹出的快捷菜单都是相同的。 5.在 Word2003 编辑状态下,可以对文字进行动态效果设置。 ) 25” 。 ( T ( F ( F 8.在 Excel2003 工作表中,不可以对没有合并过的单元格进行拆分。 ( F ) 9.在 Visual Basic 中,不同模块中的变量可以重名。 ( T 10.在 Visual FoxPro 中,使用 PACK 命令将删除当前表中全部记录。 ( F 11.全双工通信方式中,信息可以向两个相反方向传送,但是不能同时进行。 ( F 12.计算机网络中,通信双方的对等层必须使用相同的协议。 ( F ( T 14.在数据通信中,将数字信号变换为模拟信号的过程称为解调。 ( F 三、填空题(本大题共 13 小题,每小题 2 分,共 26 分。请将答案填写在 答题纸上) 1. 按照计算机所处理的信号进行分类, 可以分为模拟式计算机和 数字 式计算机。 2.中央处理器(CPU)包括运算器和 控制 器。 H。 3.把二进制数 10100100101B 转换成十六进制为 525 13.决定局域网性能的三要素是:网络拓扑、传输介质和介质访问控制方法。 )

6. 在 Word2003 打印对话框中, 打印 “8 页至 18 页与 25 页” , 在页码范围输入 “8-18; 7.在 Excel2003 文档中,工作表删除后能够通过“撤销”操作恢复工作表。

49.校园网内的一台计算机访问外部网络的服务器时,使用域名访问失败,而使用 IP 地址访问成功,造成这种故障的原因可能是........................( A.该计算机的网络断开 B.被访问的外部服务器网络断开 C.该计算机的 DNS 服务器设置有误 D.该计算机与 DNS 服务器不在同一子网 50.当前 Internet 流行的 P2P(peer-to-peer,对等网络)模式的网络应用淡化了计 算机网络服务提供者与服务使用者的界限。和传统的 C/S 模式的网络应用不同,P2P 模式以“非中心化”的方式使得更多的用户计算机同时身兼客户机与服务器的双重 身份,将互联网推向了一个新的阶段。使用 P2P 模式进行通信的网络主机节点之间 使用对等的方式,通过直接交换信息来共享计算机资源。以下网络应用使用 P2P 模 式的是.........................................................( C A.DNS B.Web C.BitTorrent D.FTP )

4.如果需要设置 Windows XP 中窗口的色彩方案、字体大小等属性,可用鼠标右键 单击桌面空白处,在快捷菜单中选择“属性”选项打开“显示 属性”对话框后, 点击 的 ( T ) 外观 排序 。 标签进行设置。 5.在 Word2003 中,如果对表格中的数值进行计算,则需要点击“表格”下 6.在 Excel2003 表格中,A1=2,B1=3,C1=4,D1=5,E1=6,A2=7,B2=8,C2=9,D2=10,

第Ⅱ卷(非选择题 共 140 分)
二、判断题(本大题 14 小题,每小题 1 分,共 14 分。将答案填涂在机读卡上,正 确的填涂“√”格,错误的填涂“×”格) 1.一般情况下,光盘比硬盘读取速度慢。

计算机专业理论试题 A

第 4 页 共 13 页

E2=11,A3=2,B3=3,C3=4,D3=5,E3=6,则 sum(A1:D2,B2:E3)结果为 104 。 7.在 Visual Basic 中,当设置文本框的 PasswordChar 属性为"*",程序运行后在 文本框中输入"123", 则用 Print 输出文本框的内容时显示的是 (填写结果时不要加双引号) 8.Visual Basic 表达式(10 < 8) And (10 > 8) Or (5 > 4) And (-3 < 3)的值 是 True 。 rowsouce 。 5.查询 books.dbf 表中 “价格”大于 28 的记录,包括“书名” 、 “出版社” , “价格” 字段内容,按“价格”字段降序排列,结果保存到文本文件 GAO.txt 中 (用 SQL 语句) 。 16 位二进制值。 五、程序分析(本大题共 2 小题,每小题 5 分,共 10 分,读程序并分析结果,请填写 在答题纸上) 1.运行下面的 Visual Basic 程序,输出结果中有几个偶数______6___ Private Sub Command1_Click() Dim a(10) As Integer Dim i As Integer Dim j As Integer 现有数据库 BOOKGL.DBC,其中包含表“books.dbf” , “books.dbf”结构为: 图书编号(C,4)、书名(C,30)、出版社(C,20)、出版日期(D)、价格(N,8,2)、作者 (C,10),页数(N,4) 。在相应数据库和表已打开的前提下,写出完成下述功能的命 令。 1. 逻辑删除所有出版社为 “清华大学出版社” 、 价格大于 35 的记录。 (用 Visual FoxPro 命令) 2. 以“图书编号”为关键字建立降序的候选索引,索引名为 BH。(用 Visual FoxPro 命令) 3.将“books.dbf”中所有“页数”大于 300 的图书“价格”增加 10。 (用 SQL 语句) 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 9. 在 Visual FoxPro 中, 用于指定组合框中数据来源的属性是 -1 是 语义 。 123 。 4.在数据库 BOOKGL.DBC 中建立表 AUTHORS.DBF(作者编号(C,4),作者姓名 (C,10),所在城市(C,20) ,联系电话(C,15) ,作者性别(C,2)) ,设置“作者编号” 字段为主索引,并对“作者性别”字段的输入值限制为只能是“男”或“女” ,否 则提示“性别输入错误! ” (用 SQL 语句)

10.在 Visual FoxPro 中,? IIF(len(rtrim("my " -"book"))>6,1,-1) 的输出是 11.计算机网络协议的三要素中,用于定义每部分控制信息和数据所代表含义的 12.标准的 B 类 IP 地址的网络地址部分为 址、 子网掩码

13.用户使用 Windows XP 接入 Internet,需要配置的 TCP/IP 主要参数是 IP 地 、默认网关和 DNS。 四、根据已知的环境与题意,写出相应的 Visual FoxPro 操作命令或 SQL 语句,要 求每小题用一条命令或语句完成(本大题共 5 小题,每小题 4 分,共 20 分,请填 写在答题纸上) 。

计算机专业理论试题 A

第 5 页 共 13 页

2.有 Visual ForPro 程序如下:程序的功能是计算用数学表达式描述

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

1 1 3! 1 5! 1 7! 8! 9! ?1? ? ? ? ? ? ? ? ? 2! 3! 4! 5! 6! 7! 8! 9! 10!
CLEAR 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 DO MM WITH BB,I-1 SS=SS+BB/AA ENDIF ENDFOR ?SS

计算机专业理论试题 A

第 6 页 共 13 页

k = k + 1 x = x + y y = x - y x = x - y fu = k End Function 窗体启动后单击命令按钮,输出 w 的值为 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) DIMENSION bb(n) FOR i=n TO 1 step -1 aa(i)=xa % 10 xa=INT(xa/10) ENDFOR 20 。 2.下面 Visual Basic 程序段,是对顺序文件进行操作。(5 分)

nm=0 FOR i=1 TO n IF aa(i) % 2<>0 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

计算机专业理论试题 A

第 7 页 共 13 页

2 3 4 5 6

1102 1201 1202 1301 1302

贵宾客房 总统套房 总统套房 普通客房 贵宾客房 客户号 1001 1002 1003 2001 2002 姓名 王林 刘月明 姚晓敏 肖敏 黄小兵

500 2000 1500 280 600 入住日期 03/25/05 03/27/05 03/28/05 03/27/05 03/23/05 性别 男 女 女 女 男 退房日期 03/28/05 03/29/05 04/05/05 03/31/05 04/01/05 工作单位 AA 商贸公司 BB 电子公司 CC 农产品公司 DD 商贸公司 EE 电子公司 ?S

KEFANGH=客房号 NM=退房日期-入住日期+1 SELECT 2 USE KEFANG DO WHILE NOT EOF() IF 客房号=KEFANGH S=价格*NM EXIT ENDIF SKIP ENDDO EXIT ENDIF SKIP ENDDO 运行上面的程序,输入“姚晓敏” ,显示的结果是: 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=天数 18000 。

RUZHU.DBF 记录号 客房号 1 2 3 4 5 1101 1102 1201 1202 1301

KEHU.DBF 记录号 客户号 1 2 3 4 5 1001 1002 1003 2001 2002

5. 有如下 Visual FoxPro 程序: (代码中行末的分号为逻辑行连接符)

4. 有如下 Visual FoxPro 程序: OPEN DATABASE BGGL USE KEHU ACCEPT "请输入客户姓名:" TO XM INDEX ON 姓名 TAG XMH OF XM SEEK XM KEHUH=客户号 SELECT 1 USE RUZHU GO TOP DO WHILE NOT EOF() IF 客户号=KEHUH

计算机专业理论试题 A

第 8 页 共 13 页

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 2520 。 运行上面的程序,输入“普通客房” ,显示的结果是: 1301

20: For m = k To j a(m + 1) = a(m) 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 时定时器停止工作。在 M=K TO J STEP -1 A(M)=A(M-1)

七、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 Next j a(i) = num 10: Next i GoTo 30

Combo1_Change 过程中,要将滚动条当前值加上复选框中当时所有选中项的标题添加到 列表框中,Combo1_Change 过程中只给出了部分程序,省略的程序都是正确的。 程序中有两处错误, 请将错误行和相应的正确行写在答题纸横线上。

计算机专业理论试题 A

第 9 页 共 13 页

Private Sub Combo1_Change() List1.AddItem HS1.Value If Check1.Value = True Then 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 End 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 Dim w1 As String Dim w2 As String Dim m As Integer Dim n As Integer c = InputBox("请输入 c$=", "输入数据") ENABLE 1 List1.List(HS1.Value - 1) = List1.List(HS1.Value - 1) + Check1.Caption

c = Trim(c) w1 = Left(c, 1) c = Mid(c, 2) Do While w1 <> "#" If w1 >= "0" And w1 <= "9" Then w2 = Left(c, 1) c = Mid(c, 2) Do While w2 >= "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 <= "9" Then a(i) = w1 i = i + 1 Else

计算机专业理论试题 A

第 10 页 共 13 页

If_(2) Not (w2 >= "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 题)。 ";

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、 Private Sub Command1_Click() Dim xm As String xm = Text1._(3)_SELTEXT____ Text3,一个命令按钮,Name 属性为 Command1,Caption 属性为“确定” 。 编写 Visual FoxPro 程序实现下述功能: ①在 Text1 文本框中输入用户名,单击“确定”按钮,如果用户不存在,在 Text1

计算机专业理论试题 A

第 11 页 共 13 页

文本框中显示“用户不存在,请重新输入!” ;如果用户存在,则根据权限的不同进行不 同的操作: 如果“权限”是“查询” ,则标签 Label2 的 Caption 变成“学号” , “确定”按钮变 成“查询”按钮(命令按钮的 Caption 变成“查询” ) ; 如果“权限”是“统计” ,则标签 Label2 的 Caption 变成“班级” , “确定”按钮变 成“统计”按钮(命令按钮的 Caption 变成“统计” ) 。 ②在 Text2 文本框中输入学号,单击“查询”按钮,如果该学号存在,则在 Text3 文本框中显示学生的姓名,数学,英语,信息技术字段的值;如果不存在,则在 Text3 文本框中显示“没找到! ” ; ③在 Text2 文本框中输入班级(班级是学号的前 8 位),单击“统计”按钮,如果班 级存在,则在 Text3 文本框中显示班级、该班级数学的平均分、该班级英语的平均分以 及该班级信息技术的平均分; 如果不存在, 则在 Text3 文本框中显示 “该班级不存在!” 。 Command1 的 Click 事件代码如下,请在空白位置填写正确的命令。 (代码中行末的分号 为逻辑行连接符) (5) mm=trim(thisform.command1.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 权限=”查询” ThisForm.Command1.Caption="查询" ThisForm.Label2.Caption="学号" ELSE ThisForm.Command1.Caption="统计" ThisForm.Label2.Caption="班级" ENDCASE (7)

ENDIF ENDIF case mm=”查询” SELECT XUESHENG.姓名,CHENGJI.数学,CHENGJI.英语,CHENGJI.信息技术; FROM XUESHENG,CHENGJI WHERE XUESHENG.学号=SHURU AND XUESHENG.学号=; CHENGJI.学号 INTO DBF LSH USE LSH GO TOP IF NOT EOF() ThisForm.Text3.Value=姓名+" "+STR(数学)+" "+STR(英语)+; " ELSE ThisForm.Text3.Value="没找到!" ENDIF OTHERWISE SELECT LEFT(学号,8) AS 班级,AVG(数学) AS 数学,AVG(英语) AS; 英语,AVG(信息技术) AS 信息技术 FROM CHENGJI GROUP BY 班级; WHERE LEFT(学号,8)=SHURU INTO DBF CHJ USE CHJ GO TOP IF NOT EOF() ThisForm.Text3.Value=班级+" "+STR(数学)+" " ELSE ThisForm.Text3.Value="该班级不存在!" ENDIF "+STR(信息技术) "+STR(英语)+; "+STR(信息技术)

计算机专业理论试题 A

第 12 页 共 13 页


相关文章:
2013年河北省对口升学计算机专业试题(带答案,已修正排版)
2013年河北省对口升学计算机专业试题(带答案,已修正排版)_其它课程_高中教育_教育专区。适用于河北省对口升学计算机专业 2013 年河北省普通高等学校对口招生考试 ...
计算机应用基础试题带答案(修正版)
计算机应用基础试题带答案(修正版)_IT认证_资格考试...当前( B )已成为做大的信息中心 A.Intranet B....可以先单击该应用程序窗 中的控制菜单框,然后在...
科技档案——职称考试试题及答案(已排版)
科技档案——职称考试试题及答案(已排版)_从业资格考试_资格考试/认证_教育专区。档案管理员上岗资格证考试一、单项选择题 1、 科技档案保管单位内是一组 A、 具...
低碳试题(答案已修正)
低碳试题(答案已修正)_从业资格考试_资格考试/认证_教育专区。低碳考试试题 1.(2 分) 低碳经济首次出现的官方文件是 A. 西班牙学者乌恩鲁 2000 年发表的《能源...
2012年河北省高考理综试卷及答案(规范排版)
2012年河北省高考理综试卷及答案(规范排版)_高考_高中...所用部分器材已在图中给出,其中 D 为位 于纸面...2013河北高考理综试题 29页 免费 2011年河北省高考理...
AI模拟题答案修正版
AI模拟题答案修正版_IT认证_资格考试/认证_教育专区...基础操作(单选)如图所示,左上图为一个已编组的图形...(单选) 以下哪种工具可帮助设计者准确定位度量...
2014年5月人力资源二级试题及答案(已排版)
2014年5月人力资源二级试题及答案(已排版)_从业资格...计算机模拟法是进行人力资源需求预测诸方法中比较简单...教学顺序 53.( A. 专业技能 52.在培训课程设计...
2013年天原杯竞赛复赛试题及参考答案修正版
2013年天原杯竞赛复赛试题及参考答案修正版_学科竞赛_初中教育_教育专区。2013 年...已完全干燥,请解释产生这一现象的原因: 27.(4 分)长期使用的热水壶底部,有...
COD考核试题(已排版,带答案)
COD考核试题(已排版,带答案)_环境科学/食品科学_工程科技_专业资料。COD考核试题 一排版,带答案 CODCr 考核试题姓名:一、填空题(每题 3 分、共 30 分) 1. ...
电子商务概论2016试卷加答案(已排版)
电子商务概论2016试卷答案(已排版)_教育学_高等...常见的网上单证的类型身份注册普通信息交流、 ...(F)23、电子商务的安全问题就是计算机系统的安全...
更多相关标签:
对口升学计算机专业 | 2016年河北省对口升学 | 河北省对口升学 | 河北省计算机对口升学 | 河北省对口升学分数线 | 河北省对口升学教材 | 2017年河北省对口升学 | 2016河北省对口升学 |