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时,有两个不等的虚根。 展开
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
展开全部
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)___
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有聊无聊啊 有病吧
追答
连给你的答案都看不懂,你什么人。
展开全部
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
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
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询