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

河北省一般高等学校对口招生考试 计算机专业 综合模拟卷（四）答案 考前须知： 1.本试卷共八道大题。总分 240分。 2.第I卷“一、选择题”、第Ⅱ卷“二、推断题”的答案填涂在机读卡上，其余各题答案写在答题纸上，答在试卷上不得分。用蓝黑钢笔、碳素笔或圆珠笔答题。 3，答愿前将密封线内工程填写清晰。 第I卷(选择题 共100分) 一、选择题（本大题共50小题，每题2分，共100分。在题所给出的四个选项中，只有一个符合题目要求，将正确选项填涂在机读卡上） 1、在微机的配置中常看到“P4 2.4G”字样，其中数字“2.4G”表示（ ） A.处理器的时钟频率是2.4GHZ B.处理器的运算速度是2.4GIPS C.处理器是Pentium4第2.4代 D.处理器与内存间的数据交换速率是2.4GB/S 【答案】A 2、 下列描述中不正确的是（ ） A． 多媒体技术最主要的两个特点是集成性和交互性 B． 所有计算机的字长都是固定不变的，都是8位 C． 计算机的存储容量是计算机的性能指标之一 D． 各种高级语言的编译系统都属于系统软件 【答案】 B 3、 下列关于操作系统的描述，正确的是（ ） A． 操作系统中只有程序没有数据 B．操作系统提供的人机交互其他软件无法使用 C．操作系统是一种最重要的应用软件 D．一台计算机可以安装多个操作系统 【答案】D 4、下列选项中，不属于物联网特点的是( ) A.全面感知 B.可靠传递 C.智能处理 D.价值密度低 【答案】D 5、 在下列计算机应用项目中，属于科学计算应用领域的是（ ） A．人机对弈 B．民航联网订票系统 C．气象预报 D．数控机床 【答案】C 6、 下列关于计算机病毒的叙述，正确的是（ ） A． 计算机病毒是由于光盘表面不清洁而造成的 B． 计算机病毒主要通过读写移动存储器或Internet网络进行传播 C． 只要把带病毒的U盘设置成只读状态，那么此盘上的病毒就不会因读盘而传染给另一台计算机 D． 计算机病毒发作后，将造成计算机硬件永久性的物理损坏 【答案】B 7、 标准ASCII码用7位二进制位表示一个字符的编码，其不同的编码共（ ） A．127个 B．128个 C．256个 D．254个 【答案】B 8、计算机系统分为硬件系统和软件系统，下列叙述不正确的是( )。 A.硬件系统主要是运行计算机程序，并在程序控制下完成数据输入、处理和数据输出任务 B.软件系统建立在硬件系统的基础上，它使硬件功能得以充分发挥 C.没有安装软件系统的计算机不能做任何工作，没有实际的使用价值 D.计算机只需安装系统软件，即可进行所有类型的文字处理或数据处理工作 【答案】D 9、在Windows 7中，下列说法正确的是( ) A.按住 Shift 键的同时，用鼠标把一个文件从C盘拖动到D盘时，这个文件被移动到 D 盘 B. 双击鼠标右键可以运行.exe 的程序 C.当用鼠标把一个文件从F 盘拖动到桌面时，这个文件就被移动到了C 盘 D.开机时应先开主机再开显示器 【答案】A 10、在Windows 7中，打开“Windows资源管理器”默认打开的是( )。 A. 计算机 B. C盘 C. 库 D. 收藏夹 【答案】C 11、下列选项中，不属于Windows 7的磁盘清理程序的功能是( )。 A. 清空回收站 B. 删除 Windows 临时文件 C. 删除不再使用的 Windows组件 D. 恢复已删除的文件 【答案】D 12、在Word 2010中，进行文档编辑时，移动选定的内容可采用的方法有（　　）。 Ａ．拖动／ 置放 Ｂ．复制／ 定位／ 粘贴 Ｃ．复制／ 粘贴 Ｄ．定位／ 粘贴 【答案】A 13、在Word 2010中，“显示/隐藏编辑标记”的快捷键是( )。 A.Ctrl+R B.Ctrl+D C.Alt+Ctrl+D D.Ctrl+* 【答案】D 14、在Word 2010中，在对某个工作表进行分类汇总之前，必须先( )。 A.设置筛选条件 B.使用数据记录单 C.按分类字段对数据进行排序 D.不需要任何操作 【答案】C 15、在EXCEL 2010中，向单元格内输入文字时，如果已经填满一个单元格，光标到了单元 格边线后还继续输入，则可能出现的情况是（　　）。 Ａ．把单元格向右扩大一列，新输入的内容继续向右延伸 Ｂ．新输入的内容继续向右延伸，本单元格边框线被破坏 Ｃ．新输入的内容继续向右延伸，本单元格边框线不被破坏 Ｄ．出现错误警告，无法再输入 【答案】B 16、在EXCEL 2010中，在对某个工作表进行分类汇总之前，必须先( )。 A.设置筛选条件 B.使用数据记录单 C.按分类字段对数据进行排序 D.不需要任何操作 【答案】C 17、在EXCEL 2010中，如何输入分数形式的数据（ ） A. 直接输入分数形式 B. 使用“/”分隔符 C. 输入“0空格分数” D. 以上都可以 【答案】C 18、在PowerPoint 2010中,对已做过的有限次编辑操作，以下说法正确的是( )。 A.不能对已做的操作进行撤销 B.能对已经做的操作进行撤销，但不能恢复撤销后的操作 C.不能对已做的操作进行撤销，也不能恢复撤销后的操作 D.能对已做的操作进行撤销，也能恢复撤销后的操作 【答案】B 19、 在PowerPoint 2010中,若要使幻灯片在播放时能每隔3s自动转到下一页，可以在（ ）选项卡中设置。 A．开始 B．设计 C．切换 D．动画 【答案】C 20、 在Visual Basic中,下列声明变量的选项中（ ）是正确的。 A． Private s1 $*5 B．Dim s1 as integer=234 C．Static s1 As String D．Dim s1 as String *5 ; s2 【答案】C 21、 在Visual Basic中，表达式 Sgn(15.6) + Int(-16.8)的值为（ ） A．-15 B．-16 C．-17 D．18 【答案】B 22、 在Visual Basic中，下列说法中错误的是（ ） A． 事件是Visual Basic预置的，且能够被对象识别的动作 B． 事件过程是指响应某个事件后执行的一段程序代码 C． 一个对象可以识别一个或多个事件 D． Visual Basic是采用对象驱动编程机制的语言 【答案】D 23、 在Visual Basic中，设A、B、C是三角形的三条边，则下列选项中能正确表示”任意 两边之和大于第三边”的布尔表达式是（ ） A． A+B>C OR A+C>B OR B+C>A B．A+B<C OR A+C<B OR B+C<A C．NOT(A+B<=C OR A+C<=B OR B+C<=A) D．A+B>=C AND A+C>=B AND B+C>=A 【答案】C 24、 在Visual Basic中，设子程序过程定义的首部为：Public Sub m(X As Integer,Y As Single),则以下正确的调用形式为（ ） A．Call m 5,4.2 B．Call Sub(5,4.2) C．Sub 5,4.2 D．m 5,4.2 【答案】D 25、 在Visual Basic中，下列说法不正确的是（ ） A． 使用ReDim语句可以改变数组的维数 B．使用ReDim语句可以改变数组的类型 C．使用ReDim语句可以改变数组的每一维的大小 D．ReDim语句可以使原数组中的内容被清除 【答案】B 26、 在Visual Basic中，下列不能接收焦点的控件是（ ） A． 列表框 B．框架 C．图片框 D．复选框 【答案】B 27、 在Visual Basic中，关于菜单的叙述，正确的是（ ） A． 弹出式菜单和下拉式菜单都可用菜单编辑器编辑 B． 弹出式菜单不能有子菜单 C． 菜单项可以响应Click事件和DblClick事件 D． 有子菜单的菜单项不响应Click事件 【答案】A 28、 在Visual Basic中，有如下代码： Option Base 1 Private Sub Command1_Click() Dim a(3, 3) As Integer Dim i As Integer, j As Integer, s As Integer s = 0 For i = LBound(a, 1) To UBound(a, 1) For j = LBound(a, 2) To UBound(a, 2) a(i, j) = (i - 1) * 3 + j If i >= j Then s = s + a(i, j) End If Next j Next i Print s End Sub 运行程序时，单击命令按钮，窗体上的输出结果为（ ） A.15 B．19 C．26 D．34 【答案】D 29、 在Visual Foxpro中，下列函数的函数值为数值型的是（ ） A.BOF( ) B．CTOD(“20/11/24”) C．LEFT(“VF程序设计”,2) D．AT(“VF”,“VF程序设计”) 【答案】D 30、 在Visual Foxpro中，实现表与表之间的联系是通过（ ） A．实体完整性 B．域完整性 C．参照完整性 D．用户自定义完整性 【答案】C 31、 在Visual Foxpro中，假设一个表A表的主关键字被包含到另一个表B表中时，那么这 个关键字在B表中被称为（ ） A．主关键字 B．超关键字 C．候选关键字 D．外部关键字 【答案】D 32、 在Visual Foxpro中，使用查询设计器创建查询时，为了指定在查询结果中是否包含重 复记录，应该使用的选项卡是（ ） A．排序依据 B．杂项 C．筛选 D．连接 【答案】B 33、在Visual Foxpro的表单设计中，THIS是对（ ）的引用 A．当前对象 B．当前表单 C．任意对象 D．任意表单 【答案】A 34、在Visual Foxpro中，对视图的描述正确的是(　　) 。 A．可以使用MODIFY STRUCTURE命令修改视图的结构 B．视图不能删除，否则影响原来的数据文件 C．基表内容修改后，不会影响视图的内容 D．使用SQL对视图进行查询时，必须事先打开该视图所在的数据库 【答案】D 35、在Visual Foxpro中，表单的Show方法的功能是（ ） A．将表单的Enabled属性设置为.F. B．将表单的Enabled属性设置为.T. C．将表单的Visible属性设置为.F. D．将表单的Visible属性设置为.T. 【答案】 D 36、在计算机网络中，两端装有防止信号反射装置的拓扑结构是（ ） A.总线型 B. 环型 C. 网状型 D. 树型 【答案】A 37、下列( )信号在传输过程，占有固定的频率范围。 A.广播式 B.基带 C.宽带 D. 点到点式 【答案】 B 38、 在下列网络互联设备中，（ ）能够在局域网之间存储转发包。 A.中继器 B.网桥 C.路由器 D. 网关 【答案】 C 39、 在通信系统中，把来自许多信号源的信号组合起来，再通过一条传输线路同时发送的技术称为（ ） A. 多路分解 B. 同步传输 C. 并行通信 D. 多路复用 【答案】 D 40、在局域网的组成部件中，（ ）的好坏直接影响网络的性能和网络上软件运行的效果。 A.网卡 B.服务器 C.传输介质 D.网络操作系统 【答案】A 41、关于X.25网的特点，说法错误的是（ ） A. 网络可靠性高 B. 通信成本高 C. 采用多路复用 D. 可以接入不同类型的用户设备 【答案】B 42、一个子网网段地址为10.32.0.0，子网掩码为255.224.0.0的网络，它允许的最大主机地址是（） A. 10.63.255.0 B. 10.32.255.254 C. 10.63.255.255 D. 10.63.255.254 【答案】D 43、 DNS的反向解析是指（ ） A. 给出域名由DNS服务器解析出IP地址 B. 将MAC地址翻译成IP地址 C. 将IP地址翻译成MAC地址 D. 给出IP地址由DNS服务器解析出域名 【答案】 D 44、 FDDI是一种（ ）结构的局域网技术。 A. 环型 B. 总线型 C. 树型 D. 分布型 【答案】 A 45、 下列命令中用于查看本机网卡的物理地址的是（ ） A. Arp B. Ipconfig/all C. Ping D. Tracert 【答案】B 46、 当通信子网采用（ ）方式时，不需要首先在通信双方之间建立连接。 A. 线路连接 B. 虚电路 C. 数据报 D. 无线连接 【答案】 B 47、关于对称密码技术，下列说法正确的是（ ） A. 对称密码技术的算法速度较慢 B. 对称密码技术的解密密钥不能从加密密钥中推算出来 C.主要用于数字签名 D. 对称加密算法有DES、RC2 【答案】A 48、有几栋建筑物，周围还有其他电力电缆，若需要将该几栋建筑物连接起来构成骨干型园区网，则采用（ ）比较合适。 A. 光缆 B. 同轴电缆 C. UTP D. STP 【答案】 A 49、 下列对防火墙的叙述，错误的是（ ） A. 控制对系统的访问 B. 集中的安全管理 C. 增强的保密性 D. 防止来自网络内部和外部的威胁 【答案】D 50、 通过代理服务器访问Internet，并不能节省或减少（ ） A. IP地址 B. 硬盘空间 C. 网络通信费用 D. 病毒袭击 【答案】 B 第II卷(非选择题 共140分) 二、判断题（本大题共14小题，每题1分，共14分。将答案填涂在机读卡上，正确的填涂“A ”，错误的填涂“B ”） 51、在计算机中，CAM代表计算机辅助制造。（ ） 【答案】A 52、在微机中，VGA代表显示器型号。（ ） 【答案】A 53、Windows7中的Guest账户拥有创建本地其他账户的权限。( ) 【答案】A 54、 “资源管理器”是Windows 7系统提供的资源管理工具，采用树状文件系统结构。（ ） 【答案】A 55、 在Word 2010文档编辑状态下，若想将两个段落的内容合并为一个段落，可以将光标点移到第一个段落结尾，按下Backspace和回车键。( ) 【答案】B 56、在Word 2010中，字符格式化包括字体、字号、颜色、修饰、左对齐、右对齐、居中等。( ) 【答案】B 57、 在EXCEL 2010中，直接在工作表标签上双击，输入新名称，也可以实现重命名工作表的操作。 【答案】A 58、 在EXCEL 2010中，输入函数=right(“中等职业技术学校”,3,4)，返回的结果为”职业技术”。( ) 【答案】B 59、 PowerPoint2010演示文稿，只能用于放映幻灯片，无法输出到打印机中。（ ） 【答案】B 60、在Visual Basic中，在用Call带参调用Sub过程时必须把参数放在括号里。（ ） 【答案】 A 61、在Visual Foxpro中，查询是预先定义好的SQL SELECT语句，其作用是提高查询效率。（ ） 【答案】 A 62、 网络协议的三个要素分别是语法、语义和进程。（ ） 【答案】 B 63、 调制解调器的主要功能，是实现通信线路中传输的模拟信号和计算机使用的数字信号之间的转换。（ ） 【答案】 A 64、 TCP/IP是Internet上使用的协议，局域网中也可以使用。（ ） 【答案】 A 三、填空题（本大题共13小题，每题2分，共26分，请将答案填写在答题纸上） 65、用来衡量计算机的运算速度的性能指标是________。 【答案】 MIPS 66、-6的补码是__________。 【答案】 11111010B 67、在微机中，I/O设备是指________。 【答案】输入输出设备 68、在Windows 7操作系统中，用户可以通过按下_______键和空格键来快速切换不同的窗口。 【答案】Alt 69、在Word 2010中，可以双击“格式刷”按钮，把一种格式复制到多个文本对象，当不再需要使用格式刷时，可以再次单击“格式刷”按钮或按 键，退出格式复制状态。 【答案】Esc 70、在Excel 2010中，为了直观地展示数据的变化趋势或对比关系，我们可以在Excel 2010中通过 选项卡下的图表功能来创建图表。 【答案】插入 71、在PowerPoint 2010中，要显示标尺、网络线、参考线，以及对幻灯片母版进行修改，应在 选项卡中进行操作。 【答案】视图 72、 在Visual Basic中，对于数组a(2 to 3 ,4 to 6)，它的第二维的下界为______。 【答案】4 73、在Visual Basic中，函数Int（108*Rnd+1）是在_________范围内的整数。 【答案】 [1,108] 74、在Visual Foxpro中，________命令可以一次性删除当前表中所有记录。 【答案】 ZAP 75、ADSL、VDSL属于______________技术。 【答案】非对称性DSL 76、 10BASE-T使用的传输介质是指___________。 【答案】双绞线 77、 在OSI参考模型中，网络层的数据服务单元是__________。 【答案】分组 四、依据环境与题意，写出相应的Visual FoxPro语句或SQL语句，要求每题用一条语句完成（本大题共5小题，每题4分，共20分，请填写在答题纸上） 假设数据库“学生”中包含学籍和成绩两张表，其表结构如下： 学籍.DBF：学号（C，6），姓名（C，6），性别（C，2），出生日期D 成绩.DBF：学号（C，6），数据库（N，5，1），网络技术（N，5，1），总分（N，5，1）该数据库及相关表已打开，请完成如下操作的命令序列： 78、将“成绩”表中全部记录的“总分”字段值加5分。（用 Visual FoxPro命令） 【答案】REPLACE ALL 总分 WITH 总分+5 79、逻辑删除学籍表中姓张的女生的记录。（用 Visual FoxPro命令） 【答案】DELETE FOR LEFT(姓名，2)=”张” AND 性别=”女” 80、将学籍表中姓名字段的宽度6改为8。（用 SQL 语句） 【答案】ALTER TABLE 学籍 ALTER 姓名 C(8) 81、查询成绩表中总分最高的学生信息。（用 SQL 语句） 【答案】SELECT * FROM 成绩 ORDER BY 总分 DESC TOP 1 82、查询总分低于200分的学生的学号，姓名，性别和总分。（用 SQL 语句） 【答案】SELECT 学籍.学号，姓名，性别，总分 FROM 学籍，成绩 WHERE 学籍.学号=成绩.学号 AND 总分 <120 五、程序分析（本大题共2小题，每题5分，共10分，读程序并分析结果，请填写在答题纸上） 83、下列Visual Basic程序的功能是计算__________________(写数学表达式) Private Sub Command1_Click() Dim i As Integer Dim f As Integer Dim s As Integer f = 1 s = 1 For i = 2 To 9 s = s - f / (i * (i + 1)) f = -f Next i Print s End Sub 【答案】s=1-1/(2*3)+1/(3*4)-1/(4*5)+.....+1/(9*10) 84、分析下列Visual FoxPro程序实现的功能___________________________ CLEAR X=VAL(THISFORM.TEXT1.VALUE) Y=VAL(THISFORM.TEXT2.VALUE) IF X>Y T=X X=Y Y=T ENDIF S=0 FOR N=X TO Y Q=0 FOR J=2 TO N-1 IF N % J=0 Q=1 ENDIF ENDFOR IF Q=0 S=N ENDIF ENDFOR THISFORM.TEXT3.VALUE=S RETURN 【答案】求x,y区间内最大的素数,输出在文本框3中 六、写出以下程序的运行结果（本大题共5小题，每题5分，共25分，请填写在答题纸上） 85、分析下列Visual Basic程序： Private Sub Form_Click() Dim e As Integer, f As Integer Dim g As Integer Dim i As Integer Dim j As Integer Dim k As Integer e = 1 f = 2 g = 3 For i = 1 To 10 e = e + 1 g = g + 1 For j = 1 To 5 e = e + 1 g = g + 1 For k = 5 To 10 f = f + 1 e = e + 1 Next k g = g + 1 f = f + 1 Next j g = f + 1 Next i Print e, f, g End Sub 程序运行后，显示的结果为__________ 【答案】 361 352 353 86、分析下列Visual Basic程序： Private Sub Command1_Click() Dim i As Integer Dim j As Integer Dim num As Integer Dim arr(3, 3) As Integer num = 1 For i = 1 To 3 For j = 1 To 3 arr(i, j) = num num = num + 1 Next j Next i For i = 1 To 3 For j = 1 To i Call change(arr, i) Next j Next i For i = 1 To 3 For j = 1 To 3 Print arr(i, j); Next j Print Next i End Sub Sub change(a() As Integer, i As Integer) m = UBound(a, 2) temp = a(i, m) For k = m - 1 To 1 Step -1 a(i, k + 1) = a(i, k) Next k a(i, 1) = temp End Sub 程序运行后，显示的结果为________ 【答案】 3 1 2 5 6 4 7 8 9 87、分析下列Visual FoxPro程序： CLEAR A=5 B=10 DO SUB1 WITH A,B ?A,B A=5 Y=10 DO SUB2 WITH A,B ?A,B A=5 B=10 DO SUB1 WITH A+5,B ?A,B RETURN PROC SUB1 PARA X,Y X=X*5 Y=Y+5 RETURN PROC SUB2 PARA M,N M=10 N=M+20 RETURN 程序运行后，显示的结果为________ 【答案】 25 15 10 30 5 15 88~89共用下面的数据库： 设有数据库文件宾馆管理.DBC，包含3个表，分别是KF、RZ、KH。其中KF的结构为：客房号(C，4)、类型(C，10)、价格(N，4，0)，RZ的结构为：客房号(C，4)、客户号(C，4)、入住日期(D)，退房日期（D）,KH的结构为：客户号(C，4)、姓名(C，8)、性别(C，2)、工作单位（C，20）；各表中数据如下： KF.DBF RZ.DBF KH.DBF 88、有如下Visual FoxPro程序： OPEN DATABASE 宾馆管理 USE KH ACCEPT "请输入客户姓名：" TO XM INDEX ON 姓名 TAG XMH OF XM SEEK XM KHH=客户号 SELECT A USE RZ GO TOP SCAN IF 客户号=KHH KFH=客房号 NUM=退房日期-入住日期+1 SELECT B USE KF DO WHILE NOT EOF() IF 客房号=KFH S=价格*NUM EXIT ENDIF SKIP ENDDO EXIT ENDIF ENDSCAN ?S 运行上面的程序，输入“刘小青”，显示的结果是 【答案】 960 89、 有如下Visual FoxPro程序：（代码中行末的分号为逻辑行连接符） OPEN DATABASE BGGL ACCEPT "请输入客房类型名：" TO LX SELECT 客房号 FROM KF WHERE 类型=LX INTO DBF KFB ALTER TABLE KFB ADD XX C(8) ADD TH N(3,0) SELECT RZ.客房号 AS 客房号,KH.姓名 AS 姓名,(RZ.退房日期-RZ.入住日期+1) AS 天数 FROM RZ,KH WHERE RZ.客户号=KH.客户号 INTO DBF KHB USE KHB SCAN KFH=客房号 XM=姓名 TS=天数 UPDATE KFB SET XX=XM,TH=TS WHERE 客房号=KFH ENDSCAN SELECT KF.类型,KF.客房号,KFB.XX,TH*KF.价格 AS TJ FROM KF,KFB WHERE KF.客房号=KFB.客房号 INTO DBF JG USE JG DO WHILE NOT EOF() ?客房号,XX,TJ SKIP ENDDO 运行上面的程序，输入“C型客房”，显示的结果是：____________________。 【答案】 1201 杨扬 2750 1202 王强 5500 7、 Visual Basic程序改错（本大题共有两个小题，每题5分，共10分，每个程序有两个错误行，请在答题纸上写出错误行和对应的正确行，改对一处得一处分，改错不扣分） 90、下列程序的功能是将12345按逆序打印出来，请补充完善程序。 Option Explicit Private Sub Command1_Click() Dim i As Integer i=12345 Print i Print fun1(Str(i)) End Sub Private Function fun1(St As Integer) As String Dim i As Integer For i=Len(St) To 1 Step –1 Fun1=Mid(St, i, 1)+fun1 Next i End Function 【答案】 （1）Private Function fun1(St As Integer) As String 改为 Private Function fun1(St As String) As String （2） Fun1=Mid(St, i, 1)+fun1 改为Fun1=fun1+Mid(St, i, 1) 91、下述程序的功能是在Text1中随机生成10个3位正整数，找出其中的素数并放到Text2中。 Option Explicit Option Base 1 Private Sub Form_Click() Dim a(10) As Integer, i As Integer Dim St As String, t As Integer, j As Integer Randomize For i = 1 To 10 a(i) = Int(Rnd * 100) + 900 St = St & Str(a(i)) Next i Text1.Text = St For i = 1 To 10 If flag(a(i)) Then Text2 = Text2 & Str(a(i)) End If Next i End Sub Private Function flag(ByVal n As Integer) As String Dim i As Integer, a(3) As Integer flag = True For i = 2 To Sqr(n) If n Mod i = 0 Then Exit Function Next i If i > Sqr(n) Then flag = True End If End Function 【答案】 （1） a(i) = Int(Rnd * 100) + 900 改为 a(i) = Int(Rnd * 900) + 100 （2）flag = True改为flag = False 8、 程序填空（本大题共7个空，每空5分，共35分，按程序要求在答题纸上填入相应的内容，使程序完整正确） 92、（Visual Basic试题）程序功能：一个n位的正整数，其各位数的n次方之和等于这个数，称这个数为Armstrong数，例如153=13+53+33，1634=14+64+34+44。本题是用来求出所有二位、三位、四位的Armstrong数。请补充完善程序。 Option Explicit Option Base 1 Private Sub Command1_Click() Dim i As Integer For i = 10 To 9999 If ____________Then Print i; Next i End Sub Private Function fact(n As Integer) As Integer Dim Sum As Integer, i As Integer Sum = 0 For i = 1 To Len(CStr(n)) _________ Next i fact = Sum End Function 【答案】 （1）i = fact(i) （2）Sum = Sum +Mid(CStr(n), i, 1)^Len(CStr(n))或Sum = Sum +Mid(Str(n), i+1,1)^Len(Str(n))-1) 93、（Visual Basic试题）程序功能：下列程序是产生10个二位随机整数，用选择排序法对10个数按降序排列。请完善程序。 Private Sub Form_Click() Dim A(10) As Integer Dim I As Integer, J As Integer, temp As Integer Randomize Print "排序前：" For I=1 To 10 A(I)=Int(90*Rnd+10) Print A(I); Next I For I=1 To 9 For J= To 10 If Then temp=A(I) A(I) = A(J) A(J)=temp End If Next J Next I Print Print "排序后：" For I=1 To 10 Print A(I); Next I End Sub 【答案】 （1）I + 1 （2）A(I) < A(J) 94、表单设计如下图所示： 设置控件属性如下： 有一个编辑框EDIT，两个文本框TEXT1和TEXT2，一个命令按钮组COMMANDGROUP1，组里共有3个命令按钮，分别为“查找”、“替换”和“退出”。编辑框EDIT的Hideselection属性设置为.F.，用来显示选定标记。 程序功能具体如下： 在编辑框EDIT中输入一行或多行字符串，在TEXT1中输入要查找的字符串，点击“查询”命令按钮，在EDIT中进行查找，若找到，则找到的字符串会标记出来，在文本框2中输入要替换的字符串后，点击“替换”按钮，用文本框2的内容替换掉EDIT中相应的内容。若在编辑框中没有找到，则会弹出对话框，显示“没查到”。点击“退出”命令按钮，表单关闭。 例如：编辑框的内容为“THIS IS A BOOK!”，文本框TEXT1的内容为BOOK，文本框TEXT2的内容为PEN，执行完成后，编辑框的内容变为“THIS IS A PEN!” COMMANDGROUP1的CLICK事件代码如下： N=THIS.VALUE A=ALLT(THISFORM.EDIT1.VALUE) B=ALLT(THISFORM.TEXT1.VALUE) C=ALLT(THISFORM.TEXT2.VALUE) DO CASE CASE N=1 M=AT(B,A) IF M<>0 THISFORM.EDIT1.SELSTART=M-1 THISFORM.EDIT1.SELLENGTH=____(1)_________ ELSE MESSAGEBOX("没有查到") ENDIF CASE N=2 IF THISFORM.EDIT1.SELTEXT=B ________(2)______________ ELSE MESSAGEBOX("没查到，不能替换！") ENDIF CASE N=3 ________(3)________________ ENDCASE THISFORM.REFRESH 【答案】 (1) LEN(B) (2) THISFORM.EDIT1.SELTEXT=C (3) THISFORM.RELEASE 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $$ 河北省一般高等学校对口招生考试 计算机专业 综合模拟卷（四） 考前须知： 1.本试卷共八道大题。总分 240分。 2.第I卷“一、选择题”、第Ⅱ卷“二、推断题”的答案填涂在机读卡上，其余各题答案写在答题纸上，答在试卷上不得分。用蓝黑钢笔、碳素笔或圆珠笔答题。 3，答愿前将密封线内工程填写清晰。 第I卷(选择题 共100分) 一、选择题（本大题共50小题，每题2分，共100分。在题所给出的四个选项中，只有一个符合题目要求，将正确选项填涂在机读卡上） 1、在微机的配置中常看到“P4 2.4G”字样，其中数字“2.4G”表示 A.处理器的时钟频率是2.4GHZ B.处理器的运算速度是2.4GIPS C.处理器是Pentium4第2.4代 D.处理器与内存间的数据交换速率是2.4GB/S 2、 下列描述中不正确的是（ ） A． 多媒体技术最主要的两个特点是集成性和交互性 B． 所有计算机的字长都是固定不变的，都是8位 C． 计算机的存储容量是计算机的性能指标之一 D． 各种高级语言的编译系统都属于系统软件 3、 下列关于操作系统的描述，正确的是（ ） A． 操作系统中只有程序没有数据 B．操作系统提供的人机交互其他软件无法使用 C．操作系统是一种最重要的应用软件 D．一台计算机可以安装多个操作系统 4、下列选项中，不属于物联网特点的是( ) A.全面感知 B.可靠传递 C.智能处理 D.价值密度低 5、 在下列计算机应用项目中，属于科学计算应用领域的是（ ） A．人机对弈 B．民航联网订票系统 C．气象预报 D．数控机床 6、 下列关于计算机病毒的叙述，正确的是（ ） A． 计算机病毒是由于光盘表面不清洁而造成的 B． 计算机病毒主要通过读写移动存储器或Internet网络进行传播 C． 只要把带病毒的U盘设置成只读状态，那么此盘上的病毒就不会因读盘而传染给另一台计算机 D． 计算机病毒发作后，将造成计算机硬件永久性的物理损坏 7、 标准ASCII码用7位二进制位表示一个字符的编码，其不同的编码共（ ） A．127个 B．128个 C．256个 D．254个 8、计算机系统分为硬件系统和软件系统，下列叙述不正确的是( )。 A.硬件系统主要是运行计算机程序，并在程序控制下完成数据输入、处理和数据输出任务 B.软件系统建立在硬件系统的基础上，它使硬件功能得以充分发挥 C.没有安装软件系统的计算机不能做任何工作，没有实际的使用价值 D.计算机只需安装系统软件，即可进行所有类型的文字处理或数据处理工作 9、在Windows 7中，下列说法正确的是( ) A.按住 Shift 键的同时，用鼠标把一个文件从C盘拖动到D盘时，这个文件被移动到 D 盘 B. 双击鼠标右键可以运行.exe 的程序 C.当用鼠标把一个文件从F 盘拖动到桌面时，这个文件就被移动到了C 盘 D.开机时应先开主机再开显示器 10、在Windows 7中，打开“Windows资源管理器”默认打开的是( )。 A. 计算机 B. C盘 C. 库 D. 收藏夹 11、下列选项中，不属于Windows 7的磁盘清理程序的功能是( )。 A. 清空回收站 B. 删除 Windows 临时文件 C. 删除不再使用的 Windows组件 D. 恢复已删除的文件 12、在Word 2010中，进行文档编辑时，移动选定的内容可采用的方法有（　　）。 Ａ．拖动／ 置放 Ｂ．复制／ 定位／ 粘贴 Ｃ．复制／ 粘贴 Ｄ．定位／ 粘贴 13、在Word 2010中，“显示/隐藏编辑标记”的快捷键是( )。 A.Ctrl+R B.Ctrl+D C.Alt+Ctrl+D D.Ctrl+* 14、在Word 2010中，在对某个工作表进行分类汇总之前，必须先( )。 A.设置筛选条件 B.使用数据记录单 C.按分类字段对数据进行排序 D.不需要任何操作 15、在EXCEL 2010中，向单元格内输入文字时，如果已经填满一个单元格，光标到了单元 格边线后还继续输入，则可能出现的情况是（　　）。 Ａ．把单元格向右扩大一列，新输入的内容继续向右延伸 Ｂ．新输入的内容继续向右延伸，本单元格边框线被破坏 Ｃ．新输入的内容继续向右延伸，本单元格边框线不被破坏 Ｄ．出现错误警告，无法再输入 16、在EXCEL 2010中，在对某个工作表进行分类汇总之前，必须先( )。 A.设置筛选条件 B.使用数据记录单 C.按分类字段对数据进行排序 D.不需要任何操作 17、在EXCEL 2010中，如何输入分数形式的数据（ ） A. 直接输入分数形式 B. 使用“/”分隔符 C. 输入“0空格分数” D. 以上都可以 18、在PowerPoint 2010中,对已做过的有限次编辑操作，以下说法正确的是( )。 A.不能对已做的操作进行撤销 B.能对已经做的操作进行撤销，但不能恢复撤销后的操作 C.不能对已做的操作进行撤销，也不能恢复撤销后的操作 D.能对已做的操作进行撤销，也能恢复撤销后的操作 19、 在PowerPoint 2010中,若要使幻灯片在播放时能每隔3s自动转到下一页，可以在（ ）选项卡中设置。 A．开始 B．设计 C．切换 D．动画 20、 在Visual Basic中,下列声明变量的选项中（ ）是正确的。 A． Private s1 $*5 B．Dim s1 as integer=234 C．Static s1 As String D．Dim s1 as String *5 ; s2 21、 在Visual Basic中，表达式 Sgn(15.6) + Int(-16.8)的值为（ ） A．-15 B．-16 C．-17 D．18 22、 在Visual Basic中，下列说法中错误的是（ ） A． 事件是Visual Basic预置的，且能够被对象识别的动作 B． 事件过程是指响应某个事件后执行的一段程序代码 C． 一个对象可以识别一个或多个事件 D． Visual Basic是采用对象驱动编程机制的语言 23、 在Visual Basic中，设A、B、C是三角形的三条边，则下列选项中能正确表示”任意 两边之和大于第三边”的布尔表达式是（ ） A． A+B>C OR A+C>B OR B+C>A B．A+B<C OR A+C<B OR B+C<A C．NOT(A+B<=C OR A+C<=B OR B+C<=A) D．A+B>=C AND A+C>=B AND B+C>=A 24、 在Visual Basic中，设子程序过程定义的首部为：Public Sub m(X As Integer,Y As Single),则以下正确的调用形式为（ ） A．Call m 5,4.2 B．Call Sub(5,4.2) C．Sub 5,4.2 D．m 5,4.2 25、 在Visual Basic中，下列说法不正确的是（ ） A． 使用ReDim语句可以改变数组的维数 B．使用ReDim语句可以改变数组的类型 C．使用ReDim语句可以改变数组的每一维的大小 D．ReDim语句可以使原数组中的内容被清除 26、 在Visual Basic中，下列不能接收焦点的控件是（ ） A． 列表框 B．框架 C．图片框 D．复选框 27、 在Visual Basic中，关于菜单的叙述，正确的是（ ） A． 弹出式菜单和下拉式菜单都可用菜单编辑器编辑 B． 弹出式菜单不能有子菜单 C． 菜单项可以响应Click事件和DblClick事件 D． 有子菜单的菜单项不响应Click事件 28、 在Visual Basic中，有如下代码： Option Base 1 Private Sub Command1_Click() Dim a(3, 3) As Integer Dim i As Integer, j As Integer, s As Integer s = 0 For i = LBound(a, 1) To UBound(a, 1) For j = LBound(a, 2) To UBound(a, 2) a(i, j) = (i - 1) * 3 + j If i >= j Then s = s + a(i, j) End If Next j Next i Print s End Sub 运行程序时，单击命令按钮，窗体上的输出结果为（ ） A.15 B．19 C．26 D．34 29、 在Visual Foxpro中，下列函数的函数值为数值型的是（ ） A.BOF( ) B．CTOD(“20/11/24”) C．LEFT(“VF程序设计”,2) D．AT(“VF”,“VF程序设计”) 30、 在Visual Foxpro中，实现表与表之间的联系是通过（ ） A．实体完整性 B．域完整性 C．参照完整性 D．用户自定义完整性 31、 在Visual Foxpro中，假设一个表A表的主关键字被包含到另一个表B表中时，那么这 个关键字在B表中被称为（ ） A．主关键字 B．超关键字 C．候选关键字 D．外部关键字 32、 在Visual Foxpro中，使用查询设计器创建查询时，为了指定在查询结果中是否包含重 复记录，应该使用的选项卡是（ ） A．排序依据 B．杂项 C．筛选 D．连接 33、在Visual Foxpro的表单设计中，THIS是对（ ）的引用 A．当前对象 B．当前表单 C．任意对象 D．任意表单 34、在Visual Foxpro中，对视图的描述正确的是(　　) 。 A．可以使用MODIFY STRUCTURE命令修改视图的结构 B．视图不能删除，否则影响原来的数据文件 C．基表内容修改后，不会影响视图的内容 D．使用SQL对视图进行查询时，必须事先打开该视图所在的数据库 35、在Visual Foxpro中，表单的Show方法的功能是（ ） A．将表单的Enabled属性设置为.F. B．将表单的Enabled属性设置为.T. C．将表单的Visible属性设置为.F. D．将表单的Visible属性设置为.T. 36、在计算机网络中，两端装有防止信号反射装置的拓扑结构是（ ） A.总线型 B. 环型 C. 网状型 D. 树型 37、下列( )信号在传输过程，占有固定的频率范围。 A.广播式 B.基带 C.宽带 D. 点到点式 38、 在下列网络互联设备中，（ ）能够在局域网之间存储转发包。 A.中继器 B.网桥 C.路由器 D. 网关 39、 在通信系统中，把来自许多信号源的信号组合起来，再通过一条传输线路同时发送的技术称为（ ） A. 多路分解 B. 同步传输 C. 并行通信 D. 多路复用 40、在局域网的组成部件中，（ ）的好坏直接影响网络的性能和网络上软件运行的效果。 A.网卡 B.服务器 C.传输介质 D.网络操作系统 41、关于X.25网的特点，说法错误的是（ ） A. 网络可靠性高 B. 通信成本高 C. 采用多路复用 D. 可以接入不同类型的用户设备 42、一个子网网段地址为10.32.0.0，子网掩码为255.224.0.0的网络，它允许的最大主机地址是（） A. 10.63.255.0 B. 10.32.255.254 C. 10.63.255.255 D. 10.63.255.254 43、 DNS的反向解析是指（ ） A. 给出域名由DNS服务器解析出IP地址 B. 将MAC地址翻译成IP地址 C. 将IP地址翻译成MAC地址 D. 给出IP地址由DNS服务器解析出域名 44、 FDDI是一种（ ）结构的局域网技术。 A. 环型 B. 总线型 C. 树型 D. 分布型 45、 下列命令中用于查看本机网卡的物理地址的是（ ） A. Arp B. Ipconfig/all C. Ping D. Tracert 46、 当通信子网采用（ ）方式时，不需要首先在通信双方之间建立连接。 A. 线路连接 B. 虚电路 C. 数据报 D. 无线连接 47、关于对称密码技术，下列说法正确的是（ ） A. 对称密码技术的算法速度较慢 B. 对称密码技术的解密密钥不能从加密密钥中推算出来 C.主要用于数字签名 D. 对称加密算法有DES、RC2 48、有几栋建筑物，周围还有其他电力电缆，若需要将该几栋建筑物连接起来构成骨干型园区网，则采用（ ）比较合适。 A. 光缆 B. 同轴电缆 C. UTP D. STP 49、 下列对防火墙的叙述，错误的是（ ） A. 控制对系统的访问 B. 集中的安全管理 C. 增强的保密性 D. 防止来自网络内部和外部的威胁 50、 通过代理服务器访问Internet，并不能节省或减少（ ） A. IP地址 B. 硬盘空间 C. 网络通信费用 D. 病毒袭击 第II卷(非选择题 共140分) 二、判断题（本大题共14小题，每题1分，共14分。将答案填涂在机读卡上，正确的填涂“A ”，错误的填涂“B ”） 51、在计算机中，CAM代表计算机辅助制造。（ ） 52、在微机中，VGA代表显示器型号。（ ） 53、Windows7中的Guest账户拥有创建本地其他账户的权限。( ) 54、 “资源管理器”是Windows 7系统提供的资源管理工具，采用树状文件系统结构。（ ） 55、 在Word 2010文档编辑状态下，若想将两个段落的内容合并为一个段落，可以将光标点移到第一个段落结尾，按下Backspace和回车键。( ) 56、在Word 2010中，字符格式化包括字体、字号、颜色、修饰、左对齐、右对齐、居中等。( ) 57、 在EXCEL 2010中，直接在工作表标签上双击，输入新名称，也可以实现重命名工作表的操作。 58、 在EXCEL 2010中，输入函数=right(“中等职业技术学校”,3,4)，返回的结果为”职业技术”。( ) 59、 PowerPoint2010演示文稿，只能用于放映幻灯片，无法输出到打印机中。（ ） 60、在Visual Basic中，在用Call带参调用Sub过程时必须把参数放在括号里。（ ） 61、在Visual Foxpro中，查询是预先定义好的SQL SELECT语句，其作用是提高查询效率。（ ） 62、 网络协议的三个要素分别是语法、语义和进程。（ ） 63、 调制解调器的主要功能，是实现通信线路中传输的模拟信号和计算机使用的数字信号之间的转换。（ ） 64、 TCP/IP是Internet上使用的协议，局域网中也可以使用。（ ） 三、填空题（本大题共13小题，每题2分，共26分，请将答案填写在答题纸上） 65、用来衡量计算机的运算速度的性能指标是________。 66、-6的补码是__________。 67、在微机中，I/O设备是指________。 68、在Windows 7操作系统中，用户可以通过按下_______键和空格键来快速切换不同的窗口。 69、在Word 2010中，可以双击“格式刷”按钮，把一种格式复制到多个文本对象，当不再需要使用格式刷时，可以再次单击“格式刷”按钮或按 键，退出格式复制状态。 70、在Excel 2010中，为了直观地展示数据的变化趋势或对比关系，我们可以在Excel 2010中通过 选项卡下的图表功能来创建图表。 71、在PowerPoint 2010中，要显示标尺、网络线、参考线，以及对幻灯片母版进行修改，应在 选项卡中进行操作。 72、 在Visual Basic中，对于数组a(2 to 3 ,4 to 6)，它的第二维的下界为______。 73、在Visual Basic中，函数Int（108*Rnd+1）是在_________范围内的整数。 74、在Visual Foxpro中，________命令可以一次性删除当前表中所有记录。 75、ADSL、VDSL属于______________技术。 76、 10BASE-T使用的传输介质是指___________。 77、 在OSI参考模型中，网络层的数据服务单元是__________。 四、依据环境与题意，写出相应的Visual FoxPro语句或SQL语句，要求每题用一条语句完成（本大题共5小题，每题4分，共20分，请填写在答题纸上） 假设数据库“学生”中包含学籍和成绩两张表，其表结构如下： 学籍.DBF：学号（C，6），姓名（C，6），性别（C，2），出生日期D 成绩.DBF：学号（C，6），数据库（N，5，1），网络技术（N，5，1），总分（N，5，1）该数据库及相关表已打开，请完成如下操作的命令序列： 78、将“成绩”表中全部记录的“总分”字段值加5分。（用 Visual FoxPro命令） 79、逻辑删除学籍表中姓张的女生的记录。（用 Visual FoxPro命令） 80、将学籍表中姓名字段的宽度6改为8。（用 SQL 语句） 81、查询成绩表中总分最高的学生信息。（用 SQL 语句） 82、查询总分低于200分的学生的学号，姓名，性别和总分。（用 SQL 语句） 五、程序分析（本大题共2小题，每题5分，共10分，读程序并分析结果，请填写在答题纸上） 83、下列Visual Basic程序的功能是计算__________________(写数学表达式) Private Sub Command1_Click() Dim i As Integer Dim f As Integer Dim s As Integer f = 1 s = 1 For i = 2 To 9 s = s - f / (i * (i + 1)) f = -f Next i Print s End Sub 84、分析下列Visual FoxPro程序实现的功能___________________________ CLEAR X=VAL(THISFORM.TEXT1.VALUE) Y=VAL(THISFORM.TEXT2.VALUE) IF X>Y T=X X=Y Y=T ENDIF S=0 FOR N=X TO Y Q=0 FOR J=2 TO N-1 IF N % J=0 Q=1 ENDIF ENDFOR IF Q=0 S=N ENDIF ENDFOR THISFORM.TEXT3.VALUE=S RETURN 六、写出以下程序的运行结果（本大题共5小题，每题5分，共25分，请填写在答题纸上） 85、分析下列Visual Basic程序： Private Sub Form_Click() Dim e As Integer, f As Integer Dim g As Integer Dim i As Integer Dim j As Integer Dim k As Integer e = 1 f = 2 g = 3 For i = 1 To 10 e = e + 1 g = g + 1 For j = 1 To 5 e = e + 1 g = g + 1 For k = 5 To 10 f = f + 1 e = e + 1 Next k g = g + 1 f = f + 1 Next j g = f + 1 Next i Print e, f, g End Sub 程序运行后，显示的结果为__________ 86、分析下列Visual Basic程序： Private Sub Command1_Click() Dim i As Integer Dim j As Integer Dim num As Integer Dim arr(3, 3) As Integer num = 1 For i = 1 To 3 For j = 1 To 3 arr(i, j) = num num = num + 1 Next j Next i For i = 1 To 3 For j = 1 To i Call change(arr, i) Next j Next i For i = 1 To 3 For j = 1 To 3 Print arr(i, j); Next j Print Next i End Sub Sub change(a() As Integer, i As Integer) m = UBound(a, 2) temp = a(i, m) For k = m - 1 To 1 Step -1 a(i, k + 1) = a(i, k) Next k a(i, 1) = temp End Sub 程序运行后，显示的结果为________ 87、分析下列Visual FoxPro程序： CLEAR A=5 B=10 DO SUB1 WITH A,B ?A,B A=5 Y=10 DO SUB2 WITH A,B ?A,B A=5 B=10 DO SUB1 WITH A+5,B ?A,B RETURN PROC SUB1 PARA X,Y X=X*5 Y=Y+5 RETURN PROC SUB2 PARA M,N M=10 N=M+20 RETURN 程序运行后，显示的结果为________ 88~89共用下面的数据库： 设有数据库文件宾馆管理.DBC，包含3个表，分别是KF、RZ、KH。其中KF的结构为：客房号(C，4)、类型(C，10)、价格(N，4，0)，RZ的结构为：客房号(C，4)、客户号(C，4)、入住日期(D)，退房日期（D）,KH的结构为：客户号(C，4)、姓名(C，8)、性别(C，2)、工作单位（C，20）；各表中数据如下： KF.DBF RZ.DBF KH.DBF 88、有如下Visual FoxPro程序： OPEN DATABASE 宾馆管理 USE KH ACCEPT "请输入客户姓名：" TO XM INDEX ON 姓名 TAG XMH OF XM SEEK XM KHH=客户号 SELECT A USE RZ GO TOP SCAN IF 客户号=KHH KFH=客房号 NUM=退房日期-入住日期+1 SELECT B USE KF DO WHILE NOT EOF() IF 客房号=KFH S=价格*NUM EXIT ENDIF SKIP ENDDO EXIT ENDIF ENDSCAN ?S 运行上面的程序，输入“刘小青”，显示的结果是 89、 有如下Visual FoxPro程序：（代码中行末的分号为逻辑行连接符） OPEN DATABASE BGGL ACCEPT "请输入客房类型名：" TO LX SELECT 客房号 FROM KF WHERE 类型=LX INTO DBF KFB ALTER TABLE KFB ADD XX C(8) ADD TH N(3,0) SELECT RZ.客房号 AS 客房号,KH.姓名 AS 姓名,(RZ.退房日期-RZ.入住日期+1) AS 天数 FROM RZ,KH WHERE RZ.客户号=KH.客户号 INTO DBF KHB USE KHB SCAN KFH=客房号 XM=姓名 TS=天数 UPDATE KFB SET XX=XM,TH=TS WHERE 客房号=KFH ENDSCAN SELECT KF.类型,KF.客房号,KFB.XX,TH*KF.价格 AS TJ FROM KF,KFB WHERE KF.客房号=KFB.客房号 INTO DBF JG USE JG DO WHILE NOT EOF() ?客房号,XX,TJ SKIP ENDDO 运行上面的程序，输入“C型客房”，显示的结果是：____________________。 7、 Visual Basic程序改错（本大题共有两个小题，每题5分，共10分，每个程序有两个错误行，请在答题纸上写出错误行和对应的正确行，改对一处得一处分，改错不扣分） 90、下列程序的功能是将12345按逆序打印出来，请补充完善程序。 Option Explicit Private Sub Command1_Click() Dim i As Integer i=12345 Print i Print fun1(Str(i)) End Sub Private Function fun1(St As Integer) As String Dim i As Integer For i=Len(St) To 1 Step –1 Fun1=Mid(St, i, 1)+fun1 Next i End Function 91、下述程序的功能是在Text1中随机生成10个3位正整数，找出其中的素数并放到Text2中。 Option Explicit Option Base 1 Private Sub Form_Click() Dim a(10) As Integer, i As Integer Dim St As String, t As Integer, j As Integer Randomize For i = 1 To 10 a(i) = Int(Rnd * 100) + 900 St = St & Str(a(i)) Next i Text1.Text = St For i = 1 To 10 If flag(a(i)) Then Text2 = Text2 & Str(a(i)) End If Next i End Sub Private Function flag(ByVal n As Integer) As String Dim i As Integer, a(3) As Integer flag = True For i = 2 To Sqr(n) If n Mod i = 0 Then Exit Function Next i If i > Sqr(n) Then flag = True End If End Function 8、 程序填空（本大题共7个空，每空5分，共35分，按程序要求在答题纸上填入相应的内容，使程序完整正确） 92、（Visual Basic试题）程序功能：一个n位的正整数，其各位数的n次方之和等于这个数，称这个数为Armstrong数，例如153=13+53+33，1634=14+64+34+44。本题是用来求出所有二位、三位、四位的Armstrong数。请补充完善程序。 Option Explicit Option Base 1 Private Sub Command1_Click() Dim i As Integer For i = 10 To 9999 If ____________Then Print i; Next i End Sub Private Function fact(n As Integer) As Integer Dim Sum As Integer, i As Integer Sum = 0 For i = 1 To Len(CStr(n)) _________ Next i fact = Sum End Function 93、（Visual Basic试题）程序功能：下列程序是产生10个二位随机整数，用选择排序法对10个数按降序排列。请完善程序。 Private Sub Form_Click() Dim A(10) As Integer Dim I As Integer, J As Integer, temp As Integer Randomize Print "排序前：" For I=1 To 10 A(I)=Int(90*Rnd+10) Print A(I); Next I For I=1 To 9 For J= To 10 If Then temp=A(I) A(I) = A(J) A(J)=temp End If Next J Next I Print Print "排序后：" For I=1 To 10 Print A(I); Next I End Sub 94、表单设计如下图所示： 设置控件属性如下： 有一个编辑框EDIT，两个文本框TEXT1和TEXT2，一个命令按钮组COMMANDGROUP1，组里共有3个命令按钮，分别为“查找”、“替换”和“退出”。编辑框EDIT的Hideselection属性设置为.F.，用来显示选定标记。 程序功能具体如下： 在编辑框EDIT中输入一行或多行字符串，在TEXT1中输入要查找的字符串，点击“查询”命令按钮，在EDIT中进行查找，若找到，则找到的字符串会标记出来，在文本框2中输入要替换的字符串后，点击“替换”按钮，用文本框2的内容替换掉EDIT中相应的内容。若在编辑框中没有找到，则会弹出对话框，显示“没查到”。点击“退出”命令按钮，表单关闭。 例如：编辑框的内容为“THIS IS A BOOK!”，文本框TEXT1的内容为BOOK，文本框TEXT2的内容为PEN，执行完成后，编辑框的内容变为“THIS IS A PEN!” COMMANDGROUP1的CLICK事件代码如下： N=THIS.VALUE A=ALLT(THISFORM.EDIT1.VALUE) B=ALLT(THISFORM.TEXT1.VALUE) C=ALLT(THISFORM.TEXT2.VALUE) DO CASE CASE N=1 M=AT(B,A) IF M<>0 THISFORM.EDIT1.SELSTART=M-1 THISFORM.EDIT1.SELLENGTH=____(1)_________ ELSE MESSAGEBOX("没有查到") ENDIF CASE N=2 IF THISFORM.EDIT1.SELTEXT=B ________(2)______________ ELSE MESSAGEBOX("没查到，不能替换！") ENDIF CASE N=3 ________(3)________________ ENDCASE THISFORM.REFRESH 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $$