计算机对口高考专业模拟11

申明敬告: 本站不保证该用户上传的文档完整性,不预览、不比对内容而直接下载产生的反悔问题本站不予受理。

文档介绍

计算机对口高考专业模拟11

计算机专业模拟试题1‎ 一、单项选择题(本大题共50小题,每小题1分,共100分)‎ ‎1.下列四条叙述中,不正确的一条是( )‎ A.计算机中使用的汉字编码和ASCII码是不一样的 B.微机内部的所有数据都用二进制表示,而程序用ASCII码字符表示 C.把数据存入存储器或从存储器中读出数据的过程称为访问(读盘)或存取(写盘)‎ D.汇编程序的功能是把用汇编语言编写的源程序翻译成等价的目标程序 ‎2.在下面关于计算机硬件的说法中,正确的是( )‎ A.一般硬盘容量越大微机性能越优 B.微型计算机外部设备可分为存储器和输入输出设备两大部分 C.微机的主机就是机箱里的那些硬件 D.U盘和硬盘上的数据不可以由CPU直接存取 ‎3.下列关于软件的四条叙述中,正确的一条是( )‎ A.在软件方面,第一代计算机主要使用了机器语言 B.系统软件与具体硬件逻辑功能无关 C.机器语言、汇编程序都是面向机器的计算机低级语言 D.系统软件并不具体提供人机界面。‎ ‎4.在计算机显示器参数中,参数640x800、800x600等表示( )。‎ A.显示器屏幕的大小 B.显示器每列和每行可显示的像素点数 C.显示器的分辨率 D.显示器的刷新率 ‎5.( )决定计算机的运算精度。‎ A. 内存容量 B.字长 C. 主频 D.字 ‎6.按计算机的应用领域分类,,气象预报系统和情报检索系统属于( )‎ A.数据处理和数值计算 B.数值计算和过程控制 ‎ C.数值计算和数据处理 D.过程控制和数据处理 ‎7.下列四个不同数制表示的数中,数值最小的是( )‎ A.二进制数11011101 B.八进制数334 C.十进制数219 D.十六进制数DA ‎8.下面的关于计算机病毒的说法,正确的为( )。‎ A.计算机病毒是一段程序,只要不主动执行它就不会造成破坏 B.计算机病毒只会破坏系统软件 ‎ C.计算机病毒不会通过光盘传染 D.计算机病毒是一个能通过自身复制传染,起破坏作用的计算机程序 ‎9.通过Windows XP的任务栏( )‎ A.可以对桌面上的图标进行重新排列 B.不可以通过单击打开程序 C.不可以对桌面上的窗口进行重新排列 D.可以最小化当前窗口 ‎10.在Windows XP中下列正确的是( )‎ A.没有列入“开始”菜单中的程序不可以在“运行”对话框中执行 B.“资源管理器”是Windows XP的一个文件管理实用程序 C.使用PRINT SCREEN键可以将当前窗口拷贝到“剪贴板”中 D.可以把网上邻居中的项目直接拖到“回收站”中 ‎11.下列关于Windows XP控制面板不正确的叙述是( )‎ A.控制面板是一组系统管理程序 ‎ B.可以安装或删除系统的软件、硬件 C.通过Windows XP"开始"菜单可以打开"控制面板"窗口 D.可以在控制面板中新建文件夹 ‎12.将一个应用程序生成的图形文件通过“插入——对象”链接到一个Word 2003文档中,当在该应用程序中修改该图形后,文档中链接的图形( )‎ A.不会受到影响 B.不再显示 C.跟着做同样的变化 D.发生混乱 ‎ ‎13.Word 2003中,下列设置页边距的方法中,错误的是( )‎ A.在页面视图中,利用标尺可以设置页边距 B.在打印预览状态下,不可以利用标尺快速设置页边距 C.不可以通过对每行字符数的调整改变原有的页边距 D.利用“页面设置”菜单命令,可以精确进行页边距的设置 ‎14.在Word 2003中打开一篇五页文档,想把1到3页打印到A4纸上而4到5页打印到A5纸上,下列说法正确的是( )‎ A.在一篇文档中不能够实现,可以分成两个文档再分别设不同的纸型 B.可以实现,但必须先人工插入分页符,再分别设不同的纸型 C.可以实现,但必须先插入分节符,再分别设不同的纸型 D.可以实现,不需插入分节符,先设置为A4纸,打印前3页,再设置为A5纸,打印后两页 ‎15.在Excel 2003中,设区域B1:B20已输入数值型数据,为在区域D1:D20的单元格Bi中计算区域B1:Bi(i=1,2……,20)的各单元格中数值之和,应在单元D1中输入公式( ),然后将其复制到区域D2:D20中即可。‎ A.=SUM(B$1:B$l) B.=SUM($B$1:B$l) C.=SUM(B$1:B1) D.=SUM($B$1:$B$1)‎ ‎16.Excel2003中,A1中有数字“‎5”‎,选中单元格A1,将鼠标移到单元格A1的填充柄处,鼠标变成黑色十字状,此时按住CTRL和鼠标左键拖动至单元格G1,下列正确的是( ) ‎ A.A1中有数字“5”,G1中也有数字 “‎5”‎ B. A1中无内容,G1中有数字“‎5”‎ ‎ C.从A1到G1之间的连续单元格填充“‎5”‎ D.A1中有数字“‎5”‎,G1中有数字“11”‎ ‎17.在Excel 2003中下列正确的是( ) ‎ A.使用COUNT函数时,0和空值都按数字进行统计在内。‎ B.自动筛选只能原表筛选高级筛选只能将结果筛选至另外的区域中 C.单元格中可以用ALT+ENTER手动换行,也可以自动换行 ‎ D.若将A1中的内容在A1:E1区域中设置跨列居中,要想在编辑栏修改其内容,必须选定区域A1:E1‎ ‎18.Visual Basic中,下列不能打开属性窗口的操作是( ) ‎ A.执行“视图”菜单中的“属性窗口”命令  B.按F4键 ‎ C.按Ctrl+T D.单击工具栏上的“属性窗口”按钮 ‎19.Visual Basic中( )对象具有Clear方法。‎ A.图片框 B.窗体 C.复选框 D.列表框 ‎20.Visual Basic中的InputBox函数返回值的类型为( )。 ‎ A.数值   B.字符串  C.变体  D.数值或字符串(视输入的数据而定) ‎ ‎21.Visual Basic中为了暂时关闭计时器,应把该计时器的某个属性设置为False,这个属性是( )。 ‎ A.Visible    B.Timer   C.Enabled   D.Interval ‎ ‎22.某人创建了1个Visual Basic工程,其中的窗体名称为Form1;之后又添加了1个名为Form2的窗体,并希望程序执行时先显示Form2窗体,那么,他需要做的工作是( )‎ A.在工程属性对话框中把“启动对象”设置为Form2 ‎ B.在Form1的Load事件过程中加入语句 Load Form2 ‎ C.在Form2的Load事件过程中加入语句Form2.Show ‎ D.在Form2的TabIndex属性设置为1,把Form1的TabIndex属性设置为2 ‎ ‎23.Visual Basic以下说法中,错误的是( )‎ A.使用缺省Preserve关键字的ReDim 语句可以改变数组的维数和大小 B.ReDim 语句只能出现在过程中 C.使用ReDim语句重新定义的动态数组,只能比原数组大 D.使用ReDim 语句可以对动态数组的所有元素进行初始化 ‎24.以下有关Visual Basic过程中形式参数的描述中,错误的是( )‎ A.函数过程可以没有形式参数 B.事件过程一定没有形式参数 C.形参数组只能按地址与实参数组结合 D.窗体与控件也可以作为过程的参数 ‎25.Visual Basic中,以下有关滚动条控件(ScrollBar)的说法中错误的是( )‎ A.只能在设计时设置Max与Min属性值 B.Value属性返回滚动条内滑块当前所处位置的值 C.拖动滚动条内滑块时,将触发滚动条的Scroll事件 D.单击滚动箭头时,将触发滚动条的Change事件 ‎26.将通用对话框CommonDialog1的类型设置成另存为对话框,可调用该控件的( )方法。 ‎ A. ShowOpen B.ShowSave C.ShowColor D.ShowFont ‎27.若已经编写一个Sort子过程,在该工程中有多个窗体,为了方便调用Sort子程序,应该将子过程放在( )中。‎ A.窗体模块   B.类模块     C.工程      D.标准模块 ‎28.在Visual FoxPro中,课程表有“课程号”、“课程名”、“授课老师”三个字段,‎ SQL语句 SELECT * FROM课程WHERE课程名=“数据结构” 完成的操作称为(  ) 。‎ A.选择   B.投影   C.连接   D.并 ‎29.在Visual FoxPro中,运算结果是字符串“Student”的表达式为(  )。‎ A.LEFT(“Student”,LEN(SPACE(5)+“2”))‎ B.RIGHT(“MyS”+LOWER(“TUDent”),3,7)‎ C.SUBSTR(“MyStudent”,ROUND(3.46,0))‎ D.SUBSTR(“MyStudent”,at(“MyStudent”,“Stud”),7)‎ ‎30.在下列关于Visual FoxPro变量的叙述中,正确的是(   )。‎ A.数组使用之前必须先声明 B.字段名变量与内存变量具有的数据类型相同 C.使用与当前表中字段变量名相同的内存变量时,内存变量名之前必须加:别名.或别名->‎ D.简单内存变量的类型不能改变。‎ ‎31.在Visual FoxPro中,设置菜单项之间水平分隔线的方法是在“菜单名称”栏中输入( )‎ A. < B. > C. - D. -‎ ‎32.下列关于Visual FoxPro中报表的叙述,正确的是................(    )‎ A.在报表设计器中默认的三个基本带区是“标题”、“细节”、“总结”‎ B.报表的数据源是表或视图 C.设置报表的标题,需使用“标签”控件 D. 报表的“细节”带区的内容每页打印一次 ‎ ‎33.VisualFoxPr0中,下列关于视图的描述,正确的是(  ) 。‎ A.可以使用MODIFY STRUCTURE命令修改视图的结构 B.视图不能删除,否则影响原来的数据文件 C.基表内容修改后,不会影响视图的内容 D.使用SQL对视图进行查询时,必须事先打开该视图所在的数据库 ‎34.在Visual FoxPro中,表备注文件的默认扩展名为.(   )‎ A. .SCT B. .FPT C. .FRT D. .DCT ‎35.在VisualFoxPro中以下叙述正确的是(  )。‎ A.表也称作表单 B.一个数据库中的所有表文件存储在一个物理文件中 C.数据库文件的扩展名是.dbf D.数据库文件不存储用户数据 ‎36.在计算机网络中下列说法不正确的是(  )‎ A.网桥包含路由器的功能和特性,不仅可以连接多种介质,还能连接不同物理分支 B.支付网关是连接银行专用网络与Internet的一组服务器 C.在星形局域网中,连接文件服务器与工作站的设备一般是集线器 D.中继器可以用来连接不同的物理介质,但它没有隔离和过滤功能易造成广播风暴 ‎37.网卡主要功能不包括( )‎ A.实现主机到工作站间数据传递 B. 网络互连功能 C.工作在物理层和数据链路层 D.将用户工作站接入到传输介质上 ‎38.我国第一个开通的商业网是( )‎ A. CHINAGBN B.CERNET C. CHINANET D.CSTNET ‎39.假如某计算机的网络配置的IP地址是97.7.56.85,子网掩码是255.255.0.0,以下说法错误的是( )‎ A.按ISO组织的网络地址分类标准,该地址属于A类地址 ‎ B.该计算机所在的子网为B类子网 C.该计算机所处网络的地址是97.7.0.0‎ D.该计算机IP地址是A类地址,它的主机地址是7.56.85 ‎ ‎40.在计算机网络中下列说法正确的是( )‎ A.ARP协议用来将MAC地址翻译成IP地址 B.OSI和TCP/IP协议都是ISO制定的国际标准 ‎ C. TCP/IP为用户提供了实现其功能的协议 ‎ D. 路由器比网桥快,可以在多个网络和介质间提供网间连接服务 ‎41.下列属于正确URL的是( )‎ A. FTP://10.165.3.9:80/800 B. WWW.163.COM ‎ C.D:WWW.123.COMINDEX.HTML D. HTTP://WWW.163.COMA99‎ ‎42.关于网络拓扑结构下列不正确的是( )‎ A.树型网络又称为分时多用户集中式网络,是一个在分级管理基础上的集中式网络 B.星型结构主要用于分级的主从式网络,采用集中控制 C.相对来说,采用环型结构的网络比较节省通信线路和通信设备 D 分布式结构主要用于广域网,资源共享方便 ‎43.局域网的协议结构一般不包括( )‎ A.数据链路层 B.物理层 C.网络层 D.逻辑链路控制层 ‎44.计算机网络中下列描述不正确的是( )‎ A.我们登录了“搜狐体育”网站,浏览体育新闻,是使用了HTTP协议。‎ B.解调是在接收端将数字信号转换成模拟信号的过程 C.10BASE-T交换机使用CSMA/CD介质访问控制规则 D.FDDI在网络技术中指光纤分布式数据接口 ‎45.计算机网络中下列描述正确的是( )‎ A.TCP/IP协议规定主机号全为二进制1为广播地址 B. 查看本机IP地址、网关和子网掩码等信息的命令是PING C. DNS只能将IP地址解析为主机域名 D. 文件传输协议是OSI的应用层协议 ‎46.计算机网络中下列描述不正确的是( )‎ A.组建单一网段局域网时,互联设备中一般用不到路由器和网关 B.一个网站可以申请多个域名也可以不申请域名 C.家庭上网多用ADSL方式,必须一个ADSL MODEM D.域名ORG表示军事机构 ‎47.不同体系结构的网络互连因特网上需要用( )‎ A.集线器 B.交换机 C.网关 D.网桥 ‎48.要将一封电子邮件同时发送给几个人,可以在收件人栏中输入他们的地址,并用( )分隔 A. ” B. . C. , D. /‎ ‎49.使用PPP方式上网时,必须安装一个( )‎ A. 集线器 B. 调制解调器 C. 网卡 D. 中继器 ‎ ‎50.以下哪一个不是网络上可以共享的资源 ( )‎ A.内存 B.打印机 C.文件 D.应用程序 二、 判断题(每题1分,共14分)‎ ‎( )1.扇区是磁盘存储信息容量的最小单位。‎ ‎( )2.如果一个内存单元为一个字节,则64KB存储器共有内存单元个数为64000。‎ ‎( )3.不能通过在windows XP资源管理器的地址栏中输入HTTP://WWW.SOHU.COM来访问搜狐网站 ‎( )4.在windows XP中,要查找文件名的第二个字符为C的所有文件,查找文件对话框中要输入的是?c*.*‎ ‎( )5.在WORD2003中,文档窗口即可以水平拆分也可以垂直拆分。‎ ‎( )6.在WORD 2003插入菜单中具有分栏功能,每一栏的宽度可以不相同。‎ ‎( )7.Exce 2003中,若单元格引用随公式所在单元格位置的变化而改变,则称之为相对引用。‎ ‎( )8.当在EXCEL 2003中进行操作时,若某单元格中出现“#####”‎ 的信息时,其含义是单元格中的数字太大。‎ ‎( )9.Visual Basic中,静态变量是一种局部变量,当原过程再次被执行时,静态变量的初值是上一次过程调用后的值。‎ ‎( )10. 在Visual FoxPro中,执行命令 ?AT("BC","ABCABABC"),屏幕显示的结果为7。‎ ‎( )11.TCP、UDP、IP协议中能提供不可靠数据的数据传输的是TCP和IP。‎ ‎( )12.在IE浏览器中的地址栏中输入想要访问的网址时,HTTP://和FTP://都可以输入, 也可以不输入。 ‎ ‎( )13.文件服务 、打印服务、通信服务 、WWW服务都是网络的基本服务。‎ ‎( )14.计算机网络拓扑主要是指资源子网的拓扑构型,它对网络性能、系统可靠性与通信费用都有重大影响。‎ 三、填空题(每题2分,共26分)‎ ‎1.微处理器的字长是由 总线的位数决定的。‎ ‎2.微型计算机中运算器、控制器和主存储器三部分的总称是 。‎ ‎3.设置高速缓存的目的是解决CPU的运算速度和 的读写速度不平衡的问题。‎ ‎4.在windows XP中,快捷键Ctrl + Esc的功能是 ‎ ‎5.在编辑Word 2003 文档中,要用拖动鼠标完成文字或图形的复制时,应当先按下 键,再拖动鼠标。‎ ‎6.在EXCEL 2003中,有一学生成绩工作表:第一行是表头标题,F2是“平均分”字段,共50名学生。请在F55中用公式按条件填充:若平均分大于80分(包含80)的人数超过30(不含30),则输入“好”,否则输入“不好”。F55中的公式为___________________________________________________________________‎ ‎7.数学表达式对应的Visual Basic表达式是 ___________ ‎ ‎8.Visual Basic表达式Fix(-2.5) + Int(-3.5) + CInt(-2.5)的值是 ________ ‎ ‎9. 在Visual FoxPro中,若在当前表使用命令LOCATE FOR性别=“女”查找第一条性别为女的记录,如果要继续查找第二个女同学的记录,应使用的命令是_____________________‎ ‎10.在Visual FoxPro中,LEFT("123456789" , LEN("数据库"))的计算结果是_________________‎ ‎11.lOBASE-T使用标准的RJ-45接插件与3类或5类非屏蔽双绞线连接网卡与集线器。网卡与集线器之间的双绞线长度最大为 。‎ ‎12.计算机网络层次结构模型和各层协议的集合叫做计算机网络____________‎ ‎13.在因特网中,FTP系统采用的工作模式为____________模式 四、根据已知的环境与题意,写出相应的Visual FoxPro操作命令或SQL语句,要求每小题用一条命令或语句完成(每题4分,共20分)‎ 现有”学校.DBC”,包含有两个表文件”学生.DBF”和”成绩.DBF”,表结构如下:‎ ‎“学生”表:学号 (C,6) ,姓名 (C,8) ,性别 (C,2) ,年龄 (N,2) ,班级(C,6)‎ ‎“成绩”表: 学号 (C,6) ,语文(I),数学(I),英语(I),VF(I),VB(I),网络(I),总分(I),平均分(I)‎ 在相应库和表文件打开的前提下,写出下述命令。‎ ‎1.计算”成绩”表中的总分和平均分(用Visual FoxPro命令)‎ ‎2.将“学生”表中年龄在25岁以上的( 不含25岁)记录打上删除标记(用Visual FoxPro命令)‎ ‎3.按照学号和总分建立复合索引,索引名是XH,索引文件名是XHZF(用Visual FoxPro命令)‎ ‎4.查询“钱”姓同学的总分和平均分记录内容,查询结果存放到表QZP中(用SQL语句)‎ ‎5.修改“成绩”表中的“英语”字段改为“外语”( 用SQL语句)‎ 五.程序分析(每题5分,共10分)‎ ‎1.阅读下面的Visual Basic程序,分析程序中k=k+a的执行次数是 ‎ Dim a As Integer Dim i As Integer Dim j As Integer Dim k As Integer a = 0‎ k = 0‎ For i = 1 To 10‎ ‎ For j = 1 To i ‎ a = a + i + j ‎ k = k + a ‎ k=k-1‎ ‎ Next j Next i ‎2.有如下Visual Foxpro程序,该程序功能计算的式子是:____________________________________‎ CLEAR ‎ S=0 ‎ I=8 ‎ DO WHILE I<=10 ‎ STORE 1 TO T,J ‎ DO WHILE J<=I ‎ T=T*J ‎ J=J+1 ‎ ENDDO ‎ S=S+T ‎ I=I+1 ‎ ENDDO ‎ ‎?S ‎ RETURN 六.写程序结果(每题4分,共20分)‎ ‎1. 有Visual Basic程序:‎ Private Sub Form_Click()‎ ‎      Dim i As Integer,j As Integer ‎      i=10‎ ‎      Do ‎        i=i+j ‎        for j=10 to i step -3‎ ‎           i=i+j ‎        next j ‎       Loop While i<50‎ ‎       Print i;j ‎     End Sub ‎ ‎ ‎ 2. 有Visual Basic程序:‎ Private Sub procl(x As Integer,y As Integer,z As Integer)‎ ‎  x=3*z ‎  y=2*z ‎  z=x+y ‎  End Sub ‎  Private Sub Command1_Click()‎ ‎  Dim x As Integer,y As Integer,z As Integer ‎  x=1:y=2:z=3‎ ‎  Call procl(x,x,z)‎ ‎  Print x;x;z ‎  Call procl(x,y,y)‎ ‎  Print x;y;y ‎  End Sub ‎3. 有以下Visual FoxPro程序:‎ CLEAR ‎ I=20 ‎ t=0 ‎ do while I>=1 ‎ ‎ j=2 ‎ ‎ do while j<= I-1 ‎ ‎ if int(I/j)= I/j ‎ ‎ exit ‎ ‎ endif ‎ ‎ j=j+1 ‎ ‎ enddo ‎ ‎ if j=I ‎ ‎ t=t+1 ‎ ‎ endif ‎ ‎ I=I-1 ‎ enddo ‎ ‎?t return ‎4. 有如下Visual FoxPro程序 主程序:MAIN.PRG PUBLIC Z STORE 1 TO I,M X1="2"‎ X2="1"‎ Y=0‎ DO WHILE I<=3‎ ‎ X=VAL(LTRIM(X1)+REPLICATE(X2,I))‎ ‎ J=1‎ ‎ DO WHILE J<=2‎ ‎ DO EXA WITH X ‎ Y=Y+Z ‎ J=J+1 ‎ ENDDO ‎ M=M+J ‎ ?"X=",SUBSTR(STR(X),4)+" "‎ ‎ ??"Y=",SUBSTR(STR(Y),4)+" "‎ ‎ ??"M=",SUBSTR(STR(M),6)‎ ‎ I=I+1‎ ENDDO RETURN ‎ 子程序:EXA.PRG ‎ PARAMETERS F IF MOD(F,4)=0‎ ‎ Z=MOD(F,4)‎ ELSE Z=INT(F/4)‎ ‎ ENDIF RETURN 运行上面的程序,显示的结果为: ‎ ‎5.有学生成绩表XSCJ.DBF,字段为:学号(C,10),姓名(C,8),数学(N,3,0),英语(N,3,0),记录数据如下:‎ Record# 学号 姓名 数学 英语 ‎1 0811060101 肖天海 82 91‎ ‎2 0811060202 王岩盐 63 95‎ ‎3 0811060203 刘星魂 75 86‎ ‎4 0811060105 张月新 94 73‎ ‎5 0811060208 李明玉 78 67‎ 其中:学号的前8位为班级编号。‎ 有如下Visual FoxPro程序:‎ CLEAR ‎ SELECT * FROM XSCJ ORDER BY 学号 INTO DBF CJ USE CJ DO WHILE .NOT. EOF() ‎ ‎ STORE 0 TO PYSCJ,PSJCJ,YM,SM ‎ ‎ BJBM=SUBSTR(学号,1,8) ‎ ‎ NBJ=0 ‎ ‎ YM=英语 ‎ SM=数学 ‎ DO WHILE SUBSTR(学号,1,8)=BJBM ‎ IF 数学 "#"‎ ‎ If t >= "a" And t <= "z" Then t = Chr(Asc(t) - 32)‎ ‎ s2 = s2 + t ‎ i = i + 1‎ ‎ t = Mid(s1, i, i)‎ ‎ Wend ‎ Print "新字符串为:"; s2‎ End Sub ‎2.下面的程序是将一个十进制整数转换成二进制数,转换后按位放到一维数组a中,然后输出。如 输入一个数据8,将输出1 0 0 0。程序中有两处错误,请改正。‎ Dim a(10) As Integer Dim k As Integer Dim yu As Integer Dim i As Integer i = 1‎ k = InputBox("input k")‎ Do While k <> 0‎ yu = k/2‎ a(i) = yu k = k 2‎ i = i + 1‎ Loop For yu = i To 1 Step -1‎ Print a(yu);‎ Next yu 八、 程序填空(每空5分,共35分)‎ ‎1.单击窗体后输入1个不小于6的正整数,然后输出该数所有的质数因子(如输入6则输出“ 2 3”,输入60则输出“ 2 2 3 5”,等等)。‎ Private Sub f(k As Integer)‎ ‎ Dim i As Integer ‎ i = 2‎ ‎ Do While k > 1‎ ‎ If ____________ Then k = k / i: Print i; Else i = i + 1‎ ‎ Loop End Sub Private Sub Form_Click()‎ ‎ Dim n As Integer ‎ Do ‎ n = InputBox("n=")‎ ‎ Loop ______________‎ ‎ Call f(n)‎ ‎ Print End Sub ‎2. 单击“读文件”按钮将文本文件读入并逐行在列表框控件List1中显示;然后单击“分解”按钮将List1每行中的英文字母、其他字符分别显示在List2、List3各行中。‎ 运行结果如下图所示。‎ Private Sub Command1_Click() '读文件 ‎ Dim s As String ‎ Open "d:1.txt" For ___________ As #1‎ ‎ While Not EOF(1)‎ ‎ Line Input #1, s: List1.AddItem s ‎ Wend ‎ Close #1‎ End Sub Private Sub Command2_Click() '分解 ‎ Dim i As Integer, n As Integer, s1 As String, s2 As String ‎ For i = 1 To_______________‎ ‎ n = Len(List1.List(i - 1))‎ ‎ ReDim a(n) As String * 1‎ ‎ For j = 1 To n ‎ a(j) = Mid(List1.List(i - 1), j, 1)‎ ‎ Next j ‎ s1 = "": s2 = ""‎ ‎ For j = 1 To n ‎ If a(j) >= "a" And a(j) <= "z" Or a(j) >= "A" And a(j) <= "Z" Then s1 = s1 + a(j) Else s2 = s2 + a(j)‎ ‎ Next j ‎ List2.AddItem s1‎ ‎ List3.AddItem s2‎ ‎ Next i End Sub ‎3.在Visual FoxPro中,某数据库有以下三个表:‎ ‎ “选课”表:学号(C,6),课程号(C,8),成绩(N,5,1)内容见下表。‎ ‎ “课程”表:课程号(C,8),课程名(C,10)‎ ‎ 建立表单,运行时实现以下功能:‎ (1) 选择学号、课程号,可查询该生该单科成绩及名次(假设分数均不相同)‎ (2) 可查询该生所选考试科目中成绩合格的科目名称 ‎“查询”按钮的CLICK事件代码如下:‎ xh=thisform.combo1.value kh=thisform.combo2.value x=thisform.commandgroup1.value ‎__________________________‎ do case ‎ case x=1‎ ‎ sele 成绩 from 选课 where 学号=xh and 课程号=kh into array ax ‎ sele 学号,成绩 from 选课 where 课程号=kh order by 成绩 desc into table temp1‎ ‎ use temp1‎ ‎ loca for 学号=xh ‎ do while not bof()‎ ‎ mc=mc+1‎ ‎ skip -1‎ ‎ enddo ‎ thisform.text1.value=str(ax,5,1)+" 名次:"+str(mc,2)‎ ‎ case x=2‎ ‎ sele 选课.学号,课程名,成绩 from 选课,课程 ____________________________‎ ‎ use temp2‎ ‎ k=space(0)‎ ‎ do while not eof()‎ ‎ if 成绩>=60‎ ‎ k=k+课程名+space(2)‎ ‎ endif ‎ ‎ skip ‎ enddo ‎ _________________________________‎ endcase
查看更多

相关文章

您可能关注的文档