JV114001唐茹2011级计算机软件

1、离散数学实验报告专 业 计算机软件 班 级 2011级计算机软件 学 号 JV114001 姓 名 唐茹 日 期 2013年6月 工作描述：时隔五个月，我再一次使用了Visual Basic 这一语言工具编写可视化，有了上次的编程基础之后，这次的可视化编程稍微变得轻松些，毕竟对于Visual Basic不是很陌生了，本次的可视化是自己一个人独立完成，也算是对自己的一次基础水平检测和对算法的敏感性的检测，启用Visual Basic平台、搭建Visual Basic框架、调用控件构建可视化界面、理解算法特点、编写控件和算法程序、生成基于Visual Basic的可执行文件、生成基于Visual

2、Basic的安装文件。本次我一个人一组写了一个判断代数的可视化界面，对于控件的选择和调用是VB的一个显著特点，接下来就是算法，算法是一个程序的灵魂，总体感觉编程能力必须要在实战中才可以锻炼出来，自己要好好抓住机会锻炼。一、实验目的：编程输入一个集合,并在其上定义几种运算(到少两种,一种二元,一种一元),判断是否为代数,及其么元,零元。设计可视化编程进行可视化显示。二、实验内容：可视化界面分由两部分组成：1、硬件窗口部件组成 ：在VB的编程环境下开发标准可视化界面窗口，对于详细的实验内容布置相应的控件，设计成实验所需的硬件窗口化2、软件的组成 ：通过代码的实现对控件的控制等进行动态的可视化界面控

3、制 。三、实验原理及过程：基于Visual Basic的编程环境，进行标准的可视化编程，自己搭建硬件平台布置控件和显示窗口以及编写软件程序。1、 Visual Basic的编程环境：2、 关于判断代数的主体界面：3、 对于一元运算判断代数是否成立：（1） 一元运算：不是代数（2） 一元运算：是代数4、 对于二元运算判断代数是否成立：（1）二元运算：不是代数（2）二元运算：是代数5、 代数判断零元和幺元：6、 编程主界面窗口：四：实验数据及结果分析：在显示的数据框里按照规则填写数据即会由算法产生相应的运算和显示结果。元素的集合例如：1，2，3a，b，c；元素的运算符例如：*，&，#。五、

4、源程序：/判断输入的元素或者运算符是否为空Private Sub Combo1_click()If Text1.Text = "" Or Text2.Text = "" Then MsgBox "请输入元素或运算符"/生成表格上行列里面的数据Select Case Combo1.Text/一元运算下生成的行列元素Case Combo1.List(0)Text3.Text = Text2.TextText4.Text = Mid(Text1.Text, 1, 1)Text5.Text = Mid(Text1.Text, 3, 1)Tex

5、t6.Text = Mid(Text1.Text, 5, 1)/二元运算下生成的行列元素Case Combo1.List(1)Text3.Text = Text2.TextText4.Text = Mid(Text1.Text, 1, 1)Text5.Text = Mid(Text1.Text, 3, 1)Text6.Text = Mid(Text1.Text, 5, 1)Text7.Text = Mid(Text1.Text, 1, 1)Text11.Text = Mid(Text1.Text, 3, 1)Text15.Text = Mid(Text1.Text, 5, 1)End Sele

6、ctEnd SubPrivate Sub Command1_Click()/判断是否为代数Select Case Combo1.Text/一元运算判断是否为代数Case Combo1.List(0)If (Text8.Text = Text4.Text Or Text8.Text = Text5.Text Or Text8.Text = Text6.Text) And (Text9.Text = Text4.Text Or Text9.Text = Text5.Text Or Text9.Text = Text6.Text) And (Text10.Text = Text4.Text Or T

7、ext10.Text = Text5.Text Or Text10.Text = Text6.Text) Then MsgBox "是代数！" Else MsgBox "不是代数！"/二元运算判断是否为代数Case Combo1.List(1)If (Text8.Text = Text4.Text Or Text8.Text = Text5.Text Or Text8.Text = Text6.Text) And (Text9.Text = Text4.Text Or Text9.Text = Text5.Text Or Text9.Text = Tex

8、t6.Text) And (Text10.Text = Text4.Text Or Text10.Text = Text5.Text Or Text10.Text = Text6.Text) And (Text12.Text = Text4.Text Or Text12.Text = Text5.Text Or Text12.Text = Text6.Text) And (Text13.Text = Text4.Text Or Text13.Text = Text5.Text Or Text13.Text = Text6.Text) And (Text14.Text = Text4.Text

9、Or Text14.Text = Text5.Text Or Text14.Text = Text6.Text) And (Text16.Text = Text4.Text Or Text16.Text = Text5.Text Or Text16.Text = Text6.Text) And (Text17.Text = Text4.Text Or Text17.Text = Text5.Text Or Text17.Text = Text6.Text) And (Text18.Text = Text4.Text Or Text18.Text = Text5.Text Or Text18.T

10、ext = Text6.Text) Then MsgBox "是代数！" Else MsgBox "不是代数！"/判断代数是否含有幺元，如果有则输出If Text8.Text = Text4.Text And Text9.Text = Text5.Text And Text10.Text = Text6.Text And Text12.Text = Text11.Text And Text16.Text = Text15.Text Then Text22.Text = Text4.TextIf Text12.Text = Text4.Text And T

11、ext13.Text = Text5.Text And Text14.Text = Text6.Text And Text9.Text = Text7.Text And Text15.Text = Text17.Text Then Text22.Text = Text5.TextIf Text16.Text = Text4.Text And Text17.Text = Text5.Text And Text18.Text = Text6.Text And Text10.Text = Text7.Text And Text11.Text = Text14.Text Then Text22.Tex

12、t = Text6.Text/判断代数是否含有零元，如果有则输出If Text8.Text = Text4.Text And Text9.Text = Text4.Text And Text10.Text = Text4.Text And Text16.Text = Text4.Text Then Text23.Text = Text4.TextIf Text12.Text = Text4.Text And Text13.Text = Text5.Text And Text14.Text = Text6.Text And Text7.Text = Text9.Text And Text17.T

13、ext = Text15.Text Then Text23.Text = Text5.TextIf Text16.Text = Text4.Text And Text17.Text = Text5.Text And Text18.Text = Text6.Text And Text11.Text = Text14.Text And Text10.Text = Text7.Text Then Text23.Text = Text6.TextEnd SelectEnd Sub/对于产生数据进行清空处理Private Sub Command2_Click()Text1.Text = "&q

14、uot;Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""Text6.Text = ""Text7.Text = ""Text8.Text = ""Text9.Text = ""Text10.Text = ""Text11.Text = ""Text12.Text = ""Text13.Text = ""Text14.Text = ""Text15.Text = ""Text16.Text = "&