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

河北省一般高等学校对口招生考试 计算机专业 综合模拟卷（二）答案 考前须知： 1.本试卷共八道大题。总分 240分。 2.第I卷“一、选择题”、第Ⅱ卷“二、推断题”的答案填涂在机读卡上，其余各题答案写在答题纸上，答在试卷上不得分。用蓝黑钢笔、碳素笔或圆珠笔答题。 3，答愿前将密封线内工程填写清晰。 第I卷(选择题 共100分) 一、选择题（本大题共50小题，每题2分，共100分。在题所给出的四个选项中，只有一个符合题目要求，将正确选项填涂在机读卡上） 1、英文缩写CAI的中文含义是（ ） A．计算机辅助教学 B．计算机辅助制造 C．计算机辅助设计 D．计算机辅助管理 【答案】 A 2、 在计算机的硬件技术中，构成存储器的最小单位是（ ） A．字节（Byte） B．二进制位（bit） C．字（Word） D．双字（Double Word） 【答案】 B 3、 计算机操作系统通常具有的五大功能是（ ） A． CPU管理、显示器管理、键盘管理、打印机管理和鼠标器管理 B． 硬盘管理、软盘驱动器管理、CPU管理、显示器管理和键盘管理 C． 处理器（CPU）管理、存储管理、文件管理、设备管理和作业管理 D． 启动、打印、显示、文件存取和关机 【答案】 C 4、下列说法中正确的是( ) A.计算机体积越大，其功能越强 B.在微型机性能指标中，CPU的主频越高，其运算速度越快 C.两个显示器屏幕大小相同，则它们的分辨率必定相同 D.点阵打印机一次只能打印一份 【答案】B 5、400个16×16点阵汉字的字形库存储容量是( )。 A.12800字节 B.0.23604 M个二进制位 C.12.8 K字节 D.12800个二进制位 【答案】A 6、下列各组设备中，同时包括了输入设备、输出设备和存储设备的是( )。 A.CRT显示器、CPU、Cache B.绘图仪、鼠标、键盘 C.鼠标、绘图仪、光盘 D.硬盘、打印机、LED显示器 【答案】C 7、在CD光盘上标记有“CD-RW”字样，此标记表明这光盘（ ） A.只能写入一次，可以反复读出的一次性写入光盘 B.可多次擦除型光盘 C.只能读出，不能写入的只读光盘 D.RW是Read and Write的缩写【答案】 B 8、2.4MB的磁盘空间大约可以存放的汉字数目是( )。 A.240万 B.30万 C.60万 D.120万 【答案】D 9、“库”是 Windows7文件系统管理的一个亮点,下列关于它与文件夹相比的描述,正确的是 ( ) A.库中的文件只存储在同一个位置 B.库对文件夹或文件作了备份 C.库与文件夹比较相像,库中也真正存储了文件夹或文件 D.库与文件夹比较相像,库中也可以包含各种子库和文件 【答案】D 10、在下列关于Windows 7磁盘分区的说法中，正确的是（ ）。 A.Windows7默认是只有到第4个分区时，才会创建扩展分区  B.主分区可以再细分成若干个逻辑驱动器  C.主分区可以不经格式化直接使用  D.只能创建1个主分区 【答案】A 11、在 Windows 7 中，下列文件名正确的是( ) A.Myfilel.txt B.Filel/ C.A<B.C D.A>B.Doc 【答案】A 12、 在Word 2010编辑中，模式匹配查找中能使用的通配符是（ ） A.+和- B.*和， C.*和? D./和* 【答案】C 13、在Word 2010中，想要为一段文本设置悬挂缩进，正确的操作是( )。 A.在“字体”选项卡中，单击“悬挂缩进”按钮 B.在“段落”选项卡中，单击“缩进”按钮，然后选择“悬挂缩进” C.在“格式”选项卡中，单击“悬挂缩进”按钮 D.在“插入”选项卡中，单击“图片”按钮 【答案】B 14、在Word 2010编辑状态下，能设定文档行间距的功能按钮位于( )选项卡。 A.文件 B.开始 C.插入 D.页面布局 【答案】D 15、以下填充方式中，不属于EXCEL 2010的填充方式是（ ）。 A.等差填充 B.等比填充 C.排序填充 D.日期填充 【答案】C 16、 在EXCEL 2010中，录入任何数据，只要在数据前加“ ’”（单引号），则单元格中表示的数据类型是（ ） A.字符 B.数值 C.日期 D.时间 【答案】A 17、在EXCEL 2010中，关于分类汇总，以下说法正确的是（ ） A. 分类汇总前必须对数据进行排序 B. 分类汇总的结果只能显示在新工作表中 C. 分类汇总的结果不能修改 D. 分类汇总的结果会改变原始数据 【答案】A 18、在PowerPoint 2010中,要对幻灯片母版进行设计和修改时，应在( )选项卡中操作。 A.设计 B.审阅 C.插入 D.视图 【答案】D 19、 在PowerPoint 2010中，在幻灯片视图窗格中，要删除选中的幻灯片，不能实现的操作是（ ） A.按下键盘上的Delete键 B.按下键盘上的BackSpace键 C.单击工具栏上的隐藏幻灯片按钮 D.右击选择“删除幻灯片”命令 【答案】C 20、在Visual Basic中,若变量m未事先定义而直接使用，则变量m的类型是（ ） A．Integer B．String C．Boolean D． Variant 【答案】 D 21、 在Visual Basic中，表达式3 * 2 \ 5 Mod 3的值是（ ） A．0 B．1 C．3 D． 5 【答案】 B 22、 在Visual Basic中，以下能对正实数d的第3位小数四舍五入的表达式是（ ） A．0.01*Int(d+0.005) B．0.01*Int(100*(d+0.005)) C．0.01*Int(d+0.05) D． 0.01*Int(100*(d+0.05)) 【答案】 B 23、 在Visual Basic中，关于Select Case语句的叙述，正确的是（ ） A． Select Case语句中的测试表达式可以是任何形式的表达式 B． Select Case语句中的测试表达式只能是数值表达式或字符串表达式 C． 子句Case中的表达式可以是逻辑表达式 D． 不是所有的Select Case语句都能用If语句代替 【答案】 B 24、在Visual Basic中，语句Option Base n定义数组下标下界时，n可以是( ) A．0 B．1 C．0或1 D． 任意数 【答案】C 25、在Visual Basic中，以下（ ）不能设置Picture属性。 A．列表框 B．窗体 C．命令按钮 D． 复选框 【答案】 A 26、 在Visual Basic中，下列说法不正确的是（ ） A． 对象具有属性、方法等成员 B．对象可以识别预先定义的事件 C．对象的属性值一经初始化，则不能再改变 D． 一个对象中包含数据及其对这些数据的相关操作 【答案】 C 27、 在Visual Basic中，下列说法错误的是（ ） A． 标准模块文件的扩展名为.bas B． 在标准模块中声明的全局变量可以在整个工程中使用 C． 在标准模块中不能定义过程 D． 标准模块文件是纯代码文件 【答案】 C 28、 在Visual Basic中，工程文件包含一个模块文件和窗体文件。 模块文件的代码如下： Public x As Integer Private y As Integer 窗体文件代码是： Dim a As Integer Private Sub Form_Load() Dim b As Integer a = 2: b = 3: x = 10: y = 20 End Sub Private Sub Command1_Click() a = a + 5: b = b + 5: x = x + 5: y = y + 5: Print a; b; x; y End Sub 运行程序，单击命令按钮，窗体上显示的结果为（ ） A．5 5 15 5 B．7 5 15 25 C．7 8 15 5 D． 7 5 15 5 【答案】 D 29、 在Visual Foxpro中，执行下列命令后，结果为（ ） a=4 b="*" c=a&b.5 ?C A．20 B．4*5 C．A*5 D． 2 【答案】 A 30、 在Visual Foxpro中，下列（ ）命令不能选择“成绩”表所在工作区。 USE 学生 IN 0 USE 成绩 IN 0 A．SELECT 成绩 B．SELECT B C．SELECT 0 D．SELECT 2 【答案】 C 31、 在Visual Foxpro中，执行命令DIME MM(4,5)之后，数组MM的元素个数是（ ） A．12 B．15 C．20 D．30 【答案】 C 32、 在Visual Foxpro中，（ ）是视图不能够完成的。 A．指定可更新的字段 B．指定可更新的表 C．检查更新合法性 D．删除和视图相关的表 【答案】 D 33、 在Visual Foxpro中，在DO WHILE循环体中的EXIT命令，其作用是（ ） A． 调用子程序 B．终止循环，执行循环语句ENDDO后的语句 C．直接退出Visual Foxpro软件 D．结束本次循环，程序回到DO WHILE语句，执行下一次循环 【答案】 B 34、在Visual Foxpro中，有一个菜单文件MN.MNX，要运行该菜单的方法是（ ） A．执行命令DO MN.MNX B．执行命令DO MENU MN.MNX C．先生成菜单程序文件MN.MPR，再执行命令DO MN.MPR D．先生成菜单程序文件MN.MPR，再执行命令DO MENU MN.MPR 【答案】 C 35、在Visual Foxpro中，为了在报表中加入一个表达式，这时应该插入一个（ ） A．表达式控件 B．域控件 C．标签控件 D．文本控件 【答案】 B 36、下列选项中，不是构成计算机网络所必需的是（ ）。 A．打印机 B．计算机系统 C．网络操作系统 D．网络连接设备 【答案】A 37、关于TCP/IP模型中的网络接口层的功能，说法不正确的是（ ） A. 为IP模块发送和接收数据 B.为ARP模块发送ARP请求和接收ARP应答 C.为RAPR模块发送RARP请求和接收RARP应答 D. 实现IP地址到MAC地址的映射 【答案】 D 38、专用网的特点是( ) A. 由电信部门组建和管理 B. 主要用于内部办公 C. 不允许系统外的用户使用 D. 覆盖范围有限 【答案】C 39、 要求路由选择算法能适应网络拓扑结构的变化以及通信量的变化，确保算法能够长时 间无错误地运行，是路由选择算法的（ ）特点。 A. 正确性 B. 稳定性 C.强壮性 D. 简单性 【答案】C 40、关于IP协议，下列说法不正确的是（ ） A.IP协议是互联网层中的核心协议 B.IP协议是一个面向无连接的协议 C.IP协议是一个不可靠的数据包协议 D.IP协议在传输数据包之前，需要建立连接 【答案】D 41、下列不是决定局域网特性的主要技术要素的是（ ） A.网络拓扑结构 B. 传输协议 C.介质访问控制方法 D. 传输介质 【答案】B 42、 在Internet中，各节点之间的数据交换采用（ ） A.线路交换 B. 报文交换 C.分组交换 D. 电子邮件 【答案】C 43、TCP提供的是一种（ ）传输服务。 A. 单工 B.半双工 C.全双工 D. 以上说法都不正确 【答案】C 44、RS232-C是（ ）接口规范。 A.物理层 B. 数据链路层 C.网路层 D. 传输层 【答案】A 45、某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 46、 电子邮件系统的核心是（ ） A.电子邮箱 B. 邮件服务器 C.邮件地址 D. 邮件客户机软件 【答案】B 47、下列域名表示错误的是（ ） A. .edu用于教育机构 B. .gov用于政府机构 C. .mil用于军事部门 D..org用于营利性组织 【答案】 D 48、VPN的关键技术是隧道技术，SSL VPN协议属于（ ） A.第一层 B. 第二层 C.第三层 D. 第四层 【答案】D 49、 在Internet中，一般可以匿名登录的是（ ） A.FTP B. E-mail C.DNS D. 网络电话 【答案】A 50、结构化布线系统中，用于将每层的配线架与设备间串联起来的子系统，称为（ ） A.户外子系统 B.垂直竖井子系统 C.楼层平面子系统 D.用户端子系统 【答案】B 第II卷(非选择题 共140分) 二、判断题（本大题共14小题，每题1分，共14分。将答案填涂在机读卡上，正确的填涂“A ”，错误的填涂“B ”） 51、计算机系统是由硬件系统和软件系统组成。（ ） 【答案】A 52、主板是微型计算机中最大的一块电路板。 （ ） 【答案】A 53、在 Wirldows7系统中,点击任务栏右下角“网络”,打开“网络和共享中心”,用户可以查看本机的IP地址等信息。（ ） 【答案】A 54、Windows+E快捷键可以打开“资源管理器”窗口。( ) 【答案】B 55、在Word 2010文档中，一个段落只能设置一种段落格式。( ) 【答案】B 56、 Word 2010文档常常用于创建和编辑文档，如报告、简历和信函等。（ ） 【答案】A 57、 在Excel中输入日期时，可以使用斜杠“/”或连字符“-”作为分隔符。( ) 【答案】A 58、 在EXCEL 2010中，若单元格显示为#REF!,表示单元格引用无效。( ) 【答案】A 59、PowerPoint2010中，关闭所有演示文稿后会自动退出PowerPoint系统。 ( ) 【答案】B 60、在Visual Basic中，访问任何一个文件之前，都必须先打开该文件，然后才能对文件进行操作。（ ） 【答案】 A 61、在Visual Foxpro中，删除数据库时属于该数据库的表也一定会被删除。（ ） 【答案】 B 62、POP3是邮局协议，用于接收邮件。( ) 【答案】A 63、同一个子网中的主机的网络地址相同。（ ） 【答案】A 64、 在OSI/RM协议模型中，数据链路层向网络层提供服务。（ ） 【答案】A 三、填空题（本大题共13小题，每题2分，共26分，请将答案填写在答题纸上） 65、介于CPU与内存之间的存储器是_______ 。 【答案】高速缓冲存储器 66、能把汇编语言源程序翻译成目标程序的程序是 。 【答案】汇编程序 67、 某汉字的国标码是5347H，则它的区位码是_________ 。 【答案】5139 68、在 Windows 7 操作系统中，_______ 是用于管理计算机硬件和软件设置的控制中心。 【答案】控制面板 69、在Word 2010中， 是指段落中除首行以外的其他行距离首行左侧的缩进量。 【答案】悬挂缩进 70、在 Excel 2010 中，可以创建各种类型的图表，如条形图、柱形图等。用于比较多个值，应该选择______________。 【答案】条形图 71、退出 PowerPoint的快捷键是______________。 【答案】Alt+F4 72、 在Visual Basic中，Rnd函数的取值范围是________。 【答案】[0,1) 73、在Visual Basic中，获取组合框Combo1中最后一个列表项序号的表达式是_________。 【答案】 Combo1.ListCount-1 74、 在Visual Foxpro中，若要求Timer控件的Timer事件每隔3秒执行一次，则需要将 Timer控件的Interval属性值设置为____________。 【答案】 3000 75、 以太网络标准中约定了一个以太网上只允许出现5个网段、最多使用4个中继器，而且 其中只有______个网段可以连接计算机终端。 【答案】 3 76、按密钥的类型不同，加密算法可以分为对称密钥算法和__________。 【答案】非对称密钥算法 77、用来确定本地主机是否能与另一台主机成功交换数据包的命令是__________。 【答案】ping 四、依据环境与题意，写出相应的Visual FoxPro语句或SQL语句，要求每题用一条语句完成（本大题共5小题，每题4分，共20分，请填写在答题纸上） 设有学生管理数据库“XSGL.DBC”,中有表”XSDA.DBF”，表结构如下:学号（C，8），姓名（C, 8），性别（C, 2），出生日期D，入学成绩（N,5,1），班级(C,10)，系别(C ,20)，该表已打开，请完成如下操作的命令序列： 78、 将XSDA.DBF中入学成绩大于550（包括550）的记录加上删除标记。（用Visual FoxPro命令） 【答案】DELETE FOR 入学成绩 >=550 79、以入学成绩为关键字建立降序索引，索引文件名为CJ.IDX（用Visual FoxPro命令） 【答案】INDEX ON -入学成绩 TO CJ 80、查询“”XSDA.DBF”中入学成绩在600分以上（包含600）的学生的姓名，性别，入学成绩和系别。（用SQL语句） 【答案】SELECE 姓名，性别，入学成绩，系别FROM XSDA WHERE 入学成绩>=600 81、查询“”XSDA.DBF”中每个班级的人数。（用SQL语句） 【答案】SELECT 班级，COUNT(*)AS 人数 FROM XSDA GROUP BY 班级 82、查询“”XSDA.DBF”中各班的入学成绩的最高分和最低分。（用SQL语句） 【答案】SELECT 班级, MAX(入学成绩)AS 最高分，MIN(入学成绩)AS 最低分FROM XSDA GROUP BY 班级 五、程序分析（本大题共2小题，每题5分，共10分，读程序并分析结果，请填写在答题纸上） 83、在Visual Basic中，当前文件夹中有一个名为“myfile.txt”的文本文件，其中有若干行文本，下列程序实现的功能是_______________________ Private Sub Command1_Click() Dim ch$, ascii As Integer Open "myfile.txt" For Input As #1 While Not EOF(1) Line Input #1, ch ascii = 0 For i = 1 To Len(ch) ascii = ascii + Asc(Mid(ch, i, 1)) Next i Print ascii Wend Close #1 End Sub 【答案】按行计算文件中每行字符的ASCII码之和，并显示在窗体上。 84、以下Visual Foxpro程序实现的功能是___________ CLEAR INPUT"第一个数："TO X INPUT"第二个数："TO Y N=MIN(X,Y) DO WHILE N>0 IF X%N=0 AND Y%N=0 S=N EXIT ELSE N=N-1 LOOP ENDIF ENDDO ?X*Y/S RETURN 【答案】从键盘输入两个正整数，输出最小公倍数 六、写出以下程序的运行结果（本大题共5小题，每题5分，共25分，请填写在答题纸上） 85、Visual Basic程序代码如下： Private Sub Command2_Click() Dim x As String, word As String, word_max As String Dim num As Integer, xmax As Integer x = Trim(Text1.Text) xmax = 0 Do While Len(x) > 0 num = InStr(x, Space(1)) If num = 0 Then word = 1 x = "" Else word = Left(x, num) x = Mid(x, num + 1) End If If Len(word) >= xmax Then xmax = Len(word) word_max = word End If Loop Text2.Text = word_max End Sub 运行上述程序，在文本框1中输入”talking about the rules ”文本框2中显示的内容为___________ 【答案】talking 86、 Visual Basic程序代码如下： Private sub form_click() Dim a as integer Dim I as integer A=2 For I=1 to 9 Call sub1(I, a) Print I,a Next I End Sub Private Sub Sub1(x as integer, y as integer) Static n as integer Dim I as integer For I=3 to 1 step –1 N=n+x X=x+1 Next I Y=y+n End sub 执行上面的程序，在窗体上显示的输出结果的第一行是____________ ，第三行是________。 【答案】 1 2 3 2 87、Visual Foxpro程序如下： CLEAR STORE 1 TO X,Y A=1 B=0 DO SUB1 WITH A,B ?A,B RETURN PROC SUB1 PARA A,B X=5 DO WHILE X<=6 A=A+2 X=X+1 ENDDO B=A+B DO SUB2 WITH A RETURN PROC SUB2 PARA A A=10 RETURN 程序运行后，输出结果为_____ 【答案】 10 5 88、Visual Foxpro程序如下： CLEAR INPUT"请输入第一个正整数："TO A INPUT"请输入第二个正整数："TO B IF A>B TEMP=A A=B B=TEMP ENDIF S=0 FOR I=A TO B F=0 FOR J=2 TO I-1 IF I%J=0 F=1 ENDIF ENDFOR IF F=0 S=I ENDIF ENDFOR ?S 程序运行后，输入3和30，则输出结果为_____ 【答案】 29 89、 设有数据表“图书.DBF”，该表包含的字段有：“图书id（C，6）”、“书名（C，20）”、“作者id（C，4）”、“单价（N，6,2）”、“出版社（C，20）”、“版次（N，2）”和“出版日期D”。表结构和记录如下图所示： Visual Foxpro程序如下： CLEAR ACCEP"请输入图书ID："TO TS ALTER TABLE 图书 ADD XX I SELECT 图书ID,书名,作者ID,出版社,单价,XX FROM 图书 ORDER BY 出版社,单价 DESC INTO DBF TEMP GO TOP A=1 B=A C1=TEMP.单价 C2=TEMP.出版社 DO WHILE NOT EOF() IF C2=TEMP.出版社 REPLACE XX WITH IIF(C1=TEMP.单价,B,A) B=TEMP.XX A=A+1 C2=TEMP.出版社 C1=TEMP.单价 ELSE A=1 B=A C1=TEMP.单价 REPLACE XX WITH A A=A+1 C2=TEMP.出版社 ENDIF SKIP ENDDO SELECT 图书ID,书名,XX WHERE 图书ID=TS FROM TEMP INTO DBF TEMP1 ?图书ID,书名,XX 运行上面的程序，输入图书ID“C0002”，程序的运行结果为_____________ 【答案】 C0002 商品学基础 1 7、 Visual Basic程序改错（本大题共有两个小题，每题5分，共10分，每个程序有两个错误行，请在答题纸上写出错误行和对应的正确行，改对一处得一处分，改错不扣分） 90、下列程序实现的功能：从键盘上输入一个二进制，把它转换为等值的十进制数并输出。 Private Sub Command1_Click() Dim a As String Dim x As Integer Dim y As Integer a = InputBox("请输入一个二进制数：") x = a For i = 1 To x y = y + Val(Mid(a, i, 1)) Next i Print y End Sub 【答案】 1、x = a 改为 x = Len(a) 2、y = y + Val(Mid(a, i, 1)) 改为 y = y * 2 + Val(Mid(a, i, 1)) 91、窗体上显示一个列表 框和一个文本框，且列表框中已有若干列表项。程序的功能是，程序运行时，当用户在列表框中单击并选中某个列表项时，该项的内容显示到文本框中，用户可以在文本框中对相关内容进行编辑，按回车键后，能够用编辑好的内容替换被选中的列表项，并自动清空文本框；当双击某个列表项时，则从列表框中删除该列表项；当用户直接在文本框中键入文本并回车后，则把该文本添加为列表框的一个新列表项，添加完成后，将文本框清空。运行窗体如下图所示。 Private Sub List1_Click() Text1.Text = List1.Text End Sub Private Sub List1_DblClick() List1.RemoveItem List1.Index Text1.Text = "" End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 And Text1.Text <> "" Then If List1.ListIndex = -1 Then List1.AddItem Text1.Text Else Text1.Text= List1.List(List1.ListIndex) List1.ListIndex = -1 End If Text1.Text = "" End If End Sub 【答案】 1、 List1.RemoveItem List1.Index 改为 List1.RemoveItem List1.ListIndex 2、Text1.Text= List1.List(List1.ListIndex) 改为 List1.List(List1.ListIndex) = Text1.Text 八、程序填空（本大题共7个空，每空5分，共35分，按程序要求在答题纸上填入相应的内容，使程序完整正确） 92、(Visual Basic试题)程序完成如下功能： （1）单击“产生数据”按钮，则随机产生20个一位整数，存入数组a中，同时显示在原始数据的文本框Text1中。 （2）单击“重新排列”按钮，则重新排列数组a中的元素，排序方法：使等值的元素相邻存放，并且保持它们在数组a中首次出现的相对次序；最后将排序结果显示在排列数据的文本框Text2中。运行结果如下图所示。根据程序的功能补充代码。 Option Base 1 Dim a(20) As Integer Private Sub Command1_Click() Randomize (1) Text1.Text = "" For i = 1 To 20 a(i) = Int(Rnd * 10) Text1.Text = ___________________ Next End Sub Private Sub Command2_Click() i = 1 Do While i < 20 For j = i + 1 To 20 If a(i) = a(j) Then x = a(j) i = i + 1 For k = j To i + 1 Step -1 '本循环把下标为i到j-1的元素向后移一个位置 a(k) = __________ Next k a(i) = x End If Next j i = i + 1 Loop Text2.Text = "" For i = 1 To 20 Text2.Text = Text2.Text + Str(a(i)) Next i End Sub 【答案】 1、 Text1.Text + Str(a(i)) 2、a(k - 1) 93、(Visual Basic试题)程序完成如下功能： 单击“显示按钮”按钮，将文件in5.dat文件的内容读入一维数组a中，并按下标顺序将数组a中所有元素的值显示在List1列表框中，单击“移动”按钮，则将数组a中的最大值移动到数组的最前面，其他数据的排列顺序不变，并将移动后的结果显示在List2列表框中。程序运行结果如下所示。根据程序功能完成代码补充。 Option Explicit Option Base 1 Dim a(10) As Integer Private Sub Command1_Click() ‘显示数据 Dim i As Integer List1.Clear Open App.Path & "\in5.dat" For Input As #1 For i = 1 To 10 Input #1, a(i) _____________ Next i Close #1 End Sub Private Sub Command2_Click() ‘移动 Dim i, max, maxindex As Integer max = a(1) For i = 2 To UBound(a) If a(i) > max Then max = a(i) maxindex = i End If Next i _____________ For i = 1 To UBound(a) If i <> maxindex Then List2.AddItem (a(i)) End If Next i End Sub 【答案】 1、 List1.AddItem (a(i)) 2、List2.AddItem (a(maxindex)) 94、(Visual FoxPro试题)已知有“学生管理.DBC”数据库，其中包含“用户”表，“用户”表的结构为：用户名(C，10)、密码(C，10),应用程序运行时界面如下图所示： 设置控件属性如下： 有四个标签，其Name属性分别为Label1、Label2、Label3和Label4，Caption属性分别为“用户名”、“密码”、“确认密码”、(空)。有三个文本框，其Name属性分别为Text1、Text2、Text3；两个命令按钮，其Name属性分别为Command1和Command2，Caption属性分别为“确定”和“取消”。 编写Visual FoxPro程序实现“添加用户”的功能，具体功能如下： 在Text1文本框中输入用户名、在Text2文本框中输入密码、在Text3文本框中输入确认密码，然后单击“确定”按钮；如果“用户名”为空，则在Label4上显示“用户名不能为空！”；如果输入的用户名在“用户”表中存在，则在Label4上显示“用户已存在！”；如果用户名不为空、也不在“用户”表中存在，则判断Text2和Text3中输入的密码和确认密码（要求密码只能是数字或字母，不能是其他字符，如果输入了其它字符，则在Label4中显示“密码使用了不合法的字符！”）是否相同，如果不相同，则在Label4中显示“请输入相同密码！”；如果不发生以上情况，则将用户信息添加到“用户”表中（密码进行简单的加密处理，将密码串中的每个字符按ASCII码变为其后的第二个字符，如0变成2,1变成3，a变成c），并在Label4中显示“成功添加新用户！”。 Command1（“确定”按钮）的Click事件如下，请在空白位置填写正确的命令。（代码中行末的分号为逻辑行连接符） U1=THISFORM.TEXT1.VALUE PW1=THISFORM.TEXT2.VALUE OPEN DATABASE XXGL TEMPCHR="" IF TRIM(U1)=="" THISFORM.LABEL4.CAPTION="用户名不能为空！" ELSE SELECT COUNT(用户名) AS GESHU FROM 用户 WHERE; UPPER(用户名)=UPPER(TRIM(THISFORM.TEXT1.VALUE)) INTO DBF BIAO USE BIAO IF GESHU>0 THISFORM.LABEL4.CAPTION="用户已存在！" ELSE IF TRIM(THISFORM.TEXT2.VALUE)==TRIM(THISFORM.TEXT3.VALUE) TEMPSTR="" FOR I=1 TO LEN(TRIM(PW1)) （1） IF MIMA>='0' AND MIMA<='9' OR MIMA>='a' AND MIMA<='z' OR; MIMA>='A' AND MIMA<='Z' （2） TEMPSTR = TEMPSTR + Chr(TEMPCHR) ELSE THISFORM.LABEL4.CAPTION="密码使用了不合法的字符！" EXIT FOR ENDIF ENDFOR IF I>LEN(TRIM(PW1)) DIMENSION B(1,2) B(1,1)=U1 B(1,2)=TEMPSTR INSERT INTO 用户 VALUES(b(1,1),b(1,2)) THISFORM.LABEL4.CAPTION="成功添加新用户！" ENDIF ELSE （3） ENDIF ENDIF ENDIF 【答案】 （1）MIMA=SUBSTR(PW1,i,1) （2）TEMPCHR=ASC(MIMA)+1 （3） THISFORM.LABEL4.CAPTION="请输入相同密码！" 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $$ 河北省一般高等学校对口招生考试 计算机专业 综合模拟卷（二） 考前须知： 1.本试卷共八道大题。总分 240分。 2.第I卷“一、选择题”、第Ⅱ卷“二、推断题”的答案填涂在机读卡上，其余各题答案写在答题纸上，答在试卷上不得分。用蓝黑钢笔、碳素笔或圆珠笔答题。 3，答愿前将密封线内工程填写清晰。 第I卷(选择题 共100分) 一、选择题（本大题共50小题，每题2分，共100分。在题所给出的四个选项中，只有一个符合题目要求，将正确选项填涂在机读卡上） 1、英文缩写CAI的中文含义是（ ） A．计算机辅助教学 B．计算机辅助制造 C．计算机辅助设计 D．计算机辅助管理 2、 在计算机的硬件技术中，构成存储器的最小单位是（ ） A．字节（Byte） B．二进制位（bit） C．字（Word） D．双字（Double Word） 3、 计算机操作系统通常具有的五大功能是（ ） A． CPU管理、显示器管理、键盘管理、打印机管理和鼠标器管理 B． 硬盘管理、软盘驱动器管理、CPU管理、显示器管理和键盘管理 C． 处理器（CPU）管理、存储管理、文件管理、设备管理和作业管理 D． 启动、打印、显示、文件存取和关机 4、下列说法中正确的是( ) A.计算机体积越大，其功能越强 B.在微型机性能指标中，CPU的主频越高，其运算速度越快 C.两个显示器屏幕大小相同，则它们的分辨率必定相同 D.点阵打印机一次只能打印一份 5、400个16×16点阵汉字的字形库存储容量是( )。 A.12800字节 B.0.23604 M个二进制位 C.12.8 K字节 D.12800个二进制位 6、下列各组设备中，同时包括了输入设备、输出设备和存储设备的是( )。 A.CRT显示器、CPU、Cache B.绘图仪、鼠标、键盘 C.鼠标、绘图仪、光盘 D.硬盘、打印机、LED显示器 7、在CD光盘上标记有“CD-RW”字样，此标记表明这光盘（ ） A.只能写入一次，可以反复读出的一次性写入光盘 B.可多次擦除型光盘 C.只能读出，不能写入的只读光盘 D.RW是Read and Write的缩写 8、2.4MB的磁盘空间大约可以存放的汉字数目是( )。 A.240万 B.30万 C.60万 D.120万 9、“库”是 Windows7文件系统管理的一个亮点,下列关于它与文件夹相比的描述,正确的是 ( ) A.库中的文件只存储在同一个位置 B.库对文件夹或文件作了备份 C.库与文件夹比较相像,库中也真正存储了文件夹或文件 D.库与文件夹比较相像,库中也可以包含各种子库和文件 10、在下列关于Windows 7磁盘分区的说法中，正确的是（ ）。 A.Windows7默认是只有到第4个分区时，才会创建扩展分区  B.主分区可以再细分成若干个逻辑驱动器  C.主分区可以不经格式化直接使用  D.只能创建1个主分区 11、在 Windows 7 中，下列文件名正确的是( ) A.Myfilel.txt B.Filel/ C.A<B.C D.A>B.Doc 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中，关于分类汇总，以下说法正确的是（ ） A. 分类汇总前必须对数据进行排序 B. 分类汇总的结果只能显示在新工作表中 C. 分类汇总的结果不能修改 D. 分类汇总的结果会改变原始数据 18、在PowerPoint 2010中,要对幻灯片母版进行设计和修改时，应在( )选项卡中操作。 A.设计 B.审阅 C.插入 D.视图 19、 在PowerPoint 2010中，在幻灯片视图窗格中，要删除选中的幻灯片，不能实现的操作是（ ） A.按下键盘上的Delete键 B.按下键盘上的BackSpace键 C.单击工具栏上的隐藏幻灯片按钮 D.右击选择“删除幻灯片”命令 20、在Visual Basic中,若变量m未事先定义而直接使用，则变量m的类型是（ ） A．Integer B．String C．Boolean D． Variant 21、 在Visual Basic中，表达式3 * 2 \ 5 Mod 3的值是（ ） A．0 B．1 C．3 D． 5 22、 在Visual Basic中，以下能对正实数d的第3位小数四舍五入的表达式是（ ） A．0.01*Int(d+0.005) B．0.01*Int(100*(d+0.005)) C．0.01*Int(d+0.05) D． 0.01*Int(100*(d+0.05)) 23、 在Visual Basic中，关于Select Case语句的叙述，正确的是（ ） A． Select Case语句中的测试表达式可以是任何形式的表达式 B． Select Case语句中的测试表达式只能是数值表达式或字符串表达式 C． 子句Case中的表达式可以是逻辑表达式 D． 不是所有的Select Case语句都能用If语句代替 24、在Visual Basic中，语句Option Base n定义数组下标下界时，n可以是( ) A．0 B．1 C．0或1 D． 任意数 25、在Visual Basic中，以下（ ）不能设置Picture属性。 A．列表框 B．窗体 C．命令按钮 D． 复选框 26、 在Visual Basic中，下列说法不正确的是（ ） A． 对象具有属性、方法等成员 B．对象可以识别预先定义的事件 C．对象的属性值一经初始化，则不能再改变 D． 一个对象中包含数据及其对这些数据的相关操作 27、 在Visual Basic中，下列说法错误的是（ ） A． 标准模块文件的扩展名为.bas B． 在标准模块中声明的全局变量可以在整个工程中使用 C． 在标准模块中不能定义过程 D． 标准模块文件是纯代码文件 28、 在Visual Basic中，工程文件包含一个模块文件和窗体文件。 模块文件的代码如下： Public x As Integer Private y As Integer 窗体文件代码是： Dim a As Integer Private Sub Form_Load() Dim b As Integer a = 2: b = 3: x = 10: y = 20 End Sub Private Sub Command1_Click() a = a + 5: b = b + 5: x = x + 5: y = y + 5: Print a; b; x; y End Sub 运行程序，单击命令按钮，窗体上显示的结果为（ ） A．5 5 15 5 B．7 5 15 25 C．7 8 15 5 D． 7 5 15 5 29、 在Visual Foxpro中，执行下列命令后，结果为（ ） a=4 b="*" c=a&b.5 ?C A．20 B．4*5 C．A*5 D． 2 30、 在Visual Foxpro中，下列（ ）命令不能选择“成绩”表所在工作区。 USE 学生 IN 0 USE 成绩 IN 0 A．SELECT 成绩 B．SELECT B C．SELECT 0 D．SELECT 2 31、 在Visual Foxpro中，执行命令DIME MM(4,5)之后，数组MM的元素个数是（ ） A．12 B．15 C．20 D．30 32、 在Visual Foxpro中，（ ）是视图不能够完成的。 A．指定可更新的字段 B．指定可更新的表 C．检查更新合法性 D．删除和视图相关的表 33、 在Visual Foxpro中，在DO WHILE循环体中的EXIT命令，其作用是（ ） A． 调用子程序 B．终止循环，执行循环语句ENDDO后的语句 C．直接退出Visual Foxpro软件 D．结束本次循环，程序回到DO WHILE语句，执行下一次循环 34、在Visual Foxpro中，有一个菜单文件MN.MNX，要运行该菜单的方法是（ ） A．执行命令DO MN.MNX B．执行命令DO MENU MN.MNX C．先生成菜单程序文件MN.MPR，再执行命令DO MN.MPR D．先生成菜单程序文件MN.MPR，再执行命令DO MENU MN.MPR 35、在Visual Foxpro中，为了在报表中加入一个表达式，这时应该插入一个（ ） A．表达式控件 B．域控件 C．标签控件 D．文本控件 36、下列选项中，不是构成计算机网络所必需的是（ ）。 A．打印机 B．计算机系统 C．网络操作系统 D．网络连接设备 37、关于TCP/IP模型中的网络接口层的功能，说法不正确的是（ ） A. 为IP模块发送和接收数据 B.为ARP模块发送ARP请求和接收ARP应答 C.为RAPR模块发送RARP请求和接收RARP应答 D. 实现IP地址到MAC地址的映射 38、专用网的特点是( ) A. 由电信部门组建和管理 B. 主要用于内部办公 C. 不允许系统外的用户使用 D. 覆盖范围有限 39、 要求路由选择算法能适应网络拓扑结构的变化以及通信量的变化，确保算法能够长时 间无错误地运行，是路由选择算法的（ ）特点。 A. 正确性 B. 稳定性 C.强壮性 D. 简单性 40、关于IP协议，下列说法不正确的是（ ） A.IP协议是互联网层中的核心协议 B.IP协议是一个面向无连接的协议 C.IP协议是一个不可靠的数据包协议 D.IP协议在传输数据包之前，需要建立连接 41、下列不是决定局域网特性的主要技术要素的是（ ） A.网络拓扑结构 B. 传输协议 C.介质访问控制方法 D. 传输介质 42、 在Internet中，各节点之间的数据交换采用（ ） A.线路交换 B. 报文交换 C.分组交换 D. 电子邮件 43、TCP提供的是一种（ ）传输服务。 A. 单工 B.半双工 C.全双工 D. 以上说法都不正确 44、RS232-C是（ ）接口规范。 A.物理层 B. 数据链路层 C.网路层 D. 传输层 45、某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 46、 电子邮件系统的核心是（ ） A.电子邮箱 B. 邮件服务器 C.邮件地址 D. 邮件客户机软件 47、下列域名表示错误的是（ ） A. .edu用于教育机构 B. .gov用于政府机构 C. .mil用于军事部门 D..org用于营利性组织 48、VPN的关键技术是隧道技术，SSL VPN协议属于（ ） A.第一层 B. 第二层 C.第三层 D. 第四层 49、 在Internet中，一般可以匿名登录的是（ ） A.FTP B. E-mail C.DNS D. 网络电话 50、结构化布线系统中，用于将每层的配线架与设备间串联起来的子系统，称为（ ） A.户外子系统 B.垂直竖井子系统 C.楼层平面子系统 D.用户端子系统 第II卷(非选择题 共140分) 二、判断题（本大题共14小题，每题1分，共14分。将答案填涂在机读卡上，正确的填涂“A ”，错误的填涂“B ”） 51、计算机系统是由硬件系统和软件系统组成。（ ） 52、主板是微型计算机中最大的一块电路板。 （ ） 53、在 Wirldows7系统中,点击任务栏右下角“网络”,打开“网络和共享中心”,用户可以查看本机的IP地址等信息。（ ） 54、Windows+E快捷键可以打开“资源管理器”窗口。( ) 55、在Word 2010文档中，一个段落只能设置一种段落格式。( ) 56、 Word 2010文档常常用于创建和编辑文档，如报告、简历和信函等。（ ） 57、 在Excel中输入日期时，可以使用斜杠“/”或连字符“-”作为分隔符。( ) 58、 在EXCEL 2010中，若单元格显示为#REF!,表示单元格引用无效。( ) 59、PowerPoint2010中，关闭所有演示文稿后会自动退出PowerPoint系统。 ( ) 60、在Visual Basic中，访问任何一个文件之前，都必须先打开该文件，然后才能对文件进行操作。（ ） 61、在Visual Foxpro中，删除数据库时属于该数据库的表也一定会被删除。（ ） 62、POP3是邮局协议，用于接收邮件。( ) 63、同一个子网中的主机的网络地址相同。（ ） 64、 在OSI/RM协议模型中，数据链路层向网络层提供服务。（ ） 三、填空题（本大题共13小题，每题2分，共26分，请将答案填写在答题纸上） 65、介于CPU与内存之间的存储器是_______ 。 66、能把汇编语言源程序翻译成目标程序的程序是 。 67、 某汉字的国标码是5347H，则它的区位码是_________ 。 68、在 Windows 7 操作系统中，_______ 是用于管理计算机硬件和软件设置的控制中心。 69、在Word 2010中， 是指段落中除首行以外的其他行距离首行左侧的缩进量。 70、在 Excel 2010 中，可以创建各种类型的图表，如条形图、柱形图等。用于比较多个值，应该选择______________。 71、退出 PowerPoint的快捷键是______________。 72、 在Visual Basic中，Rnd函数的取值范围是________。 73、在Visual Basic中，获取组合框Combo1中最后一个列表项序号的表达式是_________。 74、 在Visual Foxpro中，若要求Timer控件的Timer事件每隔3秒执行一次，则需要将 Timer控件的Interval属性值设置为____________。 75、 以太网络标准中约定了一个以太网上只允许出现5个网段、最多使用4个中继器，而且 其中只有______个网段可以连接计算机终端。 76、按密钥的类型不同，加密算法可以分为对称密钥算法和__________。 77、用来确定本地主机是否能与另一台主机成功交换数据包的命令是__________。 四、依据环境与题意，写出相应的Visual FoxPro语句或SQL语句，要求每题用一条语句完成（本大题共5小题，每题4分，共20分，请填写在答题纸上） 设有学生管理数据库“XSGL.DBC”,中有表”XSDA.DBF”，表结构如下:学号（C，8），姓名（C, 8），性别（C, 2），出生日期D，入学成绩（N,5,1），班级(C,10)，系别(C ,20)，该表已打开，请完成如下操作的命令序列： 78、 将XSDA.DBF中入学成绩大于550（包括550）的记录加上删除标记。（用Visual FoxPro命令） 79、以入学成绩为关键字建立降序索引，索引文件名为CJ.IDX（用Visual FoxPro命令） 80、查询“”XSDA.DBF”中入学成绩在600分以上（包含600）的学生的姓名，性别，入学成绩和系别。（用SQL语句） 81、查询“”XSDA.DBF”中每个班级的人数。（用SQL语句） 82、查询“”XSDA.DBF”中各班的入学成绩的最高分和最低分。（用SQL语句） 五、程序分析（本大题共2小题，每题5分，共10分，读程序并分析结果，请填写在答题纸上） 83、在Visual Basic中，当前文件夹中有一个名为“myfile.txt”的文本文件，其中有若干行文本，下列程序实现的功能是_______________________ Private Sub Command1_Click() Dim ch$, ascii As Integer Open "myfile.txt" For Input As #1 While Not EOF(1) Line Input #1, ch ascii = 0 For i = 1 To Len(ch) ascii = ascii + Asc(Mid(ch, i, 1)) Next i Print ascii Wend Close #1 End Sub 84、以下Visual Foxpro程序实现的功能是___________ CLEAR INPUT"第一个数："TO X INPUT"第二个数："TO Y N=MIN(X,Y) DO WHILE N>0 IF X%N=0 AND Y%N=0 S=N EXIT ELSE N=N-1 LOOP ENDIF ENDDO ?X*Y/S RETURN 六、写出以下程序的运行结果（本大题共5小题，每题5分，共25分，请填写在答题纸上） 85、Visual Basic程序代码如下： Private Sub Command2_Click() Dim x As String, word As String, word_max As String Dim num As Integer, xmax As Integer x = Trim(Text1.Text) xmax = 0 Do While Len(x) > 0 num = InStr(x, Space(1)) If num = 0 Then word = 1 x = "" Else word = Left(x, num) x = Mid(x, num + 1) End If If Len(word) >= xmax Then xmax = Len(word) word_max = word End If Loop Text2.Text = word_max End Sub 运行上述程序，在文本框1中输入”talking about the rules ”文本框2中显示的内容为___________ 86、 Visual Basic程序代码如下： Private sub form_click() Dim a as integer Dim I as integer A=2 For I=1 to 9 Call sub1(I, a) Print I,a Next I End Sub Private Sub Sub1(x as integer, y as integer) Static n as integer Dim I as integer For I=3 to 1 step –1 N=n+x X=x+1 Next I Y=y+n End sub 执行上面的程序，在窗体上显示的输出结果的第一行是　______ ，第三行是　 ______。 87、Visual Foxpro程序如下： CLEAR STORE 1 TO X,Y A=1 B=0 DO SUB1 WITH A,B ?A,B RETURN PROC SUB1 PARA A,B X=5 DO WHILE X<=6 A=A+2 X=X+1 ENDDO B=A+B DO SUB2 WITH A RETURN PROC SUB2 PARA A A=10 RETURN 程序运行后，输出结果为_____ 88、Visual Foxpro程序如下： CLEAR INPUT"请输入第一个正整数："TO A INPUT"请输入第二个正整数："TO B IF A>B TEMP=A A=B B=TEMP ENDIF S=0 FOR I=A TO B F=0 FOR J=2 TO I-1 IF I%J=0 F=1 ENDIF ENDFOR IF F=0 S=I ENDIF ENDFOR ?S 程序运行后，输入3和30，则输出结果为_____ 89、 设有数据表“图书.DBF”，该表包含的字段有：“图书id（C，6）”、“书名（C，20）”、“作者id（C，4）”、“单价（N，6,2）”、“出版社（C，20）”、“版次（N，2）”和“出版日期D”。表结构和记录如下图所示： Visual Foxpro程序如下： CLEAR ACCEP"请输入图书ID："TO TS ALTER TABLE 图书 ADD XX I SELECT 图书ID,书名,作者ID,出版社,单价,XX FROM 图书 ORDER BY 出版社,单价 DESC INTO DBF TEMP GO TOP A=1 B=A C1=TEMP.单价 C2=TEMP.出版社 DO WHILE NOT EOF() IF C2=TEMP.出版社 REPLACE XX WITH IIF(C1=TEMP.单价,B,A) B=TEMP.XX A=A+1 C2=TEMP.出版社 C1=TEMP.单价 ELSE A=1 B=A C1=TEMP.单价 REPLACE XX WITH A A=A+1 C2=TEMP.出版社 ENDIF SKIP ENDDO SELECT 图书ID,书名,XX WHERE 图书ID=TS FROM TEMP INTO DBF TEMP1 ?图书ID,书名,XX 运行上面的程序，输入图书ID“C0002”，程序的运行结果为_____________ 7、 Visual Basic程序改错（本大题共有两个小题，每题5分，共10分，每个程序有两个错误行，请在答题纸上写出错误行和对应的正确行，改对一处得一处分，改错不扣分） 90、下列程序实现的功能：从键盘上输入一个二进制，把它转换为等值的十进制数并输出。 Private Sub Command1_Click() Dim a As String Dim x As Integer Dim y As Integer a = InputBox("请输入一个二进制数：") x = a For i = 1 To x y = y + Val(Mid(a, i, 1)) Next i Print y End Sub 91、窗体上显示一个列表 框和一个文本框，且列表框中已有若干列表项。程序的功能是，程序运行时，当用户在列表框中单击并选中某个列表项时，该项的内容显示到文本框中，用户可以在文本框中对相关内容进行编辑，按回车键后，能够用编辑好的内容替换被选中的列表项，并自动清空文本框；当双击某个列表项时，则从列表框中删除该列表项；当用户直接在文本框中键入文本并回车后，则把该文本添加为列表框的一个新列表项，添加完成后，将文本框清空。运行窗体如下图所示。 Private Sub List1_Click() Text1.Text = List1.Text End Sub Private Sub List1_DblClick() List1.RemoveItem List1.Index Text1.Text = "" End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 And Text1.Text <> "" Then If List1.ListIndex = -1 Then List1.AddItem Text1.Text Else Text1.Text= List1.List(List1.ListIndex) List1.ListIndex = -1 End If Text1.Text = "" End If End Sub 八、程序填空（本大题共7个空，每空5分，共35分，按程序要求在答题纸上填入相应的内容，使程序完整正确） 92、(Visual Basic试题)程序完成如下功能： （1）单击“产生数据”按钮，则随机产生20个一位整数，存入数组a中，同时显示在原始数据的文本框Text1中。 （2）单击“重新排列”按钮，则重新排列数组a中的元素，排序方法：使等值的元素相邻存放，并且保持它们在数组a中首次出现的相对次序；最后将排序结果显示在排列数据的文本框Text2中。运行结果如下图所示。根据程序的功能补充代码。 Option Base 1 Dim a(20) As Integer Private Sub Command1_Click() Randomize (1) Text1.Text = "" For i = 1 To 20 a(i) = Int(Rnd * 10) Text1.Text = ___________________ Next End Sub Private Sub Command2_Click() i = 1 Do While i < 20 For j = i + 1 To 20 If a(i) = a(j) Then x = a(j) i = i + 1 For k = j To i + 1 Step -1 '本循环把下标为i到j-1的元素向后移一个位置 a(k) = __________ Next k a(i) = x End If Next j i = i + 1 Loop Text2.Text = "" For i = 1 To 20 Text2.Text = Text2.Text + Str(a(i)) Next i End Sub 93、(Visual Basic试题)程序完成如下功能： 单击“显示按钮”按钮，将文件in5.dat文件的内容读入一维数组a中，并按下标顺序将数组a中所有元素的值显示在List1列表框中，单击“移动”按钮，则将数组a中的最大值移动到数组的最前面，其他数据的排列顺序不变，并将移动后的结果显示在List2列表框中。程序运行结果如下所示。根据程序功能完成代码补充。 Option Explicit Option Base 1 Dim a(10) As Integer Private Sub Command1_Click() ‘显示数据 Dim i As Integer List1.Clear Open App.Path & "\in5.dat" For Input As #1 For i = 1 To 10 Input #1, a(i) _____________ Next i Close #1 End Sub Private Sub Command2_Click() ‘移动 Dim i, max, maxindex As Integer max = a(1) For i = 2 To UBound(a) If a(i) > max Then max = a(i) maxindex = i End If Next i _____________ For i = 1 To UBound(a) If i <> maxindex Then List2.AddItem (a(i)) End If Next i End Sub 94、(Visual FoxPro试题)已知有“学生管理.DBC”数据库，其中包含“用户”表，“用户”表的结构为：用户名(C，10)、密码(C，10),应用程序运行时界面如下图所示： 设置控件属性如下： 有四个标签，其Name属性分别为Label1、Label2、Label3和Label4，Caption属性分别为“用户名”、“密码”、“确认密码”、(空)。有三个文本框，其Name属性分别为Text1、Text2、Text3；两个命令按钮，其Name属性分别为Command1和Command2，Caption属性分别为“确定”和“取消”。 编写Visual FoxPro程序实现“添加用户”的功能，具体功能如下： 在Text1文本框中输入用户名、在Text2文本框中输入密码、在Text3文本框中输入确认密码，然后单击“确定”按钮；如果“用户名”为空，则在Label4上显示“用户名不能为空！”；如果输入的用户名在“用户”表中存在，则在Label4上显示“用户已存在！”；如果用户名不为空、也不在“用户”表中存在，则判断Text2和Text3中输入的密码和确认密码（要求密码只能是数字或字母，不能是其他字符，如果输入了其它字符，则在Label4中显示“密码使用了不合法的字符！”）是否相同，如果不相同，则在Label4中显示“请输入相同密码！”；如果不发生以上情况，则将用户信息添加到“用户”表中（密码进行简单的加密处理，将密码串中的每个字符按ASCII码变为其后的第二个字符，如0变成2,1变成3，a变成c），并在Label4中显示“成功添加新用户！”。 Command1（“确定”按钮）的Click事件如下，请在空白位置填写正确的命令。（代码中行末的分号为逻辑行连接符） U1=THISFORM.TEXT1.VALUE PW1=THISFORM.TEXT2.VALUE OPEN DATABASE XXGL TEMPCHR="" IF TRIM(U1)=="" THISFORM.LABEL4.CAPTION="用户名不能为空！" ELSE SELECT COUNT(用户名) AS GESHU FROM 用户 WHERE; UPPER(用户名)=UPPER(TRIM(THISFORM.TEXT1.VALUE)) INTO DBF BIAO USE BIAO IF GESHU>0 THISFORM.LABEL4.CAPTION="用户已存在！" ELSE IF TRIM(THISFORM.TEXT2.VALUE)==TRIM(THISFORM.TEXT3.VALUE) TEMPSTR="" FOR I=1 TO LEN(TRIM(PW1)) （1） IF MIMA>='0' AND MIMA<='9' OR MIMA>='a' AND MIMA<='z' OR; MIMA>='A' AND MIMA<='Z' （2） TEMPSTR = TEMPSTR + Chr(TEMPCHR) ELSE THISFORM.LABEL4.CAPTION="密码使用了不合法的字符！" EXIT FOR ENDIF ENDFOR IF I>LEN(TRIM(PW1)) DIMENSION B(1,2) B(1,1)=U1 B(1,2)=TEMPSTR INSERT INTO 用户 VALUES(b(1,1),b(1,2)) THISFORM.LABEL4.CAPTION="成功添加新用户！" ENDIF ELSE （3） ENDIF ENDIF ENDIF 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $$