VB课程设计任务书09-求方程的根.docVIP

河北工业大学计算机软件技术基础（VB） 课 程 设 计 任 务 书 本题难度级别：B 实现基本要求代码: 约250行 主要涉及: 基本控件及算法 一、设计题目：求方程的根（出题人：杨素梅） 说明：把三种常用的求方程的根的算法通过设计的界面实现出来。 图1 运行界面图 二、目的与要求1.目的培养学生综合利用语言进行程序设计的能力，主要是培养学生。基本要求3.创新要求在基本要求达到后，进行创新设计，、设计方法和基本原理 问题描述问题的解决方案Private Sub Form_Activate 作一些初始化的工作。主要是所求方程的选择。 Command1_Click ‘主要功能的实现 根据combo1组合框中选择的方程和单选按钮对求解方程算法的选择进行相应的方程求解并把过程结果显示到指定的列表框中。 Command2_Click 保存迭代结果功能。 Command5_Click 保存二分结果功能。 四、问题的描述Form_Activate 事件中进行初始化。 Command1_Click 事件中，需要判断选择的方程，还需要判断选择的求根算法，所以需要用到IF的嵌套结构。主要程序段如下： If Option1 0 .Value True Then List1 0 .Clear If Combo1.ListIndex 0 Then aaa: x InputBox x0的值 n 0 x0 x Do n n + 1 x0 x fx0 3 * x0 ^ 7 - 4 * x0 + 6 f10 21 * x0 ^ 6 - 4 x x0 - fx0 / f10 List1 0 .AddItem n n , x x Loop While Abs x - x0 0.000001 And Abs fx0 0.000001 And n M If n M Then MsgBox 初值不对，请重新选择！ GoTo aaa End If ElseIf Combo1.ListIndex 1 Then ElseIf Combo1.ListIndex 2 Then Else MsgBox 请选择函数 End If ElseIf Option1 1 .Value True Then If Combo1.ListIndex 0 Then ElseIf Combo1.ListIndex 1 Then ElseIf Combo1.ListIndex 2 Then Else MsgBox 初值不对，请重新选择！ GoTo ccc1 End If Else MsgBox 请选择函数 End If Else End If 最后，是文件的写操作功能来完成结果的保存，这是教材第7章中的内容，使用顺序文件的写操作就可以。如 fileno FreeFile Open App.Path \a.txt For Append As #fileno For i 0 To List1 0 .ListCount - 1 ss List1 0 .List i b Split ss, , no Val Mid b 0 , 3 gen1 Val Mid b 1 , 3 Print #fileno, no, gen1 Next i Close #fileno 五、参考资料 Visual Basic 程序设计教程 及 Visual Basic 实验教程 VB6.0程序员指南 VB6.0控件参考手册 MSDN中文版，课程设计网站上提供的其它资料。 六、设计部分的评分标准（本题难度为B，综合时要乘系数0.9） VB课程设计任务书 – 模拟查找过程 第1页共5页