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