河北省对口招生考试计算机专业综合模拟卷（一）

河北省一般高等学校对口招生考试 计算机专业 综合模拟卷（一）答案 考前须知： 1.本试卷共八道大题。总分 240分。 2.第I卷“一、选择题”、第Ⅱ卷“二、推断题”的答案填涂在机读卡上，其余各题答案写在答题纸上，答在试卷上不得分。用蓝黑钢笔、碳素笔或圆珠笔答题。 3，答愿前将密封线内工程填写清晰。 第I卷(选择题 共100分) 1、 选择题（本大题共50小题，每题2分，共100分。在题所给出的四个选项中，只有一个符合题目要求，将正确选项填涂在机读卡上） 1、1946年首台电子数字计算机ENIAC问世后，冯-诺依曼在研制EDVAC计算机时，提出两个重要的改进，它们是（ ） A. 引入CPU和内存储器的概念 B.采用机器语言和十六进制 C.采用二进制和存储程序控制的概念 D.采用ASCII编码系统 【答案】 C 2、 下列关于硬件的叙述，错误的是（ ） A． 硬件驱动器和盘片是密封在一起的，不能随意更换盘片 B． 硬盘可以是多张盘片组成的盘片组 C． 硬盘的技术指标除容量外，另一个是转速 D． 硬盘安装在机箱内，属于主机的组成部分 【答案】D 3、 关于计算机汇编语言，下列说法正确的是（ ） A. 依赖于计算机的低级程序设计语言 B.计算机能直接执行的程序设计语言 C.独立于计算机的高级程序设计语言 D.面向问题的程序设计语言 【答案】 A 4、 计算机的技术性能指标主要是指（ ） A． 计算机所配备的程序设计语言、操作系统、外部设备 B． 计算机的可靠性、可维护性和可用性 C． 显示器的分辨率、打印机的性能等配置 D． 字长、主频、运算速度、内/外存容量 【答案】 D 5、 下列软件中属于应用软件的是（ ） A．FoxBase B．网络蚂蚁 C．Windows 7 D．汇编语言 【答案】 B 6、下列关于计算机数制的描述正确的是( )。 A.八进制数有8个数码，范围是从1到8 B.一般在数字后面加一个大写字母B表示十六进制数 C.计算机内部所有信息都是以二制数表示的 D.十进制整数转换为二进制的规则是“除2取余数，余数顺序排列” 【答案】C 7、 下列说法正确的是（ ） A． 大写英文字母的ASCII码值大于小写英文字母的ASCII码值 B． 一个字符的标准ASCII码占一个字节的存储量，其最高位二进制总是0 C． 标准ASCII码表的每一个ASCII码都能在屏幕上显示成一个相应的字符 D． 同一个英文字母（如字母A)的ASCII码和它在汉字系统下的全角内码是相同的 【答案】 B 8、 在计算机内部存储的汉字信息，占（ ）的存储空间。 A.1个字节 B.2个字节 C.3个字节 D.4个字节 【答案】B 9、在 Windows 10 中，剪贴板和回收站所占用的存储区分别属于( ) A. 内存和硬盘 B. 内存和内存 C. 硬盘和内存 D. 硬盘和硬盘 【答案】A 10、Windows 7中的“任务栏”上存放的是（ ） A.系统正在运行的所有程序 B.系统中保存的所有程序 C.系统前台运行的程序 D.系统后台运行的程序 【答案】A 11、在Windows 7 系统中，创建账户时可以选择的账户类型有（ ） A.标准账户和来宾账户 B.标准账户和管理员 C.来宾账户和管理员 D.普通账户和管理员 【答案】B 12、 在Word 2010中，可以对文档展开折叠，并能在文档中创建文档的视图是（ ） A.页面视图 B.阅读版式 C.大纲视图 D.草稿视图 【答案】C 13、在Word 2010中，有关“间距”的说法，不正确的是( ) A.在“字体”对话框，可设置“字符间距” B.在“段落”对话框，可设置“行距” C.在“段落”对话框，可设置“数字间距” D.在“段落”对话框，可设置段落前后间距 【答案】C 14、在Word 2010中，“表格工具”中不能操作的是（ ） A.公式计算 B.表格转换为文本 C.文本转换为表格 D.关键字排序 【答案】C 15、 在Excel 2010中，关于合并计算，下列说法正确的是（ ） A. 合并计算的结果只能在数据原位置 B.合并计算的结果只能在其他位置 C.合并计算的结果既可以在数据原位置，也可以在其他位置 D.不能对不同工作表的数据进行合并计算 【答案】B 16、在Excel 2010中，数据透视表的主要作用是什么？（ ） A. 查找和替换数据 B. 对数据进行排序和筛选 C. 汇总、分析、浏览和呈现数据 D. 绘制图表 【答案】C 17、Excel 2010中，在E4有一公式“=$B2+D$3”，现将工作表的B列删除，则在E4单元格中的公式为（ ）。 A.=$A2+C$3 B.=#REF+D$3 C.=#REF+C$3 D.=#REF+C$2 【答案】C 18、 PowerPoint 2010的幻灯片的版式是由（ ）组成的。 A.文本框 B.表格 C.图标 D.占位符 【答案】D 19、PowerPoint 2010，要使幻灯片中的标题、图片、文字等按用户的要求顺序出现，应进行的设置是( )。 A.设置放映方式 B.幻灯片切换 C.自定义动画 D.幻灯片链接 【答案】C 20、在Visual Basic中，关于变量的说法，下列错误的是（ ） A． 变量名长度不能超过255个字符 B．变量名的第一个字符可以是字母或数字 C．变量名只能由字母、数字和下划线组成 D．变量名不能使用保留字 【答案】 B 21、 在Visual Basic中，用Select Case语句选择|x|<=10情况的语句为：Case( ) A．NOT(-10 TO 10) B．-10 TO 10 C．ABS(X)>10 D．IS<-10 OR >10 【答案】 B 22、 在Visual Basic中，要将一个窗体从内存中释放，应使用的方法是（ ） A．Unload B．Hide C．Show D．Load 【答案】 A 23、 在Visual Basic中，产生100以内（不含100）的2位随机整数的表达式是（ ） A． Int(Rnd(1) * 91) + 10 B．Int(Rnd(1) * 90) + 10 C．Int(Rnd(1) * 91) + 11 D．Int(Rnd(1) * 90) + 11 【答案】 B 24、 在Visual Basic中，下列说法错误的是（ ） A .在过程中，可以用Static定义变量，但当该过程调用结束后，其值继续保留 B． 当用Static关键字定义一个过程时，该过程中的所有变量都是”Static”存储方式的 C． Sub Main过程一定是程序运行时首先被执行的过程，是整个程序的入口点 D． 同一个工程中只能有一个Sub Main过程 【答案】 C 25、 在Visual Basic中，关于文件的叙述，正确的是（ ） A． 随机文件的记录是定长的 B． 用Append方式打开的文件，既可以进行读操作，也可以进行写操作 C． 随机文件记录中的各个字段具有相同的长度 D． 随机文件通常比顺序文件占用的空间小 【答案】 A 26、 在Visual Basic中，下列选项中，不具有Picture属性的对象是（ ） A．命令按钮 B．形状控件 C．图片框 D．窗体 【答案】 B 27、 在Visual Basic中，执行Print "a=18 mod 4"语句后，输出结果为（ ） A．2 B．4 C．6 D．a=18 mod 4 【答案】 D 28、 在Visual Basic中，有以下程序代码： Private Sub Command1_Click() Dim a(3, 3) For i = 1 To 3 For j = 1 To 3 a(i, j) = (i - 1) * 3 + j Next j Next i For i = 2 To 3 For j = 1 To 2 Print a(j, i); Next j Print Next i End Sub A． 2 5 3 6 B． 2 3 5 6 C．4 7 5 8 D．4 5 7 8 【答案】 A 29、 在Visual FoxPro中，自由表的字段在命名时，一个字段名最多可使用（ ）个字符。 A．4 B．8 C．10 D．128 【答案】 C 30、 在Visual FoxPro中，参照完整性规则不包括（ ） A．插入规则 B．更新规则 C．查询规则 D．删除规则 【答案】 C 31、 在Visual FoxPro中，执行命令USE STUDENT ALIAS sj IN B后，被打开的表的别名是（ ） A．STUDENT B．B C．sj_B D．sj 【答案】 D 32、 在Visual FoxPro中，用INDEX ON命令不能建立以下哪个索引（ ） A．主索引 B．候选索引 C．唯一索引 D．普通索引 【答案】 A 33、 在Visual FoxPro中，设置字段有效性规则时，规则框中表达式值的类型是（ ） A．数值型 B．字符型 C．逻辑型 D．任意类型 【答案】 C 34、在Visual FoxPro中，关于视图的叙述正确的是 ( ) A．视图文件是一个独立的数据文件，不属于任何的数据库 B．视图可以对源表中的数据进行更新 C．如果希望每次运行视图时，根据输入值的不同而检索到不同的结果，可以建立远程视图 D．视图只能从一个表派生出来 【答案】 B 35、在Visual Foxpro中，报表文件.FRX中保存的是（ ） A．打印报表本身 B．报表设计格式的定义 C．打印报表的预览格式 D．报表的格式和数据 【答案】 B 36、 在计算机网络中，1000Base-T标准支持的传输介质是（ ） A．非屏蔽双绞线 B．单模光纤 C．红外线 D．微波 【答案】 A 37、 在检错技术中，以下选项不包含在常用检验方法中的是（ ） A．VRC B．CRC C．LRC D．PRC 【答案】D 38、某IP地址为160.55.115.24/20，则它所在子网的网络地址为（ ） A.160.55.115.0 B.160.55.112.0 C.160.55.112.255 D.160.55.115.255 【答案】 B 39、下列对IPv6地址5FE0:0:0:0601:BC:0:0:05D7的简化表示中，错误的是（ ） A．5FE0::601:BC:0:0:05D7 B．5FE0::601:BC::05D7 C．5FE0:0:0:601:BC::05D7 D．5FE0:0:0:0601:BC::05D7 【答案】 B 40、 关于传输介质的说法，下列错误的是（ ） A． 无线介质的最大优点是无须布线，组网灵活，但误码率高 B． 光纤的带宽大，速度快，抗干扰强，可行性高，保密性好 C． 双绞线由于传输距离只有100米，所以在网络中较少使用 D． 同轴电缆由于比较硬，布线困难，所以现在已经很少采用 【答案】 C 41、下列关于10BASE-2的网络，下列说法正确的是（ ） A.10BASE-2也称为粗缆以太网 B.10BASE-2采用50Ω的粗同轴电缆作为传输介质 C.10BASE-2以太网最多可以有5个网段 D.10BASE-2每个网段的最大长度为500m 【答案】 C 42、关于三层交换机，说法正确的是（ ） A.工作在数据链路层 B.具有路由器的部分功能 C.完成MAC地址的转发 D.维护MAC地址与端口对应表 【答案】 B 43、 如果将两台计算机通过双绞线直接连接，正确的线序是（ ） A.一一对应 B.一三、二六对调 C.一二、三六对调 D.两台计算机不能通过双绞线直接连接 【答案】B 44、包过滤防火墙主要过滤的信息中，不包括（ ） A. 源IP地址 B.目的IP地址 C.时间 D. TCP源端口和目的端口 【答案】 C 45、 下列关于外部网关协议BGP的描述，正确的是（ ） A．一个BGP发言人使用UDP与其他自治系统中的BGP发言人交换路由信息 B．BGP协议交换路由信息的结点数是以自治系统数为单位的 C．BGP是同一自治系统的路由器之间交换路由信息的协议 D.BGP采用距离向量协议 【答案】B 46、下列关于应用层协议的叙述，错误的是( )。 A.应用层协议是网络节点之间在应用层的通信规则 B.应用层协议主要是定义交互的消息的格式以及消息的只或操作规则 C.应用层协议可以由用户编写，也可以是标准的应用程序 D.应用层常见的协议是HTTP协议、FTP协议和RARP协议 【答案】D 47、网络上的用户在访问远程资源时，就像访问本地资源一样方便，这是NOS的( )表现。 A．异步性 B．开放性 C．一致性 D．透明性 【答案】D 48、 校园网内的一台计算机无法使用域名而只能使用IP地址访问某个外部服务器，造成这种情况的原因不可能是（ ） A． 本地域名服务器无法与外部正常通信 B． 提供被访问服务器名字解析的服务器有故障 C． 该计算机DNS设置有误 D． 该计算机与DNS服务器不在同一子网 【答案】 D 49、 ADSL上行速率范围是（ ） A．64Kbps-640Kbps B．640Kbps-7Mbps C．7Mbps-10Mbps D．10Mbps-20Mbps 【答案】A 50、 在建筑群布线子系统所采用的铺设方式中，能够对线缆提供最佳机械保护的方式是（ ） A．巷道布线 B．架空布线 C．直埋布线 D．地下管道布线 【答案】D 第II卷(非选择题 共140分) 二、判断题（本大题共14小题，每题1分，共14分。将答案填涂在机读卡上，正确的填涂“A”，错误的填涂“B”） 51、计算机字节是指计算机一次能同时处理的二进制数据的位数。（ ） 【答案】B 52、安装了操作系统后才能安装和使用各种应用程序。（ ） 【答案】A 53、在Windows 7操作系统中，“关机”按钮处不包含“锁定”。（ ） 【答案】B 54、 Windows7操作系统的补丁程序,用户可以到 Microsoft 的官方网站下载安装。（ ） 【答案】A 55、 在Word 2010中，只有先保存文档，才能做关闭文档的操作。（ ） 【答案】B 56、在Word2010中，快速应用相同格式到多个单元格，可以使用“开始”选项卡中的“格式刷”功能。（ ） 【答案】A 57、在Excel 2010中，单元格F1中的公式为“=AVERAGE(C2:E2)”,则F1的结果为单元格C2到E2区域的平均值。（ ） 【答案】A 58、 在Excel 2010中，独立图表是与工作表无关的表。（ ） 【答案】A 59、 PowerPoint 2010中，插入形状后，可以在形状内输入文字，当改变形状大小时，里面的文字也会随之改变大小。（ ） 【答案】 B 60、在Visual Basic中，长整型常数的类型说明符为&。（ ） 【答案】 A 61、在Visual Foxpro中，一个数据库表可以直接添加到另一个数据库中。（ ） 【答案】 B 62、 子网编址的方法是从主机ID部分取出几位作为子网号，在原来IP地址结构的基础上增加一级子网ID。（ ） 【答案】 A 63、 在计算机网络的拓扑结构中，适合于分级集中控制式网络的是树型结构。（ ） 【答案】 A 64、 在多路复用技术中，按频率区分信号的方法的是TDM。（ ） 【答案】 B 三、填空题（本大题共13小题，每题2分，共26分，请将答案填写在答题纸上） 65、计算机硬件能直接识别、执行的语言是_______。 【答案】机器语言 66、在标准ASCII码表中，英文字母a和A的码值之差的十进制值是_____。 【答案】32 67、如果在一个非零无符号二进制整数之后添加一个0，则此数的值为原数的_____倍。 【答案】2 68、在Windows 7中的“资源管理器”窗口中，如果要显示有系统属性或隐藏属性的文件或文件夹，可以选择 菜单中的“文件夹选项”进行设置。 【答案】工具 69、Word 2010，若要设置页面的水印、页面边框等，应使用_________选项卡中的“页面背景”组。 【答案】页面布局 70、 Excel 2010可以使用两种方式来查找或筛选数据，分别为________和高级筛选。 【答案】自动筛选 71、PowerPoint 2010中，对幻灯片放映条件进行设置时，应在 选项卡中进行操作。 【答案】幻灯片放映 72、Visual Basic提供的___________以树状图的方式对其资源进行管理。 【答案】工程资源管理器 73、在Visual Basic中，在列表框或组合框中，能够表示当前被选中列表项序号的属性是______。 【答案】 ListIndex 74、在Visual Foxpro中，使用LOCATE ALL 命令按条件对表中的记录进行查找，若查不到记录，函数EOF( )的返回值是_____。 【答案】 .T. 75、 在OSI网络参考模型中，传输层传送的信息的组织单位是________。 【答案】 报文 76、 决定局域网特性的主要技术有三个，分别是传输介质、拓扑结构和_________。 【答案】 介质访问控制方法 77、 在网络管理和诊断工具中，常用于显示当前计算机网络适配器配置信息的命令是_______ 【答案】ipconfig 四、依据环境与题意，写出相应的Visual FoxPro语句或SQL语句，要求每题用一条语句完成（本大题共5小题，每题4分，共20分，请填写在答题纸上） 假设有数据库“商品管理”中有表“部门”，其表结构如下： 部门.DBF：部门号（C，2），部门名称（C，20）该数据库及相关表已打开，请完成如下操作的命令序列： 78、创建“商品”表，表结构有：部门号（C，2），商品号（C，6），商品名称（C，16），单价（N，5），数量（N，3），产地（C，20），并对单价字段设置有效性规则“单价范围为100~2000”，产地默认值为“北京”。（用 SQL 语句） 【答案】CREATE TABLE 商品（部门号 C（2），商品号C（6），商品名称 C（16），单价N（5） CHECK 单价=>100 AND 单价 <=2000，数量 N（3），产地 C（20） DEFAULT “北京”） 79、将部门表中所有记录的单价下调2%。（用 Visual FoxPro命令） 【答案】REPLACE ALL 单价 WITH 单价 * 0.98 80、删除商品表中产地是“上海”的记录。（用 SQL 语句） 【答案】DELETE FROM 商品 WHERE 产地=”上海” 81、查询商品表中“传真机”和“笔记本电脑”的商品记录。（用 SQL 语句） 【答案】SELECT * FROM 商品 WHERE 商品名称=“传真机” OR 商品名称=“笔记本电脑” 82、删除部门表中单价字段的有效性规则。（用 SQL 语句） 【答案】 ALTER TABLE 部门 ALTER 单价 DROP CHECK 五、程序分析（本大题共2小题，每题5分，共10分，读程序并分析结果，请填写在答题纸上） 83、分析Visual Basic程序，该程序实现的功能是____________ Option Explicit Private Sub Form_Click() Dim X As Integer, s1 As Integer Dim n As Integer, i As Integer Randomize For i = 1 To 10 X = Int(Rnd * 900 + 100) Print X; If X Mod 5 = 0 Then s1 = s1 + X n = n + 1 End If Next i Print n; s1 End Sub 【答案】 统计随机产生的10个三位正整数中能被5整除的数的个数，并求出能被5整除的数的总和 84、下列Visual Foxpro程序实现的功能是________________ CLEAR N=1 DO WHILE N<=10 M=STR(N,1) NA="TAB"+M USE &NA GOTO TOP DELETE PACK N=N+1 ENDDO USE 【答案】删除10个表文件TAB1~TAB10的每个表文件的首记录。 六、写出以下程序的运行结果（本大题共5小题，每题5分，共25分，请填写在答题纸上） 85、分析Visual Basic程序： Private Sub Command1_Click() Dim s1 As String s1 = "abcdef" Print UCase(Fun(s1)) End Sub Public Function Fun(xstr As String) As String Dim tstr As String, strl As Integer tstr = "" strl = Len(xstr) i = 1 Do While i <= strl / 2 tstr = tstr & Mid(xstr, i, 1) & Mid(xstr, strl - i + 1, 1) i = i + 1 Loop Fun = tstr End Function 运行该程序，程序的运行结果为_________ 【答案】 AFBECD 86、分析Visual Basic程序： Option Base 1 Private Sub Command1_Click() Dim A() As Integer, I As Integer, J As Integer Dim K As Integer, n As Integer n = 4 ReDim A(n, n) I = 1: J = n: A(I, J) = 1 For K = 2 To n * n If I + 1 > n Then I = n - J + 2: J = 1 ElseIf I + 1 <= n And J + 1 > n Then J = J - I: I = 1 Else I = I + 1: J = J + 1 End If A(I, J) = K Next K For I = 1 To n For J = 1 To n Print A(I, J); Next J Print Next I End Sub 运行该程序，程序的运行结果为________ 【答案】 7 4 2 1 11 8 5 3 14 12 9 6 16 15 13 10 87、在Visual Foxpro中，有如下程序： CLEAR DIME A(3) STORE 5 TO A,B,C DO XYZ WITH A,(B),20 ?A,B,C ?I,M RETURN PROC XYZ PARA X,Y,Z PRIV A(3) PUBLIC I,M STORE 10 TO I,M,N I=X+Y X=Y+Z Y=M+N ?X,Y,Z RETURN 运行上述程序后，程序的运行结果为：__________________________ 【答案】 25 20 20 25 5 5 10 10 第88、89题使用下面的数据库表文件 88、在Visual Foxpro中,设有如下数据库表文件： 学生.DBF：学号（C,6）,姓名（C,8）,性别（C,2）,民族（C,2）,出生日期（D）,专业（C,10） 课程.DBF：课程号（C,2）,课程名（C,16）,学分（N,3,1） 选课.DBF：学号（C,6）,课程号（C,2）,成绩（N,5,1） 学生.DBF 选课.DBF 课程.DBF Visual Foxpro程序代码如下： CLEAR SELECT 1 USE 学生 SELECT 2 USE 课程 INDEX ON 课程号 TO KC SELECT 3 USE 选课 SET RELATION TO 课程号 INTO B INDEX ON 学号 TO XH DO WHILE .T. CLEAR ACCEPT"请输入学生姓名："TO XM SELECT 1 LOCATE FOR 姓名=XM IF EOF() ?"没有该学生记录！" ELSE N=0 XH=学号 SELECT 3 SEEK XH DO WHILE NOT EOF() AND 学号=XH N=N+1 SKIP ENDDO ?"共选修了"+STR(N,2)+"门课程！" ENDIF WAIT "继续查询吗（Y/N）?" TO X IF UPPER(X)="N" EXIT ENDIF ENDDO 运行上面的程序，输入学生姓名“李国华”，则程序的显示结果为：____________ 【答案】 共选修了2门课程！ 89、Visual Foxpro程序如下： CLEAR SELECT 1 USE 学生 INDEX ON 学号 TAG XH SELECT 2 USE 课程 INDEX ON 课程号 TAG KCH SELECT 3 USE 选课 SET RELATION TO 学号 INTO 学生 SET RELATION TO 课程号 INTO 课程 ADDITIVE DO WHILE .T. ACCEPT"请输入学生的学号:"TO XH IF LEN(ALLTRIM(XH))=0 EXIT ENDIF SCAN FOR 学号=XH ?学生.学号,学生.姓名,学生.专业,课程.课程名,成绩 ENDSCAN ENDDO 运行上面的程序，输入学号“150208”，程序的运行结果为_____________ 【答案】 150208 孙联民 电子技术 VB程序设计 80.0 7、 Visual Basic程序改错（本大题共有两个小题，每题5分，共10分，每个程序有两个错误行，请在答题纸上写出错误行和对应的正确行，改对一处得一处分，改错不扣分） 90、程序功能：找出1～100之间的所有孪生素数。所谓孪生素数，就是若两个素数之差为2，则这两个素数就是一对孪生素数。 Private Function fun1(x As Integer) As Boolean For i = 2 To Sqr(x) If x Mod i = 0 Then fun1 = False Exit Function End If Next i fun1 = False End Function Private Sub Command1_Click() Dim x As Integer Text1 = "" For x = 1 To 97 If fun1(x) And fun1(x - 2) Then Text1 = Text1 + Str(x) + "和" + Str(x + 2) + "是孪生素数" + vbCrLf End If Next x End Sub 【答案】 （1） fun1 = False 改为 fun1 = True （2）If fun1(x) And fun1(x - 2) Then 改为 If fun1(x) And fun1(x+ 2) Then 91、下述程序的功能是将一个数的各位数字相乘并打印在窗体上。 Option Explicit Private Sub Command1_Click() Dim n As Long n = InputBox("请输入一个数") Print Fun1(n) End Sub Private Function Fun1(num As Long) As Long Dim s As Long s = 0 num = Abs(num) Do While num > 1 s = s * (num Mod 10) num = num / 10 Loop Fun1 = s End Function 【答案】 （1） fun1 = False 改为 fun1 = True （2）s=0 改为 s=1 八、程序填空（本大题共7个空，每空5分，共35分，按程序要求在答题纸上填入相应的内容，使程序完整正确） 92、（Visual Basic试题）程序实现的具体功能：判断输入的字符串是否为对称字符串。 例：“123321”是对称字符串。 Private Sub Command1_Click() Dim s As String, i As Integer Dim n As Integer s = InputBox("输入数据：") n = Len(s) For i = 1 To n \ 2 If _______________________ Then Exit For End If Next i If i _______ Then Print s & "是对称字符串" Else Print s & "不是对称字符串" End If End Sub 【答案】 (1)Mid(s, i, 1) <> Mid(s, n - i + 1, 1) (2)>n \ 2 93、 （Visual Basic试题）下面程序是通过键盘输入一个4×3的矩阵，找出其中最大的那个元素所在的行和列，并输出其值及行号和列号。 Option Base 1 Private Sub Command1_Click() Dim a(3, 3) As Integer, i As Integer, j As Integer Dim col As Integer, row As Integer, max As Integer For i = 1 To 3 For j = 1 To 3 a(i, j) = InputBox("请输入矩阵第" & i & "行，" & j & "列的元素", "输入矩阵元素") Print a(i, j), Next j Print Next i _________ For i = 1 To 3 For j = 1 To 3 If max _________Then max = a(i, j) col = j row = i End If Next j Next i Print Print "矩阵最大的元素的值为："; max Print "它所在的行为"; row; ",列为"; col End Sub 【答案】 (1)max = a(1, 1) (2)< a(i, j) 94、（Visual Foxpro试题）表单设计如下图所示，表单中包含两个标签LABEL1和LABEL2，Caption属性分别为“原始字符串：”、“加密后的字符串：”，两个文本框TEXT1和TEXT2，一个命令按钮COMMAND1，Caption属性为“加密”。控件布局如下图所示： 编写Visual FoxPro程序实现“加密”的功能，COMMAND1命令按钮的具体功能如下： 在文本框TEXT1中输入要加密的字符串，经过加密过程后，将加密后的字符串显示在文本框TEXT2中。加密过程： （1） 若是大写字母：则A转换成Z,B转换成Y,C转换X，依次类推； （2） 若是小写字母：则a转换成z,b转换成y,c转换x，依次类推； （3） 若是数字：则0转换成9，1转换成8，依次类推； （4） 若是其他字符，则不进行转换，按原样显示； 程序运行结果如下图所示： 如文本框输入”2024FaV%#M”，则文本框2中显示“7975UzE%#N”。依照程序功能，完成下列代码的补充。 SET COLLATE TO "Machine" STARSTR=ALLTRIM(THISFORM.TEXT1.VALUE) ENDSTR="" M="" FOR I= 1 TO LEN(STARSTR) L=SUBSTR(STARSTR,I,1) IF L>="A" AND L<="Z" M=CHR(ASC("A")+ASC("Z")-ASC(L)) ELSE IF _____________________ M=CHR(ASC("a")+ASC("z")-ASC(L)) ELSE IF L>="0" AND L<="9" M=CHR(ASC("0")+ASC("9")-ASC(L)) ELSE _______________ ENDIF ENDIF ENDIF ___________________________ ENDFOR THISFORM.TEXT2.VALUE=ENDSTR 【答案】 （1） L>="a" AND L<="z" （2）M=L （3）ENDSTR=ENDSTR+M 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $$ 河北省一般高等学校对口招生考试 计算机专业 综合模拟卷（一） 考前须知： 1.本试卷共八道大题。总分 240分。 2.第I卷“一、选择题”、第Ⅱ卷“二、推断题”的答案填涂在机读卡上，其余各题答案写在答题纸上，答在试卷上不得分。用蓝黑钢笔、碳素笔或圆珠笔答题。 3，答愿前将密封线内工程填写清晰。 第I卷(选择题 共100分) 1、 选择题（本大题共50小题，每题2分，共100分。在题所给出的四个选项中，只有一个符合题目要求，将正确选项填涂在机读卡上） 1、1946年首台电子数字计算机ENIAC问世后，冯-诺依曼在研制EDVAC计算机时，提出两个重要的改进，它们是（ ） A. 引入CPU和内存储器的概念 B.采用机器语言和十六进制 C.采用二进制和存储程序控制的概念 D.采用ASCII编码系统 2、 下列关于硬件的叙述，错误的是（ ） A． 硬件驱动器和盘片是密封在一起的，不能随意更换盘片 B． 硬盘可以是多张盘片组成的盘片组 C． 硬盘的技术指标除容量外，另一个是转速 D． 硬盘安装在机箱内，属于主机的组成部分 3、 关于计算机汇编语言，下列说法正确的是（ ） A. 依赖于计算机的低级程序设计语言 B.计算机能直接执行的程序设计语言 C.独立于计算机的高级程序设计语言 D.面向问题的程序设计语言 4、 计算机的技术性能指标主要是指（ ） A． 计算机所配备的程序设计语言、操作系统、外部设备 B． 计算机的可靠性、可维护性和可用性 C． 显示器的分辨率、打印机的性能等配置 D． 字长、主频、运算速度、内/外存容量 5、 下列软件中属于应用软件的是（ ） A．FoxBase B．网络蚂蚁 C．Windows 7 D．汇编语言 6、下列关于计算机数制的描述正确的是( )。 A.八进制数有8个数码，范围是从1到8 B.一般在数字后面加一个大写字母B表示十六进制数 C.计算机内部所有信息都是以二制数表示的 D.十进制整数转换为二进制的规则是“除2取余数，余数顺序排列” 7、 下列说法正确的是（ ） A． 大写英文字母的ASCII码值大于小写英文字母的ASCII码值 B． 一个字符的标准ASCII码占一个字节的存储量，其最高位二进制总是0 C． 标准ASCII码表的每一个ASCII码都能在屏幕上显示成一个相应的字符 D． 同一个英文字母（如字母A)的ASCII码和它在汉字系统下的全角内码是相同的 8、 在计算机内部存储的汉字信息，占（ ）的存储空间。 A.1个字节 B.2个字节 C.3个字节 D.4个字节 9、在 Windows 10 中，剪贴板和回收站所占用的存储区分别属于( ) A. 内存和硬盘 B. 内存和内存 C. 硬盘和内存 D. 硬盘和硬盘 10、Windows 7中的“任务栏”上存放的是（ ） A.系统正在运行的所有程序 B.系统中保存的所有程序 C.系统前台运行的程序 D.系统后台运行的程序 11、在Windows 7 系统中，创建账户时可以选择的账户类型有（ ） A.标准账户和来宾账户 B.标准账户和管理员 C.来宾账户和管理员 D.普通账户和管理员 12、 在Word 2010中，可以对文档展开折叠，并能在文档中创建文档的视图是（ ） A.页面视图 B.阅读版式 C.大纲视图 D.草稿视图 13、在Word 2010中，有关“间距”的说法，不正确的是( ) A.在“字体”对话框，可设置“字符间距” B.在“段落”对话框，可设置“行距” C.在“段落”对话框，可设置“数字间距” D.在“段落”对话框，可设置段落前后间距 14、在Word 2010中，“表格工具”中不能操作的是（ ） A.公式计算 B.表格转换为文本 C.文本转换为表格 D.关键字排序 15、 在Excel 2010中，关于合并计算，下列说法正确的是（ ） A. 合并计算的结果只能在数据原位置 B.合并计算的结果只能在其他位置 C.合并计算的结果既可以在数据原位置，也可以在其他位置 D.不能对不同工作表的数据进行合并计算 16、在Excel 2010中，数据透视表的主要作用是什么？（ ） A. 查找和替换数据 B. 对数据进行排序和筛选 C. 汇总、分析、浏览和呈现数据 D. 绘制图表 17、Excel 2010中，在E4有一公式“=$B2+D$3”，现将工作表的B列删除，则在E4单元格中的公式为（ ）。 A.=$A2+C$3 B.=#REF+D$3 C.=#REF+C$3 D.=#REF+C$2 18、 PowerPoint 2010的幻灯片的版式是由（ ）组成的。 A.文本框 B.表格 C.图标 D.占位符 19、PowerPoint 2010，要使幻灯片中的标题、图片、文字等按用户的要求顺序出现，应进行的设置是( )。 A.设置放映方式 B.幻灯片切换 C.自定义动画 D.幻灯片链接 20、在Visual Basic中，关于变量的说法，下列错误的是（ ） A． 变量名长度不能超过255个字符 B．变量名的第一个字符可以是字母或数字 C．变量名只能由字母、数字和下划线组成 D．变量名不能使用保留字 21、 在Visual Basic中，用Select Case语句选择|x|<=10情况的语句为：Case( ) A．NOT(-10 TO 10) B．-10 TO 10 C．ABS(X)>10 D．IS<-10 OR >10 22、 在Visual Basic中，要将一个窗体从内存中释放，应使用的方法是（ ） A．Unload B．Hide C．Show D．Load 23、 在Visual Basic中，产生100以内（不含100）的2位随机整数的表达式是（ ） A． Int(Rnd(1) * 91) + 10 B．Int(Rnd(1) * 90) + 10 C．Int(Rnd(1) * 91) + 11 D．Int(Rnd(1) * 90) + 11 24、 在Visual Basic中，下列说法错误的是（ ） A .在过程中，可以用Static定义变量，但当该过程调用结束后，其值继续保留 B． 当用Static关键字定义一个过程时，该过程中的所有变量都是”Static”存储方式的 C． Sub Main过程一定是程序运行时首先被执行的过程，是整个程序的入口点 D． 同一个工程中只能有一个Sub Main过程 25、 在Visual Basic中，关于文件的叙述，正确的是（ ） A． 随机文件的记录是定长的 B． 用Append方式打开的文件，既可以进行读操作，也可以进行写操作 C． 随机文件记录中的各个字段具有相同的长度 D． 随机文件通常比顺序文件占用的空间小 26、 在Visual Basic中，下列选项中，不具有Picture属性的对象是（ ） 27、 在Visual Basic中，执行Print "a=18 mod 4"语句后，输出结果为（ ） A．2 B．4 C．6 D．a=18 mod 4 28、 在Visual Basic中，有以下程序代码： Private Sub Command1_Click() Dim a(3, 3) For i = 1 To 3 For j = 1 To 3 a(i, j) = (i - 1) * 3 + j Next j Next i For i = 2 To 3 For j = 1 To 2 Print a(j, i); Next j Print Next i End Sub A． 2 5 3 6 B． 2 3 5 6 C．4 7 5 8 D．4 5 7 8 29、 在Visual FoxPro中，自由表的字段在命名时，一个字段名最多可使用（ ）个字符。 A．4 B．8 C．10 D．128 30、 在Visual FoxPro中，参照完整性规则不包括（ ） A．插入规则 B．更新规则 C．查询规则 D．删除规则 31、 在Visual FoxPro中，执行命令USE STUDENT ALIAS sj IN B后，被打开的表的别名是（ ） A．STUDENT B．B C．sj_B D．sj 32、 在Visual FoxPro中，用INDEX ON命令不能建立以下哪个索引（ ） A．主索引 B．候选索引 C．唯一索引 D．普通索引 33、 在Visual FoxPro中，设置字段有效性规则时，规则框中表达式值的类型是（ ） A．数值型 B．字符型 C．逻辑型 D．任意类型 34、在Visual FoxPro中，关于视图的叙述正确的是 ( ) A．视图文件是一个独立的数据文件，不属于任何的数据库 B．视图可以对源表中的数据进行更新 C．如果希望每次运行视图时，根据输入值的不同而检索到不同的结果，可以建立远程视图 D．视图只能从一个表派生出来 35、在Visual Foxpro中，报表文件.FRX中保存的是（ ） A．打印报表本身 B．报表设计格式的定义 C．打印报表的预览格式 D．报表的格式和数据 36、 在计算机网络中，1000Base-T标准支持的传输介质是（ ） A．非屏蔽双绞线 B．单模光纤 C．红外线 D．微波 37、 在检错技术中，以下选项不包含在常用检验方法中的是（ ） A．VRC B．CRC C．LRC D．PRC 38、某IP地址为160.55.115.24/20，则它所在子网的网络地址为（ ） A.160.55.115.0 B.160.55.112.0 C.160.55.112.255 D.160.55.115.255 39、下列对IPv6地址5FE0:0:0:0601:BC:0:0:05D7的简化表示中，错误的是（ ） A．5FE0::601:BC:0:0:05D7 B．5FE0::601:BC::05D7 C．5FE0:0:0:601:BC::05D7 D．5FE0:0:0:0601:BC::05D7 40、 关于传输介质的说法，下列错误的是（ ） A． 无线介质的最大优点是无须布线，组网灵活，但误码率高 B． 光纤的带宽大，速度快，抗干扰强，可行性高，保密性好 C． 双绞线由于传输距离只有100米，所以在网络中较少使用 D． 同轴电缆由于比较硬，布线困难，所以现在已经很少采用 41、下列关于10BASE-2的网络，下列说法正确的是（ ） A.10BASE-2也称为粗缆以太网 B.10BASE-2采用50Ω的粗同轴电缆作为传输介质 C.10BASE-2以太网最多可以有5个网段 D.10BASE-2每个网段的最大长度为500m 42、关于三层交换机，说法正确的是（ ） A.工作在数据链路层 B.具有路由器的部分功能 C.完成MAC地址的转发 D.维护MAC地址与端口对应表 43、 如果将两台计算机通过双绞线直接连接，正确的线序是（ ） A.一一对应 B.一三、二六对调 C.一二、三六对调 D.两台计算机不能通过双绞线直接连接 44、包过滤防火墙主要过滤的信息中，不包括（ ） A. 源IP地址 B.目的IP地址 C.时间 D. TCP源端口和目的端口 45、 下列关于外部网关协议BGP的描述，正确的是（ ） A．一个BGP发言人使用UDP与其他自治系统中的BGP发言人交换路由信息 B．BGP协议交换路由信息的结点数是以自治系统数为单位的 C．BGP是同一自治系统的路由器之间交换路由信息的协议 D.BGP采用距离向量协议 46、下列关于应用层协议的叙述，错误的是( )。 A.应用层协议是网络节点之间在应用层的通信规则 B.应用层协议主要是定义交互的消息的格式以及消息的只或操作规则 C.应用层协议可以由用户编写，也可以是标准的应用程序 D.应用层常见的协议是HTTP协议、FTP协议和RARP协议 47、网络上的用户在访问远程资源时，就像访问本地资源一样方便，这是NOS的( )表现。 A．异步性 B．开放性 C．一致性 D．透明性 48、 校园网内的一台计算机无法使用域名而只能使用IP地址访问某个外部服务器，造成这种情况的原因不可能是（ ） A． 本地域名服务器无法与外部正常通信 B． 提供被访问服务器名字解析的服务器有故障 C． 该计算机DNS设置有误 D． 该计算机与DNS服务器不在同一子网 49、 ADSL上行速率范围是（ ） A．64Kbps-640Kbps B．640Kbps-7Mbps C．7Mbps-10Mbps D．10Mbps-20Mbps 50、 在建筑群布线子系统所采用的铺设方式中，能够对线缆提供最佳机械保护的方式是（ ） A．巷道布线 B．架空布线 C．直埋布线 D．地下管道布线 第II卷(非选择题 共140分) 二、判断题（本大题共14小题，每题1分，共14分。将答案填涂在机读卡上，正确的填涂“A”，错误的填涂“B”） 51、计算机字节是指计算机一次能同时处理的二进制数据的位数。（ ） 52、安装了操作系统后才能安装和使用各种应用程序。（ ） 53、在Windows 7操作系统中，“关机”按钮处不包含“锁定”。（ ） 54、 Windows7操作系统的补丁程序,用户可以到 Microsoft 的官方网站下载安装。（ ） 55、 在Word 2010中，只有先保存文档，才能做关闭文档的操作。（ ） 56、在Word2010中，快速应用相同格式到多个单元格，可以使用“开始”选项卡中的“格式刷”功能。（ ） 57、在Excel 2010中，单元格F1中的公式为“=AVERAGE(C2:E2)”,则F1的结果为单元格C2到E2区域的平均值。（ ） 58、 在Excel 2010中，独立图表是与工作表无关的表。（ ） 59、 PowerPoint 2010中，插入形状后，可以在形状内输入文字，当改变形状大小时，里面的文字也会随之改变大小。（ ） 60、在Visual Basic中，长整型常数的类型说明符为&。（ ） 61、在Visual Foxpro中，一个数据库表可以直接添加到另一个数据库中。（ ） 62、 子网编址的方法是从主机ID部分取出几位作为子网号，在原来IP地址结构的基础上增加一级子网ID。（ ） 63、 在计算机网络的拓扑结构中，适合于分级集中控制式网络的是树型结构。（ ） 64、 在多路复用技术中，按频率区分信号的方法的是TDM。（ ） 三、填空题（本大题共13小题，每题2分，共26分，请将答案填写在答题纸上） 65、计算机硬件能直接识别、执行的语言是_______。 66、在标准ASCII码表中，英文字母a和A的码值之差的十进制值是_____。 67、如果在一个非零无符号二进制整数之后添加一个0，则此数的值为原数的_____倍。 68、在Windows 7中的“资源管理器”窗口中，如果要显示有系统属性或隐藏属性的文件或文件夹，可以选择 菜单中的“文件夹选项”进行设置。 69、Word 2010，若要设置页面的水印、页面边框等，应使用_________选项卡中的“页面背景”组。 70、 Excel 2010可以使用两种方式来查找或筛选数据，分别为________和高级筛选。 71、PowerPoint 2010中，对幻灯片放映条件进行设置时，应在 选项卡中进行操作。 72、Visual Basic提供的___________以树状图的方式对其资源进行管理。 73、在Visual Basic中，在列表框或组合框中，能够表示当前被选中列表项序号的属性是______。 74、在Visual Foxpro中，使用LOCATE ALL 命令按条件对表中的记录进行查找，若查不到记录，函数EOF( )的返回值是_____。 75、 在OSI网络参考模型中，传输层传送的信息的组织单位是________。 76、 决定局域网特性的主要技术有三个，分别是传输介质、拓扑结构和_________。 77、 在网络管理和诊断工具中，常用于显示当前计算机网络适配器配置信息的命令是_______。 四、依据环境与题意，写出相应的Visual FoxPro语句或SQL语句，要求每题用一条语句完成（本大题共5小题，每题4分，共20分，请填写在答题纸上） 假设有数据库“商品管理”中有表“部门”，其表结构如下： 部门.DBF：部门号（C，2），部门名称（C，20）该数据库及相关表已打开，请完成如下操作的命令序列： 78、创建“商品”表，表结构有：部门号（C，2），商品号（C，6），商品名称（C，16），单价（N，5），数量（N，3），产地（C，20），并对单价字段设置有效性规则“单价范围为100~2000”，产地默认值为“北京”。（用 SQL 语句） 79、将部门表中所有记录的单价下调2%。（用 Visual FoxPro命令） 80、删除商品表中产地是“上海”的记录。（用 SQL 语句） 81、查询商品表中“传真机”和“笔记本电脑”的商品记录。（用 SQL 语句） 82、删除部门表中单价字段的有效性规则。（用 SQL 语句） 五、程序分析（本大题共2小题，每题5分，共10分，读程序并分析结果，请填写在答题纸上） 83、分析Visual Basic程序，该程序实现的功能是____________ Option Explicit Private Sub Form_Click() Dim X As Integer, s1 As Integer Dim n As Integer, i As Integer Randomize For i = 1 To 10 X = Int(Rnd * 900 + 100) Print X; If X Mod 5 = 0 Then s1 = s1 + X n = n + 1 End If Next i Print n; s1 End Sub 84、下列Visual Foxpro程序实现的功能是________________ CLEAR N=1 DO WHILE N<=10 M=STR(N,1) NA="TAB"+M USE &NA GOTO TOP DELETE PACK N=N+1 ENDDO USE 六、写出以下程序的运行结果（本大题共5小题，每题5分，共25分，请填写在答题纸上） 85、分析Visual Basic程序： Private Sub Command1_Click() Dim s1 As String s1 = "abcdef" Print UCase(Fun(s1)) End Sub Public Function Fun(xstr As String) As String Dim tstr As String, strl As Integer tstr = "" strl = Len(xstr) i = 1 Do While i <= strl / 2 tstr = tstr & Mid(xstr, i, 1) & Mid(xstr, strl - i + 1, 1) i = i + 1 Loop Fun = tstr End Function 运行该程序，程序的运行结果为_________ 86、分析Visual Basic程序： Option Base 1 Private Sub Command1_Click() Dim A() As Integer, I As Integer, J As Integer Dim K As Integer, n As Integer n = 4 ReDim A(n, n) I = 1: J = n: A(I, J) = 1 For K = 2 To n * n If I + 1 > n Then I = n - J + 2: J = 1 ElseIf I + 1 <= n And J + 1 > n Then J = J - I: I = 1 Else I = I + 1: J = J + 1 End If A(I, J) = K Next K For I = 1 To n For J = 1 To n Print A(I, J); Next J Print Next I End Sub 运行该程序，程序的运行结果为________ 87、在Visual Foxpro中，有如下程序： CLEAR DIME A(3) STORE 5 TO A,B,C DO XYZ WITH A,(B),20 ?A,B,C ?I,M RETURN PROC XYZ PARA X,Y,Z PRIV A(3) PUBLIC I,M STORE 10 TO I,M,N I=X+Y X=Y+Z Y=M+N ?X,Y,Z RETURN 运行上述程序后，程序的运行结果为：__________________________ 第88、89题使用下面的数据库表文件 88、在Visual Foxpro中,设有如下数据库表文件： 学生.DBF：学号（C,6）,姓名（C,8）,性别（C,2）,民族（C,2）,出生日期（D）,专业（C,10） 课程.DBF：课程号（C,2）,课程名（C,16）,学分（N,3,1） 选课.DBF：学号（C,6）,课程号（C,2）,成绩（N,5,1） 学生.DBF 选课.DBF 课程.DBF Visual Foxpro程序代码如下： CLEAR SELECT 1 USE 学生 SELECT 2 USE 课程 INDEX ON 课程号 TO KC SELECT 3 USE 选课 SET RELATION TO 课程号 INTO B INDEX ON 学号 TO XH DO WHILE .T. CLEAR ACCEPT"请输入学生姓名："TO XM SELECT 1 LOCATE FOR 姓名=XM IF EOF() ?"没有该学生记录！" ELSE N=0 XH=学号 SELECT 3 SEEK XH DO WHILE NOT EOF() AND 学号=XH N=N+1 SKIP ENDDO ?"共选修了"+STR(N,2)+"门课程！" ENDIF WAIT "继续查询吗（Y/N）?" TO X IF UPPER(X)="N" EXIT ENDIF ENDDO 运行上面的程序，输入学生姓名“李国华”，则程序的显示结果为：____________ 89、Visual Foxpro程序如下： CLEAR SELECT 1 USE 学生 INDEX ON 学号 TAG XH SELECT 2 USE 课程 INDEX ON 课程号 TAG KCH SELECT 3 USE 选课 SET RELATION TO 学号 INTO 学生 SET RELATION TO 课程号 INTO 课程 ADDITIVE DO WHILE .T. ACCEPT"请输入学生的学号:"TO XH IF LEN(ALLTRIM(XH))=0 EXIT ENDIF SCAN FOR 学号=XH ?学生.学号,学生.姓名,学生.专业,课程.课程名,成绩 ENDSCAN ENDDO 运行上面的程序，输入学号“150208”，程序的运行结果为_____________ 7、 Visual Basic程序改错（本大题共有两个小题，每题5分，共10分，每个程序有两个错误行，请在答题纸上写出错误行和对应的正确行，改对一处得一处分，改错不扣分） 90、程序功能：找出1～100之间的所有孪生素数。所谓孪生素数，就是若两个素数之差为2，则这两个素数就是一对孪生素数。 Private Function fun1(x As Integer) As Boolean For i = 2 To Sqr(x) If x Mod i = 0 Then fun1 = False Exit Function End If Next i fun1 = False End Function Private Sub Command1_Click() Dim x As Integer Text1 = "" For x = 1 To 97 If fun1(x) And fun1(x - 2) Then Text1 = Text1 + Str(x) + "和" + Str(x + 2) + "是孪生素数" + vbCrLf End If Next x 91、下述程序的功能是将一个数的各位数字相乘并打印在窗体上。 Option Explicit Private Sub Command1_Click() Dim n As Long n = InputBox("请输入一个数") Print Fun1(n) End Sub Private Function Fun1(num As Long) As Long Dim s As Long s = 0 num = Abs(num) Do While num > 1 s = s * (num Mod 10) num = num / 10 Loop Fun1 = s End Function 八、程序填空（本大题共7个空，每空5分，共35分，按程序要求在答题纸上填入相应的内容，使程序完整正确） 92、（Visual Basic试题）程序实现的具体功能：判断输入的字符串是否为对称字符串。 例：“123321”是对称字符串。 Private Sub Command1_Click() Dim s As String, i As Integer Dim n As Integer s = InputBox("输入数据：") n = Len(s) For i = 1 To n \ 2 If _______________________ Then Exit For End If Next i If i _______ Then Print s & "是对称字符串" Else Print s & "不是对称字符串" End If End Sub 93、 （Visual Basic试题）下面程序是通过键盘输入一个4×3的矩阵，找出其中最大的那个元素所在的行和列，并输出其值及行号和列号。 Option Base 1 Private Sub Command1_Click() Dim a(3, 3) As Integer, i As Integer, j As Integer Dim col As Integer, row As Integer, max As Integer For i = 1 To 3 For j = 1 To 3 a(i, j) = InputBox("请输入矩阵第" & i & "行，" & j & "列的元素", "输入矩阵元素") Print a(i, j), Next j Print Next i _________ For i = 1 To 3 For j = 1 To 3 If max _________Then max = a(i, j) col = j row = i End If Next j Next i Print Print "矩阵最大的元素的值为："; max Print "它所在的行为"; row; ",列为"; col End Sub 94、（Visual Foxpro试题）表单设计如下图所示，表单中包含两个标签LABEL1和LABEL2，Caption属性分别为“原始字符串：”、“加密后的字符串：”，两个文本框TEXT1和TEXT2，一个命令按钮COMMAND1，Caption属性为“加密”。控件布局如下图所示： 编写Visual FoxPro程序实现“加密”的功能，COMMAND1命令按钮的具体功能如下： 在文本框TEXT1中输入要加密的字符串，经过加密过程后，将加密后的字符串显示在文本框TEXT2中。加密过程： （1） 若是大写字母：则A转换成Z,B转换成Y,C转换X，依次类推； （2） 若是小写字母：则a转换成z,b转换成y,c转换x，依次类推； （3） 若是数字：则0转换成9，1转换成8，依次类推； （4） 若是其他字符，则不进行转换，按原样显示； 程序运行结果如下图所示： 如文本框输入”2024FaV%#M”，则文本框2中显示“7975UzE%#N”。依照程序功能，完成下列代码的补充。 SET COLLATE TO "Machine" STARSTR=ALLTRIM(THISFORM.TEXT1.VALUE) ENDSTR="" M="" FOR I= 1 TO LEN(STARSTR) L=SUBSTR(STARSTR,I,1) IF L>="A" AND L<="Z" M=CHR(ASC("A")+ASC("Z")-ASC(L)) ELSE IF _____________________ M=CHR(ASC("a")+ASC("z")-ASC(L)) ELSE IF L>="0" AND L<="9" M=CHR(ASC("0")+ASC("9")-ASC(L)) ELSE _______________ ENDIF ENDIF ENDIF ___________________________ ENDFOR THISFORM.TEXT2.VALUE=ENDSTR 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $$