2014河北省对口升学计算机高考试题A

CLEAR

OPEN DATABASE 学生管理

CREATE TABLE TJS(X1 C(20),X2 N(5,1))

SELECT DISTINCT 院系 AS Y1,SUBSTR(学号,1,2) AS Y2 FROM; CLOSE DATABASE USE TJS

DO WHILE NOT EOF() ?X1,X2 学生档案 ORDER BY Y2 INTO DBF JTS USE SELECT 1 USE JTS GO TOP SELECT 2 USE 学生成绩 GO TOP SELECT 1

DO WHILE NOT EOF() ZHI=0 SHU=0 SELECT 2 GO TOP

DO WHILE NOT EOF()

IF SUBSTR(学号,1,2)==JTS.Y2 ZHI=ZHI+成绩 SHU=SHU+1 ENDIF SKIP ENDDO IF SHU!=0

INSERT INTO TJS VALUES(JTS.Y1,ZHI/SHU) ENDIF SELECT 1 SKIP ENDDO

计算机专业理论试题(A) SKIP

ENDDO

运行上面的程序，显示的结果是： 七、Visual Basic程序改错(本大题共有两个小题，每题5分，共10分，每个程序有两个错误行，请在答题纸上写出错误行代码和对应的正确代码，改对一处得一处分，改错不减分。注：要把整行写完整) 1．有两个数组

