2013年河北省普通高等学校对口招生考试计算机专业理论试题

a(i) = w1

i = i + 1

(1)_W1=W2__________________________________ w2 = Left(c, 1) c = Mid(c, 2)

Do While Not (w2 >= \ w1 = w1 + w2 w2 = Left(c, 1) c = Mid(c, 2) Loop

b(j) = w1

j = j + 1 End If w1 = w2 Loop

If w1 >= \ a(i) = w1 i = i + 1 Else

If_(2) Not (w2 >= \ Then b(j) = w1 j = j + 1 End If End If

For m = 0 To i - 1 Print a(m); Next m

For n = 0 To j - 1 Print b(n); \ Next n

2、窗体中(如图所示)有五个标签，分别显示了姓名，照片，滚动条，个人信息四项提示信息，还有一个标签(Label5)在图中显示的是“年龄是：12”；一个文本框（名称为Text1），用来输入多个姓名；一个图片框在窗体中显示的是一动物图片；一个框架，框架中有两个单选按钮（名称分别为Option1，Option2）用来选择性别；一个列表框（名称为List1）用来显示个人信息；一个滚动条（名称为HS1）；一个命令按钮。当移动滚动条后在Label5上显示滚动条的值作为年龄的信息。当单击命令按钮后将把选中的姓名、性别、滚动条移动产生的值作为年龄在列表框中显示出来，并根据选择的姓名把此人的照片（以姓名作为照片

的名字，扩展名为bmp）在图片框中显示出来。不完整的空白位置请写出正确的内容(Visual Basic题)。

Private Sub Command1_Click() Dim xm As String

xm = Text1._(3)_SELTEXT____

Picture1.Picture = LoadPicture(\ List1.AddItem \姓名：\

If Option1.Value = True Then List1.AddItem \性别:\ If Option2.Value = True Then List1.AddItem \性别:\ List1.AddItem \年龄：\ End Sub

Private Sub HS1_Change()

_(4)_LABEL5.CAPTION____ = \年龄是：\ End Sub

3．已知有“STUDENT.DBC”数据库，其中包含三个表：USER、XUESHENG和CHENGJI，其中USER表的结构为：用户名(C，10)、权限(C，4)，XUESHENG表的结构为：学号(C，10)、姓名(C，8)，CHENGJI表的结构为：学号(C，10)、数学(N，5，1)、英语(N，5，1)、信息技术(N，5，1)，设计应用程序界面如下：

设置控件属性如下：

有三个标签，其Name属性分别为Label1、Label2和Label3，Caption属性分别为“用户名：”、“学号：”、“结果：”。有三个文本框，其Name属性分别

为Text1、Text2、Text3，一个命令按钮，Name属性为Command1，Caption属性为“确定”。

编写Visual FoxPro程序实现下述功能：

①在Text1文本框中输入用户名,单击“确定”按钮，如果用户不存在，在Text1文本框中显示“用户不存在，请重新输入!”；如果用户存在，则根据权限的不同进行不同的操作：

如果“权限”是“查询”，则标签Label2的Caption变成“学号”，“确定”按钮变成“查询”按钮（命令按钮的Caption变成“查询”）；

如果“权限”是“统计”，则标签Label2的Caption变成“班级”，“确定”按钮变成“统计”按钮（命令按钮的Caption变成“统计”）。

②在Text2文本框中输入学号，单击“查询”按钮，如果该学号存在，则在Text3文本框中显示学生的姓名，数学，英语，信息技术字段的值；如果不存在，则在Text3文本框中显示“没找到！”；

③在Text2文本框中输入班级(班级是学号的前8位)，单击“统计”按钮，如果班级存在，则在Text3文本框中显示班级、该班级数学的平均分、该班级英语的平均分以及该班级信息技术的平均分；如果不存在，则在Text3文本框中显示“该班级不存在!”。 Command1的Click事件代码如下，请在空白位置填写正确的命令。（代码中行末的分号为逻辑行连接符） (5) mm=trim(thisform.command1.caption) SHURU=TRIM(ThisForm.Text2.Value)

OPEN DATABASE STUDENT DO CASE

CASE MM=\确定\

SELECT * FROM USER WHERE 用户名=TRIM(ThisForm.Text1.Value) INTO DBF YH

USE YH GO TOP

IF EOF() THEN

ThisForm.Text1.Value=\用户不存在，请重新输入!\ ELSE

(6) if 权限=”查询”

ThisForm.Command1.Caption=\查询\ ThisForm.Label2.Caption=\学号\ ELSE

ThisForm.Command1.Caption=\统计\ ThisForm.Label2.Caption=\班级\ ENDIF ENDIF

(7) case mm=”查询”

SELECT XUESHENG.姓名,CHENGJI.数学,CHENGJI.英语,CHENGJI.信息技术; FROM XUESHENG,CHENGJI WHERE XUESHENG.学号=SHURU AND XUESHENG.学号=; CHENGJI.学号 INTO DBF LSH USE LSH GO TOP

IF NOT EOF()

ThisForm.Text3.Value=姓名+\数学)+\英语)+; \信息技术) ELSE

ThisForm.Text3.Value=\没找到！\

ENDIF

OTHERWISE

SELECT LEFT(学号,8) AS 班级,AVG(数学) AS 数学,AVG(英语) AS; 英语,AVG(信息技术) AS 信息技术 FROM CHENGJI GROUP BY 班级; WHERE LEFT(学号,8)=SHURU INTO DBF CHJ USE CHJ GO TOP

IF NOT EOF()

ThisForm.Text3.Value=班级+\数学)+\英语)+; \信息技术) ELSE

ThisForm.Text3.Value=\该班级不存在！\ ENDIF ENDCASE