軟件技術(shù)實驗指導(實驗3)

《軟件技術(shù)實驗指導(實驗3)》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。

1、實驗三、VB程序設計技巧（簡單計算器和繪制三角函數(shù)任意選擇一個做）實驗知識點：練習VB程序設計的技巧。如：pictureBox的繪圖方法，控件數(shù)組的應用，selectcase分支結(jié)構(gòu)的掌握等實驗要求：1）設計一個可以進行四則運算的簡單計算器。該計算機除了可以進行加、減、乘、除、求模（取余）等簡單的四則運算外，還要求可以進行四則混合連算，并具有符合計算器日常使用習慣的容錯糾錯功能。具體步驟如下：①在界面上建立按鈕控件數(shù)組：首先在窗體中置入一個命令按鈕控件后，將其激活并點擊右鍵通過“復制”、“粘貼”的方法依次產(chǎn)生19個一樣的命令按鈕控件，其中在創(chuàng)

2、建第一個“粘貼”控件時VB會詢問“是否要創(chuàng)建控件數(shù)組？”回答“是”即可開始依次創(chuàng)建該數(shù)組。②按鈕屬性的設置：將各按鈕的caption屬性分別設置為0，1，2……9，＋、－、×，/，Mod，＝，cls,Exit，注意在設置這些屬性時其值與按鈕控件的Index屬性的對應性。③其它控件的屬性設置：文本框作為顯示操作數(shù)和結(jié)果的控件，應遵循一般計算器的顯示習慣，將其Alignment即對齊屬性設置為“Right”，此外，將各控件相關(guān)的字體、字號等設置為統(tǒng)一風格。④在程序的通用區(qū)定義四個窗體層變量：num1、num2、sum、act、前三個為雙精度、ac

3、t為整型變量。⑤編寫進行四則運算所需的程序作為命令按鈕的單擊事件過程。參考代碼一：Dimnum1AsDouble,num2AsDoubleDimsumAsDoubleDimactAsIntegerPrivateSubCommand1_Click(IndexAsInteger)SelectCaseIndexCase0IfText1.Text=""ThenText1.Text="0"ElseText1.Text=Text1.Text+"0"EndIfCase1IfText1.Text=""ThenText1.Text="1"ElseText1.T

4、ext=Text1.Text+"1"EndIfCase2IfText1.Text=""ThenText1.Text="2"ElseText1.Text=Text1.Text+"2"EndIfCase3IfText1.Text=""ThenText1.Text="3"ElseText1.Text=Text1.Text+"3"EndIfCase4IfText1.Text=""ThenText1.Text="4"ElseText1.Text=Text1.Text+"4"EndIfCase5IfText1.Text=""ThenText1.Text=

5、"5"ElseText1.Text=Text1.Text+"5"EndIfCase6IfText1.Text=""ThenText1.Text="6"ElseText1.Text=Text1.Text+"6"EndIfCase7IfText1.Text=""ThenText1.Text="7"ElseText1.Text=Text1.Text+"7"EndIfCase8IfText1.Text=""ThenText1.Text="8"ElseText1.Text=Text1.Text+"8"EndIfCase9IfText1.Text=""T

6、henText1.Text="9"ElseText1.Text=Text1.Text+"9"EndIfCase10IfText1.Text=""ThenText1.Text="."ElseText1.Text=Text1.Text+"."EndIfCase11num1=CDbl(Text1.Text)Text1.Text=""act=1Case12IfText1.Text=""ThenText1.Text="-"Elsenum1=CDbl(Text1.Text)Text1.Text=""act=2EndIfCase13num1=CDbl(Te

7、xt1.Text)Text1.Text=""act=3Case14num1=CDbl(Text1.Text)Text1.Text=""act=4Case15num1=CDbl(Text1.Text)Text1.Text=""act=5Case16num1=0num2=0sum=0Text1.Text=""Case17num2=CDbl(Text1.Text)SelectCaseactCase1sum=num2+num1Case2sum=num1-num2Case3sum=num1*num2Case4sum=num1/num2Case5sum=

8、num1Modnum2EndSelectText1.Text=""Ifsum<1Andsum>0ThenText1.Text="0"+CStr(sum)ElseIf