上机答案.docx

上机答案.docx

《上机答案.docx》由会员分享，可在线阅读，更多相关《上机答案.docx（17页珍藏版）》请在冰豆网上搜索。

上机答案

1.modistrubcd

选择“插入”

添加数据：

在游览模式下点击“显示—追加方式”

2.delefor姓名!

=”蒋”

pack

3.usezgda

copytoadgzfor职称=”高工”fields编号,姓名,职称,基本工资

closeall

5、usesysle3

sorton姓名toXMPX

closeall

6、usesysle3

sorton性别,出生日期/dtoXBRQPX

Closeall

7、usezgda

Replace实发工资with基本工资*1.52+80for职称=”高工”

Replace实发工资with基本工资*1.11+50for职称!

=”高工”

Closeall

8、usegzb

replace实发工资with基本工资*1.25+val（补发工资）

Closeall

9、usezgda

Indexon职称+str（基本工资）tagxxx

Closeall

10、usezgda

indexon职称tagXXX

closeall

11、usezgda

Indexon婚否+str（99999-基本工资）tagxxx

CLOSEALL

12、usezgda

Indexon职称+str（99999-基本工资）tagxxxdesc

Closeall

13、createdata诗词

点击新建表

按要求输入

14、modidata管理

右击表—修改

按要求修改输入

15、modidata产品

右击表—修改

编号字段排序为升序----切换到索引栏

改索引名

在打开表—追加项目

16、createdata管理_a

Modidata管理

依次添加表单

选择zgda中编号，点击拉到zjgz中编号

双击直线

按要求修改

17、creaqueryxzcx

按要求选择选取

18.sele姓名,年龄,出生日期,籍贯fromstudent;

Where籍贯in（“北京”,”四川”）

19.sele姓名.student,借书日期.borrow,书名.borrow,班级.studnetfromstudent,borrow;

Where性别=”男”;

Orderby姓名+dtoc（date（）-借书日期）desc

20.sele姓名,年龄,班级fromstudent;

Wherer姓名like“__李%”

21.sele班级count（*）as人数;

Fromstudent;

groupby班级

22.sele*fromcxb_a;

where基本工资+临时工资+val（补发工资）>1600and已婚=.t.;

where职称=”工程师”

23.createdata练习_a

Createtable进货单（供应商号C（8）PRIMARYkey,供应商名C（16）,地址M;

primarykey供应商号tagGHYH）

24.sele姓名,val（补发工资）+增资额as津贴from管理_a!

gztz

25.modiform再学习

Form的属性height300width400

标签属性:

Name-好好学习

Caption-标签属性

Left96top36

Height40width150

Fontsize24fontname黑体

Backcolor192,192,192

Forecolor0,0,255

26.

Text1与text2的click事件

Thisform.text1.value=[]

Thisform.text2.value=[]

Text1的interactivechange事件

a=val（this.value）

thisform.text2.value=（a-32）*5/9

Text2的interactivechange事件

b=val（allt（this.value））

thisform.text1.value=b*9/5+32

27.

执行计算的click事件

BL1=THISFORM.TEXT1.value

BL2=THISFORM.text2.VALUE

THISFORM.LABEL5.caption=ALLT（STR（BL1+BL2,10））

清零的click事件

thisform.TEXT1.value=0

thisform.text2.value=0

thisform.label5.CAPTION=[]

thisform.text1.setfocus

28.

Createform再进步

Modiform再进步

Form1的属性

Height300width500

文本框属性

Name又一框

Left156top48

Height48width215

Fontname黑体

Fontsize24

Backcolor200,200,255

Forecolor0,0,255

Visible.f.

29.

Form1属性

Height260

Width400

Autocenter

Label属性

Height75

Width300

Fontname黑体

Fontsize36

Alignment.t.

Left36

Top84

Label的click事件

IFCS<3

CS=CS+1

ELSE

CS=1

endif

docase

CASEcs=1

thisform.abcd.fontsize=36

casecs=2

thisform.abcd.fontsize=46

casecs=3

thisform.abcd.fontsize=56

enddo

30.

计算click事件

JE=SL*DJ

IFJE<=0

thisform.text1.value=0

thisform.text2.value=0

thisform.text1.setfocus

RETU

ENDIF

IFSL>=10

je=JE*0.92

endif

thisform.LABEL5.caption=ALLT（STR（JE,10,2））

31.

Form1属性

Height300

Width500

文本框属性

Name又一村

Left156

Top48

Height48

Width215

Fontname黑体

Fontsize24

Visible.f.

Command1属性command2属性command3属性

Caption显示文本框隐藏文本框退出

Height282828

Width757575

Command1事件

THISFORM.又一村.visible=.t.

Command2事件

THISFORM.又一村.visible=.f.

Command3事件

Thisform.release

32.

Text1的interactivechange事件

zf=[]

zfcd=len（allt（thisform.text1.value））

FORt=zfcdto1step-1

zf=zf+subs（allt（thisform.text1.value）,t,1）

endfor

thisform.text2.value=zf

retu

33.

显示的click事件

THISFORM.COMMAND3.CLICK

GS=1

DOwhilegs<=10

THISFORM.aaa.caption=THISFORM.aaa.caption+[*]

gs=gs+1

enddo

retu

清空的click事件

Thisform.aaa.caption=[]

Retu

34.

标签显示的click事件

Thisform.ccc.value=thisform.aaa.caption

文本框显示的click事件

thisform.aaa.caption=Thisform.ccc.value

清空的click事件

Thisform.ccc.value=[]

thisform.aaa.caption=[]

退出的click事件

Thisform.release

35.

DOCASE

CASETHISFORM.QQQ.VALUE=1

THISFORM.AAA.FORECOLOR=RGB（255,0,0）

