编程论坛 → VFP论坛

期末作业来了，有没有大佬会啊

坐看风云起发布于 2022-05-30 16:13， 2411 次点击

Visua Foxpro程序设计大作业
请将答案写在学院标准答题纸上（从平台“课程资料”下载），注明题号即可。
说明：前两个题请同学们使用结构化编程语句完成
1、请同学们编写一个计算1！+2！+….+5！=？（1至5的阶乘累加），提示：请使用循环语句编写些程序。（20分）
2、求一元二次方程AX2＋BX＋C＝0的实根。（20分）
3、请同学们根据下面表单界面设计一个计时器，并编写相应代码，实现计时器秒表功能。（注意标注上什么控件主要属性、什么事件及其代码）（20分）
要求使用时间控件，点击开始即可动态显示秒数，点停止显示最后秒数，开始是0。

只有本站会员才能查看附件，请登录

4、请同学们根据下面表单界面设计一个调色板，并编写相应代码，实现选择颜色功能。（注意标注上什么控件主要属性、什么事件及其代码）（20分）
要求选中一种颜色，则选项按钮组的背景色即为该色。

5、登录密码窗口设计：大家可以任意设计一个密码登录窗口，要求密码不是明码显示，用*代替，密码验证三次自动退出，若有误，有提示。（20分）

14 回复

#2

mywisdom882022-05-30 18:41

第2题，还真的没做过。。

#3

zhken2022-05-30 22:59

主要问题是1，2的解题方法已给回老师了，如果有解法过程，就可以写出程序来

#4

mywisdom882022-05-31 08:38

以下是引用坐看风云起在2022-5-30 16:13:37的发言：

*** 该帖被屏蔽 ***

人家只是问作业，没必要屏蔽。
大家可以选择提示性的回答，引导学生。

#5

talkrobin2022-06-01 13:31

第一题和第二题,竟然发现自己数学都退给数学老师了.

#6

星光悠蓝2022-06-01 16:46

初中的数学全忘记了

只有本站会员才能查看附件，请登录

程序代码：

A=thisform.text1.Value
B=thisform.text2.Value
C=thisform.text3.Value
x0=B*B-(4*A*C)
thisform.text4.Value=x0
DO CASE
    CASE x0=0
        x1=-B/2*A
        thisform.text5.Value=x1
        thisform.text6.Value=x1
    CASE x0>0
        x1=(-B+SQRT(x0))/(2*A)
        x2=(-B-SQRT(x0))/(2*A)
        thisform.text5.Value=x1
        thisform.text6.Value=x2
    CASE x0<0
        thisform.text5.Value="∽"
        thisform.text6.Value="∽"
ENDCASE

#7

mywisdom882022-06-01 18:56

A,B,C是输入进去的，还是计算出来的。。。

#8

星光悠蓝2022-06-01 19:23

代进去验证了一下，代码居然没写对

#9

sam_jiang2022-06-02 08:42

该好好学习的时候，在打游戏泡妞；要考试了，临时抱佛脚。。。

这样的学生不能教啊。。。

#10

mywisdom882022-06-02 08:51

刚才，查了一下，关键是 b平方减4ac

只有本站会员才能查看附件，请登录

#11

mywisdom882022-06-02 09:15

LOCAL △,a,b,c,x1,x2
a=2
b=-8
c=-10

△=b*b-4*a*c
IF a=0 &&方程条件 a≠0，不是2次方程，但能解
   IF b=0
      MESSAGEBOX("你输入a=0,b=0,太多零",0,"太多领")
   ELSE
      x1=-c/b
      x2=x1
   ENDIF
ELSE
  IF △>0
     x1=(-b+SQRT(△))/(2*a)
     x2=(-b-SQRT(△))/(2*a)
  ELSE
     x1="∽"
     x2="∽"
  ENDIF
ENDIF

?x1,x2

#12

坐看风云起2022-06-02 17:22

回复 8楼星光悠蓝

学的会计的接本课程，别的还好，这个是真的不会呀，只看老师的讲解视频不明白呀

#13

坐看风云起2022-06-02 17:24

回复 10楼 mywisdom88

哎，好难感觉

#14

星光悠蓝2022-06-02 17:53

回复 12楼坐看风云起

参考上面代码，动手建一个程序运行验证一下。

#15

星光悠蓝2022-06-02 17:57

SET TALK OFF
CLEAR
M=1
Q=1
FOR i=2 TO 5
    FOR j=1 TO i
        Q=Q*j
    ENDFOR
    M=M+Q
    ?"i=",i
    ?"M!=",M
    Q=1
ENDFOR
?
?"1！+2！+….+5！=",ALLTRIM(STR(M,10))

1