Vfp 上机操作题4选3

来源：百度知道 编辑：UC知道 时间：2024/05/17 01:15:31
Vfp 上机操作题4选3

1、做一个表单完成“鸡兔同笼”问题。要求最后使用信息对话框显示计算结果
鸡有2只脚，兔有4只脚，如果已知鸡和兔的总头数为h，总脚数为f。问笼中鸡和兔各有多少只？

2、做一个表单，理解大小写转换函数。
在文本框中输入文本串，按“转大写”按钮，文本中的英文字母变为大写，按“转小写”按钮，文本中的英文字母变为小写

3、做一个表单，在文本框中输入长、宽、高，求长方体的表面积，并输出。

4、做一个表单，在文本框中输入角度值（度、分、秒），将角度换算为弧度值的形式，然后输出。

最后压缩发到邮箱
lgl2hs@163.com

a=VAL(ALLTRIM(thisform.text1.Value))
b=VAL(ALLTRIM(thisform.text2.Value))
j=0
t=0
nadd=0
DO case
CASE a>1
IF INT(a)=a and INT(b)=b and MOD(b,2)=0
FOR i=0 to a
j=i
t=a-i
z=(2*j+4*t)
IF z=b
thisform.label3.Caption="兔子"+ALLTRIM(STR(t))+"只，"+"鸡"+ALLTRIM(STR(j))+"只。"
MESSAGEBOX("兔子"+ALLTRIM(STR(t))+"只，"+"鸡"+ALLTRIM(STR(j))+"只。")
nadd=1
ENDIF
ENDFOR
IF nadd=0
thisform.label3.Caption="该组合无法组合出整数只鸡兔!"
MESSAGEBOX("该组合无法组合出整数只鸡兔!")
ENDIF
ELSE
thisform.label3.Caption="请输入整数！或者脚数必须为偶数！"
MESSAGEBOX("请输入整数！或者脚数必须为偶数！")
ENDIF

CASE a=1
IF b=2
thisform.label3.Caption="兔子"+ALLTRIM(STR(0))+"只，"+"鸡"+ALLTRIM(STR(1))+"只"
MESSAGEBOX("兔子"+ALLTRIM(STR(0))+"只，"+"鸡"+ALL