发布时间 : 星期四 文章2015河北省对口计算机试卷更新完毕开始阅读
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
计算机专业理论试题A卷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
第9页 共 13页
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
计算机专业理论试题A卷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) >= \
+ b(i) Next j
第10页 共 13页
b(i) = total Next i For i = 1 To 5 Print b(i); Next i
2． 如图所示，窗体有两个框架，左边框架中有三个单选按钮（名称分别为Option1，Option2和Option3），单选按钮分别设置了标题为小学、初中、高中；右边的框架中是一个列表框（名称为List1）；两个框架中间是命令按钮（标题为存放结果，名称为Command1），命令按钮功能：单击命令按钮，清除列表框中的内容，然后将选中单选按钮的标题放入列表框中。
程序中有两处错误，分布在两行，请将完整的错误行和相应的正确行写在答题纸横线上。（不能改变程序行数，不能增加函数）
Private Sub Command1_Click() Dim s As String List1.Clear s = \Select Case 1 Case Option1.Value s = s + Option1.Caption
计算机专业理论试题A卷 Case Option2.Value s = s + Option2.Caption Case Option3.Value s = s + Option3.Caption End Select List1.Text = s End Sub
八、程序填空（本大题共7个空，每空5分，共35分，按程序要求在答题纸上填入相应的内容，使程序完整正确）
1．(Visual Basic试题)下面程序是从键盘输入少于20个字符的字符串，然后对字符串从左端进行处理。处理方法：把字符串中后跟“#”的数字放入数组a中，如果是数字但后面没有“#”则不存放。如输入的字符串为“12#a2bc3#d45#6e7”,则12、3、45分别存放到数组a的前三个元素中。请填空。
Option Base 0
Private Sub Command1_Click() Dim s As String Dim c As String Dim i As Integer Dim j As Integer Dim a(10) As Integer Dim num As Integer Dim w As Integer
Dim flag As Integer '标志：为0表示前一个字符非数字，为1表示前一
字符为数字
num = 0: i = 1: flag = 0: j = 0 s = InputBox(\w = Len(s) Do While i <= w c = Mid(s, i, 1)
If c >= \
num = num * 10 + Val(c): (1)
第11页 共 13页
End If
If flag = 1 And c = \
(2) : j = j + 1: flag = 0: num = 0 End If
If (c < \ flag = 0: num = 0 End If i = i + 1 Loop
For i = 0 To j - 1 Print a(i); Next i End Sub
2、(Visual Basic试题)
窗体中有一文本框(名称Text1)，一组合框(名称Combo1，已添加5个条目)，一滚动条（名称Hs1，min和max分别为1和5），一定时器控件（名称Timer1），定时器的Enabled属性初始为False，Interval属性值1000（1秒），一命令按钮(标题为开始，
计算机专业理论试题A卷名称Command1)。程序功能：（1）开始命令按钮功能：启动定时器工作；（2）定时器Timer1事件功能：一是清空文本框，二是在文本框中显示组合框中选中的数字，选中数字几，就在文本框中显示几个该数字，如选中3，则在文本框中显示3个3，三是把滚动条的Value值改为组合框中选定的值，四是把定时器的Timer1事件触发时间改为与所选中的组合框的值一致的秒数。不完整的空白位置请写出正确的内容。
Private Sub Command1_Click() Timer1.Enabled = True End Sub
Private Sub Timer1_Timer() Dim i As Integer Dim k As Integer Text1.Text = \
k = Val( (3) ) For i = 1 To k
Text1.Text = Text1.Text + Combo1.Text Next i
Hs1.Value = Combo1.Text
(4) = Combo1.Text * 1000 End Sub
3．(Visual FoxPro试题)程序的功能是：输入字符串，将字符串中的所有不是数字、字母的字符删除；将字母字符移到数字字符尾部，各自保持原来的先后顺序，形成新的字符串输出。如输入的字符串为“1Wq+2_3A”，则输出“123WqA”。程序如下，请在空白位置填写正确的代码。
CLEAR
ACCEPT \请输入字符串：\
（5） ?XX
FUNCTION SHUCHU
第12页 共 13页
PARAMETERS SS N=LEN(SS) DIME A(N) FOR I=1 TO N
A(I)=SUBSTR(SS,I,1) ENDFOR B=\ C=\ FOR I=1 TO N
IF (A(I)>=\ （6） ELSE
IF (A(I)>=\ （7） ENDIF ENDIF ENDFOR SS=B+C RETURN SS
计算机专业理论试题A卷第13页 共 13页