2015河北省对口高考计算机理论考试试题及答案 下载本文

Dim i As Integer Dim num As Integer Dim k As Integer Dim j As Integer Dim flag As Integer num = 0 For i = 1 To 8 flag = 0

k = Int(Sqr(a(i))) For j = 2 To k

If a(i) Mod j = 0 Then flag = 1 Next j

If flag = 0 Then num = num + a(i) Next i Print num End Sub

窗体启动后单击命令按钮,输出语句Print num执行结果是__________________。 3.有Visual ForPro程序如下:

CLEAR I=2

DO WHILE .T. COUNT=0 M=I

FOR K=0 TO 2 J=M/2*3+1 M=J IF J % 2=0 COUNT=COUNT+1 ELSE EXIT ENDIF ENDFOR IF COUNT=2 ?J EXIT ENDIF I=I+2

ENDDO

运行上面的程序,显示的结果为 。 第4、5题使用下面的数据库

设有数据库文件“XK.DBC”,包含2个表,分别是“T_XX.dbf”、“X_XX.dbf”。其中“T_XX”表的结构为:编号(C,8)、系号(C,2)、姓名(C,8),主讲课程(C,20),排名(I);“X_XX”表的结构为:系号(C,2)、系名(C,20),各表中数据如下:

T_XX.DBF

记录号 编号 系号 姓名 主讲课程 排名 1 11020001 01 肖海 数据结构 3 2 11020002 02 王岩盐 数据结构 1 3 11020003 01 肖海 C 语言 3 4 11020004 03 张月新 操作系统 2 5 11020005 01 李明玉 数据结构 7 6 11020006 02 孙民山 操作系统 11 7 11020007 03 钱无名 数据库 5 8 11020008 02 呼延军 编译原理 6 9 11020009 03 钱无名 操作系统 5 10 11020010 01 张国梁 C 语言 4 11 11020011 03 林新月 操作系统 8 12 11020012 01 乔小廷 C 语言 9 13 11020013 02 孙民山 数据库 11 14 11020014 01 欧阳秀 编译原理 10 X_XX.DBF

记录号 系号 系名 1 01 计算机 2 02 信息管理 3 03 中文

4. 有如下Visual FoxPro程序:(代码中行末的分号为逻辑行连接符) CLEAR DIME GA(1,4)

SELECT 系号,姓名 FROM T_XX WHERE 排名 IN (SELECT MAX(排名) FROM T_XX); INTO DBF PT_1 USE PT_1

SELECT COUNT(DISTINCT 姓名) AS PXM,姓名 FROM PT_1 INTO DBF PT_2 USE PT_2 MGS=PT_2.PXM MXM=PT_2.姓名 IF MGS=1

SELECT T_XX.系号,T_XX.姓名,X_XX.系名,COUNT(DISTINCT T_XX.主讲课程); AS JGS FROM T_XX,X_XX WHERE T_XX.系号=X_XX.系号 AND T_XX.姓名=MXM; INTO ARRAY GA

?GA(1,3),GA(1,2),GA(1,4) ELSE IF MGS=0 ? \无记录\ ELSE

? \数据错误\ ENDIF ENDIF

运行上面的程序,显示的结果是: 。 5. 新建一个表单,表单的Name属性为Form1,程序运行时的界面如下图所示:

设置控件属性如下:

有三个标签,其Name属性分别为Label1、Label2和Label3,Caption属性分别为“系名:”、“结果:”、(空);有一个文本框,其Name属性为Text1;一个命令按钮,其Name属性为Command1,Caption属性为“查询”。

有如下的事件代码: Form1的Activate事件:

THISFORM.TEXT1.VALUE=\计算机\

Command1的Click事件:(代码中行末的分号为逻辑行连接符) STR=TRIM(THISFORM.TEXT1.VALUE) OPEN DATABASE XK

SELECT 系号 AS XH, COUNT(DISTINCT 姓名) AS G_XM FROM T_XX GROUP BY; 系号 INTO DBF TS_1

SELECT COUNT(DISTINCT 姓名) AS S_XM FROM T_XX INTO DBF TS_2 USE TS_2 GO TOP S_XM=TS_2.S_XM

SELECT XH,G_XM FROM TS_1 WHERE XH=(SELECT 系号 FROM X_XX WHERE; 系名=STR) INTO DBF TS_3 USE TS_3 GO TOP

DO WHILE NOT EOF()

THISFORM.LABEL3.CAPTION=STR(TS_3.G_XM,3)+\ SKIP ENDDO CLOSE ALL

运行上面的表单,在Label3中显示的是: 。

七、Visual Basic程序改错(本大题共2小题,每题5分,共10分,每个程序有两个错误行,请在答题纸上写出错误行代码和对应的正确代码,改对一处得一处分,改错不减分。注:要把整行写完整) 1.有数组:

s = Array(\

统计数组s的各个元素中含有数字字符个数,把结果放到数组b相应元素中,如上述数组s,当程序运行后b中各元素的值分别为:2,3,1,0,2。程序中有两处错误,请按要求改正。程序如下:(两个数组的下标都是从1开始,程序中定义的每个变量都用到,程序中只能用变量total统计数组中每个元素含数字字符个数)

s = Array(\Dim b(5) As Integer Dim total As Integer Dim i As Integer Dim j As Integer For i = 1 To 5 b(i) = 0

For j = 1 To Len(s(i))

If Mid(s(i), j, 1) >= \

Next j b(i) = total Next i For i = 1 To 5 Print b(i); Next i

2. 如图所示,窗体有两个框架,左边框架中有三个单选按钮(名称分别为Option1,Option2和Option3),单选按钮分别设置了标题为小学、初中、高中;右边的框架中是一个列表框(名称为List1);两个框架中间是命令按钮(标题为存放结果,名称为Command1),命令按钮功能:单击命令按钮,清除列表框中的内容,然后将选中单选按钮的标题放入列表框中。

程序中有两处错误,分布在两行,请将完整的错误行和相应的正确行写在答题纸横线上。(不能改变程序行数,不能增加函数)