2012河北省对口高考计算机专业理论试卷

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 DROP TABLE TEMP1 DROP TABLE TEMP2 SET TALK ON RETURN

该程序的功能是：

六、写出下列程序的运行结果（本大题共5小题，每小题5分，共25分，请填写在答题纸上） 1．窗体中有一命令按钮，此按钮单击事件程序如下：

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． 如图所示，图中有一个文本框（名称为T1），两个选项按钮(名称分别为Op1，Op2)，两个复选框(名称分别为Ch1，Ch2)，两个框架，一个命令按钮（Command1），命令按钮的单击事件中代码如下：

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

Private Sub Command1_Click()

T1.Text = \

If Op1.Value = True Then

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

If Op2.Value = True Then

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

T1.Text = T1.Text + Mid(Ch1.Caption, 1, Ch1.Value + 1) T1.Text = T1.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. DO WHILE flag y=x+y*10 x=int(x/10) IF x=0 flag=.F. ENDIF ENDDO RETURN

运行上面的程序，显示的结果为：

4．在Visual FoxPro的表单上添加一个标签，其Name属性为：Lba，Caption属性为：请输入字符串，添加一个文本框，其Name属性为：txt，添加一个标签，其Name属性为：Lbb，Caption属性为：空，添加一个命令按钮，其Name属性为：Command1，Caption属性为：确定。 Command1的Click事件代码如下：

mystr=ThisForm.txt.Value mystr=Trim(mystr) n=LEN(mystr) DIME arr(n) FOR i=1 TO n

arr(i)=SUBSTR(mystr,i,1) ENDFOR m=3 j=0

FOR i=n TO 1 STEP -1 IF arr(i)=[*] j=j+1 ELSE EXIT ENDIF ENDFOR b=[ ] c=[ ] s=0 IF j>m s=m ELSE s=j ENDIF

FOR i=1 TO n-s

IF (arr(i)>=[0] and arr(i)<=[9]) b=b+arr(i) ELSE

c=c+arr(i) ENDIF

ENDFOR mystr=c+b

ThisForm.lbb.Caption=mystr Return

运行上面的表单，在文本框中输入：d12&%##ef34*****，单击“确定“按钮，在Lbb标签中显示的是：

5．设有数据库文件SHANGPIN.DBC，包含3个表，分别是goods、orderList、orderitem。其中goods的结构为：商品号(C，6)、商品名(C，20)、单价(N，6，2)，orderlist的结构为：订单号(C，4)、客户名(C，8)、签订日期(D)，orderitem的结构为：订单号(C，4)、商品号(C，6)、数量(N，2)，其表中数据如下：

Goods.dbf

记录号 商品号 商品名 单价 1 a00001 数据库原理 23.80 2 a00002 计算机操作系统 31.00 3 a00003 汇编语言 33.50 4 a00004 C++程序设计 23.90 Orderlist.dbf

记录号 订单号 客户名 签订日期 1 0001 zhangby 02/29/00 2 0002 haom 03/14/00 3 0003 liuyj 03/18/00 4 0004 liubing 03/21/00 5 0005 lixing 03/25/00 6 0006 hailan 04/01/00 Orderitem.dbf

记录号 订单号 商品号 数量 1 0001 a00001 2 2 0002 a00002 2 3 0003 a00003 3 4 0004 a00003 4 5 0005 a00004 3 6 0006 a00003 2

有如下程序：（代码中行末的分号为逻辑行连接符） DIME arr(1) SUM1=0

ALTER TABLE ORDERLIST ADD 总金额 N(7,2)

SELECT Orderitem.订单号,sum(goods.单价*orderitem.数量) as 总金额FROM；goods,orderitem WHERE Goods.商品号 = Orderitem.商品号 GROUP BY；

Orderitem.订单号 ORDER BY Orderitem.订单号 INTO TABLE temp.dbf CLOSE ALL SELECT 1 USE TEMP

INDEX ON 订单号 TO ddh1 SELE 2 USE ORDERLIST

INDEX ON 订单号 TO ddh2