JV114001唐茹2011級計算機軟件

1、離散數(shù)學實驗報告專 業(yè) 計算機軟件 班 級 2011級計算機軟件 學 號 JV114001 姓 名 唐茹 日 期 2013年6月 工作描述：時隔五個月，我再一次使用了Visual Basic 這一語言工具編寫可視化，有了上次的編程基礎(chǔ)之后，這次的可視化編程稍微變得輕松些，畢竟對于Visual Basic不是很陌生了，本次的可視化是自己一個人獨立完成，也算是對自己的一次基礎(chǔ)水平檢測和對算法的敏感性的檢測，啟用Visual Basic平臺、搭建Visual Basic框架、調(diào)用控件構(gòu)建可視化界面、理解算法特點、編寫控件和算法程序、生成基于Visual Basic的可執(zhí)行文件、生成基于Visual

2、Basic的安裝文件。本次我一個人一組寫了一個判斷代數(shù)的可視化界面，對于控件的選擇和調(diào)用是VB的一個顯著特點，接下來就是算法，算法是一個程序的靈魂，總體感覺編程能力必須要在實戰(zhàn)中才可以鍛煉出來，自己要好好抓住機會鍛煉。一、實驗目的：編程輸入一個集合,并在其上定義幾種運算(到少兩種,一種二元,一種一元),判斷是否為代數(shù),及其么元,零元。設(shè)計可視化編程進行可視化顯示。二、實驗內(nèi)容：可視化界面分由兩部分組成：1、硬件窗口部件組成 ：在VB的編程環(huán)境下開發(fā)標準可視化界面窗口，對于詳細的實驗內(nèi)容布置相應的控件，設(shè)計成實驗所需的硬件窗口化2、軟件的組成 ：通過代碼的實現(xiàn)對控件的控制等進行動態(tài)的可視化界面控

3、制 。三、實驗原理及過程：基于Visual Basic的編程環(huán)境，進行標準的可視化編程，自己搭建硬件平臺布置控件和顯示窗口以及編寫軟件程序。1、 Visual Basic的編程環(huán)境：2、 關(guān)于判斷代數(shù)的主體界面：3、 對于一元運算判斷代數(shù)是否成立：（1） 一元運算：不是代數(shù)（2） 一元運算：是代數(shù)4、 對于二元運算判斷代數(shù)是否成立：（1）二元運算：不是代數(shù)（2）二元運算：是代數(shù)5、 代數(shù)判斷零元和幺元：6、 編程主界面窗口：四：實驗數(shù)據(jù)及結(jié)果分析：在顯示的數(shù)據(jù)框里按照規(guī)則填寫數(shù)據(jù)即會由算法產(chǎn)生相應的運算和顯示結(jié)果。元素的集合例如：1，2，3a，b，c；元素的運算符例如：*，&，#。五、

4、源程序：/判斷輸入的元素或者運算符是否為空Private Sub Combo1_click()If Text1.Text = "" Or Text2.Text = "" Then MsgBox "請輸入元素或運算符"/生成表格上行列里面的數(shù)據(jù)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()/判斷是否為代數(shù)Select Case Combo1.Text/一元運算判斷是否為代數(shù)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 "是代數(shù)！" Else MsgBox "不是代數(shù)！"/二元運算判斷是否為代數(shù)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 "是代數(shù)！" Else MsgBox "不是代數(shù)！"/判斷代數(shù)是否含有幺元，如果有則輸出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/判斷代數(shù)是否含有零元，如果有則輸出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/對于產(chǎn)生數(shù)據(jù)進行清空處理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 = "&