vfp实验题整理

Visual FoxPro 实验题汇总

★顺序结构程序设计

1. 用过程化编成方式编写本题。求解一元二次方程 （JFC.PRG ） a=1 b=4 c=4

x1=(-b+SQRT(b^2-4*a*c))/(2*a) x2=(-b-SQRT(b^2-4*a*c))/(2*a)

?"方程的一个根是:",x1,space(10),"另一个根是:",x2 2.理解大小写转换函数。在文本框中输入文本串，按“转大写”按钮，文本中的英文字母变为大写，按“转小写”按钮，文本中的英文字母变为小写（如图所示）。

: Public a

: Thisform.text1.value=a <大写>:

Thisform.text1.value=upper(a) <小写>:

Thisform.text1.value=lower(a) <复原>: Thisform.text1.value=a

3.班上集体购买课外读物，在文本框中输入3种书的单价、购买数量，计算并输出所用的总金额。 <总计>:

a=val(thisform.text1.value) b=val(thisform.text2.value)

c=val(thisform.text3.value) d=val(thisform.text4.value) e=val(thisform.text5.value) f=val(thisform.text6.value) thisform.text7.value=a*b+c*d+e*f 4. 在文本框中输入小时、分、秒，化成共有多少秒，然后输出之。 a=val(thisform.text1.value) b=val(thisform.text2.value) c=val(thisform.text3.value)

thisform.text4.value=a*3600+b*60+c 5. 编程序输出在指定范围内的3个随机数，范围在文本框中输入。 <三个随机数>:

bel3.caption=str(int((b-a+1)*rand()+a))

bel4.caption=str(int((b-a+1)*rand()+a))

bel5.caption=str(int((b-a+1)*rand()+a))

6.编写例题4-8求圆面积，用对话框输出结果<计算>: r=val(thisform.text1.value)

a=”圆的面积为:”+alltrim(str(3.14*r^2)) messagebox(a,0,”计算圆的面积”) thisform.text1.selstart=0

thisform.text1.sellength=len(thisform.text1.text)

thisform.text1.setfocus

★顺序结构程序

1. 输入3个不同的数，将它们从大到小排序。 <排序>:

a=val(thisform.text1.value) b=val(thisform.text2.value) c=val(thisform.text3.value) do case

case a=max(a,b,c)

thisform.text4.value=alltrim(str(a)) case a=min(a,b,c)

thisform.text6.value=alltrim(str(a)) otherwise

thisform.text5.value=alltrim(str(a)) endcase do case

case b=max(a,b,c)

thisform.text4.value=alltrim(str(b)) case b=min(a,b,c)

thisform.text6.value=alltrim(str(b)) otherwise

thisform.text5.value=alltrim(str(b)) endcase do sase

case c=max(a,b,c)

thisform.text4.value=alltrim(str(c))

case c=min(a,b,c)

thisform.text4.value=alltrim(str(c)) otherwise

thisform.text5.value=alltrim(str(c)) endcase

2. 创建一个检查输入口令的表单，口令设定为“SOFTWARE ”，允许用户输入三次口令。如果三次输入错误，则显示相关信息，并禁止再次输入口令：如果正确，则显示“欢迎使用本系统！”字样，请编写该程序。 <确认>:

a=ALLTRIM(thisform.container1.text1.value) if a=="SOFTWARE"

bel1.caption="欢迎使用本系统!" thisform.container1.visible=.F. bel1.visible=.T. mand1.visible=.t. else b=b+1 if b>=3

messagebox("你已第"+str(b,3)+"次输入错误,"+chr(13); +"不能使用该系统",48,"错误提示") thisform.release ELSE

messagebox("你已第"+str(b,3)+"次输入错误!",48,"错误提示") thisform.container1.text1.selstart=0

thisform.container1.text1.sellength=len(ltrim(thisform.container1.text1.value)) RETURN 0 endif endif

<关闭>: Thisform.release

3. 输入一个数字（0～6），用中英文显示星期几。