資源描述:
《vb計(jì)算器實(shí)訓(xùn) 實(shí)驗(yàn)報(bào)告》由會(huì)員上傳分享,免費(fèi)在線閱讀,更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。
1、江西科技師范大學(xué)實(shí)驗(yàn)報(bào)告2010年級計(jì)算機(jī)科學(xué)與技術(shù)1班學(xué)號姓名實(shí)驗(yàn)日期201003成績實(shí)訓(xùn)8實(shí)驗(yàn)報(bào)告一、實(shí)驗(yàn)?zāi)康模褐谱饕粋€(gè)計(jì)算器二、實(shí)驗(yàn)進(jìn)程:完成了十六進(jìn)制,八進(jìn)制的代碼書寫。添加了form3,完成了窗體轉(zhuǎn)化。三、實(shí)驗(yàn)原理與分析:1、控件屬性設(shè)置:Form1:控件屬性Command1Caption0Command1Index0Command2Caption+Command2Index0Command3Caption+/-Command3Font加粗Command4Caption.Command4font加粗Command5Cap
2、tionBackspaceCommand5Font加粗Command6CaptionCCommand6Font加粗Command7CaptionCECommand7Font加粗Command8CaptionSqrtCommand9Caption1/xCommand10Caption%Command11Caption=Command11Font加粗Text1Text0.Text1Alignment1-rightjustifyText1Font四號Form1Caption計(jì)算器Form1MaxbuttonFalseForm2:控件屬性
3、Command1Caption0Command1Index0Command2Caption+Command2Index0Command3Caption+/-指導(dǎo)教師:郝謙第17頁共17頁江西科技師范大學(xué)實(shí)驗(yàn)報(bào)告2010年級計(jì)算機(jī)科學(xué)與技術(shù)1班學(xué)號姓名實(shí)驗(yàn)日期201003成績Command3Font加粗Command4Caption.Command4font加粗Command5CaptionBackspaceCommand5Font加粗Command6CaptionCCommand6Font加粗Command7CaptionCECo
4、mmand7Font加粗Command8CaptionSqrtCommand9Caption1/xCommand10Caption%Command11Caption=Command11Font加粗Command12captionsinCommand12index0Command13captionACommand13index0Command13enabledfalseText1Text0.Text1Alignment1-rightjustifyText1Font四號Form2Caption計(jì)算器Frame1Caption“”Fra
5、me2Caption“”O(jiān)ption1Caption十六進(jìn)制Option2Caption八進(jìn)制Option3caption十進(jìn)制Option4caption二進(jìn)制Form2MaxbuttonFalseForm3:控件屬性Command1Caption確定Image1StretchTrueForm3Caption幫助主題Form3MaxbuttonFalse2、界面圖:Form1指導(dǎo)教師:郝謙第17頁共17頁江西科技師范大學(xué)實(shí)驗(yàn)報(bào)告2010年級計(jì)算機(jī)科學(xué)與技術(shù)1班學(xué)號姓名實(shí)驗(yàn)日期201003成績Form2:Form3:指導(dǎo)教師:郝謙
6、第17頁共17頁江西科技師范大學(xué)實(shí)驗(yàn)報(bào)告2010年級計(jì)算機(jī)科學(xué)與技術(shù)1班學(xué)號姓名實(shí)驗(yàn)日期201003成績3、代碼書寫:Form1:OptionExplicitDimiAsIntegerDimjAsIntegerDimmAsStringDimx1AsDoubleDimx2AsDoubleDimyAsStringDimopAsIntegerDimlastinputAsStringPrivateSubAbout_Click()Form1.HideForm3.ShowEndSubPrivateSubCommand1_Click(Index
7、AsInteger)輸入數(shù)字0-9IfText1.Text="0."Orlastinput="="ThenText1.Text=Indexlastinput="number"Else指導(dǎo)教師:郝謙第17頁共17頁江西科技師范大學(xué)實(shí)驗(yàn)報(bào)告2010年級計(jì)算機(jī)科學(xué)與技術(shù)1班學(xué)號姓名實(shí)驗(yàn)日期201003成績IfForm1.Tag<>""ThenIfIndex=10ThenText1.Text="0."ElseText1.Text=Command1(Index).CaptionEndIfForm1.Tag=""ElseText1.Text=
8、Text1.Text&Command1(Index).CaptionEndIflastinput="number"EndIfEndSubPrivateSubCommand10_Click()Text1.Text=Format(Text1.Text/