Visual Foxpro好的高手进!!帮忙做下题,在线等急求答案!!追加高分~!(第三部分)

1.下述程序的功能是求1到100之间所有偶数的平方和并输出结果,请填写完整。S=0X=1DOWHILE___(1)____IF___(2)___________(3)__... 1. 下述程序的功能是求1到100之间所有偶数的平方和并输出结果,请填写完整。
S=0
X=1
DO WHILE___(1)____
IF ___(2)_______
____(3)___
ENDIF
____(4)_____
__(5)__
THISFORM.TEXT1.__(6)__=S
2. 如左图所示,点击“开始”按钮进行计算,在编辑框中显示101~500之间能够被7整除的整数;在文本框中显示计算结果。“开始”按钮的事件代码如下,请将其补充完整:
S=0
FOR X=101 __(7)_ 500
IF ___(8)___ __(9)__ .EDIT1.VALUE=THISFORM.EDIT1.VALUE+STR(X,5)+CHR(13)
S=S+X
__(10)__
__(11)_
THISFORM.TEXT1.VALUE=___(12)_____
四、编程题(共30分。第1、2、3题各10分)
1. 如图所示,设计一个可供逐条查看学生档案表(std_da)记录的表单,在该表单的数据环境中已加入该表,并完成表单布局;并在表单上又添加了命令按钮组,依次包括“上一条”、“下一条”、“退出”三个按钮,请在该命令按钮组的click事件中编写能实现该功能的程序代码。

2.要创建一个检查输入口令的表单,口令设定为“SOFTWARE”,允许用户输入三次口令。如果三次输入错误,则显示相关信息,并禁止再次输入口令:如果正确,则显示“欢迎使用本系统!”字样,请编写该程序。
表单Form1的初始化Init事件代码如下:
Public N &&说明全局变量,计次数
N=0
Thisform.Command1.Enabled=.F.

请编写文本框失去焦点事件Valid的代码。
3.编程求100以内含有“7”的数字在列表框LIST1中显示。
4.如下图,对文本框输入的月份计算季节。如:3-5月份是春(季)天,在标签对象上显示;6-8月份是夏(季)天,在文本框中显示;9-11月份是秋(季)天,在文本框中显示;12-2月份是冬(季)天,在标签对象上显示;其它在信息显示“输入的月份错!”后,关闭表单。对命令按钮编程。

5.设计如图表单,不选中复选框check1时点击退出按钮command1直接退出表单;当选中复选框时,点击按钮可弹出警示框,点击确定按钮时退出,点击取消按钮不结束程序。请编写退出按钮的click事件代码(注:当按确定按钮时,对话框函数的返回值是1,取消按钮是2)

6、设计程序,计算下列分段函数

7、设计一个计算一元二次方程根的程序:从文本框输入一元二次方程的三个系数:A,B,C,计算并输出方程的两个根X1、X2。
当A<>0时,有两个根。
当B*B-4*A*C>0时,有两个不等的实根。
当B*B-4*A*C=0时,有两个相等的实根。
当B*B-4*A*C<0时,有两个不等的虚根。
展开
 我来答 举报
匿名用户
2011-05-19
展开全部
楼主主动联系我 我有一整套的正确答案 39082135
syc_xhm
2011-05-12 · TA获得超过4044个赞
知道大有可为答主
回答量:2122
采纳率:100%
帮助的人:2312万
展开全部
1. 下述程序的功能是求1到100之间所有偶数的平方和并输出结果,请填写完整。
S=0
X=1
DO WHILE___(1)__x<=100__
IF ___(2)__mod(x,2)=0_____
____(3)__s=s+x^2_
ENDIF
____(4)__x=x+1___
__(5)__enddo
THISFORM.TEXT1.__(6)_value_=S
2. 如左图所示,点击“开始”按钮进行计算,在编辑框中显示101~500之间能够被7整除的整数;在文本框中显示计算结果。“开始”按钮的事件代码如下,请将其补充完整:
S=0
FOR X=101 __(7)to _ 500
IF ___(8)__mod(x,7)=0_
__(9)thisform__ .EDIT1.VALUE=THISFORM.EDIT1.VALUE+STR(X,5)+CHR(13)
S=S+X
__(10)endif__
__(11)endfor_
THISFORM.TEXT1.VALUE=___(12)__str(s)___
更多追问追答
追问
艹  你TM有聊无聊啊  有病吧
追答
连给你的答案都看不懂,你什么人。
抢首赞 已赞过 已踩过<
你对这个回答的评价是?
评论(1) 举报 收起
却彤云S4
2011-05-12 · TA获得超过1.3万个赞
知道大有可为答主
回答量:1.2万
采纳率:0%
帮助的人:9155万
展开全部
S=0
X=1
DO WHILE___x<=100____
IF ___x%2=0_______
____s=s+x*x___
ENDIF
____x=x+1_____
__enddo__
THISFORM.TEXT1.__value__=S

S=0
FOR X=101 __to_ 500
IF ___x%7=0___
__thisform__ .EDIT1.VALUE=THISFORM.EDIT1.VALUE+STR(X,5)+CHR(13)
S=S+X
__endif__
__endfor_
THISFORM.TEXT1.VALUE=___s_____

7、
clear
text
一元二次方程求解
ax^2+bx+c=0
endtext
input "请输入a的值:" to a
input "请输入b的值:" to b
input "请输入c的值:" to c
m=b*b-4*a*c
if m>=0
x1=(-b+sqrt(m))/(2*a)
x2=(-b-sqrt(m))/(2*a)
?"x1的值是:",x1
?"x2的值是:",x2
else
?"此方程无实根!"
endif
抢首赞 已赞过 已踩过<
你对这个回答的评价是?
评论 举报 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式