軟件技術(shù)實(shí)驗(yàn)指導(dǎo)(實(shí)驗(yàn)3)

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

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

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

3、t為整型變量。⑤編寫(xiě)進(jìn)行四則運(yùn)算所需的程序作為命令按鈕的單擊事件過(guò)程。參考代碼一：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