End If End Sub
2.(Visual Basic试题)窗体上有五个标签(用来提示其右侧的内容,标题分别是数据1,数据2,滚动条,
运算符,结果)。数据1右侧是文本框1(名称为Text1),数据2右侧是一列表框(名称为List1),运算符右侧是一组合框(名称为Combo1),上述三个控件内容如程序及图所示。滚动条(名称为HS1)最小值和最大值分别是10和50,滚动条的LargeChange属性值为10。界面中目前显示42的控件是文本框2(名称为Text2),其值由文本框1中部分数据、组合框中选定的运算符及列表框中数据进行某种运算产生。标题显示“开始”的是一命令按钮(名称为Command1)。有一定时器控件(名称为Timer1),初始设置Timer1.Enabled 为 False,Timer1.Interval =2000,定时器的Timer1_Timer事件主要功能是:程序中的变量a保存从Text1中选定的内容,变量c保存从Combo1中选定的值,变量b保存List1及HS1的运算结果。这些变量按指定规则运算,结果显示在Text2中。下图是窗体启动并单击“开始”按钮后,滚动条的值达到30时的状态。请在划线位置填写正确的内容。
Private Sub Form_Load() List1.AddItem \List1.AddItem \List1.AddItem \List1.AddItem \List1.AddItem \Combo1.AddItem \Combo1.AddItem \Combo1.AddItem \Combo1.AddItem \Text1.Text = \End Sub
Private Sub Command1_Click() Timer1.Enabled = True
21
Text1.SelStart =__________ Text1.SelLength = 2 End Sub
Private Sub Timer1_Timer() Dim a As Integer Dim b As Integer Dim s As Integer Dim c As String Static n As Integer n = n + 1
HS1.Value = n * 10 a = Val(Text1.SelText)
b = Val(List1.List((HS1.Value / 10) - 1)) c = ____________ Select Case c Case \ s = a + b Case \ s = a - b Case \ s = a * b Case \ s = a / b End Select Text2.Text = s If n = 5 Then n = 0
End Sub
3.(Visual FoxPro试题)已知有“KSSCORE.DBC”数据库,其中包含表“CJB.DBF”, “CJB.DBF”表的结
构为准考证号(C,9)、姓名(C,8)、学校名称(C,20)、班级名称(C,10)、科目1(C,4,1)、科目2(C,4,1)……科目9(C,4,1)(共9个科目)。应用程序运行时界面如下图所示:
22
设置控件属性如下:
有三个标签,其Name属性分别为Label1、Label2和Label3,Caption属性分别为“学校选择”、“班级选择”、“结果:”;有一个文本框,其Name属性为Text1;两个组合框,其Name属性分别为Combo1和Combo2,其中分别列出了供选择的学校和班级(属性中已设置,代码中直接使用);一个命令按钮,其Name属性为Command1,Caption属性为“确定”。 编写Visual FoxPro程序,实现功能如下:
在Combo1中选择一个学校,在Combo2中选择一个班级,单击Command1(“确定”按钮),则在Text1中显示该学校该班级9个科目优秀率的相关数据(每个科目优秀的标准是相应科目>=90,优秀率=相应科目优秀的人数/该学校该班人数*100%)。
Command1(“确定”按钮)的Click事件代码如下,请在划线位置填写正确的内容。(代码中行末的分号为逻辑行连接符) XXMC=THISFORM.COMBO1.VALUE BJMC=THISFORM.COMBO2.VALUE OPEN DATABASE KSSCORE
SELECT 学校名称,班级名称,COUNT(准考证号) AS 班级人数 FROM CJB GROUP BY; 学校名称,班级名称 INTO TABLE YXLTJTMP SELECT * FROM CJB.DBF INTO DBF BJYXLTJB ZAP
ALTER TABLE BJYXLTJB DROP COLUMN 准考证号 ALTER TABLE BJYXLTJB DROP COLUMN 姓名 ALTER TABLE BJYXLTJB ADD 班级人数 N(4,0) FOR K=1 TO 9
FKMRS=\科目\ ALTER TABLE BJYXLTJB ALTER &FKMRS N(4,0) ENDFOR FOR I=1 TO 9
KMC=\科目\
SELECT 学校名称,班级名称,COUNT(准考证号) AS KMCRS FROM CJB; WHERE GROUP BY 学校名称,班级名称 INTO DBF TJYXFTMP SCAN
UPDATE BJYXLTJB SET &KMC=TJYXFTMP.KMCRS WHERE BJYXLTJB.学校名称; =TJYXFTMP.学校名称 AND BJYXLTJB.班级名称=TJYXFTMP.班级名称 ENDSCAN
23
ENDFOR JIEGUO=\
JIEGUO=XXMC+\FOR K=1 TO 9
KMMC=\科目\
SELECT &KMMC AS KMRS,班级人数 FROM BJYXLTJB WHERE 学校名称=XXMC; AND 班级名称=BJMC INTO DBF YXJG
JIEGUO=JIEGUO+\班级人数*100)))+\ENDFOR
CLOSE DATABASE
2017 年河北省普通高等学校对口招生考试
计算机专业理论试题(A)答案
一、选择题(每小题2分) 1.D 2.C 3.B 11.D 21. B 31.B 12.A 22.C 32.D 13.D 23.A 33.A 4.C 14.D 24. C 34.D 5.B 15.B 25. B 35.A 6.C 16.D 26.C 36.C 7.B 17.A 27. A 37.D 8.A 18.B 28.D 38.C 9.D 19.C 29.C 39.A 49.B 10.D 20.D 30.A 40.B 50.C 41.B 42.C 43.A 44.C 45.B 46.C 47.D 48.A 二、判断题(每小题1分) 1.√ 2.× 3.√ 4. × 5.× 6.× 7.√ 8.√ 9.× 10. × 11.× 12. √ 13.× 14.√ 三、填空题(每小题2分) 1. 102 2.控制面板 3.PrintScreen(PrtSc ) 4.CAD 5.裁剪 6.0加空格加2/3 7.Close 8. a*b/(a-b)+a 9. AAAAAA
10.30 11.16 12.开放系统互连 13.192.168.1.100
四、命令或语句(每小题4分)
1. DELETE ALL FOR 库存下限<100 AND NOT 商品单位= \箱\
DELETE ALL FOR 库存下限<100 AND 商品单位<>\箱\2. APPEND FROM GOODS
3. CREATE TABLE SALLINFO.DBF(商品编号 C(6) REFERENCES PROINFO,售价 N(8,1))
4. UPDATE PROINFO.DBF SET 库存下限=200 WHERE 商品单位=\听\商品类别=\5. SELECT商品类别, AVG(商品单价) FROM “PROINFO.DBF” GROUP BY 商品类别
24
五、程序分析(每小题5分)
1. 100 2. createdatabase(字符串中的字母是由这些字符组成的,只要偶数位的是小写的,奇数位上的无论大小写都对,比如CrEaTeDaTaBaSe、CrEateDatabase) 六、写出程序执行结果(每小题5分)
1.52 2.kaoshi
3.12 876543 20 34567830 4. -11.05
5.801510114 张丽丽 2 七、程序改错
1、(共2处错,每处改对得2.5分,改错不扣分)
错误行:str2 = Mid(str2, i) 正确行str1 = Mid(str2, i)
错误行:For i = 1 To j 正确行: For i = 1 To j - 1
2、(共2处错,每处改对得2.5分,改错不扣分) 错误行:a(i, j) = 10 + Int(Rnd * 10) 正确行: a(i, j) = 10 * i + Int(Rnd * 10)
错误行:s = s + a(num, num) 正确行: s = s + a(i, j)
八、程序填空
1、(每空5分) Exit For a(n) = i 2、(每空5分) 1
Combo1.Text或Combo1
3(每空5分)
APPEND FROM YXLTJTMP &KMC>=90
THISFORM.TEXT1.VALUE=JIEGUO
25