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页
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
计算机专业理论试题 第13页 共 24页
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*****，单击“确定“按钮，在标签中显示的是： 。 5．设有数据库文件SHANGPIN.DBC，包含3个表，分别是goods、order、orderitem。其中goods的结构为：商品号(C，6)、商品名(C，20)、单价(N，6，2)，order的结构为：订单号(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 Order.dbf
记录号 订单号 客户名 签订日期 1 0001 zhangby 02/29/00 2 0002 haom 03/14/00 3 0003 liuyj 03/18/00
计算机专业理论试题 第14页 共 24页
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 ORDER 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 ORDER
INDEX ON 订单号 TO ddh2 SET RELATION TO 订单号 INTO A DO WHILE .NOT.EOF()
REPLACE 总金额 WITH temp.总金额 SKIP ENDDO DO WHIL .T.
ACCE \请输入商品名(输入0退出)\
计算机专业理论试题 第15页 共 24页