A．1
B．2
C．5
D．以上答案均不是
40、在VisualBasic中，在代码编辑器中编写语句LEFT=；left+100时（）
A．窗体向左移动100个单位
B．窗体向右移动100个单位
C．窗体向上移动100个单位
D．窗体向下移动100个单位
41、在VisualBasic中，要使标签label1显示文字“姓名”，可把label1的（）属性设置为“姓名”
A．name
B．text
C．word
D．caption
42、在VisualBasic中，文本框所没有的属性是（）
A．Enabled
B．Visible
C．BackColor
D．Caption
43、下列表达式结果为真值的是（）
A．10=20/4-2
B．”计算机”$”计算机”
C．”01/01/96”<”12/13/95”
D．”张”=”张三”
44、下列语句中正确的是（）
A．DOCASE…ENDCASE语句中，DOCASE与第一个CASE之间的语句有可能被执行
B．同一个索引文件可在多个工作区中同时被打开
C．GOBOTTOM执行后，记录指针一定指向记录号最大的记录
D．一个子程序可被同以程序或不同程序多次调用
45、打开一个空数据库文件，执行LIST命令后，屏幕显示如下信息（）
A．“数据空没有记录”
B．只显示字段名称
C．.F.
D．不显示任何信息
46、已执行了如下命令序列：
SELECT0
USEFF
SELECT0
USEGG
现欲转回到文件FF.DBF所在工作区，能够确保完成这一任务的命令是（）
A．SELECT0
B．SELECT1
C．SELECTA
D．SELECTFF
47、设X=2，Y=5，Z=”X+Y”，下列函数值的类型为N型的是（）
A．TYPE（“&Z”）
B．IIF（&Z<0,Z,X）
C．STR（X+Y,5，1）
D．SUBSTR（Z,2）
48、在VisualFoxPro环境下，下列命令组合不能配对使用的是（）
A．@…PROMPT和MENUTO
B．DO…WITH和PARAMETERS
C．DOCASE和ENDDO
D．IF和ENDIF
49、使用菜单设计器窗口时，在“结果”组合框选项中，如果定义一段程序，应选择（）
A．命令
B．过程
C．子菜单
D．填充名称
50、在表XSCJ.DBF中，有性别（C），平均分（N）字段，要显示平均分大于80分和不及格的全部男生记录，要使用命令表达式（）
A．性别=”男”AND平均分>80AND平均分<60
B．性别=”男”or平均分>80or平均分<60
C．性别=”男”or（平均分>80or平均分<60）
D．性别=”男”AND（平均分>80or平均分<60）
二、填空题（本大题共14小题，每空2分，共28分）
1、智能型计算机即人们所说的第__________代计算机
2、CD-R光盘是指___________光盘
3、内存中用来存储固定不变的信息是_____________
4、要使用地址栏打开C盘Windows文件夹下的System子文件夹，可以在地址栏中输入_________________
5、在_____________视图中，Word2000的水平标尺是不能显示的
6、在Excel中，如果对不同的字段进行“或”的筛选，则用___________
7、局域网和广域网相比，_____________的传输速率较高
8、在局域网中，用户通过________________来访问网络的共享资源
9、一个特定的Web站点的顶层页面通常被称为__________________
10、假定窗体的名称（Name属性）为Forml，则把窗体的标题设置为“VBTEST”的语句为_______________
11、在VisualBasic中，Abs（Int（-17.8））运算结果是__________
12、某标已经打开，则定位倒数第20条记录的命令是_________________（用一条命令完成）
13、在表单中确定控件是否借鉴的属性是_______________
14、VisualFoxPro中VAL（”-85AB”）+VAL（“28/01/98”）的值为__________________
三、判断题（本大题共14小题，每小题1分，共14分。
请在括号里打“√”或“×”）
（）1、PC中的硬盘也可以作为移动硬盘
（）2、与数值计算相比，数据处理的特点是数据输入/输出量大，而计算相对于简单
（）3、在记事本和写字板中，不同的段可以设置不同的字体和字号
（）4、在Windows2000中，进行系统硬件设置的文件夹成为控制面板
（）5、在Word2000中，删除表格的方法是将整个表格选定，按Delete键
（）6、在Word2000中，段落缩进排版最快的方法是通过拖动标尺上缩进符来设置，首行缩进应拖动左侧正三角
（）7、Excel中可以只打印B9：
E20区域中的数据
（）8、Excel工作表中，姓名字段下由“张三、李四、王平、郭东”4人，若想排成“李四、张三、郭东、王平”顺序，这是不能实现的
（）9、卫星通信费用高，延时较大，但易实现多址通信
（）10、因特网的使用者不必关心因特网的内部结构
（）11、上海热线的主机域名地址是，这也是它的URL地址
（）12、OSI参考模型的最底层物理层是唯一由纯硬件组成的
（）13、在VisualBasic中，下界函数（LBOUND）的功能是求数组制定维数的最大下标
（）14、在VisualFoxPro中，备注型字段内容不能显示
四、根据一直的环境与题意，写出相应的VisualFoxPro操作命令，要求每小题用一条命令完成（本大题共5小题，每小题4分，共20分）
以下操作基于XSCJ.DBF，包括以下字段：
学号（C，2）、姓名（C，8）、性别（C，2）、语文（N）、数学（N）、英语（N）、总分（N）、出生日期（D）、团员（L），库中有30条记录，已在第1工作区打开，且第1工作区为当前工作区
1、3号记录的学号改为15
2、把所有的团员记录按性别汇总（设相应索引文件已打开）到XS1中
3、按总分和性别建立单索引文件XS2.IDX
4、使用SQL语句删除表中总分小于200的记录
5、使用SQL-SELECT语句查询表中数学、语文最低分和最高分
五、程序分析（本大题共2小题，每小题5分，共10分）
1、在窗体上画一个列表框，然后编写如下两个事件过程：
PrivateSubForm_Click（）
List1.RemoveItem1
List1.RemoveItem3
List1.RemoveItem2
List1.RemoveItem1
EndSub
PrivateSubForm_Load（）
List1.AddIterm”ItemA”
List1.AddIterm”ItemB”
List1.AddIterm”ItemC”
List1.AddIterm”ItemD”
List1.AddIterm”ItemE”
EndSub
运行上面的程序，然后单击窗体，列表框中所显示的项目为_________________
2、某计算机等级考试成绩表CJ.DBF，包括考号、笔试成绩和上机成绩等字段，其中考号的前两位是单位编码；某统计表TJ.DBF，包括单位编码、笔试平均分、上机平均分、笔试最高分、上机最高分等字段
CLOSEDATABASE
SELE2
USETJ
ZAP
SELE1
USECJ
SORTON考号TOCJ1
USECJ1
DOWHILE.NOT.EOF（）
STORE0TOBS1，SJ1，BSMAX，SJMAX
DWCODE=SUBSTR（考号，1，2）
N1=0
BSMAX=笔试成绩
SJMAX=上机成绩
DOWHILESUBSTR（考号，1，2）=DWCODE
IF上机成绩>SJMAX
ENDIF
IF笔试成绩>BSMAX
BSMAX=笔试成绩
ENDIF
BS1=BS1+笔试成绩
SJ1=SJ1+上机成绩
N1=N1+1
SKIP
ENDDO
SELE2
APPENDBLANK
REPLACE单位编码WITHDWCODE，笔试平均分WITHBS1/N1，上机平均分WITHSJ1/N1，笔试最高分WITHBSMAX，上机最高分WITHSJMAX
SELE1
ENDDO
SELE2
LIST
CLOSEDATABASE
该程序的功能是：
__________________________________________________________
六、写出下列程序运行结果（本大题共5小题，每小题4分，共20分）
1、程序运行后，创意上的显示结果为____________________________
PrivateSubForm_Activate（）
Fora=1to4
Printtab（5-a）;
Forj=1to2*a-1
Print“*“;
Nextj
Print
Nexta
EndSub
2、程序运行后，窗体上的显示结果为______________________________
PrivateSubForm_Activate（）
Y=1
Fora=1to5
Forb=1toa
Forc=1tob
Y=y+1
Nextc
Nextb
Nexta
Print”y=”;y
EndSub
3、在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：
PrivateSubCommand1_Click（）
Dima（5）AsInteger,b（5）AsInteger
Forj=1to4
a（j）=3*
b（j）=a（j）*3
Nextj
Text1.Text=b（j）
EndSub
程序运行后，单机命令按钮，写出程序的运行结果：
4、主程序：
JS.PRG过程文件：
JS123.PRG
SETPROCEDURETOJS123PROCJS1
PUBLICB,CA+A*2+1
STORE1TOA,B,CRETURN
DOJS1PROCJS2
?
APRIVATEB
DOJS2B=A*2+1
?
BRETURN
DOJS3WITHCPROCJS3
?
CPARAB
CLOSEPROCEDUREC=2*B+1
RETURN
5、
I=1
DOWHILEI<=4
J=1
DOWHILEJ<=2*I-1
IFJ<=I
A=J
ELSE
A=A-1
ENDIF
@10+I,20-2*I+J*2SAYSTR（A,2）
J=J+1
ENDDO
I=I+1
ENDDO
七、程序改错（本大题共2小题，每小题6分，共12分，一下程序各有2行错误，不得增行或删行，也不得更改程序的结构）
1、一筐鸡蛋，每次取2、3、4、5、6各分别剩下一个，每次取7个时则一个不剩，问这筐鸡蛋至少有多少个？
用VisualBasic编写如下：
PrivateSubForm_Activate（）
A=7:
K=1
WjileK
ForI=2To6
IfA/I<>INT（A/I）ThenGoTo70
NextI
K=0
70A=A*7
Wend
PrintA–7
EndSub
2、打印如下图形：
1
121
13331
1444441
程序如下：
PrivateSubForm_Activate（）
ForI=1To4
PrintTab（30-i）;
Forj=1To2*i-1
Ifj=1Orj=iThenPrint1;:
GoTo60
Printi;
60Nextj
Print
Nexti
EndSub
八、程序填空（本大题10个空，每空4分，共40分，按要求在横线上填入相应的内容，使程序完整正确）
1、有一个3×4的矩形，编写程序，找出其中的最大元素所在的行和列，并输出其值和行号及列号，矩阵中的数据用随机函数产生，范围在10～60之间，程序给出部分，试完成程序
OptionBase1
PrivateSubCommand1_Click（）
Dima（3,4）AsInteger
DimiAsInteger
DimjAsInteger
DimmaxAsInteger‘放最大数
DimrowAsInteger‘放最大数所在的行下标
DimcolAsInteger‘放最大数所在的列下标
Fori=1To3
Forj=1To4
RandomizeTimer
a（i,j）=___________
Printa（i,j）;
Nexti
max=a（1,1）
Fori=1To3
Forj=1To4
IfmaxMax=a（i,j）
_______________
_______________
end
Nextj
Nexti
Printmax,row,col
EndSub
2、以下程序用于在带垂直滚动条的文本框中输出3～50之间的全部素数，试填空完成程序
PrivateSubCommand1_Click（）
Text1.Text=””
Forn=__________________
k=Int（Sqr（n））
I=2
flag=0
DoWhile__________
IfnModI=0Then
Flag=___________
ExitDo
Else
i=i+1
EndIf
Loop
If_________Then
Text1.Text=Text1.Text&Str（n）&vbCrLf
EndIf
Nextn
EndSub
3、有表XS.DBF，其结构为：
学号/C，6:
；姓名/C，8；语文/N，6,2；数学/N，6,2；英语/N，6，2；升留级/C，4；根据学生成绩决定是否升、留级或补考，并把升留级或补考信息填入“升留级“字段
（1）如各门课程都及格（大于等于60）则升级
（2）如有1～2门课程不及格则补考
（3）如有3门课程不及格则留级
USEXS
DOWHILENOTEOF（）
N=O
________________
I=1
DOWHILEI<=3
IFA（I）<60
N=N+1
ENDIF
I=I+1
ENDDO
DOCASE
CASEN=0
N=”升级”
CASEN<=2
N=”补考”
OTHERWISE
N=”留级”
ENDCASE
______________________
______________________
ENDDO
USE
升级会员 