資源描述：
《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/
