VF数字化程序及表单设计.doc

数字化程序及表单设计 1．（prog1.prg，form1.scx）已知圆半径，求圆面积。 clear input请输入圆的半径= to r if r0 s=pi()*r*r ?s else ?输入错误！ endif return r=thisform.text1.value s=pi()*r*r thisform.text2.value=alltrim(str(s,10,2)) 4．（prog2.prg，form2.scx）已知三角形三边，求三角形的面积。S=SQRT(L*(L-A)*(L-B)*(L-C)) ，其中L=(A+B+C)/2 clear inputa= to a inputb= to b inputc= to c if a0 b0 c0 a+bc a+cb b+ca l=(a+b+c)/2 s=sqrt(l*(l-a)*(l-b)*(l-c)) ?s else ?输入错误 Endif a=thisform.text1.value b=thisform.text2.value c=thisform.text3.value if a+bc and b+ca and a+cb and a0 and b0 and c0 l=(a+b+c)/2 s=sqrt(l*(l-a)*(l-b)*(l-c)) endif thisform.text4.value=s 5．（prog3.prg，form3.scx）判断某一年是否是闰年。 clear input请输入年份: to year if year%400=0 ?year,年是闰年! else ?year,年不是润年! endif return year=thisform.text1.value if year%400=0 thisform.text2.value= 是闰年 else thisform.text2.value= 不是闰年 endif 6．（prog4.prg，form4.scx）判断月份值的春夏秋冬。 clear input请输入月份: to yue do case case inlist (yue,3,4,5) ?春 case inlist (yue,6,7,8) ?夏 case inlist (yue,9,10,11) ?秋 case inlist (yue,12,1,2) ?冬 otherwise ?输入错误 endcase return yue=thisform.text1.value do case case inlist (yue,3,4,5) thisform.text2.value=春 case inlist (yue,6,7,8) thisform.text2.value=夏 case inlist (yue,9,10,11) thisform.text2.value=秋 case inlist (yue,12,1,2) thisform.text2.value=冬 endcase 2．（prog5.prg，form5.scx）输入一个整数，并判断其奇偶性。 clear input请输入一个数:to n if mod(n,2)=0 ?偶数 else ?奇数 Endif x=thisform.text1.value if mod(x,2)=0 thisform.text2.value=偶数 else thisform.text2.value=奇数 endif 7．（prog6.prg，form6.scx）输入成绩，判断等级。 clear input 请输入成绩: to a do case case a=0 and a=60 cj=差 case a60 and a90 cj=良 case a=90 and a=100 cj=优 otherwise cj=错误 endcase ?cj return a=thisform.text1.value do case case a=0 and a=60 cj=差 case a60 and a90 cj=良 case a=90 and a=100 cj=优 otherwise cj=错误 endcase thisform.label2.caption=cj 8．（prog7.