a = Array(\b = Array(20, 31, 82, 73, 44, 25)

数组a表示的是六个人的姓名，数组b表示的是与数组a中对应位置人的年龄，而且年龄中的个位数与他们在数组中的位置一致，年龄段在10到99之间。下面程序的功能是输入一个年龄，首先查找输入的年龄在数组b中是否存在；如果存在，则显示其姓名，如果不存在，则程序直接结束。程序如下：

a = Array(\b = Array(20, 31, 82, 73, 44, 25) Dim i As Integer Dim pos As Integer Dim flag As Integer Dim j As Integer flag = 0

pos = InputBox(\请输入查询人的年龄\j = pos - Int(pos / 10) * 10 For i = 0 To 5 Step 1 If pos = a(j) Then flag = 1 Next i

If flag = 0 Then End Print a(pos)

第9页 共 12页

2．窗体中（运行状态如图所示）有一定时器控件（名称Timer1，初始状态Enabled为False），有三个标签用于显示控件名称，一滚动条（名称HS1,最大值10，最小值0），一列表框（名称List1，初始状态为空），一文本框（名称为Text1，初值为9876543210，）,一命令按钮（名称Command1，Caption属性值为启动）。

启动按钮完成操作是：（1）计时器开始工作；（2）设置滚动条的value、max和min属性值。

定时器工作时每隔一定时间触发一次事件，Timer事件中完成4项工作：（1）从文本框值右边位置取若干个字符放文本框中；（2）把文本框中的内容添加到列表框中；（3)滚动条的值减1；（4）当滚动条的值为0时计时器停止工作。

程序中的两处错误分布在每个事件中。（请结合程序认真看窗体运行界面，不能改变程序行数，不能增加函数）

Private Sub Command1_Click() HS1.Min = 0 HS1.Max = 10 HS1.Value = 1 Timer1.Enabled = True End Sub

Private Sub Timer1_Timer() Text1.Text = Right(Text1.Text, 9)

计算机专业理论试题(A) List1.AddItem Text1.Text HS1.Value = HS1.Value - 1

If HS1.Value =0 Then Timer1.Enabled = False End Sub

八、程序填空（本大题共7个空，每空5分，共35分，按程序要求在答题卡上填入相应的内容，使程序完整正确）

1．(Visual Basic试题)下面程序的功能是从键盘输入长度小于20个字符的字符串，以“#”结束，然后对字符串从左端进行处理。处理方法：把字符串中数字内容放入数组a的元素中，存放时要求每个元素放一个两位数字，最后如果剩一个一位数字则单独存放。如输入的字符串为“12abc3d456e7f#”,则12、34、56、7分别存放到数组a的前四个元素中。请填空。

Private Sub Command1_Click() Dim a(10) As Integer Dim c As String

Dim w1 As String ‘从字符串中取的一个字符 Dim w2 As String ‘用来存放存入数组中的数据 Dim flag As Integer ‘表示每次已经获取了几位数字 Dim i As Integer i = 0: w2 = 0

c = InputBox(\请输入字符串，以#结束：\w1 = Left(c, 1) Do While w1 <> \

If w1 >= \ flag = flag + 1

w2 = (1) + Val(w1) End If c = Mid(c, 2) w1 = Left(c, 1)

If flag = 2 Then a(i) = w2: flag = 0: i = i + 1: w2 = 0 Loop

If flag > 0 Then (2) :i=i+1

第10页 共 12页

For flag = 0 To i-1 Print a(flag); Next flag End Sub

2．(Visual Basic试题)窗体中有一列表框(名称List1)，一文本框(名称Text1)，一命令按钮(名称Command1)。窗体启动时的Load事件代码已给出。当每次单击开始命令按钮时将把列表框中选择的条目内容添加到数组，并把列表框中选择的条目删除，然后把数组中的元素值添加到文本框中（如图,图中上方控件为列表框，下方控件为文本框）。请在空白位置写出正确的内容。

Private Sub Form_Load() List1.AddItem \List1.AddItem \List1.AddItem \List1.AddItem \List1.AddItem \List1.AddItem \End Sub

Private Sub Command1_Click() Static a(6) As Integer

计算机专业理论试题(A) Dim i As Integer Static j As Integer

For i =(3) To 0 Step -1 If List1.Selected(i) Then a(j) = Val(List1.List(i)) j = j + 1

List1.RemoveItem i Exit For End If Next i

Text1.Text = \

For i = 0 To (4) Text1.Text = Text1.Text & a(i) & \Next i End Sub

3．(Visual FoxPro试题)已知有“XXGL.DBC”数据库，其中包含“用户”表，“用户”表的结构为：用户名(C，10)、密码(C，10),应用程序运行时界面如下图所示：

设置控件属性如下：

有四个标签，其Name属性分别为Label1、Label2、Label3和Label4，Caption属性分别为“用户名”、“密码”、“确认密码”、(空)。有三个文本框，其Name属性分别为

第11页 共 12页

Text1、Text2、Text3；两个命令按钮，其Name属性分别为Command1和Command2，Caption属性分别为“确定”和“取消”。

编写Visual FoxPro程序实现“添加用户”的功能，具体功能如下：

在Text1文本框中输入用户名、在Text2文本框中输入密码、在Text3文本框中输入确认密码，然后单击“确定”按钮；如果“用户名”为空，则在Label4上显示“用户名不能为空！”；如果输入的用户名在“用户”表中存在，则在Label4上显示“用户已存在！”；如果用户名不为空、也不在“用户”表中存在，则判断Text2和Text3中输入的密码和确认密码（要求密码只能是数字或字母，不能是其他字符，如果输入了其它字符，则在Label4中显示“密码使用了不合法的字符！”）是否相同，如果不相同，则在Label4中显示“请输入相同密码！”；如果不发生以上情况，则将用户信息添加到“用户”表中（密码进行简单的加密处理，将密码串中的每个字符按ASCII码变为其后的第二个字符，如0变成2,1变成3，a变成c），并在Label4中显示“成功添加新用户！”。 Command1（“确定”按钮）的Click事件如下，请在空白位置填写正确的命令。（代码中行末的分号为逻辑行连接符） U1=THISFORM.TEXT1.VALUE PW1=THISFORM.TEXT2.VALUE OPEN DATABASE XXGL TEMPCHR=\IF TRIM(U1)==\

THISFORM.LABEL4.CAPTION=\用户名不能为空！\ELSE

SELECT COUNT(用户名) AS GESHU FROM 用户 WHERE;

UPPER(用户名)=UPPER(TRIM(THISFORM.TEXT1.VALUE)) INTO DBF BIAO USE BIAO IF GESHU>0

THISFORM.LABEL4.CAPTION=\用户已存在！\ ELSE

IF TRIM(THISFORM.TEXT2.VALUE)==TRIM(THISFORM.TEXT3.VALUE) TEMPSTR=\

FOR I=1 TO LEN(TRIM(PW1))

(5)

计算机专业理论试题(A) IF MIMA>='0' AND MIMA<='9' OR MIMA>='a' AND MIMA<='z' OR;

MIMA>='A' AND MIMA<='Z'

TEMPCHR=ASC(SUBSTR(PW1,I,1))+2

(6) ELSE

THISFORM.LABEL4.CAPTION=\密码使用了不合法的字符！\ EXIT FOR ENDIF ENDFOR

IF I>LEN(TRIM(PW1)) DIMENSION B(1,2) B(1,1)=U1 B(1,2)=TEMPSTR

INSERT INTO 用户 VALUES(b(1,1),b(1,2)) THISFORM.LABEL4.CAPTION=\成功添加新用户！\ ENDIF ELSE

(7) ENDIF ENDIF ENDIF

第12页 共 12页