2016河北对口计算机升学专业理论试卷(WORD版本)

1、 2016年河北省普通高等学校对口招生考试计算机专业理论试题（A）注意事项：1本试卷共八道大题。总分 240分。2第 I卷“一、选择题”、第 II卷“二、判断题”的答案填涂在机读卡上，其余各题答案写在答题纸上，答在试卷上不得分。用蓝黑钢笔、碳素笔或圆珠笔答题。3答题前将密封线内项目填写清楚。第卷（选择题 共 100分）一、选择题（本大题共50小题，每小题2分，共100分。在每小题所给出的四个选项中，只有一个符合题目要求，将正确选项填涂在机读卡上）1. 计算机能够自动、准确、快速地按照人们的意图运行的最根本原因是. .A只能进行逻辑运算C只能进行算术运算B进行算术运算或逻辑运算D做初等函数的计算

2、（）装订线内不要答题A. 采用超大规模集成电路C. 具有操作系统B. CPU作为中央核心部件7. 以下关于病毒的描述，正确的是.（A计算机病毒只在可执行文件中传播）D. 具有存储程序和程序控制功能2. 下列各组设备中，同时包括了输入设备、输出设备和存储设备的是.（）B计算机病毒主要通过读/写存储器或网络进行传播ACRT显示器、CPU、CacheC鼠标、绘图仪、光盘B绘图仪、鼠标、键盘C只要删除所有感染了病毒的文件就可以彻底清除病毒D计算机杀毒软件可以查出和清除所有病毒D硬盘、打印机、LED显示器3下列各组软件中，全部属于应用软件的是.（A. 程序语言处理程序、操作系统、数据库管理系统B. 文字

3、处理程序、编辑程序、MS-DOS8. 在下列各数据中，数值最小的是.（）A(156)8B(139)10C(2FF)16D(10100001)2C. Word 2003、MySQL 5.0、程序语言处理程序9在Windows XP中，关于“画图”工具，以下说法不正确的是.（A点击“开始”-“搜索”，输入“画图”可以找到“画图”工具B点击“开始”-“所有程序”-“附件”，可以找到“画图”工具C打开“控制面板”-“添加/删除程序”，可以卸载“画图”工具D在“画图”工具图标上点右键，可以将其添加到“开始”菜单10在Windows XP中，不能在“任务栏”内进行的操作是.（A. 窗口之间切换D. 财务处