CASETHIS.VALUE=2

THISFORM.AAA.FORECOLOR=rgb（0,255,0）

CASETHIS.VALUE=3

THISFORM.AAA.FORECOLOR=rgb（0,0,255）

CASETHIS.VALUE=4

THISFORM.RELEASE

ENDCASE

RETU

36.

DOCASE

CASETHISFORM.你好.VALUE=1

THISFORM.广东医.FORECOLOR=RGB（255,0,0）

CASETHISFORM.你好.VALUE=2

THISFORM.广东医.FORECOLOR=rgb（0,255,0）

CASETHISFORM.你好.VALUE=3

THISFORM.广东医.FORECOLOR=rgb（0,0,255）

CASETHIS.VALUE=4

THISFORM.RELEASE

ENDCASE

RETU

37.

在form1里右键---数据环境—选择”基本表.dbf”---拉取字段”编号”和”姓名”到form1里

编号属性编号的文本框姓名属性姓名的文本框

Left4375189221

Top48484848

Height2020

Width5757

Fontsize99

选项按钮组

Height26

Fontsize9

Left84

Top96

右击选项按钮组----生成器---按钮数目组（3）----选择布局栏----选择水平

在按钮栏---修改标题为题目要求

38.

右击选项按钮组----值一栏中选择基本表的职称

命令按钮组的click事件DOCASECASETHISFORM.commandgroup1.value=1IF!

EOF（）SKIPELSEGOTOPendifCASETHISFORM.commandgroup1.value=2ifbof（）GOBOTTELSESKIP-1ENDIFCASETHISFORM.commandgroup1.value=3GOTOPCASETHISFORM.commandgroup1.value=4GOBOTTCASETHIS.commandgroup1.value=5

thisform.releaseendcaseTHISFORM.refreshRETU

39.

与38雷同

40.

Timer属性

Interval500

Timer1的timer事件

ift=0

thisform.shape1.curvature=0

t=1

else

thisform.shape1.curvature=90

t=0

endif

ifthisform.shape1.left

thisform.shape1.left=thisform.shape1.left+50

else

thisform.shape1.left=0

endif

41.

Form1的属性

Height200

Width400

Autocenter.t.

页框属性

Pagecount3

右键页框—编辑—依次对每一页编辑

42.

对双表都建立以学号字段的索引

右键form1的界面—数据环境—选择表单添加到环境中

将student的学号拉到borrow的学号中

右键页框--编辑---选择第一页--将数据环境的姓名拉到第一页

选择第二页---将数据环境的学号拉到第二页

43.

Form1属性

Height200

Width400

Autocenter.t.

加入图像控件

属性

Height144

Width132

Left144

Top24

Streth1-等比填充

Picture机器猫

44

Form1属性

Height200

Width400

Autocenter.t.

Left400

Top200

Interval150

Timer1的timer事件

T=5

ifthisform.猫.left+thisform.猫.width>0

thisform.猫.left=thisform.猫.left-2*T

thisform.猫.top=thisform.猫.top-T

else

thisform.猫.left=400

thisform.猫.top=200

endif

retu

45.

THISFORM.LABEL1.CAPTION=[]

K=1

DOWHILEK<=7

M=1

DOWHILEM<=2*K-1

THISFORM.LABEL1.CAPTION=THISFORM.LABEL1.CAPTION+[*]

M=M+1

ENDDO

THISFORM.LABEL1.CAPTION=THISFORM.LABEL1.CAPTION+CHR（13）

K=K+1

ENDDO

46.

Timer属性interval200

命令选项组click事件

docase

casethis.value=1

thisform.timer1.enabled=.f.

casethis.value=2

thisform.timer1.enabled=.t.

OTHER

thisform.RELEASE

ENDCASE

Timer1的timer事件

ift=0

THISFORM.SHAPE1.curvature=0

t=1

else

THISFORM.SHAPE1.CURVATURE=90

t=0

endif

if-1*thisform.shape1.top

THISFORM.SHAPE1.TOP=thisform.shape1.top-10

else

thisform.shape1.TOP=thisform.HEIGHT

endif

47.

阶乘的click事件

L=1

FORk=1tott

L=L*K

ENDFOR

tt=L

RETU

开始计算的click事件

STOR0TOT1,T2

TT=thisform.SZA.VALUE

thisform.阶乘.click

T1=TT

TT=thisform.SZB.VALUE

thisform.阶乘.click

T2=TT

TT=ABS（THISFORM.SZA.VALUE-THISFORM.SZB.VALUE）

thisform.阶乘.click

THISFORM.TEXT3.VALUE=T1/（T2*TT）

THISFORM.COMMAND3.SETFOCUS

48.

CreateKT

依次输入字段及类型

按要求输入数据

49.

Use基本表

Delefor基本工资+val（补发工资）!

=1100

Pack

50.

Form1属性

Name我的表单

Height220

Width500

Antucenter.t.

标签属性

Height49

Width320

Left84

Top36

Caption我的第一个表单练习

Fontname楷体

Fontsize24

按钮属性

Left168

Top156

Height36

Width144

Caption退出

Fontsize24

51.

确认的click事件

JE=THISFORM.TEXT1.value&&&&&&在本行?

?

?

?

处输入合适的内容[_T_0]

doCASE&&&&&&在本行?

?

?

?

处输入合适的内容[_T_1]

CASEJE<300

JE=JE

CASEJE<600

JE=JE*0.95

CASEJE<1000

JE=JE*0.9

OTHER

JE=JE*0.85

ENDCASE

THISFORM.LABEL4.CAPTION=ALLT（STR（JE,7,2））

清零事件

THISFORM.TEXT1.value=0

THISFORM.label4.CAPTION=[]

THISFORM.TEXT1.SETFOCUS