- 1、本文档共4页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
中国海洋大学vfp上机答案
第一题
a=allt(thisform.text1.value)
n=this.value
do case
case n=1
select * from sb where 商品名=a
thisform.refresh
case n=2
update sb set 单价=出厂单价*1.1 where left(商品号,2)=10
browse
case n=3
copy to 商品备份表.dbf
case n=4
thisform.release
endcase
thisform.text1.setfocus
关注 第二题
a=alltrim(thisform.text1.value)
b=left(a,2)
i=2
do while len(b)len(a)
b=alltrim(left(a,i))
c=allt(right(a,len(a)-i))
a=b+c
i=i+1
enddo
messagebox(a)
a=
i=1
s=thisform.text1.value
do while i=len(thisform.text1.value)
t=allt(substr(s,i,1))
a=a+t
i=i+1
enddo
messagebox(a)
第三题
update 成绩 set 总成绩=计算机+英语+数学
sele avg(计算机) from 成绩 into array q
thisform.text1.value=q
thisform.refresh
第四题
上一条click事件代码
skip-1
if bof()
mand1.enabled=.f.
mand2.enabled=.t.
endif
thisform.refresh
下一条click事件代码
skip+1
if eof()
mand2.enabled=.f.
mand1.enabled=.t.
endif
thisform.refresh
第五题
a=val(thisform.text1.value)
b=val(thisform.text2.value)
cx=select * from student where val(学号) between a and b into cursor cx1
thisform.grid1.recordsource=cx
thisform.refresh
第六题
n=this.value
do case
case n=1
creat table XLDA;
(学号 c(6),姓名 c(10),成绩 n(5,1))
insert into XLDA;
values (100101,德华,89)
insert into XLDA;
values (100202,曼玉,90)
insert into XLDA;
values (100103,学友,88)
case n=2
sele * from XLDA order by 成绩 desc
case n=3
sele left(学号,4)as 班级,sum(成绩) as 班级总成绩 from XLDA group by 班级
case n=4
sele * from XLDA wher 成绩 between 80 and 89 into table xsda1
endcase
第七题
update score set 学分=iif(物理=60,2,0)+iif(高数=60,3,0)+iif(英语=60,4,0)
select * from score order by 学分,学号 desc into table XF
第八题
sele avg(成绩) from CHENGJI group by 学号 into array z
thisform.refresh
repl XUESHENG.平均分 with z all
thisform.refresh
sele 学号,姓名,平均分 from xuesheng into dbf pingjun order by 平均分,学号
thisform.refresh
第九题
a=thisform.text1.value
thisform.grid1.recordsource=sele * from cj where 姓名=a into cursor aa
sele 姓名,max(成绩) as b ,min(成绩) as c ,avg(成绩) as d from cj group by 姓名 where 姓名=a into cursor aaa
thisform.text2.value=b
thisform.text3.value=c
thisform.text4.valu
您可能关注的文档
最近下载
- 摩托罗拉XiR_M3688_ServerManual维修手册.pdf VIP
- 奥西替尼杂质研究总结.pdf VIP
- 2024《格兰仕电器公司成本管理问题调查研究》8600字.docx VIP
- 中小学英语教师语音语调训练.ppt
- 《严格规范涉企行政检查》知识培训.pptx VIP
- MODS(多器官功能障碍综合征).ppt VIP
- 高中政治统编版必修一:(综合探究二)方向决定道路 道路决定命运.pptx
- VW75210-2 2011 (LV216-2) CN-电动汽车的高压屏蔽电缆要求和试验.pdf VIP
- 2022版小学《体育与健康课程标准》考试复习题库资料(含答案).pdf VIP
- 人工智能在邮政业的应用前景.pptx VIP
文档评论(0)