4、理软件、Flash、WPS、Office 20104在标准ASCII码表中，数字、大小写英文字母的编码从小到大的次序是（A. 大写英文字母、小写英文字母、数字）B. 数字、小写英文字母、大写英文字母C. 小写英文字母、大写英文字母、数字）D数字、大写英文字母、小写英文字母5. 存储300个24×24点阵的汉字字形码，所需的存储容量大小为.（B. 排列桌面图标A. 0.1728M个二进制位C42.1875K个字节B21600个字节C. 设置系统日期和时间D0.3456M个二进制位D. 启动“开始”菜单6. 运算器（ALU）的功能是.(）计算机专业理论试题 第 1页 共 13页 11.

5、在Windows XP中，以下关于文件名的说法，不正确的是.（A. 由于文件的扩展名使用.,因此文件命名时不能使用.B. 文件名可以使用通配符？和*）C. 给文件命名时字母可以使用大小写格式，但不能用大小写区别文件名D. 文件名可用英文字母、数字和汉字命名12在Word 2003中，将“计算机”一词设置为艺术字“”，则以下方法中不正确的是.（A. “编辑”-“替换”）A=IF(E3>=90,"优秀",(IF(E3>=60,"合格","不合格")B=IF(E3>=90,"优秀",IF(E3>=

6、60,"合格","不合格")B. “插入”-“图片”-“艺术字”C=IF(E3>=60,"合格",(IF(E3>=90,"不合格","优秀")C. “视图”-“工具栏”-“艺术字”D=IF(E3<60,"不合格",(IF(E3>=90,"合格","优秀")D. “格式”-“字体”-“文字效果”16. 在Excel2003中，如15题图“计算机专业考试成绩单”所示，若突出显示“等级”13在Word 2003中，若要

7、设置表格的外框线为双线，内框线为单线，如下图，正确的操为“优秀”的单元格，以下操作正确的是.（A使用“自动筛选”功能）作是.（三年前北京各区平均租金表）区名一居室14971442128412331265二居室18771953155115531564三居室21502260200019001943B使用“高级筛选”功能东城区西城区崇文区宣武区朝阳区C使用“条件格式”功能D使用“IF”函数17在Excel 2003中，单元格中的数据显示为一串“#”时，说明.（A公式中出现了0为除数的情况）B单元格数据长度大于该列的宽度C出现语法错误A. 打开“表格”-“表格属性”-“边框底纹”，选择“方框”命令B打

8、开“表格”-“表格属性”-“边框底纹”，选择“全部”命令C打开“表格”-“表格属性”-“边框底纹”，选择“自定义”命令D. 以上都可以D. 公式中含有不能识别的函数18在VisualBasic中，设A=“12345678”，则表达式Val(Right(A,4)+Mid(A,4,2)14在Word 2003中，如果在文档顶部或底部添加图形或文本，正确的操作是（A. 通过“视图”-“页眉和页脚”进行设置）的值为.（）A123456B. 567845C. 123445D. 5723B. 通过“插入”-“页眉和页脚”进行设置19. 在Visual Basic中，将文本框的内容全部显示为用户所定义的字符

9、的属性是.（C. 通过“文件”-“页眉和页脚”进行设置）D. 以上都不对A. PasswordCharB. PasswordC. SelTextD. 以上都不对15. 在Excel 2003中，若要在“计算机专业考试成绩单”表中，按输入公式方式填充“等级”列，填充要求是：“综合成绩”高于90 分（含90）为“优秀”，60分（含60）到20. 若评选优秀毕业学生的条件是：政治面貌（party）为团员，课程总分(total)大于285 分，其中三门主课(mark1,mark2,mark3)中有一门课为 100 分，Visual Basic90分（不含90）为“合格”，60分以下“不合格”。以下公式

10、正确的是（）表达式应写为.（）计算机专业理论试题 第 2页 共 13页 A. party"团员" and total>285 and mark1=100 or mark2=100 or mark3=100B. party"团员" and total>285 or mark1=100 or mark2=100 or mark3=100C. (party"团员" and total>285) and (mark1=100 or mark2=100 or mark3=100)D.(party"团员" o

11、r total >285) and (mark1=100 or mark2=100 or mark3=100)Dim t As IntegerDim j As IntegerFor i = 1 To 10a(i) = i21. 在VisualBasic中, 下面哪个选项属于控件的方法.（A. Click B. Change C. SetFocus22. 在VisualBasic中，窗体上有一个命令按钮（其Name属性为Command1），运行以下）Next iDDimFor j = 1 To 5t = a(j)程序，单击命令钮，其输出结果是.（）Option Base 1Private

12、Sub Command1_Click()Dim aNext jFor i = 1 To 10Print a(i)Next ia = Array(1, 2, 3, 4)j = 1For i = 4 To 1 Step -1s = s + a(i) * jj = j * 10End SubA. a(j)=a(11-j)B. a(11-j)=a(j)Ca(j)=ta(11-j)=ta(j)=tNext ia(11-j)=a(j)a(j)=a(11-j)Print sD. a(11-j)=tEnd Sub25. 在VisualBasic中，单击一次命令按钮，下列程序代码的执行结果为.（）A4321B2

13、34C34D1234Private Sub Command1_Click()23. 在Visual Basic中，下面关于图片框(PictureBox)和图像框(Image)说法不正确的Dim a As Integer, b As Integer, c As Integer是.（）a = 2: b = 3: c = 4A. 图片框中可以装载其他控件C. 图像框中可以装载其他控件B. 均可加载图片Print fun2(a, b, c)D. 图像框比图片框占用更少内存End Sub24. 在Visual Basic中，有一个10个元素的数组，以下程序可将该数组逆置。即第1个元素与第10个元素交换，

14、第2个元素与第9个元素交换，第5个元素与第6个元素Private Function fun1(x As Integer, y As Integer, z As Integer)fun1 = 2 * x + y + 3 * z交换，为实现此功能，应在横线处填写.（Private Sub Command1_Click()Dim a(1 To 10) As Integer）End FunctionPrivate Function fun2(x As Integer, y As Integer, z As Integer)fun2 = fun1(z, x, y) + xEnd FunctionDim

15、i As IntegerDim p As IntegerA. 27B. 21C. 17D. 34计算机专业理论试题 第 3页 共 13页 26. 在VisualBasic设计阶段，为了清除窗体上的一个控件，下列正确的操作是（）31. 在 Visual FoxPro 中，为了在报表中加入一个文字说明，应该插入一A. 单击要清除的控件，然后按回车键个.（）B. 单击要清除的控件，然后按Esc键A. 表达式控件C. 标签控件B. 域控件C. 单击要清除的控件，然后按Del键D. 文本控件D. 以上都不对32. 在 Visual FoxPro中，已使用命令 MODIFY MENU mymenu 创建了

16、一个菜单并生成了27. 在VisualBasic中，下列程序段的输出结果是.（相应的菜单程序，则正确运行该菜单程序的命令是.（）x = 5ADO mymenu.mprCDO MENU mymenuBDO MENU mymenu.mprDDO mymenuSelect Case x + 1Case 5, 6, 7Print "5,6,7"Case 0 To 9Print "0 to 9"Case Is >= 15Print "is>=5"End Select33. 在VisualFoxPro中，下述描述正确的是.（）A. 利

17、用查询可能修改数据C. 查询和视图的功能相同B. 利用视图可以修改数据D. 视图可以定义输出去向34.VisualFoxPro是一种关系型数据库管理系统，所谓“关系”是指.（A. 数据模型符合满足一定条件的二维表格B. 一个数据库文件与另一个数据库文件之间有一定的关系C. 各字段间的数据彼此有一定的关系A. 5，6，728. 在Visual FoxPro中，使用DIMENSION a(10)定义了一个一维数组，正确的赋值语句是.（B. 0-9C. 0 to 9D. is>=5D. 各条记录中的数据彼此有一定的关系35在Visual FoxPro中，变量a的值是“计算机网络工程师”,变量b

18、的值是“程序）设计员”，结果为“程序设计工程师”的表达式是.（A. substr(b,1,4)-substr(a,6,3)）A. a=10B. a10=10C. STORE 10 a3,a4,a5D. a2,a3,a4=10B. left(b,8)-right(a,6)29. 在VisualFoxPro中，下面有关视图的描述，正确的是.（）C. left(b,4)-right(a,3)A. 可以使用MODIFY STRUCTURE命令修改视图的结构D. 以上都正确B. 视图不能删除，否则影响原来的数据文件36用户在互联网上经常使用的一种信息查询工具是.（）C. 视图是对表的复制产生的A. 电子

19、公告板系统C. 网络加速器B. 电子邮件D. 搜索引擎D. 使用SQL对视图进行查询时，必须事先打开该视图所在的数据库30. 在Visual FoxPro中，连续执行以下命令后，变量B的值为.（）37. 网络中的计算机可以分为服务器和客户机，服务器主要用来向全网络提供某种协议的网络服务，客户机则主要用来访问、使用服务器上的服务。在下列关于客户机的SET EXACT OFFA="河北"描述中，错误的是.（A智能手机不能用作客户机）B=(A="中国河北")? BB平板电脑可以作为客户机使用A. .F.B. 中国河北C.河北D. .T.C笔记本电脑可以用作客户

20、机计算机专业理论试题 第 4页 共 13页 D高端台式机能用作客户机C0和02.ba.83.34.ab.9e38. 下列哪种数据交换技术不属于存储交换技术.（）D00和03.ca.39.a0.01.75A分组交换B报文交换C信元交换D线路交换43.Unix是一种网络操作系统，可以安装运行TCP/IP协议。有一台计算机安装了Unix39ISO是下列哪个组织的英文简写（操作系统和TCP/IP协议，下列说法中错误的是（A该计算机在联网后具有所在网络唯一的IP地址。）A国际电报电话咨询委员会C电气和电子工程师协会B国际标准化组织D电子工业协会B该计算机网络

21、参数中可以设置网关参数。40. 在使用IE浏览器过程中点击“主页”按钮，下列说法正确的是（）C该计算机不能访问安装Windows网络操作系统的计算机网络。D该计算机可以按域名访问互联网网站。A在IE中显示最近访问过的网页C访问百度公司的主页B访问Microsoft公司的主页D用户在IE中自定义的主页44. 下列关于UDP协议的描述中正确的是（）41. 网络浏览器通常使用的协议是HTTP，该协议在服务器上使用的默认端口号为.A不可靠B传输过程不透明D有序传送数据包.（）C面向连接A21B25C80D2345. 在TCP/IP协议体系中，ARP协议的作用是（A解析端口和服务类型的对应关系42. 如

22、下图所示，计算机A向计算机B发送数据包，过程为：计算机A通过网络1向路由器C发送数据包1；路由器C通过网络2向路由器D发送数据包2；路由器D通过网络3向计算机B发送数据包3。计算机及路由器的关键参数已经在邻近位置给出。问：在数据包传输过程中，封装在数据包2中的目的IP地址和目的MAC地址B解析MAC地址和端口的对应关系C解析IP地址和域名的对应关系D解析IP地址和MAC地址的对应关系是.（）46. 在OSI网络参考模型中，能够确定网络接头及其电器性能标准的是（）0A传输层协议B网络层协议D物理层协议00.fa.89.a4.01.90C数据链路层协议网络 1A47. 为了提

23、高网络安全性、防止网络服务器遭受黑客攻击，目前经常采用的技术是数据包 1.（）0001.6a.75.66.0f.11路由器 CA. 双机热备份技术C数据加密技术B. 生物特征识别技术D防火墙技术00数据包 202.ba.83.34.ab.9e0网络 248. 在下列网络调试命令中，可以用来测试两台机器之间是否有物理通路的是（B. ipconfig49. IP地址0 属于下列哪类IP地址（AD类地址 BC类地址 CB类地址 DA类地址）AnetstatCping Dtelnet路由器 D192.168.3

24、.100003.ca.39.a0.01.75数据包 3B50. 若干计算机使用交换机和双绞线、应用TCP/IP协议组成了一个局域网，并通过一台路由器与互联网连接。在为计算机设置网络参数时，下列哪个网络参数没有必要网络 3A0和03.ca.39.a0.01.75B00和02.ba.83.34.ab.9e进行设置（）ADNS服务器BIP地址CWINS服务器 D默认网关计算机专业理论试题 第 5页 共 13页 第卷（非选择题 共 140分）二、判断题（本大题14小题，每小题1分，共14分。将答案填涂在机读卡上，正确的填涂“”格，错误

25、的填涂“×”格）1计算机能够进行逻辑判断，并根据判断的结果选择相应的处理。这说明计算机3计算机中所有信息都是以4在WindowsXP中，交换信息。形式存储的。具有自动控制能力。（）是内存的一块区域，用于各个应用程序之间相互2计算机断电后，RAM存储的信息不会丢失，ROM存储的信息会丢失。（3. 在Windows XP中，回收站容量大小是固定的，不能调整。4. 在Windows XP中，任务栏可以放在桌面的四个边的任意边上。（5在Word 2003中，包含有最近使用过文档列表的是菜单。6在Excel 2003中，单元格 E4中有公式“=$C$3+D4”，将公式复制到E6单元格5在 Wo

26、rd 2003 中，如果需要对插入的图片作精确定位，那么图片与文字的环绕中，单元格E6中的公式为。方式应该选择“浮于文字上方”。（）7. 在Visual Basic中，文本框的默认属性是。6. 在Word 2003中，使用“查找”命令时，可以区分全角和半角字符，也可以区x + 3 + 2的算术表达式是+18. 在Visual Basic中，代数式。x3分大小写字母。（）7在Excel 2003中，分类汇总的关键字段可以是多个字段。9在Visual FoxPro中，要屏蔽系统菜单，使用命令10. 在Visual FoxPro中，一个表只能建立一个的是11. 在OSI网络参考模型中，传输层传送信息

27、的组织单位是12. 用来代表本机IP地址的第一个字段的值是8. 在 Excel 2003 中，选中单元格按Delete键，则单元格的内容被删除而格式保索引。持不变。（）。9. 在VisualBasic中，可以用LoadPicture函数给图片框加载图片，但不能用此（请填写十进制数）。函数清除其中的图片。（）13.（请填写设备名称）可以按不同的网络协议完成数据包格式的10在VisualFoxPro中，使用查询设计器创建的是一个包含SQL的SELECT语句的转换，从而将环型网络和总线型网络进行互连。文本文件。（）四、根据已知的环境与题意，写出相应的VisualFoxPro操作命令或SQL语句，要求

28、每小题用一条命令或语句完成（本大题共5小题，每小题4分，共20分，请填写在答题纸上）。11从技术上看，可以将普通交换机视为一种多端口的网桥，该设备工作在数据链路层。（）12由于网络使用了分层结构，所以当某层的实现技术发生变化时，与其相邻的层现有数据库“HETONG.DBC”，其中包含表“TAB_HETONG.DBF”，该表有以下字段：编号(C,10)、供方(C,50)、合同编号(C,10)、签订地点(C,50)、数量(N,10,0)，需方(C,50)。相应的数据库和表已打开，写出实现下述功能的命令(注意：每个命令只能写一条语句，多于一条不得分)。次必须进行相应变化，才能保证网络功能的正常实现。

29、（）13网络服务器上的DHCP服务，其主要功能是进行IP地址和域名之间的相互转换。（）14工作在数据链路层和网络层的设备都具有所在网络的唯一地址标识或能够判识1.以“合同编号”为关键字建立降序的候选索引，索引名为“HT”,复合索引文件名为HTBH.CDX。（用Visual FoxPro命令）所在层次的地址标识。（）三、填空题（本大题共13小题，每小题2分，共26分。请将答案填写在答题纸上）2.将所有“供方”为“阳春白雪集团”的所有记录的“签订地点”改为“金阳大厦”（用Visual FoxPro命令）3.查询统计“TAB_HETONG”表中不同需方“数量”的最大值，并将结果从打印机上打印出来。（

30、用SQL语句）1进位计数制允许选用的基本数码的个数称为。2冯·诺依曼计算机体系中，中央处理器包含和计算机专业理论试题 第 6页 共 13页 CLEAR4修改表“TAB_HETONG”的结构，删除“合同编号”字段的默认值。（用SQL语句）5. 删除“TAB_HETONG”表中“供方”为“百得公司”或“数量”小于500的记录。（用SQL语句）STORE 12 TO TASTORE 18 TO TBSTORE 0 TO TC,TS五、程序分析（本大题共 2小题，每小题 5分，共 10分，读程序并分析结果，请填写在答题纸上）DO JS WITH TA,TB,TC,TSSELECT 11阅读下

31、面的 Visual Basic程序，循环体中的语句 s = s + 2共执行了次。USE JYRINDEX ON 借书证号 TAG GYR OF GYRYPrivate Sub Command1_Click()SELECT 2Dim a As Integer, b As Integer, c As IntegerUSE JYDim i As Integer, s As IntegerH=1a = 5: b = 2: c = 2: s = 0Do While b <= aFor j = 1 To 200 Step cs = s + 2DO WHILE .NOT. EOF()TE=DATE(

32、)-借书日期IF TE>(TS-TA*2)*10SELECT 1Next jSEEK B.借书证号b = b + cIF TE>(TS-27)*10 OR 职称<>'教授'Loop?姓名+'同志，您借的书已过期，请归还'Print sH=H+1ENDIFEnd Sub2有数据表 JY.DBF的内容如下：（注：日期格式为“月/日/年”）SELECT 2ENDIFRecord #借书证号0010借书日期02/01/1601/01/1611/03/1502/17/161234SKIP0007ENDDORETURN00060010PROCEDUR

33、E JSPARAMETERS TA,TB,TC,TSTC=MAX(TA,TB)DO WHILE TC<=TA*TBIF TC%TA=0 AND TC%TB=0TS=TC数据表 JYR.DBF 的内容如下：Record# 借书证号姓名职称教授讲师助教123000600100007孟小梅郑财勇王志军EXITENDIF有Visual ForPro程序TX.prg如下:TC=TC+1计算机专业理论试题 第 7页 共 13页 ENDDOFor i = 0 To List1.ListCount - 1RETURNIf Trim(Text1.Text) = List1.List(i) And List

34、1.Selected(i) ThenEND PROCEDUREText2.Text = Mid(List1.List(List1.ListIndex), 1, 2)请分析职称为“教授”和其它不是“教授”的教师借书的最多天数分别是Exit For和。Else设系统的当前日期为 2016年 3月 19日，程序将显示（填姓名）教师的Text2.Text = "其它"还书信息。End If六、写出下列程序的运行结果（本大题共5小题，每小题5分，共25分，请填写在答Next i题纸上）End Sub1分析下面Visual Basic程序段。窗体中有一命令按钮（名称为 B6）。Priv

35、ate Sub B6_Click()Private Sub Form_Load()List1.AddItem "河北省"Dim num1 As IntegerList1.AddItem "河南省"Dim num2 As IntegerList1.AddItem "湖北省"Dim num As IntegerList1.AddItem "山东省"Dim i As Integer,k As Integernum1 = InputBox("num1=")List1.AddItem "湖南省&

36、quot;num2 = InputBox("num2=")End Subnum = 1：i = 2窗体启动后，选中列表框中“湖北省”项目，并在文本框 1 中输入“湖北省”，单If num1 > num2 Then k = num2 Else k = num1击命令按钮，文本框 2显示的内容是3有Visual ForPro程序如下:CLEAR。Do While i <= kIf num1 Mod i = 0 And num2 Mod i = 0 Thennum = iINPUT "请输入数据：" TO AXB?CAS(AXB,1)End Ifi

37、 = i + 1LoopFUNCTION CASPrint numPARAMETERS nAmount,IsDWEnd SubnDZS=CDE(RTRIM(LTRIM(STR(nAmount,18,2),".","")cHZDX="零壹贰叁肆伍陆柒捌玖"窗体启动后单击命令按钮，分别给num1和num2赋值为18和27，输出变量num的值为。cDW="分角元拾佰仟万拾佰仟亿拾佰仟万拾佰仟亿"cRMBDX=""2分析下面VisualBasic程序段,如图所示，界面中左侧是列表框（名称List1），显

38、示省份名称，右侧从上向下分别是文本框1（名称Text1），文本框2（名称Text2），命令按钮（名称Command1）。nCd=LEN(nDZS)Private Sub Command1_Click()FOR I=1 TO LEN(nDZS)Dim i As IntegercNumbers=SUBSTR(cHZDX,INT(VAL(SUBSTR(nDZS,I,1)*2+1),2)计算机专业理论试题 第 8页 共 13页 记录号楼号教室名 容纳人数 是否占用IF IsDW=1123456711223331-3041-2052-1032-2043-1033-1043-20112080.T.T.T.

39、F.T.F.F.cDWs=SUBSTR(cDW,nCd*2-1,2)ELSE70cDWs=SPACE(0)80ENDIF30cRMBDX=cRMBDX+cNumbers+cDWSnCd=nCd-165100ENDFORKCB.DBFFOR I=LEN(nDZS)+1 TO 7记录号课程名选课人数12计算机基础操作系统3560cNumbers=SUBSTR(cHZDX,INT(VAL(SUBSTR(nDZS,I,1)*2+1),2)IF IsDW=1有如下Visual FoxPro程序：DIME JIZHI(1,1)cDWs=SUBSTR(cDW,I*2-1,2)ENDIFSELECT 楼号,教

40、室名,容纳人数,是否占用 FROM JSB INTO TABLE LINSHIcRMBDX=cNumbers+cDWS+cRMBDXENDFORALTER TABLE LINSHI ADD CHAZHI N(3,0)USERETURN cRMBDXACCEPT "请输入课程名：" TO KCMSELECT 1FUNCTION CDEUSE KCBINDEX ON 课程名 TAG ABCPARAMETERS nAmountY,nDot,nREPSEEK KCMcRMBDE=""SELECT 2FOR I=1 TO LEN(nAmountY)USE LINS

41、HIIF SUBSTR(nAmountY,I,1)<>"."REPLACE ALL CHAZHI WITH 容纳人数-A.选课人数cRMBDE=cRMBDE+SUBSTR(nAmountY,I,1)DELETE ALL FOR CHAZHI<0 OR 是否占用=.T.ENDIFPACKENDFORSELECT MIN(CHAZHI) FROM LINSHI INTO ARRAY JIZHIRETURN cRMBDEGO TOPJIEGUO=""运行上面的程序，输入123.4，显示的结果为4.现有2个表，分别是“JSB.DBF”、“KCB

42、.DBF”。其中“JSB”表的结构为：楼号(N,2,0)、教室名(C，5)、容纳人数(N,4,0)，是否占用(L)；“KCB”表的结构为：课程名(C,20)、选课人数(N,3,0),各表中数据如下：DO WHILE NOT EOF()IF CHAZHI=JIZHI(1,1)JIEGUO=JIEGUO+ A.课程名+STR(楼号)+" "+教室名ENDIFSKIPJSB.DBF计算机专业理论试题 第 9页 共 13页 ENDDO两个文本框，其 Name 属性分别为 Text1 和 Text2；一个命令按钮，其 Name 属性为Command1，Caption属性为“计算”；有

43、一个选项按钮组，其Name属性为Optiongroup1，其中包含两个单选按钮，一个的 Name 属性为 Option1、Caption 属性为“1-9 楼”，另?JIEGUO运行上面的程序，输入“操作系统”，显示的结果是：一个的Name属性为Option2、Caption属性为“10楼以上”。5. 现有数据库文件WATER.DBC，包含2个表，分别是WATERMETER.DBF和USEB.DBF。其中WATERMETER表的结构为：水表编号(C,8)、本月读数(N,10,2)、上月读数(N,10,2)、使用数(N,10,2)；USEB表的结构为：户主姓名(C,10)、房间编号(C,6)、水表

44、编号(C,8)。其表中数据如下：Command1的Click事件代码如下：（代码中行末的分号为逻辑行连接符）OPEN DATABASE WATERUPDATE WATERMETER SET 使用数=本月读数-上月读数SELECT (MAX(使用数)+MIN(使用数)/2 AS AB FROM WATERMETER INTO TABLE MABUSE MABWATERMETER.DBFGO TOP记录号水表编号3-1001-A3-1002-B2-0101-A本月读数235.67678.34289.23上月读数201.34450.00200.43使用数XAB=AB123XM=TRIM(THISFO

45、RM.TEXT1.TEXT)SELECT 水表编号,使用数 FROM WATERMETER WHERE 水表编号 IN(SELECT；水表编号 FROM USEB WHERE 户主姓名=XM)IF THISFORM.OPTIONGROUP1.OPTION1.VALUE=1IF 使用数>XABUSEB.DBFJIEGUO=XAB*3.5+(使用数-XAB)*10记录号户主姓名张斌房间编号3-10013-10022-0101水表编号3-1001-A3-1002-B2-0101-AELSE123JIEGUO=使用数*3.5王阳新马国庆ENDIFELSE新建一个表单，表单的Name属性为Form

46、1，程序运行时的界面如下图所示：IF 使用数>XABJIEGUO=XAB*3.5+(使用数-XAB)*10+50ELSEJIEGUO=使用数*3.5+50ENDIFENDIFTHISFORM.TEXT2.VALUE=XM+" " +"应收金额="+STR(JIEGUO)运行上面的表单，在 Text1 中输入“王阳新”，选择单选按钮“10 楼以上”，单击“计算”选钮，则在Text2中显示的是：七、Visual Basic程序改错(本大题共2小题，每题5分，共10分，每个程序有两个错误行，请在答题纸上写出错误行代码和对应的正确代码，改对一处得一处分，改

47、错不减分。注：要把整行写完整)1下面的程序是利用随机函数产生10个1到30之间的随机整数，然后把产生的这表单中，有一个标签，其Name属性为Label1，Caption属性为“户主姓名：”；有计算机专业理论试题 第 10页 共 13页 些整数放入数组b中，并按一定规则放入数组a中。存放数组a中的规则是：（1）如果产生的是1到9之间（含1和9）的数，则直接放入数组a中。（2）如果产生的是大于9的数，则按如下方法存放：偶数则把十位数字放入数组a中，奇数则把个位数字放入数组a中。Next iEnd Sub2以下程序的功能是：产生一个3行4列的数组并赋值，再用Inputbox函数输入一个列号，然后对数

48、组中的该列进行由小到大排列。如产生的数组是：如：假设产生的整数是：22，17，18，9，10，24，1，23，25，22。放入数组a中的数字是：2， 7, 1, 9, 1, 2, 1， 3, 5，2。程序中有两处错误，请将错误行和相应的正确行写在答题纸横线上。22 17 18 910 24 1 2325 22 2 1322 17 1 910 24 2 2325 22 18 13输入一个列号3，则排序后为Option Base 1Private Sub Command1_Click()Dim a(10) As IntegerDim b(10) As IntegerDim i As Integer

49、Dim num As IntegerFor i = 1 To 10num = Int(Rnd * 30)b(i) = num程序中有两处错误, 请将错误行和相应的正确行写在答题纸横线上。Option Base 1Private Sub Command1_Click()Dim a(3, 4) As IntegerDim i As Integer, j As IntegerDim col As IntegerDim t As IntegerFor i = 1 To 3For j = 1 To 4a(i, j) = 20 + Int(Rnd * 30)Print a(i, j);Next jIf n

50、um >= 1 And num < 10 Thenb(i) = numElseIf num Mod 2 = 0 Thena(i) = num 10ElsePrintNext icol = InputBox("col=")For i = 1 To 3For j = 2 To 4If a(i, col) > a(j, col) Thent = a(i, col)a(i) = num Mod 10End IfEnd IfNext iFor i = 1 To 10Print b(i);a(i, col) = a(j, col)a(j, col) = tNext iEnd IfPrintNext jNext iFor i = 1 To 10Print a(i); " "Print计算机专业理论试题 第 11页 共 13页 For i = 1 To 3i = i + 1:Loop(1)For j = 1 To 4Print a(i, j);Print cNext jFor i = 1 ToPrint a(i);