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

河北省一般高等学校对口招生考试 计算机专业 综合模拟卷（五） 考前须知： 1.本试卷共八道大题。总分 240分。 2.第I卷“一、选择题”、第Ⅱ卷“二、推断题”的答案填涂在机读卡上，其余各题答案写在答题纸上，答在试卷上不得分。用蓝黑钢笔、碳素笔或圆珠笔答题。 3，答愿前将密封线内工程填写清晰。 第I卷(选择题 共100分) 一、选择题（本大题共50小题，每题2分，共100分。在题所给出的四个选项中，只有一个符合题目要求，将正确选项填涂在机读卡上） 1、百度公司推出的人工智能应用是( ) A.文心一言 B.微信 C.抖音 D.微博 2、下列选项中可以用来连接计算机的显示器的接口是（ ） A.LPT接口 B.DVI接口 C.IEEE 1394接口 D. COM接口 3、 下列各类计算机程序语言中，不属于高级程序设计语言的是（ ） A．Visual Basic语言 B．FORTRAN语言 C．C++语言 D．汇编语言 4、 高级程序设计语言的特点是（ ） A. 高级语言数据结构丰富 B.高级语言与具体的机器结构密切相关 C.高级语言接近算法语言不易掌握 D.用高级语言编写的程序，计算机可以立即执行 5、 下列各存储器中，存取速度最快的一种是（ ） A．RAM B．U盘 C．光盘 D．硬盘 6、 下列关于计算机病毒的叙述，错误的是（ ） A． 计算机病毒是人为制造的、企图破坏计算机功能或计算机数据的一段小程序 B． 反病毒软件需要随着新病毒的出现而升级，提高查、杀病毒的功能 C． 计算机病毒具有传染性 D． 反病毒软件可以查、杀任何种类的病毒 7、 一个字长为5位的无符号二进制数能表示的十进制数值范围是（ ） A．1~32 B．0~32 C．1~31 D．0~31 8、 十进制数625.25对应的二进制数是（ ） A．1011110001.0001 B．100011101.10 C．1000111001.001 D．1001110001.01 9、下列关于 Windows 7对话框的叙述中， 错误的是（ ）。 A. 对话框是提供给用户与计算机对话的界面 B. 对话框的位置可以移动，但大小不能改变 C. 对话框的位置和大小都不能改变 D. 对话框中可能会出现滚动条 10、Windows 7中关于回收站的说法正确的是( )。 A. 回收站保存了所有删除的文件 B. 关机后，以后就不能再恢复回收站的文件 C. 任何操作删除的文件，都可以从回收站恢复 D. 删除移动盘上的文件，不可从回收站中恢复 11、 Windows 7中“磁盘碎片整理程序”的主要作用是（ ） A. 提高文件访问速度 B. 缩小磁盘空间 C. 扩大磁盘空间 D. 修复损坏的磁盘 12、在Word 2010中，若要在一篇内容很多的文档中，将重复过多次的“Hello”快速的加上突出显示格式，应( ) A.按住Ctrl键，将所有的“Hello”选定，然后再加上突出显示 B.先选定突出显示的颜色，然后通过查找与替换进行 C.使用“其他格式”工具栏实现 D.无法实现 13、在Word 2010表格的编辑中，快速的拆分表格应按快捷键（ ） A.CTRL+ENTER B.SHIFT+ENTER C.CTRL+SHIFT+ENTER D.ALT+ENTER 14、在Word 2010中，有关格式刷的叙述中，正确的是( )。 A.格式刷只能复制纯文本的内容 B.格式刷只能复制字体格式 C.格式刷只能复制段落格式 D.格式刷既可以复制字体格式也可以复制段落格式 15、 在Excel 2010中,在A1单元格中输入=”5/31”-”5/21”，显示的结果是（ ） A.10 B.5/10 C.###### D.#VALUE 16、在Excel 2010中,关于图表的说法，正确的是( ) A.Excel图表既可以是嵌入式图表，也可以是独立图表，其不同在于独立图表必须与产生图表的数据在一个工作表中 B.嵌入式图表不可以在工作表中移动和改变大小 C.对于嵌入式图表，当其对应的数据改变时，图表也发生相应的改变；而独立图表不会在其对应的数据改变时自动发生改变 D.无论是嵌入式图表还是独立图表当其对应的数据发生改变时，图表都会发生相应的改变 17、在Excel 2010中，假设在 C2 单元格内输入公式“ =B2＋A$２”，再把该公式复制到 F5单元格，则F5单元格中的公式实际上是（　　）。 A.=C3＋A$2 B.=C3＋A$5 C.=E5＋D$5 D.=E5＋D$2 18、在PowerPoint 2010的幻灯片切换中，不可以设置幻灯片切换的是( )。 A.换片方式 B.颜色 C.持续时间 D.声音 19、 在PowerPoint 2010中,如果要从第2张幻灯片跳转到第8张幻灯片，应使用“插入”选项卡中的（ ） A.超链接或动作 B.预设动画 C.幻灯片切换 D.自定义动画 20、在Visual Basic中，下列变量（ ）是合法的数值变量。 A．“BainLiang” B．aBCD& C．S$ D．2.5D-3 21、 在Visual Basic中，表达式Int(Rnd(0) + 1) + Int(Rnd(1) - 1)的值为（ ） A．-1 B．0 C．1 D．2 22、 在Visual Basic中，关于VB对象属性的叙述，下列说法错误的是（ ） A．属性是对象的特征 B．对象的所有属性值都可以在属性窗口中设置 C．不同对象可以具有同名的属性 D．对象的某些属性可以在程序中设置 23、 在Visual Basic中，引用列表框List1中最后一个数据项，应使用语句（ ） A. List1.List(List1.ListCount) B.List1.List(ListCount) C. List1.List(List1.ListCount-1) D．List1.List(ListCount-1) 24、 在Visual Basic中，假定在标准模块中的声明部分有如下语句： Public VarA As Integer 而在窗体模块的声明部分有如下语句： Public VarB As Integer 则以下叙述中正确的是（ ） A． VarA和VarB都被声明为全局变量 B． VarA被声明为模块变量，VarB被声明为全局变量 C． VarA被声明为全局变量，VarB被声明为模块变量 D． VarA和VarB都被声明为模块变量 25、 在Visual Basic中，假设窗体、框架、图片框（Picture）、图像框（Image）的名称分别为Form1、Frame1、Picture1、Image1，有下面4条语句： ①Form1.Print “VB” ②Frame1.Print “VB” ③Picture1.Print “VB” ④Image1.Print “VB” 其中正确的是（ ） A．①和② B．②和③ C．①和③ D．③和③ 26、 在Visual Basic中，下列说法错误的是（ ） A. 一个工程中可以包含多个窗体文件 B. 在一个窗体文件中用Private定义的通用过程可以被其他窗体调用 C. 窗体和标准模块需要分别保存为不同类型的磁盘文件 D. 全局变量可以在标准模块中定义 27、 在Visual Basic中，有如下代码： Private Sub Command1_Click() Dim A As Integer A = 2 Sum = 0 For I = 1 To 3 Sum = Sum + F(A) Next I Print Sum End Sub Function F(M As Integer) As Integer Static b As Integer b = b + 1 F = M * b End Function 运行程序，单击命令按钮，窗体显示的结果为（ ） A．3 B．6 C．9 D．12 28、 在Visual Basic中，有3个键盘事件：KeyPress、KeyDown、KeyUp，若光标在窗体Form1中，输入一个字母，则（ ） A． 只触发KeyPress事件 B．触发KeyDown、KeyUp事件 C．不触发其中任何一个事件 D．这3个事件都会触发 29、在Visual Foxpro中，执行LIST NEXT 1命令之后，记录指针指向（ ） A．原来记录 B．下一条记录 C．尾记录 D．首记录 30、 在Visual Foxpro中，在当前目录下删除表“Student.dbf”的命令是（ ） A．DROP Student B．DELETE TABLE Student C．DROP TABLE Student D．DELETE Student 31、 在Visual Foxpro中，下列表达式的值不是数值型的是（ ） A．Len(Vartype(Vartype(5))) B．Date()-Year(Date()) C．Sqrt(Abs(-9)) D．Year(Date()) 32、 在Visual Foxpro中提供了4种不同类型的索引，那么下列选项中，（ ）的索引表达式的输入值不能重复。 A． 主索引和候选索引 B．主索引和普通索引 C. 主索引和唯一索引 D．候选索引和唯一索引 33、 在Visual Foxpro中，关于视图与查询的叙述，错误的是（ ） A．视图和查询都可以更新数据 B．查询保存在一个独立的文件中 C．视图可以更新数据 D．视图不是独立的文件，它只能存储在数据库中 34、在Visual Foxpro中，对数据环境和数据环境中两个表之间的关系的描述，叙述正确的是（ ） A．数据环境是对象，关系是数据环境中的对象 B．数据环境是对象，关系不是对象 C．数据环境不是对象，关系也不是对象 D．数据环境不是对象，关系是对象 35、在Visual Foxpro的菜单设计器中，每个菜单的结果列的选项有（ ） A．子菜单、过程、命令和快捷菜单 B．子菜单、菜单项、命令和快捷菜单 C．子菜单、过程、命令和菜单项 D．子菜单、菜单项、命令和填充名称 36、一旦中心节点出现故障，则整个网络会瘫痪的拓扑结构是（ ） A.总线型 B.环型 C.星型 D.树型 37、TCP/IP协议簇的网际层上的RARP协议的功能是（ ） A.用于传输IP数据报 B.实现物理地址到IP地址的映射 C.实现IP地址到物理地址的映射 D.用于该层上控制信息产生 38、关于串行通信和并行通信的比较，正确的是（ ） A. 并行通信方式比串行方式发送数据慢 B. 串行通信方式会出现线路与线路间互相干扰的情况 C. 并行通信方式的数据抗干扰性强 D. 串行通信方式适合长距离数据传输 39、 HDLC协议包括3种类型的帧，以下不包括在其中的是（ ） A.信息帧 B.监控帧 C.数据帧 D.无编号帧 40、下面IP地址属于B类地址的是（ ） A.192.168.7.1 B.10.10.10.1 C.137.137.7.2 D.224.22.32.15 41、公共传输网络分为电路交换网络和分组交换网络，下列属于电路交换网络的是( )。 A. 综合业务数字网ISDN B. X.25分组交换网 C.帧中继网 D.ATM网 42、100BASE-T使用的传输介质是（ ） A.双绞线 B.同轴电缆 C.光纤 D.红外线 43、OSPF最主要的特征是采用（ ） A.分布式的链路状态协议 B.路径向量协议 C.距离矢量算法 D.UDP发送 44、 ( )是设置在被保护网络和外部网络之间的一道屏障，以防止破坏性侵入。 A.屏幕保护程序 B.防火墙 C.杀病毒软件 D.网关 45、DHCP服务的工作过程正确的是（ ） ①提供阶段 ②发现阶段 ③确认阶段 ④重新登录 ⑤更新租约 ⑥选择阶段 A. ②①⑥③④⑤ B. ①②⑥③④⑤ C. ①②⑥③④⑤ D. ②①⑥③⑤④ 46、非对称密码技术的密钥的个数是（ ）。 A.1个 B. 2个 C.3个 D.4个 47、 有关网络域名系统的描述中，错误的是（ ） A. 网络域名系统的缩写是DNS B.每个域名可以由几个域组成，域与域之间用“.”分开 C.域名中的最左端的域称为顶级域 D.CN是常用的顶级域名 48、网络管理的主要功能是（ ） A.监测网络出现的故障并进行处理 B.监测分析运行状况进而评价系统性能 C.对网络进行配置调整，从而更有效的利用资源 D.以上说法都正确 49、计算机病毒是指（ ） A.编码有错误的计算机程序 B.设计不完善的计算机程序 C.计算机的程序已被破坏 D.以危害系统为目的的特殊的计算机程序 50、关于用户计算机与交换机之间的长度（L、M、N），下列说法错误的是( )。 A. L-表示信息插座网络接口到计算机的活动短线 B.M-表示水平电缆 C. N--表示配线架到交换机 D. 三段之和L+M+N<100m 第II卷(非选择题 共140分) 二、判断题（本大题共14小题，每题1分，共14分。将答案填涂在机读卡上，正确的填涂“A”，错误的填涂“B”） 51、计算机显示器的参数：1024*768表示显示器屏幕大小。（ ） 52、 专用计算机是指专门为某种用途而设计的计算机。（ ） 53、 Windows 7中如果多个用户使用同一台计算机，每个用户都可以个性化设置自己的桌面和显示效果。( ) 54、 Windows 7 中的网络主要功能是实现资源共享。( ) 55、 在Word 2010中，当前文档中有一个表格，选定表格后按DELETE键，将会删除表格中的内容。（ ） 56、在Word 2010中“页码”位于“页面布局”选项卡中。（ ） 57、 在Excel 2010 电子表格中，进行公式复制时绝对地址和混合地址不会发生变化。( ) 58、 在Excel 2010中，独立图表是与工作表无关的表。（ ） 59、PowerPoint 2010中，占位符的位置、大小无法调整。 ( ) 60、在Visual Basic的Private Sub Tt(Byval y, t)过程中，形参y,t均为按地址传递。（ ） 61、在Visual Foxpro中，数据库表的字段或记录的有效性规则的设置可以在表单设计器中进行。（ ） 62、TCP报文段由首部字段和一个数据字段组成。( ) 63、 组建计算机网络的目的是为了能够相互共享资源，这里的计算机资源主要是指硬件、软件与数据。（ ） 64、 FTP工作在传输层。（ ） 三、填空题（本大题共13小题，每题2分，共26分，请将答案填写在答题纸上） 65、微机的主机包括中央处理器（CPU）和_______。 66、一个字符的标准ASCII码码长是________。 67、电子计算机最早的应用领域是______。 68、 在Windows 7中，若将一个文件设置为“只读”，则可以选中该文件，右击，然后在弹出菜单中选择_______命令。 69、 在Word 2010中，要想显示标尺，应在_________选项卡中进行设置。 70、 在Excel 2010中，根据数据插入生成的图表，当有数据发生变化后，图表______（会/不会）发生变化。 71、 在PowerPoint 2010，在幻灯片正在放映时，按键盘上的______键，可以结束放映。 72、 在Visual Basic中，在属性窗口中，属性有两种排列方式，分别是字母顺序和_________。 73、在Visual Basic中，为了让计时器控件每隔10秒产生一个Timer事件，应把Interval属性设置为____________。 74、在Visual Foxpro中，表达式LEN(SPACE(15)-SPACE(5))的结果为_____。 75、综合布线系统中，双绞线的传输距离为_________。 76、 PPP协议是_________层的协议。 77、 Telnet协议的默认端口是_________。 四、依据环境与题意，写出相应的Visual FoxPro语句或SQL语句，要求每题用一条语句完成（本大题共5小题，每题4分，共20分，请填写在答题纸上） 现有数据库" GZGL . DBC "，其中包含表" 职工. dbf "，该表有以下字段：职工号( C ,6)、姓名( C ,20)、性别( C ,2)、年龄( N ,3)、基本工资( N ,7,2)、奖金( N ,7,2)，在相应数据库和表已打开的前提下，写出完成下述功能的命令（注意：只能写一条语句，多于一条不得分）。 78、显示所有年龄大于35(不包含35)的女职工基本信息。（用 Visual FoxPro 命令） 79、以"职工号"为关键字建立索引，索引名为 ZH ，索引文件名 ZHH . CDX .（用 Visual FoxPro 命令） 80、将" 职工. dbf "表中"姓名"字段的宽度改为8。（用 SQL 语句） 81、删除" 职工 . dbf "表中年龄在25-45之间的职工的记录。（用 SQL 语句） 82、查询统计"职工. dbf "表中每个部门（职工号的前2位）职工基本工资的平均值。（用 SQL 语句） 五、程序分析（本大题共2小题，每题5分，共10分，读程序并分析结果，请填写在答题纸上） 83、在Visual Basic中，以下程序段的功能是___________________ Sub proc() Dim ch As Integer Open "file1.txt" For Input As #1 Open "file1_bak.txt" For Output As #2 Do While Not EOF(1) ch = Input$(1, #1) Print #2, ch; Loop Close #1, #2 End Sub 84、下列Visual Foxpro程序实现的功能是_____________ CLEAR N=20 J=0 S=0 DO WHILE N<=100 I=2 DO WHILE I<N IF INT(N/I)=N/I EXIT ENDIF I=I+1 ENDDO IF I>=N ??STR(N,5) S=S+N J=J+1 IF J%5=0 ? ENDIF ENDIF N=N+1 ENDDO ?"S=",S RETURN 六、写出以下程序的运行结果（本大题共5小题，每题5分，共25分，请填写在答题纸上） 85、分析下面Visual Basic程序，运行程序时，在TEXT1中输入36，在TEXT2中输入48，单击COMMAND1，LABEL1上显示的是_____________，单击COMMAND2，LABEL1上显示的是_______________。 Private Sub Command1_Click() Dim m%, n% m = Val(Text1.Text) n = Val(Text2.Text) Call ex(m, n) Label1.Caption = Str(n) End Sub Sub ex(x%, y%) r = x Mod y Do While r <> 0 x = y y = r r = x Mod y Loop End Sub Private Sub Command2_Click() Dim m%, n% m = Val(Text1.Text) n = Val(Text2.Text) x = m * n Call ex(m, n) Label1.Caption = Str(x / n) End Sub 86、分析下面Visual Basic程序，程序的运行结果是__________ Private Sub Command1_Click() Dim a(3, 3) As Integer, i As Integer Dim j As Integer, k As Integer, n As Integer n = 9 For k = 1 To 5 If k <= 3 Then For i = 1 To k a(i, k - i + 1) = n n = n - 1 Next i Else For i = 1 To 6 - k a(k - 3 + i, 4 - i) = n n = n + 1 Next i End If Next k For k = 1 To 3 For i = 1 To 3 Print a(k, i); Next i Print Next k End Sub 87、有如下Visual Foxpro程序： CLEAR DIME A(4,4) FOR I=1 TO 4 A(1,I)=I ENDFOR FOR I=2 TO 4 FOR J=1 TO 3 A(I,J)=A(I-1,J+1) A(I,4)=A(1,I-1) ENDFOR ENDFOR FOR I=1 TO 4 FOR J=1 TO 4 ??A(I,J) ENDFOR ? ENDFOR 运行该程序，程序的运行结果为____________ 88~89题共用以下三张数据库表文件。 有如下三张数据库表文件： 图书：图书id(C ,6)，书号(C ,20)，作者id(C ,4)，单价(N,6,2),出版社(C ,20),出版日期D 读者：借书证号(C ,6)，姓名(C ,6)，性别(C ,2)，出生日期D，电话(N,8) 借阅：借书证号(C ,6)，图书id(C ,6)，借书日期D，还书日期D “图书”表 “读者”表 “借阅”表 88、Visual Foxpro程序如下： SELECT 借书证号,图书ID,借书日期 FROM 借阅 WHERE 还书日期={} INTO DBF TEMP1 SELECT 图书ID,书名 FROM 图书 WHERE 图书ID IN(SELECT 图书ID FROM TEMP1 )INTO DBF TEMP2 SELECT 借书证号,姓名 FROM 读者 WHERE 借书证号 IN(SELECT 借书证号 FROM TEMP1 )INTO DBF TEMP3 SELECT 姓名,书名,借书日期 FROM TEMP1,TEMP2,TEMP3 WHERE TEMP1.借书证号=TEMP3.借书证号 AND TEMP1.图书ID= TEMP2.图书ID ORDER BY 借书日期 INTO DBF AAA SCAN IF DATE()-借书日期>180 ?姓名+"请归还"+"《"+ALLT(书名)+"》" ENDIF ENDSCAN 运行程序，则显示的结果为___________ 89、Visual Foxpro程序如下： SELECT 1 USE 读者 SELECT 2 USE 图书 INDEX ON 图书ID TO TS SELECT 3 USE 借阅 SET RELATION TO 图书ID INTO B INDEX ON 借书证号 TO JSZH DO WHILE .T. ACCEPT"请输入读者姓名:"TO XM SELECT 1 LOCATE FOR ALLT(姓名)=ALLT(XM) IF EOF() ?"没有该读者！" ELSE N=0 ZH=借书证号 SELECT 3 SEEK ZH DO WHILE NOT EOF() AND 借书证号=ZH N=N+1 SKIP ENDDO ?"共借阅"+STR(N,2)+"本图书！" ENDIF WAIT"继续查询吗(Y/N)?"TO P IF !UPPER(P)="Y" EXIT ENDIF ENDDO CLOSE ALL 运行程序，输入读者姓名“陈晨”，则显示的结果为___________ 7、 Visual Basic程序改错（本大题共有两个小题，每题5分，共10分，每个程序有两个错误行，请在答题纸上写出错误行和对应的正确行，改对一处得一处分，改错不扣分） 90、以下程序实现的功能：从键盘上输入一个由大写字母组成的英文单词，保留第一个字母为大写，把后面的字母全部变成小写。 Private Sub Command1_Click() Dim x As String Dim n As Integer x = InputBox("请输入一个英文单词（全部大写）") n = Len(x) For i = 2 To n c = Asc(Mid(x)) + 32 Mid(x, i, 1) = c Next i Print x End Sub 91、 以下程序实现的功能：把一个正整数序列重新排列，新序列的排列规则是：奇数在序列左边，偶数在序列右边，排列时，奇、偶数依此从序列两端向序列中间排放。 Option Explicit Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer, i As Integer, j As Integer Dim b(10) As Integer, k As Integer Print "原始序列:" For i = 1 To 10 a(i) = Int(Rnd * 100) + 1 Print a(i); Next i Print j = 1: k = 10 For i = 1 To 10 If a(i) Mod 2 = 0 Then b(j) = a(i) j = j + 1 Else b(k) = a(i) k = k + 1 End If Next i Print "排序后的序列:" For i = 1 To 10 Print b(i); Next i End Sub 八、程序填空（本大题共7个空，每空5分，共35分，按程序要求在答题纸上填入相应的内容，使程序完整正确） 92、（Visual Basic试题）下列程序的功能：将二维数组元素的行列互换（即求转置矩阵），请完善程序。 如： Private Sub Command1_Click() Dim a(4, 4) For k=1 To 4 For J=1 To 4 a(k, J)=j Print a(k, j); Next j Print Next k Print For k=2 To 4 For J=1 To t=a(j, k) a(j, k)= a(k, j)=t Next j Next k For k=1 To 4 Print a(k, 1); a(k, 2); a(k, 3); a(k, 4) Next k End Sub 92、 （Visual Basic试题）程序的功能是：单击窗体时将随机生成12个三位正整数，分别赋给3*4的数组，找出数组中的最大元素，并指出该元素所在的行和列。请将程序补充完整。程序运行如下图所示。 Option Base 1 Private Sub Form_Click() Dim a(3, 4) As Integer, i As Integer, j As Integer Dim max As Integer, max_i As Integer, max_j As Integer Randomize For i = 1 To 3 For j = 1 To 4 a(i, j) = Int(900 * Rnd) + 100 Print a(i, j); Next j Print Next i Print max =___________: max_i = 1: max_j = 1 For i = 1 To 3 For j = 1 To 4 If __________ Then max = a(i, j) max_i = i max_j = j End If Next j Next i Print max, max_i, max_j End Sub 94、（Visual Foxpro试题）表单设计如下图所示，表单中包含两个标签LABEL1和LABEL2，Caption属性分别为“查询条件：”、“查询结果：”，两个文本框TEXT1和TEXT2，两个命令按钮COMMAND1和COMMAND2，Caption属性为“查询”和“下一条记录”。控件布局如下图所示： 程序实现如下功能：在TEXT1中输入查询条件，格式如“字段名=字段值”，单击“查询”按钮，在表“学生.DBF”中按输入的条件进行查询。如果没有查询到符合条件的记录，则显示“未找到记录”，否则将查询到的第一条记录显示在TEXT2中,单击”下一条记录”，如果还有记录，则在TEXT2中显示下一条满足条件的记录，如果没有记录，则显示”已显示所有记录”，并且COMMAND2变为不可用。表”学生.DBF”和程序运行如下图所示。 例如：在TEXT1中输入条件：专业=”计算机” ，点击查询按钮，显示结果如下。 COMMAND1的CLICK事件代码如下： MM=THISFORM.TEXT1.VALUE SELECT * FROM 学生 WHERE ___(1)________ INTO DBF TEMP USE TEMP IF RECCOUNT()>0 THISFORM.TEXT2.VALUE =TRIM(学号)+"-"+TRIM(姓名)+"-"+MM ELSE THISFORM.TEXT2.VALUE="未找到记录！" ENDIF COMMAND2的CLICK事件代码如下： _______(2)___________ IF NOT EOF() THISFORM.TEXT2.VALUE =TRIM(学号)+"-"+TRIM(姓名)+"-"+THISFORM.TEXT1.VALUE ELSE _________(3)_______________ THISFORM.COMMAND2.ENABLED=.F. ENDIF 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $$ 河北省一般高等学校对口招生考试 计算机专业 综合模拟卷（五）答案 考前须知： 1.本试卷共八道大题。总分 240分。 2.第I卷“一、选择题”、第Ⅱ卷“二、推断题”的答案填涂在机读卡上，其余各题答案写在答题纸上，答在试卷上不得分。用蓝黑钢笔、碳素笔或圆珠笔答题。 3，答愿前将密封线内工程填写清晰。 第I卷(选择题 共100分) 一、选择题（本大题共50小题，每题2分，共100分。在题所给出的四个选项中，只有一个符合题目要求，将正确选项填涂在机读卡上） 1、百度公司推出的人工智能应用是( ) A.文心一言 B.微信 C.抖音 D.微博 【答案】A 2、下列选项中可以用来连接计算机的显示器的接口是（ ） A.LPT接口 B.DVI接口 C.IEEE 1394接口 D. COM接口 【答案】 B 3、 下列各类计算机程序语言中，不属于高级程序设计语言的是（ ） A．Visual Basic语言 B．FORTRAN语言 C．C++语言 D．汇编语言 【答案】D 4、 高级程序设计语言的特点是（ ） A. 高级语言数据结构丰富 B.高级语言与具体的机器结构密切相关 C.高级语言接近算法语言不易掌握 D.用高级语言编写的程序，计算机可以立即执行 【答案】 A 5、 下列各存储器中，存取速度最快的一种是（ ） A．RAM B．U盘 C．光盘 D．硬盘 【答案】 A 6、 下列关于计算机病毒的叙述，错误的是（ ） A． 计算机病毒是人为制造的、企图破坏计算机功能或计算机数据的一段小程序 B． 反病毒软件需要随着新病毒的出现而升级，提高查、杀病毒的功能 C． 计算机病毒具有传染性 D． 反病毒软件可以查、杀任何种类的病毒 【答案】 D 7、 一个字长为5位的无符号二进制数能表示的十进制数值范围是（ ） A．1~32 B．0~32 C．1~31 D．0~31 【答案】 D 8、 十进制数625.25对应的二进制数是（ ） A．1011110001.0001 B．100011101.10 C．1000111001.001 D．1001110001.01 【答案】 D 9、下列关于 Windows 7对话框的叙述中， 错误的是（ ）。 A. 对话框是提供给用户与计算机对话的界面 B. 对话框的位置可以移动，但大小不能改变 C. 对话框的位置和大小都不能改变 D. 对话框中可能会出现滚动条 【答案】 C 10、Windows 7中关于回收站的说法正确的是( )。 A. 回收站保存了所有删除的文件 B. 关机后，以后就不能再恢复回收站的文件 C. 任何操作删除的文件，都可以从回收站恢复 D. 删除移动盘上的文件，不可从回收站中恢复 【答案】 D 11、 Windows 7中“磁盘碎片整理程序”的主要作用是（ ） A. 提高文件访问速度 B. 缩小磁盘空间 C. 扩大磁盘空间 D. 修复损坏的磁盘 【答案】 A 12、在Word 2010中，若要在一篇内容很多的文档中，将重复过多次的“Hello”快速的加上突出显示格式，应( ) A.按住Ctrl键，将所有的“Hello”选定，然后再加上突出显示 B.先选定突出显示的颜色，然后通过查找与替换进行 C.使用“其他格式”工具栏实现 D.无法实现 【答案】B 13、在Word 2010表格的编辑中，快速的拆分表格应按快捷键（ ） A.CTRL+ENTER B.SHIFT+ENTER C.CTRL+SHIFT+ENTER D.ALT+ENTER 【答案】C 14、在Word 2010中，有关格式刷的叙述中，正确的是( )。 A.格式刷只能复制纯文本的内容 B.格式刷只能复制字体格式 C.格式刷只能复制段落格式 D.格式刷既可以复制字体格式也可以复制段落格式 【答案】D 15、 在Excel 2010中,在A1单元格中输入=”5/31”-”5/21”，显示的结果是（ ） A.10 B.5/10 C.###### D.#VALUE 【答案】A 16、在Excel 2010中,关于图表的说法，正确的是( ) A.Excel图表既可以是嵌入式图表，也可以是独立图表，其不同在于独立图表必须与产生图表的数据在一个工作表中 B.嵌入式图表不可以在工作表中移动和改变大小 C.对于嵌入式图表，当其对应的数据改变时，图表也发生相应的改变；而独立图表不会在其对应的数据改变时自动发生改变 D.无论是嵌入式图表还是独立图表当其对应的数据发生改变时，图表都会发生相应的改变 【答案】D 17、在Excel 2010中，假设在 C2 单元格内输入公式“ =B2＋A$２”，再把该公式复制到 F5单元格，则F5单元格中的公式实际上是（　　）。 A.=C3＋A$2 B.=C3＋A$5 C.=E5＋D$5 D.=E5＋D$2 【答案】 D 18、在PowerPoint 2010的幻灯片切换中，不可以设置幻灯片切换的是( )。 A.换片方式 B.颜色 C.持续时间 D.声音 【答案】B 19、 在PowerPoint 2010中,如果要从第2张幻灯片跳转到第8张幻灯片，应使用“插入”选项卡中的（ ） A.超链接或动作 B.预设动画 C.幻灯片切换 D.自定义动画 【答案】A 20、在Visual Basic中，下列变量（ ）是合法的数值变量。 A．“BainLiang” B．aBCD& C．S$ D．2.5D-3 【答案】 B 21、 在Visual Basic中，表达式Int(Rnd(0) + 1) + Int(Rnd(1) - 1)的值为（ ） A．-1 B．0 C．1 D．2 【答案】 B 22、 在Visual Basic中，关于VB对象属性的叙述，下列说法错误的是（ ） A．属性是对象的特征 B．对象的所有属性值都可以在属性窗口中设置 C．不同对象可以具有同名的属性 D．对象的某些属性可以在程序中设置 【答案】 B 23、 在Visual Basic中，引用列表框List1中最后一个数据项，应使用语句（ ） A. List1.List(List1.ListCount) B.List1.List(ListCount) C. List1.List(List1.ListCount-1) D．List1.List(ListCount-1) 【答案】 B 24、 在Visual Basic中，假定在标准模块中的声明部分有如下语句： Public VarA As Integer 而在窗体模块的声明部分有如下语句： Public VarB As Integer 则以下叙述中正确的是（ ） A． VarA和VarB都被声明为全局变量 B． VarA被声明为模块变量，VarB被声明为全局变量 C． VarA被声明为全局变量，VarB被声明为模块变量 D． VarA和VarB都被声明为模块变量 【答案】A 25、 在Visual Basic中，假设窗体、框架、图片框（Picture）、图像框（Image）的名称分别为Form1、Frame1、Picture1、Image1，有下面4条语句： ①Form1.Print “VB” ②Frame1.Print “VB” ③Picture1.Print “VB” ④Image1.Print “VB” 其中正确的是（ ） A．①和② B．②和③ C．①和③ D．③和③ 【答案】C 26、 在Visual Basic中，下列说法错误的是（ ） A. 一个工程中可以包含多个窗体文件 B. 在一个窗体文件中用Private定义的通用过程可以被其他窗体调用 C. 窗体和标准模块需要分别保存为不同类型的磁盘文件 D. 全局变量可以在标准模块中定义 【答案】B 27、 在Visual Basic中，有如下代码： Private Sub Command1_Click() Dim A As Integer A = 2 Sum = 0 For I = 1 To 3 Sum = Sum + F(A) Next I Print Sum End Sub Function F(M As Integer) As Integer Static b As Integer b = b + 1 F = M * b End Function 运行程序，单击命令按钮，窗体显示的结果为（ ） A．3 B．6 C．9 D．12 【答案】 D 28、 在Visual Basic中，有3个键盘事件：KeyPress、KeyDown、KeyUp，若光标在窗体Form1中，输入一个字母，则（ ） A． 只触发KeyPress事件 B．触发KeyDown、KeyUp事件 C．不触发其中任何一个事件 D．这3个事件都会触发 【答案】 D 29、在Visual Foxpro中，执行LIST NEXT 1命令之后，记录指针指向（ ） A．原来记录 B．下一条记录 C．尾记录 D．首记录 【答案】 A 30、 在Visual Foxpro中，在当前目录下删除表“Student.dbf”的命令是（ ） A．DROP Student B．DELETE TABLE Student C．DROP TABLE Student D．DELETE Student 【答案】 C 31、 在Visual Foxpro中，下列表达式的值不是数值型的是（ ） A．Len(Vartype(Vartype(5))) B．Date()-Year(Date()) C．Sqrt(Abs(-9)) D．Year(Date()) 【答案】 B 32、 在Visual Foxpro中提供了4种不同类型的索引，那么下列选项中，（ ）的索引表达式的输入值不能重复。 A． 主索引和候选索引 B．主索引和普通索引 C. 主索引和唯一索引 D．候选索引和唯一索引 【答案】 A 33、 在Visual Foxpro中，关于视图与查询的叙述，错误的是（ ） A．视图和查询都可以更新数据 B．查询保存在一个独立的文件中 C．视图可以更新数据 D．视图不是独立的文件，它只能存储在数据库中 【答案】 A 34、在Visual Foxpro中，对数据环境和数据环境中两个表之间的关系的描述，叙述正确的是（ ） A．数据环境是对象，关系是数据环境中的对象 B．数据环境是对象，关系不是对象 C．数据环境不是对象，关系也不是对象 D．数据环境不是对象，关系是对象 【答案】 A 35、在Visual Foxpro的菜单设计器中，每个菜单的结果列的选项有（ ） A．子菜单、过程、命令和快捷菜单 B．子菜单、菜单项、命令和快捷菜单 C．子菜单、过程、命令和菜单项 D．子菜单、菜单项、命令和填充名称 【答案】 C 36、一旦中心节点出现故障，则整个网络会瘫痪的拓扑结构是（ ） A.总线型 B.环型 C.星型 D.树型 【答案】C 37、TCP/IP协议簇的网际层上的RARP协议的功能是（ ） A.用于传输IP数据报 B.实现物理地址到IP地址的映射 C.实现IP地址到物理地址的映射 D.用于该层上控制信息产生 【答案】B 38、关于串行通信和并行通信的比较，正确的是（ ） A. 并行通信方式比串行方式发送数据慢 B. 串行通信方式会出现线路与线路间互相干扰的情况 C. 并行通信方式的数据抗干扰性强 D. 串行通信方式适合长距离数据传输 【答案】D 39、 HDLC协议包括3种类型的帧，以下不包括在其中的是（ ） A.信息帧 B.监控帧 C.数据帧 D.无编号帧 【答案】 C 40、下面IP地址属于B类地址的是（ ） A.192.168.7.1 B.10.10.10.1 C.137.137.7.2 D.224.22.32.15 【答案】 C 41、公共传输网络分为电路交换网络和分组交换网络，下列属于电路交换网络的是( )。 A. 综合业务数字网ISDN B. X.25分组交换网 C.帧中继网 D.ATM网 【答案】A 42、100BASE-T使用的传输介质是（ ） A.双绞线 B.同轴电缆 C.光纤 D.红外线 【答案】 A 43、OSPF最主要的特征是采用（ ） A.分布式的链路状态协议 B.路径向量协议 C.距离矢量算法 D.UDP发送 【答案】A 44、 ( )是设置在被保护网络和外部网络之间的一道屏障，以防止破坏性侵入。 A.屏幕保护程序 B.防火墙 C.杀病毒软件 D.网关 【答案】 B 45、DHCP服务的工作过程正确的是（ ） ①提供阶段 ②发现阶段 ③确认阶段 ④重新登录 ⑤更新租约 ⑥选择阶段 A. ②①⑥③④⑤ B. ①②⑥③④⑤ C. ①②⑥③④⑤ D. ②①⑥③⑤④ 【答案】A 46、非对称密码技术的密钥的个数是（ ）。 A.1个 B. 2个 C.3个 D.4个 【答案】 B 47、 有关网络域名系统的描述中，错误的是（ ） A. 网络域名系统的缩写是DNS B.每个域名可以由几个域组成，域与域之间用“.”分开 C.域名中的最左端的域称为顶级域 D.CN是常用的顶级域名 【答案】 C 48、网络管理的主要功能是（ ） A.监测网络出现的故障并进行处理 B.监测分析运行状况进而评价系统性能 C.对网络进行配置调整，从而更有效的利用资源 D.以上说法都正确 【答案】Ｄ　 49、计算机病毒是指（ ） A.编码有错误的计算机程序 B.设计不完善的计算机程序 C.计算机的程序已被破坏 D.以危害系统为目的的特殊的计算机程序 【答案】 D 50、关于用户计算机与交换机之间的长度（L、M、N），下列说法错误的是( )。 A. L-表示信息插座网络接口到计算机的活动短线 B.M-表示水平电缆 C. N--表示配线架到交换机 D. 三段之和L+M+N<100m 【答案】 D 第II卷(非选择题 共140分) 二、判断题（本大题共14小题，每题1分，共14分。将答案填涂在机读卡上，正确的填涂“A”，错误的填涂“B”） 51、计算机显示器的参数：1024*768表示显示器屏幕大小。（ ） 【答案】B 52、 专用计算机是指专门为某种用途而设计的计算机。（ ） 【答案】A 53、 Windows 7中如果多个用户使用同一台计算机，每个用户都可以个性化设置自己的桌面和显示效果。( ) 【答案】A 54、 Windows 7 中的网络主要功能是实现资源共享。( ) 【答案】A 55、 在Word 2010中，当前文档中有一个表格，选定表格后按DELETE键，将会删除表格中的内容。（ ） 【答案】A 56、在Word 2010中“页码”位于“页面布局”选项卡中。（ ） 【答案】B 57、 在Excel 2010 电子表格中，进行公式复制时绝对地址和混合地址不会发生变化。( ) 【答案】B 58、 在Excel 2010中，独立图表是与工作表无关的表。（ ） 【答案】B 59、PowerPoint 2010中，占位符的位置、大小无法调整。 ( ) 【答案】B 60、在Visual Basic的Private Sub Tt(Byval y, t)过程中，形参y,t均为按地址传递。（ ） 【答案】B 61、在Visual Foxpro中，数据库表的字段或记录的有效性规则的设置可以在表单设计器中进行。（ ） 【答案】B 62、TCP报文段由首部字段和一个数据字段组成。( ) 【答案】A 63、 组建计算机网络的目的是为了能够相互共享资源，这里的计算机资源主要是指硬件、软件与数据。（ ） 【答案】A 64、 FTP工作在传输层。（ ） 【答案】B 三、填空题（本大题共13小题，每题2分，共26分，请将答案填写在答题纸上） 65、微机的主机包括中央处理器（CPU）和_______。 【答案】 内存 66、一个字符的标准ASCII码码长是________。 【答案】 7bits 67、电子计算机最早的应用领域是______。 【答案】 数值计算 68、 在Windows 7中，若将一个文件设置为“只读”，则可以选中该文件，右击，然后在弹出菜单中选择_______命令。 【答案】 属性 69、 在Word 2010中，要想显示标尺，应在_________选项卡中进行设置。 【答案】 视图 70、 在Excel 2010中，根据数据插入生成的图表，当有数据发生变化后，图表______（会/不会）发生变化。 【答案】会 71、 在PowerPoint 2010，在幻灯片正在放映时，按键盘上的______键，可以结束放映。 【答案】ESC 72、 在Visual Basic中，在属性窗口中，属性有两种排列方式，分别是字母顺序和_________。 【答案】分类顺序 73、在Visual Basic中，为了让计时器控件每隔10秒产生一个Timer事件，应把Interval属性设置为____________。 【答案】 10000 74、在Visual Foxpro中，表达式LEN(SPACE(15)-SPACE(5))的结果为_____。 【答案】 20 75、综合布线系统中，双绞线的传输距离为_________。 【答案】100m 76、 PPP协议是_________层的协议。 【答案】数据链路层 77、 Telnet协议的默认端口是_________。 【答案】23 四、依据环境与题意，写出相应的Visual FoxPro语句或SQL语句，要求每题用一条语句完成（本大题共5小题，每题4分，共20分，请填写在答题纸上） 现有数据库" GZGL . DBC "，其中包含表" 职工. dbf "，该表有以下字段：职工号( C ,6)、姓名( C ,20)、性别( C ,2)、年龄( N ,3)、基本工资( N ,7,2)、奖金( N ,7,2)，在相应数据库和表已打开的前提下，写出完成下述功能的命令（注意：只能写一条语句，多于一条不得分）。 78、显示所有年龄大于35(不包含35)的女职工基本信息。（用 Visual FoxPro 命令） 【答案】LIST FOR 年龄>35 AND 性别=”女” 79、以"职工号"为关键字建立索引，索引名为 ZH ，索引文件名 ZHH . CDX .（用 Visual FoxPro 命令） 【答案】INDEX ON 职工号 TAG ZH of ZHH 80、将" 职工. dbf "表中"姓名"字段的宽度改为8。（用 SQL 语句） 【答案】ALTER TABLE 职工 ALTER 姓名 C(8) 81、删除" 职工 . dbf "表中年龄在25-45之间的职工的记录。（用 SQL 语句） 【答案】DELETE FROM 职工 WHERE 年龄 >=25 AND 年龄 <=45 82、查询统计"职工. dbf "表中每个部门（职工号的前2位）职工基本工资的平均值。（用 SQL 语句） 【答案】 Sele AVG(基本工资) as 平均值 , left(职工号,2)as 部门号 from 职工 group by 2 五、程序分析（本大题共2小题，每题5分，共10分，读程序并分析结果，请填写在答题纸上） 83、在Visual Basic中，以下程序段的功能是___________________ Sub proc() Dim ch As Integer Open "file1.txt" For Input As #1 Open "file1_bak.txt" For Output As #2 Do While Not EOF(1) ch = Input$(1, #1) Print #2, ch; Loop Close #1, #2 End Sub 【答案】把文件file1.txt复制为file1_bak.txt文件。 84、下列Visual Foxpro程序实现的功能是_____________ CLEAR N=20 J=0 S=0 DO WHILE N<=100 I=2 DO WHILE I<N IF INT(N/I)=N/I EXIT ENDIF I=I+1 ENDDO IF I>=N ??STR(N,5) S=S+N J=J+1 IF J%5=0 ? ENDIF ENDIF N=N+1 ENDDO ?"S=",S RETURN 【答案】输出20到100之间所有的素数，每5个一行，并显示这些素数的和 六、写出以下程序的运行结果（本大题共5小题，每题5分，共25分，请填写在答题纸上） 85、分析下面Visual Basic程序，运行程序时，在TEXT1中输入36，在TEXT2中输入48，单击COMMAND1，LABEL1上显示的是_____________，单击COMMAND2，LABEL1上显示的是_______________。 Private Sub Command1_Click() Dim m%, n% m = Val(Text1.Text) n = Val(Text2.Text) Call ex(m, n) Label1.Caption = Str(n) End Sub Sub ex(x%, y%) r = x Mod y Do While r <> 0 x = y y = r r = x Mod y Loop End Sub Private Sub Command2_Click() Dim m%, n% m = Val(Text1.Text) n = Val(Text2.Text) x = m * n Call ex(m, n) Label1.Caption = Str(x / n) End Sub 【答案】12 144 86、分析下面Visual Basic程序，程序的运行结果是__________ Private Sub Command1_Click() Dim a(3, 3) As Integer, i As Integer Dim j As Integer, k As Integer, n As Integer n = 9 For k = 1 To 5 If k <= 3 Then For i = 1 To k a(i, k - i + 1) = n n = n - 1 Next i Else For i = 1 To 6 - k a(k - 3 + i, 4 - i) = n n = n + 1 Next i End If Next k For k = 1 To 3 For i = 1 To 3 Print a(k, i); Next i Print Next k End Sub 【答案】 9 8 6 7 5 3 4 4 5 87、有如下Visual Foxpro程序： CLEAR DIME A(4,4) FOR I=1 TO 4 A(1,I)=I ENDFOR FOR I=2 TO 4 FOR J=1 TO 3 A(I,J)=A(I-1,J+1) A(I,4)=A(1,I-1) ENDFOR ENDFOR FOR I=1 TO 4 FOR J=1 TO 4 ??A(I,J) ENDFOR ? ENDFOR 运行该程序，程序的运行结果为____________ 【答案】 1 2 3 4 2 3 4 1 3 4 1 2 4 1 2 3 88~89题共用以下三张数据库表文件。 有如下三张数据库表文件： 图书：图书id(C ,6)，书号(C ,20)，作者id(C ,4)，单价(N,6,2),出版社(C ,20),出版日期D 读者：借书证号(C ,6)，姓名(C ,6)，性别(C ,2)，出生日期D，电话(N,8) 借阅：借书证号(C ,6)，图书id(C ,6)，借书日期D，还书日期D “图书”表 “读者”表 “借阅”表 88、Visual Foxpro程序如下： SELECT 借书证号,图书ID,借书日期 FROM 借阅 WHERE 还书日期={} INTO DBF TEMP1 SELECT 图书ID,书名 FROM 图书 WHERE 图书ID IN(SELECT 图书ID FROM TEMP1 )INTO DBF TEMP2 SELECT 借书证号,姓名 FROM 读者 WHERE 借书证号 IN(SELECT 借书证号 FROM TEMP1 )INTO DBF TEMP3 SELECT 姓名,书名,借书日期 FROM TEMP1,TEMP2,TEMP3 WHERE TEMP1.借书证号=TEMP3.借书证号 AND TEMP1.图书ID= TEMP2.图书ID ORDER BY 借书日期 INTO DBF AAA SCAN IF DATE()-借书日期>180 ?姓名+"请归还"+"《"+ALLT(书名)+"》" ENDIF ENDSCAN 运行程序，则显示的结果为___________ 【答案】 刘洁 请归还《网页设计》 89、Visual Foxpro程序如下： SELECT 1 USE 读者 SELECT 2 USE 图书 INDEX ON 图书ID TO TS SELECT 3 USE 借阅 SET RELATION TO 图书ID INTO B INDEX ON 借书证号 TO JSZH DO WHILE .T. ACCEPT"请输入读者姓名:"TO XM SELECT 1 LOCATE FOR ALLT(姓名)=ALLT(XM) IF EOF() ?"没有该读者！" ELSE N=0 ZH=借书证号 SELECT 3 SEEK ZH DO WHILE NOT EOF() AND 借书证号=ZH N=N+1 SKIP ENDDO ?"共借阅"+STR(N,2)+"本图书！" ENDIF WAIT"继续查询吗(Y/N)?"TO P IF !UPPER(P)="Y" EXIT ENDIF ENDDO CLOSE ALL 运行程序，输入读者姓名“陈晨”，则显示的结果为___________ 【答案】 共借阅 3本书！ 7、 Visual Basic程序改错（本大题共有两个小题，每题5分，共10分，每个程序有两个错误行，请在答题纸上写出错误行和对应的正确行，改对一处得一处分，改错不扣分） 90、以下程序实现的功能：从键盘上输入一个由大写字母组成的英文单词，保留第一个字母为大写，把后面的字母全部变成小写。 Private Sub Command1_Click() Dim x As String Dim n As Integer x = InputBox("请输入一个英文单词（全部大写）") n = Len(x) For i = 2 To n c = Asc(Mid(x)) + 32 Mid(x, i, 1) = c Next i Print x End Sub 【答案】 (1)c = Asc(Mid(x)) + 32 改为 c = Asc(Mid(x, i, 1)) + 32 (2)Mid(x, i, 1) = c 改为 Mid(x, i, 1) = Chr(c) 91、 以下程序实现的功能：把一个正整数序列重新排列，新序列的排列规则是：奇数在序列左边，偶数在序列右边，排列时，奇、偶数依此从序列两端向序列中间排放。程序运行如下图所示。 Option Explicit Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer, i As Integer, j As Integer Dim b(10) As Integer, k As Integer Print "原始序列:" For i = 1 To 10 a(i) = Int(Rnd * 100) + 1 Print a(i); Next i Print j = 1: k = 10 For i = 1 To 10 If a(i) Mod 2 = 0 Then b(j) = a(i) j = j + 1 Else b(k) = a(i) k = k + 1 End If Next i Print "排序后的序列:" For i = 1 To 10 Print b(i); Next i End Sub 【答案】 （1）If a(i) Mod 2 =0 Then 改为 If a(i) Mod 2 <> 0 Then （2）k = k + 1 改为 k = k - 1 八、程序填空（本大题共7个空，每空5分，共35分，按程序要求在答题纸上填入相应的内容，使程序完整正确） 92、（Visual Basic试题）下列程序的功能：将二维数组元素的行列互换（即求转置矩阵），请完善程序。 如： Private Sub Command1_Click() Dim a(4, 4) For k=1 To 4 For J=1 To 4 a(k, J)=j Print a(k, j); Next j Print Next k Print For k=2 To 4 For J=1 To t=a(j, k) a(j, k)= a(k, j)=t Next j Next k For k=1 To 4 Print a(k, 1); a(k, 2); a(k, 3); a(k, 4) Next k End Sub 【答案】 （1）k （2）a(k, j) 92、 （Visual Basic试题）程序的功能是：单击窗体时将随机生成12个三位正整数，分别赋给3*4的数组，找出数组中的最大元素，并指出该元素所在的行和列。请将程序补充完整。 程序运行如下图所示。 Option Base 1 Private Sub Form_Click() Dim a(3, 4) As Integer, i As Integer, j As Integer Dim max As Integer, max_i As Integer, max_j As Integer Randomize For i = 1 To 3 For j = 1 To 4 a(i, j) = Int(900 * Rnd) + 100 Print a(i, j); Next j Print Next i Print max =___________: max_i = 1: max_j = 1 For i = 1 To 3 For j = 1 To 4 If __________ Then max = a(i, j) max_i = i max_j = j End If Next j Next i Print max, max_i, max_j End Sub 【答案】 （1）a(1, 1) （2）max < a(i, j) 94、（Visual Foxpro试题）表单设计如下图所示，表单中包含两个标签LABEL1和LABEL2，Caption属性分别为“查询条件：”、“查询结果：”，两个文本框TEXT1和TEXT2，两个命令按钮COMMAND1和COMMAND2，Caption属性为“查询”和“下一条记录”。控件布局如下图所示： 程序实现如下功能：在TEXT1中输入查询条件，格式如“字段名=字段值”，单击“查询”按钮，在表“学生.DBF”中按输入的条件进行查询。如果没有查询到符合条件的记录，则显示“未找到记录”，否则将查询到的第一条记录显示在TEXT2中,单击”下一条记录”，如果还有记录，则在TEXT2中显示下一条满足条件的记录，如果没有记录，则显示”已显示所有记录”，并且COMMAND2变为不可用。表”学生.DBF”和程序运行如下图所示。 例如：在TEXT1中输入条件：专业=”计算机” ，点击查询按钮，显示结果如下。 COMMAND1的CLICK事件代码如下： MM=THISFORM.TEXT1.VALUE SELECT * FROM 学生 WHERE ___(1)________ INTO DBF TEMP USE TEMP IF RECCOUNT()>0 THISFORM.TEXT2.VALUE =TRIM(学号)+"-"+TRIM(姓名)+"-"+MM ELSE THISFORM.TEXT2.VALUE="未找到记录！" ENDIF COMMAND2的CLICK事件代码如下： _______(2)___________ IF NOT EOF() THISFORM.TEXT2.VALUE =TRIM(学号)+"-"+TRIM(姓名)+"-"+THISFORM.TEXT1.VALUE ELSE _________(3)_______________ THISFORM.COMMAND2.ENABLED=.F. ENDIF 【答案】 (1)&MM (2)SKIP (3)THISFORM.TEXT2.VALUE="已经显示全部记录" 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $$