13年410计算机试题Word文档格式.docx
《13年410计算机试题Word文档格式.docx》由会员分享，可在线阅读，更多相关《13年410计算机试题Word文档格式.docx（27页珍藏版）》请在冰点文库上搜索。
2、将数据和程序（）起来的一个逻辑实体称为“对象”
A、连接B、封装C、串接D、调试
3、决定文本框内显示内容的属性是（）
A、textB、captionC、valueD、enabled
4、事件的名称必须是（）
A、窗体所能识别的B、能够被用户触发的
C、对象所能识别的D、该事件有对应的方法可执行
5、以下不符合VB语法的常量是（）
A、20－10B、”电脑”C、trueD、2.6E+01
6、在VB中，数据100&
的类型是（）
A、单精度型B、双精度型C、整型D、长整型
7、设有语句：
x=InputBox（"
输入数值"
，"
0"
示例"
）程序运行后，如果从键盘上输入数值10，并按回车键，则下列叙述中正确的是（）
A、变量X的值是数值“示例”B、在InputBox对话框标题栏中显示的是"
C、0是默认值D、变量X的值是字符串"
10"
8、下列属性中属于逻辑型的是（）
A、CaptionB、BorderStyleC、VisibleD、Name
9、窗体上有一个名为Label1的标签，为了使该标签透明并且没有边框，正确的属性设置为（）
A、Label1.BackStyle=0：
Label1.BorderStyle=0
B、Label1.BackStyle=1：
Label1.BorderStyle=1
C、Label1.BackStyle=true：
Label1.BorderStyle=true
D、Label1.BackStyle=False：
Label1.BorderStyle=False
10、设窗体上有一个文本框，名称为Text1，程序运行后，要求该文本框只能显示信息，不能接收输入的信息，以下能实现该操作的语句是（）
A、Text1.MaxLength=0B、Text1.Enabled=False
C、Text1.Visible=FalseD、Text1.Width=0
11、命令按钮不支持的事件是（）
A、ClickB、DblClickC、GotFocusD、LostFocus
12、命令按钮command1的事件过程如下：
Privatesubcommand1_click（）
X=inputbox（“输入：
”,”输入整数”）
Msgbox“输入的数据是：
”,,”输入数据：
”+X
Endsub
程序运行后，单击command1，从键盘上输入数据10，则以下叙述中错误的是（）
A、X的值是数值型数据10B、输入对话框的标题是“输入整数”
C、信息框的标题是“输入数据：
10”D、信息框中的显示是“输入的数据是：
”
13、运行以下程序段后，输出结果为
X%=1/4
Y%=11/4
Printx%;
y%
A、0.250.75B、13C、02D、03
14、若变量X＝1，则执行语句ifxthenx=0elsex=1后，X的值是（）
A、0B、1C、实时错误D、编译错误
15、设a=2,b=3,c=4,d=5,下列表达式的值是3>
2*bORa=cANDb<
cORc>
d（）
A、1B、TrueC、FalseD、-1
16、运行下面程序段时，若从键盘输入－5，则变量Y的值是（）
X=-5
A=val（inputbox（“请输入A的值：
”））
Selectcasea
Caseis>
Y=x+1
Caseis=0
Y=x+2
Caseelse
Y=x+3
Endselect
A、－5B、－2C、－4D、－3
17、有如下程序段
X=2
ForI=1to10step2
X=x+i
Next运行程序后，X的值是（）
A、26B、27C、38D、57
18、已知X和Y是字符型变量，运行下面程序段后，变量Y的值是（）
X=”ABCDEFG”
ForI=4to1setp-1
Y=y+mid（x,I,1）
Next
A、ABCDB、DCBAC、DEFGD、GFED
19、以下程序段的输出结果是
x=1
y=4
DoUntily>
4
x=x*y
y=y+1
Loop
Printx
A、1B、4C、8D、20
20、假定有以下两个过程：
SubS1（ByValxAsInteger,ByValyAsInteger）
DimtAsInteger
t=x：
x=y：
y=t
EndSub
SubS2（xAsInteger,yAsInteger）
x=y：
y=t
则以下说法中正确的是
A、用过程S1可以实现交换两个变量的值的操作，S2不能实现
B、用过程S2可以实现交换两个变量的值的操作，S1不能实现
C、用过程S1和S2都可以实现交换两个变量的值的操作
D、用过程S1和S2都不能实现交换两个变量的值的操作
三、程序填空题（每空2分，共50分）
1、以下程序执行后将输出100到200之间所有的素数，并统计素数的个数
PrivateSubForm_Click（）
Dimi%,j%,k%,t%'
t为统计素数的个数
DimbAsBoolean
Fori=100To200
b=True
k=_____________________
j=Int（Sqr（i））
DoWhilek<
=jAndb
IfiModk=0Then
_____________________
EndIf
ifb=truethen
t=t+1
Form1.Printi
Nexti
Print"
t="
;
t
EndSub
2、下面这段程序是从3个数中找出最小值
Dimx%,y%,z%,min%
X=val（inputbox（“请输入X的值”））
Y=val（inputbox（“请输入Y的值”））
Z=val（inputbox（“请输入Z的值”））
If_______________then
Min=y
Else
Min=x
Endif
Ifz<
minthen______________
Print“最小值是：
”;
min
3、下列程序的功能是找出被5、7除，余数为1的最小5个正整数。
DimNcount%,n%
Ncount=______________________
n=1
Do
n=n+1
If_____________________Then
Printn
Ncount=Ncount+1
LoopUntil_______________=5
4、本程序是一个比赛评分程序。
在窗体上有text1（0）～text1（6）文本框数组，显示最后得分的text2文本框和“计算得分”command1命令按钮。
运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在text2文本框中（去掉一个最高分和一个最低分后的平均分）
PrivateSubCommand1_Click（）
DimkAsInteger
DimsumAsSingle,maxAsSingle,minAsSingle
sum=Text1（0）
max=Text1（0）
For_____________________step1
Ifmax<
Text1（k）Then
max=Text1（k）
EndIf
Ifmin>
min=Text1（k）
sum=sum+Text1（k）
Nextk
Text2.Text=（_____________________）/5
5、以下程序运行时，用户可以在文本框Text1中输入文本，单击command1“添加”按钮后将文本中输入的内容加到列表框的末尾，用户选某列表框的某一个列表项后，单击command2“删除”按钮，将删除该列表项；
如果没有任何一项选中，将有出错提示"
先选择，再删除！
"
。
PrivateSubCommand1_Click（）‘添加按钮
IfLen（Text1.Text）<
0Then
Text1.Text="
Text1.SetFocus
PrivateSubCommand2_Click（）‘删除按钮
MsgBox"
Else
6、下面程序段的功能是：
求一个班35名学生某门课的平均成绩，并统计高于平均成绩的人数。
学生成绩由随机函数产生，取值范围为50－100（包括50和100）。
Dimscore（35）asinteger,averageassingle
Dimi%,sum%,m%
Sum=0
ForI=1to35
Score（i）=int（rnd*____________+________）
Sum=sum+score（i）
Average=______________
If______________thenm=______________
Print“平均成绩为：
average
Print“高于平均成绩的人数为：
m
7、下面程序段的功能是：
输入10个正整数，用“冒泡排序法”按从小到大的顺序排序并输出。
Dimx（10）asinteger,i%,j%,t%
ForI=1to10
X（i）=val（inputbox（“请输入数据“））
Printx（i）;
ForI=10to________________
Forj=1to______________
If______________then
T=x（j）
X（j）=x（j+1）
______________
Endif
Next
8、在窗体上画一个标签（名称为label1）和一个计时器（名称为timer1），然后编写如下几个事件过程：
Privatesubform_load（）
Timer1.enabled=false
Timer1.interval=______________
Privatesubform_click（）
Timer1.enabled=______________
Privatesubtimer1_timer（）
Label1.caption=time
程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换1次。
第二部分Visualfoxpro6.0数据库应用技术（共100分）
1、在没有打开任何数据库时建立的表会成为___________。
2、在VFP的几种索引类型中，______________索引只能对数据库表建立，不能对自由表建立。
3、当打开的表为一个空表时，函数RECNO（）的值为_________。
4、可以在项目管理器的___________选项卡下建立程序文件。
5、在VisualFoxPro6.0有________________种索引
6、一表中有6条记录，执行go3和insertbefore命令后,原表中的第3条记录的记录号变为___________。
7、逻辑删除语句中省略范围和条件时，默认的范围是：
next________
8、函数round（1.25617，2）的值为____________。
9、在VF中的变量分为____________和____________两种类型。
1、DBMS的含义是（）
A、数据库系统
B、数据库管理系统C、数据库管理员
D、数据库
2.在VisualFoxPro中，对数据库进行排序的关键字可为（
）。
A、逻辑型和备注型B、日期型和备注型C、日期型和字符型D、逻辑型、日期型和备注型
3、查询设计器环境中，”查询”菜单下的”查询去向”命令指定了查询结果的输出去向,输出去向不包括（）
A、临时表B、表C、文本文件D、屏幕
4、假定X为N型变量，Y为C型变量，则下列选项中符合语法要求的表达式是（）
A、.NOT.X>
=YB、Y*2>
10C、X-001D、STR（X）-Y
5、SQL中可使用的通配符有（）
A、*（星号）B、%（百分号）C、_（下划线）D、A,B和C
6、有关查询设计器，正确的描述是：
（）
A、“联接”选项卡与SQL语句的GROUPBY短语对应
B、“筛选”选项卡与SQL语句的HAVING短语对应
C、“排序依据”选项卡与SQL语句的ORDERBY短语对应
D、“分组依据”选项卡与SQL语句的JOINON短语对应
7、"
查询"
文件的扩展名是__________。
（）
A、PRGB、FPXC、QPRD、OPX
8、在VF中APPEND BLANK命令的作用是：
A、在表的任意位置添加记录B、在当前记录之前插入新记录
C、在表的尾部添加记录D、在表的首部添加记录
9、职工数据库中有D型字段"
出生日期"
，要显示职工生日的月份和日期可以使用命令。
A、？
姓名+Month（出生日期）+″月″+DAY（出生日期）+″日″
B、？
姓名+STR（Month（出生日期））+″月″+DAY（出生日期）+″日″
C、？
姓名+STR（Month（出生日期））+″月″+STR（DAY（出生日期））+″日″
D）？
姓名+SUBSTR（出生日期，4，2）+SUBSTR（出生日期，7，2）
10.定位第一条记录上的命令是（）。
A、GOTOPB、GOBOTTOMC、GO6D、SKIP
11、有关参照完整性的删除规定，正确的描述是（）
A、如果删除规则选择的是“限制”，则当用户删除父表中的记录时，系统将自动删除子表中的所有相关记录。
B、如果删除规则选择的是“级联”，则当用户删除父表中的记录时，系统将禁止删除子表相关的父表中的记录。
C、如果删除规则选择的是“忽略”，则当用户删除父表中的记录时，系统不负责做任何工作。
12、使用命令DECLAREmm（2,3）定义的数组，包含的数组元素（下标变量）的个数为（）。
A、2个B、3个C、5个D、6个
13、运行菜单文件“查询”的命令是（）。
A、DOFORM查询B、DO查询C、DO查询.MNXD、DO查询.MPR
14、下列_____不能作为VF中变量名。
A、ABCDEFGB、P000000C、89TWDDFFD、xyz
15、设X=10，语句？
VARTYPE（"
X"
）的输出结果是（）
A、N
B、C
C、10
D、X
16、已知：
X=“AB”，AB=100，执行命令？
＆X+10的结果是（）
A、XB、ABC、ABC58D、110
17、函数LEN（RIGHT（“水平考试”，4）的值是（）
A、水平B、考试C、4D、水平考试
18.当前盘当前目录下有数据库dbstock.dbf，其中有数据库表stock.dbf，该数据库表的内容是：
股票代码股票名称单价交易所
600600青岛啤酒7.48上海
600601方正科技15.20上海
600602广电电子10.40上海
600603兴业房产12.76上海
600604二纺机9.96上海
600605轻工机械14.39上海
000001深发展7.48深圳
000002深万科12.50深圳
执行如下SQL语句后，表stock_x中的记录个数是（）。
BSELECTDISTINCT单价FROMstock;
WHERE单价=（SELECTmin（单价）FROMstock）INTODBFstock_x
A、1B、2C、3D、4
19、用SQL语句建立表时将属性定义为主关键字，应使用短语（）
A、CHECKB、PRIMARYKEYC、FREED、UNIQUE
20、如果一个过程不包含RETURN语句，或RETURN语句中没有指定表达式，那么该过程（）
A、没有返回值B、返回0C、返回.T.D、返回.F.
1、STD表中含有字段：
姓名（C，8），课程名（C，16），成绩（N，3，0），下面一段程序用于显示所有成绩及格的学生信息。
Settalkoff
Clear
Usestd
Dowhile______________
If成绩>
=60
?
“姓名”+姓名，“课程：
”+课程名，“成绩：
”+STR（成绩，3，0）
Endif
______________
enddo
Use
Settalkon
Return
2、下面的程序功能是按姓名提供学生成绩的查询，请填空。
Settalkoff
Accept“请输入待查询学生姓名：
”TOxm
Dowhile.not.eof（）
If______________
?
”姓名“+姓名，”成绩：
“+str（成绩，3，0）
Skip
Enddo
3、下面程序用于逐个显示TEACHER.DBF中职称为教授的数据记录，请填空。
Clear
Useteacher
Dowhile.not.eof（）
IF职称〈〉“教授”
Skip
______________
Display
Wait“按任意键继续！
“
Skip
4、输入一串符，逆序输出，遇到空格停止。
SETTALKOFF
ACCEPT“输入出一串字符：
”TOST
N=______________
DOWHILE______________
IF______________
EXIT
ELSE
ENDIF
ENDDO
SETTALKON
RETURN
5、下列程序用来求0——100偶数之和，请将它写完整。
N=0
S=0
DOWHILE.T.
IFN>
100
ELSE
S=S+N
______________
6、下列程序能输出如下图形，请补充完整。
*
**
***
****
Fori=1to______________
Forj=1to______________
？
”*”
Nextj
Nexti
7、下列程序段的功能为学生表追加若干空记录，直到记录总数为100为止，请补充完整。
Use学生
Counttoa
Fori=________to_______
NextI
升级会员 