ausp Vfp0103答案.docx
- 文档编号:11739467
- 上传时间:2023-03-31
- 格式:DOCX
- 页数:17
- 大小:19.18KB
ausp Vfp0103答案.docx
《ausp Vfp0103答案.docx》由会员分享,可在线阅读,更多相关《ausp Vfp0103答案.docx(17页珍藏版)》请在冰豆网上搜索。
auspVfp0103答案
2005auVfp01:
一、项目、数据库和表操作(12分)
1.按以下要求修改SJK数据库中TS表:
(1)表设计器――"表"选项卡――表名。
(2)略。
(3)格式:
!
(4)索引名:
abcd;类型:
普通索引;索引表达式:
flh+sm。
(5)有效性规则:
jg>=1;有效性说明信息:
”价格不能小于1”。
(6)REPLACEALLts.zzWITHalltrim(zz)+"等"。
2.略。
3.数据库设计器――参照完整性生成器――插入限制。
二、设计查询(8分)
SELECTXs.xdh,Xs.xh,Xs.xm,avg(cj)as平均成绩;
FROMsjk!
xsINNERJOINsjk!
cj;
ONXs.xh=Cj.xh;
WHEREXs.xdh=(selectxdhfromxswherexm="刘玉敏");&&此处用"="与"in"结果一致.
GROUPBYXs.xh;
ORDERBYXs.xm
三、设计菜单(5分)
1、略;
2、菜单设计器――确定插入位置――插入栏――插入系统采单项“退出”;
3、命令:
SELECTKc.kcdh,Kc.kcm,AVG(Cj.cj)AS平均成绩FROMsjk!
kcINNERJOINsjk!
cjONKc.kcdh=Cj.kcdh。
四、设计表单(10分)
1、ENABLED=.F.;CONTROLSOURCE=pUserName。
2、PASSWORDCHAR:
#
3、略;
4、THISFORM.TXTNEWPWD1.VALUE=””
THISFORM.TXTNEWPWD2.VALUE=””
5、pPassWord=THISFORM.TEXTNEWPWD1.VALUE。
五、程序改错题(5分)
CLEAR
nCount=0
FORn1=1TO1000
m=0
FORn2=1TOn1-1
IFmod(n1,n2)=0&&或n1/n2=int(n1/n2)
m=m+n2
ENDIF
ENDfor&&
IFn1=m
?
n1
nCount=nCount+1
ENDIF
ENDFOR
WAITWINDOWS"完整的个数为"+STR(nCount)
2005auVfp02:
一、项目、数据库和表操作(12分)
1.按以下要求修改SJK数据库中TS表:
(1)略。
(2)通用型。
(3)略。
(4)表设计器--字段选项卡—显示类:
Spinner(微调控件)。
(5)索引名:
abcd;类型:
普通索引;索引表达式:
len(alltrim(sm))。
(6)规则:
len(alltrim(sm))!
=0,信息:
“书名不能为空”。
(7)insertintots(flh,sm,zz)values(“TP31.15”,”VisualFoxPro实验指导”,”崔建忠等”)
2、略。
3、数据库设计器――参照完整性生成器――删除限制。
二、设计查询(8分)
SELECTXs.bjbh,Xs.xh,Xs.xm,count(*)as借阅本数,Xs.xb,;
str(sum(iif(hsrq-jyrq>30,1,0))*0.05,10,2)as罚款数;
FROMsjk!
xsINNERJOINsjk!
xsjy;
ONXs.xh=Xsjy.xh;
GROUPBYXs.bjbh,Xs.xb;
ORDERBYXs.bjbh,Xs.xh
三、设计菜单(5分)
1、略;
2、quit;
3、ifused("xs")then
selectxs
else
usexsin0
endif
browse
四、设计表单(10分)
1、1、 Windowtype:
1-模式
Backcolor:
255,255,255
Autocenter:
.t.
2、enabled:
.f.
3、image
4、ifThisform.txtNewA.Value=Thisform.txtNewB.Value
thisform.cmdok.enabled=.t.
else
thisform.cmdok.enabled=.f.
endif
5、 ppassword=thisform.txtNewA.value
五、程序改错题(5分)
CLEAR
n1=1
nCount=0
DOWHILEn1<=1000
m=0
FORn2=int(n1-1)TO1STEP-1&&
IFn1/n2=INT(n1/n2)&&
m=m+n2&&
ENDIF
ENDFOR
IFn1=m
nCount=nCount+1
?
n1
ENDif&&
n1=n1+1
ENDDO
WAITWINDOWS"完整的个数为"+STR(nCount)
2005auVfp03:
一、项目、数据库和表操作(12分)
1.按以下要求修改SJK数据库中TS表:
(1)略。
(2)宽度:
5、小数:
1。
(3)略。
(4)索引名:
abcd;类型:
普通索引;索引表达式:
dtoc(rkrq)+str(jg)
(5)有效性规则:
jg>=1
(6)DELETEALLFORleft(alltrim(flh),1)="G"
PACK
2、略
3、项目管理器—其他—其他文件—添加—ico文件--添加NET.ICO;
“项目”菜单--项目信息--附加图标NET.ICO。
4、数据库设计器――参照完整性生成器――删除级联。
二、设计查询(8分)
SELECTJs.xdh,Js.gh,Js.xm,COUNT(*)AS借书本数,;
str(iif(hsrq-jyrq>30,(hsrq-jyrq)*0.05,0),10,2)as罚款金额;
FROMsjk!
jsINNERJOINsjk!
jsjy;
ONJs.gh=Jsjy.gh;
GROUPBYJs.xdh,Js.gh;
ORDERBYJs.xdh,Js.gh
三、设计菜单(5分)
1、略;
2、ifused(“kc”)then
selectkc
else
usekcin0
endif
appendblank
当执行该菜单项时,选择课程表(KC)为当前使用表(若该表未打开,则首先打开之),并在课程表中添加一条空指令。
3、为“文件”菜单栏下插入VFP系统菜单项“另存为”。
四、设计表单(10分)
1、spinnerhighvalue:
600
spinnerlowvalue:
200
2、略;
3、thisformset.form2.width=thisformset.form1.spnwidth.value
thisformset.form2.height=thisformset.form1.spnheight.value
4、thisformset.setsize
thisformset.setsize
五、程序改错题(5分)
CLEAR
m=27
n=6
IFm t=m m=n n=t ENDIF r=MOD(m,n) DOWHILEr<>0&& m=n n=r r=MOD(m,n) ENDDO WAITWINDOWS'最大公约数为'+STR(n)&& 06spvfp01: 一、项目、数据库和表操作(12分) 1.按以下要求修改SJK数据库中TS表: (1)表设计器――"表"选项卡――表名。 (2)索引名: abcd;类型: 普通索引;索引表达式: xb+dtoc(csrq)。 (3)xb=”男”orxb=”女”;有效性说明信息: ”性别为男或女”。 (4)略 (5)replaceallxs.jiguanwithiif(len(alltrim(xs.jg))=4,alltrim(xs.jg)+”市”,left(alltrim(xs.jg),4)+”省”+substr(alltrim(xs.jg),5)+”市”) 2、略 3、更新级联 删除限制 二、设计查询(8分) SELECTJs.xdh,Js.gh,count(*)as任课数; FROMsjk! jsINNERJOINsjk! rk; ONJs.gh=Rk.gh; WHEREJs.xdh=(selexdhfromjswherexm="陆友情"); GROUPBYJs.gh 三、设计菜单(5分) 1、略 2、命令: select*fromjs 3、菜单设计器――确定插入位置――插入栏――插入系统采单项“退出”; 四、设计表单(10分) 1、borderstyle: alwaysontop: 2、borderstyle: fontunderline: 3、略 4、thisform.text1.setfocus 5、thisform.lblright.caption=str(val(thisform.lblright.caption)+1) 五、程序改错题(5分) clear setcollateto"MACHINE" localmsting,cstring,ch mstring=space(0) cstring="China" fori=1tolen(cstring) && ch=substr(cstring,i,1)&& ifbetween(ch,'a','z') mstring=mstring+chr(asc(ch)+2) else mstring=mstring+chr(asc(ch)+4) endif endfor waitwindowcstring+"密码为: "+mstring 06spvfp02: 一、项目、数据库和表操作(12分) 1.按以下要求修改SJK数据库中TS表: (1)略。 (2)STR(MONTH(csrq))+STR(DAY(csrq))。 (3)len(alltrim(xm))! =0。 (4)REPLACEALLxs.bbWITHleft(alltrim(xh),2)+alltrim(xdh)+alltrim(zydh)(此处alltrim可略) (5)deletefromxswhereleft(alltrim(jg),4)! ="江苏"或deleteallforleft(alltrim(jg),4)! ="江苏" 2、略 3、“项目”菜单--项目信息--附加图标NET.ICO。 4、更新限制 删除级联 二、设计查询(8分) SELECTJs.xdh,Js.xb,count(*)as人数,sum(jbgz)as工资总金额,; max(jbgz)as最高工资; FROMsjk! jsINNERJOINsjk! gz; ONJs.gh=Gz.gh; GROUPBYJs.xdh,Js.xb; ORDERBYJs.xb,Js.xdh 三、设计菜单(5分) 1、略 2、updategzsetjbgz=1000wherejbgz<1000 四、设计表单(10分) 1、enabled=.f. interval=100 2、“表单”菜单—-新建属性 属性窗口—-count=1 3、略 4、this.caption="抽第"+allt(str(thisform.count))+"个人" 5、thisform.list1.additem(thisform.cmdcj.caption) 五、程序改错题(5分) clear =ren(10,5,25) =ren(20,50,80) procedureren parametersn,a,b&& dimensionx(n) x=0 fori=1ton x(i)=int((b-a)*rand()+a) endfor forj=1ton-1 fork=j+1ton ifx(k)>x(j) t=x(j) x(j)=x(k)&& x(k)=t endif endfor endfor fori=1ton ? x(i) endfor endproc 2006spvfp03: 一、项目、数据库和表操作(12分) 1.按以下要求修改SJK数据库中TS表: (1)宽度: 8;标题: 政治面貌;表设计器--字段选项卡—显示类: combobox(组合框)。 (2)99999999(根据字段宽度)。 (3)STR(DAY(csrq))+STR(MONTH(csrq))。 (4)可用insertinto……也可以在“浏览”状态“追加新记录” 2、略 3、“项目”菜单--项目信息--附加图标NET.ICO。 4、删除限制 更新级联 二、设计查询(8分) SELECTDISTINCTKc.*,Cj.kcdh; FROMsjk! kcLEFTOUTERJOINsjk! cj; ONKc.kcdh=Cj.kcdh; HAVINGISNULL(Cj.kcdh); ORDERBYKc.kcdh 三、设计菜单(5分) 1、略 2、略 3、ifused("ts")then selectts else usetsin0 endif appendfromts1 四、设计表单(10分) 1、borderstyle: windowtype: 2、alignment: fontunderline: 3、enabled=.f.;value=0 4、this.chuti 5、thisform.text5.value=thisform.text5.value+1 thisform.text3.value="" 五、程序改错题(5分) clear dimensionx(10) x=0 fori=1to10 x(i)=int((50-30)*rand()+30)&& endfor forj=1to9 fork=j+1to10 ifx(k)>x(j) t=x(j) x(j)=x(k)&& x(k)=t endif endfor endfor forI=1to10 ? x(i) endfor 2006春季辅导班笔试全真模拟试卷答案 一、一、选择题 1 2 3 4 5 6 7 8 9 10 D B C C B B B A A A 11 12 13 14 15 16 17 18 19 20 C C A D A B B B B C 21 22 23 24 25 26 27 28 29 30 D C A C B D C A C D 二、二、填空题 (31)、3、3 (32)、11*11=121 (33)、CJ、cj.xh或xs.xh (34)、LIKE (35)、ENDCASE 、 HAVINGleft(xh,2)=nj 、SQLSELECT (36)、3 (37)、last_jzh=jzh (38)、FCOUNT() (39)、gj=IIF(year(date())-year(csrq)>40,.T.,.F.) (40)、SETALL、 Xim (41)、RD (42)、STEP9 (43)、.F.、2 (44)、6 、 LOCATE 、 THISFORM.txt1.SetFocus (45)、.mpr (46)、元数据 (47)、1 (48)、L、N (49)、女 (50)、6 (51)、SUM(IIF(cj.cj>=60,kC.xf,0))
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- ausp Vfp0103答案 Vfp0103 答案