4．查询统计每个系部年龄的平均值输出到屏幕上。（用SQL语句）

5．假设“职工DBF”已建立了以“职工号”为主索引的索引，“工资.DBF”也已建立了以“职工号”为主索引的索引，建立“职工教育情况”表（包括职工（C,9）、学历（C,10）、学位（C,10），并分别与“职工,DBF”表和“工资,DBF”表建立关联。（用SQL语句，命令中的索引名可以自己指定）

五、程序分析（本大题共2小题，每小题5分，共10分，读程序并分析结果）

1．阅读下面的Visual Basic程序，分析程序中n = n + 1的执行次数是_________ 。 Dim m As Integer, n As Integer Dim j As Integer, k As Integer m = 3

For j = 1 To m Step 1 For k = -j To 3 Step 2 n = n + 1 Next k m=4 Next j Print n

2．有数据库KSHGL.dbc，包含四个表： KSHB.DBF、SSCOREB.DBF、TABLETJ.DBF和LQ，其中KSHB.DBF的结构为：考生号(C，10)、姓名(C，6)、性别(C，2)、单位(C，20)、出生日期(D)，SSCOREB.DBF的结构为：考生号(C，10)、数学(N，5，1)、英语(N，5，1)、政治(N，5，1)、专业课(N，5，1)，TABLETJ.DBF的结构为：考生号(C，10)、姓名(C，6)、课程名(C，8)、分数(N，5，1)），LQ.DBF的结构为：考生号(C，10)、姓名(C，6)、总分(N，6，1)，有如下程序： SET TALK OFF OPEN DATABASE KSHGL

SELECT * FROM TABLETJ INTO TABLE TEMP1 SELECT * FROM LQ INTO TABLE TEMP2 SELECT 1 USE KSHB

INDEX ON 考生号 TAG 考生号 SELECT 2

计算机专业理论试题 第9页 共 24页

USE SSCOREB

INDEX ON 考生号 TAG 考生号

SET RELATION TO 考生号 INTO KSHB GO TOP

DO WHILE .NOT. EOF() IF SSCOREB.数学<60

INSERT INTO TEMP1 VALUES(KSHB.考生号,KSHB.姓名,'数学 ',SSCOREB.数学) ELSE

IF SSCOREB.英语<60

INSERT INTO TEMP1 VALUES (KSHB.考生号,KSHB.姓名,'英语',SSCOREB.英语) ELSE

IF SSCOREB.政治<60

INSERT INTO TEMP1 VALUES (KSHB.考生号,KSHB.姓名,'政治',SSCOREB.政治) ELSE

IF SSCOREB.专业课<60

INSERT INTO TEMP1 VALUES (KSHB.考生号,KSHB.姓名,'专业课',SSCOREB.专业课)

ELSE

INSERT INTO TEMP2 VALUES(KSHB.考生号,KSHB.姓名,SSCOREB.数学+SSCOREB.英语+SSCOREB.政治+SSCOREB.专业课) ENDIF ENDIF ENDIF ENDIF SKIP ENDDO

SELECT * FROM TEMP1 ORDER BY 分数,考生号 DESC INTO ARRAY ARR INSERT INTO TABLETJ FROM ARRAY ARR

SELECT * FROM TEMP2 ORDER BY 总分,考生号 ASC INTO ARRAY ARR INSERT INTO LQ FROM ARRAY ARR CLOSE DATABASE CLOSE TABLES ALL

计算机专业理论试题 第10页 共 24页

DROP TABLE TEMP1 DROP TABLE TEMP2 SET TALK ON RETURN

该程序的功能是： 六、写出下列程序的运行结果（本大题共5小题，每小题5分，共25分） 1．分析下面Visual Basic程序段 (5分) 窗体中有一命令按钮，单击事件程序如下： Private Sub Command1_Click() Dim m As Integer Dim a As Integer Dim b As Integer a = 1: b = 2: m = 0 m = vb1(a, b) m = m + a+b Print m End Sub 函数:

Function vb1(w As Integer, ByVal n As Integer) w = 100: n = 200 vb1 = w + n End Function

窗体启动后单击命令按钮，最后m的值是________ 。 2．看图，分析下面Visual Basic程序段。(5分)

计算机专业理论试题 第11页 共 24页

如图所示，图中有一个文本框，两个选项按钮(名称分别为Op1，Op2)，两个复选框(名称分别为Ch1，Ch2)，两个框架，一个命令按钮（最右侧按钮），命令按钮的单击事件中代码如下：

提示：函数Instr(位置，字符串1，字符串2)，功能：返回字符串2在字符串1中的起始位置，如果找不到返回值是0，位置表示从第几个字符开始查找。

Private Sub Command1_Click() Text1.Text = \

If Op1.Value = True Then

Text1.Text = Text1.Text + Mid(Op1.Caption, InStr(1, LCase(Op1.Value), \End If

If Op2.Value = True Then

Text1.Text = Text1.Text + Mid(Op2.Caption, InStr(1, LCase(Op2.Value), \End If

Text1.Text = Text1.Text + Mid(Ch1.Caption, 1, Ch1.Value + 1) Text1.Text = Text1.Text + Mid(Ch2.Caption, 1, Ch2.Value + 1) End Sub

窗体启动后,先选中如图所示的各选项,然后再单击命令按钮,当单击此命令按钮后，文本框中显示内容是________ _____ ____ 。 3．有如下Visual FoxPro程序： CLEAR a=12345 c=0 b=0

DO WHILE a>0 b=a

DO tub WITH a,b a=a-1 c=c+b ENDDO ?c

PROCEDURE tub PARAMETER x,y flag=.T.

计算机专业理论试题 第12页 共 24页