例1打印99乘法clearfora=1to9forb=1t
oa??str(b,1)+"x"+str(a,1)+"="+str(b*a,2)+space(2)endfor?endfor例2阶乘求和1!+2!+3!+….+20!值P209值s=0FORn=1to20T=1Form=1tonT=t*mEndforS=s+tEndforThisform.text1.value=s例3打印1~5五个自然数P200P=""FORI=1TO5P=P+STR(I,1)+"□"Thisform.label2.caption=RTRIM(P)NEXT例题4打印1~50的偶数Fori=2to50step2?iNext例7输出一个倒直角三角形P373THISFORM.CLSFORi=1to5?SPACE(2+2*i)FORj=1to11-2*i??"*"NEXTNEXT例题5判断成绩P175P173Cj=val(thisform.text2.value)①IFcj<60andcj>0Dj="不及格"ElseIfcj<=70
Dj="及格"ElseIfcj<=85Dj="良好"ElseIfcj<=100Dj="优秀"ElseDj="成绩必须在0-100"EndifEndifEndifendif②DocaseCasecj>=0andcj<60Dj="不及格"Casecj>=60andcj<=70DJ="及格"Casecj>70andcj<=85Dj="良好"Casecj>85andcj<=100Dj="优秀"OTHERWISEDJ="输入错误,必须在0~100之间."EndcaseThisform.label3.caption=RTRIM(thisform.text1.value)+":"+djThisform.text1.selstart=0Thisform.text1.sellength=LEN(RTRIM(THISFORM.Text1.Text))Thisform.text1.setfocus例6将三个数排序P344⑴Commmand1的Click事件a=THISFORM.Text1.Valueb=THISFORM.Text2.Valuec=THISFORM.Text3.ValueIFa>bt=aa=bb=tab比大小,将大数放到a,小数放到bENDIFIFa>ct=a
a=cc=t
locatefor基本工资>1000ac比大小,将大数放到a,小数放到cdowhilettifeof()exitelsep=p+1continueloopendifenddothisform.text1.value=str(p,3)例11将836分解后求和P147X=thisfrom.text.value取整函数A=int(x/100)B=int((x-a*100)/10)C=x-a*100-b*10S=a+b+cThisform.label2.caption="s="+allt(str(s))例12求1/1^2+1/2^2+…1/n^2累加和S=0P200N=val(thisform.text1.value)Fori=1tonS=s+1/i^2NextThisform.label3.caption=str(s,6,6)表操作打开表usersda显示表list修改表browse条件显示listfor学历="硕士"and性别="女"所有工资加100replaceall基本工资with基本工资+100标记删除delete物理删除pack拷贝成新表copytorsda1.dbf统计教授的人数countfor职称="教授"tox求平均工资average基本工资tox1求工资总数sum基本工资tox2查找职称是讲师的人LOCATEFOR职称="讲师"DISPLAYCONTINUEDISPLAY
ENDIFIFb>ct=bb=cc=tbc比大小,将大数放到b,小数放到cENDIFCHR(10)是个回车符THISFORM.Label2.CAPTION="从小到大顺序:"+CHR(10)+LTRIM(STR(a))+","+LTRIM(STR(b)+","+LTRIM(STR(c))⑵Command2退出的Click事件Thisform.release例8计算三角形面积P346P155IFa<0orb<0orc<0Xx=messagebox("边长必须大于0")ELSES=(a+b+c)/2IFs>0ands-a>0ands-b>0ands-c>0Mj=SQRT(S*(S-a)*(s-b)*(s-c))Thisform.label2.caption="三角形面积="+LTRIM(STR(mj,8,2))ELSEThisform.label2.caption="不能构成三角形"ENDIFENDIFThisform.text1.selstart=0Thisform.text1.setfocus例9求S=1*2*3*……*N的累乘积P202S=1N=1P=val(thisform.text.value)Dowhilen<=pS=s*nN=n+1EnddoThisform.text2.value=alltrim(str(s))Return例10统计rsda.dbf中工资大于1000的记录有几个P203Usersda打开人事档案表tt=.t.p=0
如果到最后一个记录退出
继续查找