vb计算器实训 实验报告

实训8实验报告一、 实验目的：制作一个计算器二、 实验进程：完成了十六进制，八进制的代码书写。添加了form3,完成了窗体转化。三、 实验原理与分析：1、控件属性设置：Forml:控件属性Command1Caption0Command1Index0Command2Caption+Command2Index0Command3Caption+/-Command3Font加粗Command4Caption.Command4font加粗Command5CaptionBackspaceCommand5Font加粗Command6CaptionCCommand6Font加粗Command?CaptionCECommand?Font加粗Command8CaptionSqrtCommand9Caption1/xCommand10Caption%Command11Caption=Command11Font加粗Text1Text0.Text1Alignment1-rightjustifyText1Font四号Form1Caption计算器Form1MaxbuttonFalseForm2：控件属性Command1Caption0Command1Index0Command2Caption+Command2Index0Command3Caption+/-

Command3Font加粗Command4Caption.Command4font加粗Command5CaptionBackspaceCommand5Font加粗Command6CaptionCCommand6Font加粗Command?CaptionCECommand?Font加粗Command8CaptionSqrtCommand9Caption1/xCommand10Caption%Command11Caption=Command11Font加粗Command12captionsinCommand12index0Command13captionACommand13index0Command13enabledfalseText1Text0.Text1Alignment1-rightjustifyText1Font四号Form2Caption计算器Frame1Caption“”Frame2Caption“”Option1Caption十六进制Option2Caption八进制Option3caption十进制Option4caption二进制Form2MaxbuttonFalseForm3:控件属性Command1Caption确定Image1StretchTrueForm3Caption帮助主题Form3MaxbuttonFalse2、界面图:Forml

Form2：Form3：

3、代码书写：Forml：OptionExplicitDimiAsIntegerDimjAsIntegerDimmAsStringDimx1AsDoubleDimx2AsDoubleDimyAsStringDimopAsIntegerDimlastinputAsStringPrivateSubAbout_Click()Form1.HideForm3.ShowEndSubPrivateSubCommand1_Click(IndexAsInteger)输入数字0-9IfText1.Text="0."Orlastinput="="ThenText1.Text=Indexlastinput="number"ElseIfForml.Tag<>""ThenIfIndex=10ThenText1.Text="0."ElseText1.Text=Command1(Index).CaptionEndIfForm1.Tag=""ElseText1.Text=Text1.Text&Command1(Index).CaptionEndIflastinput="number"EndIfEndSubPrivateSubCommand10_Click()Text1.Text=Format(Text1.Text/100,"0.####################")lastinput="=”EndSubPrivateSubCommand11_Click()x2=Val(Text1.Text)SelectCaseyCase"+"x1=x1+x2Case"-"x1=x1-x2Case"X"x1=x1*x2Case”：”Ifx2=0Thenm=MsgBox("除数不能为0”,vbExclamation+vbOKOnly,'提示”)Text1.SetFocusElsex1=x1/x2EndIfEndSelectText1.Text=Format(x1,"0.#####################")lastinput="=”Text1.SetFocusEndSubPrivateSubCommand2_Click(IndexAsInteger)x1=Val(Textl.Text)op=IndexSelectCaseopCase0y="+"Case1y="-"Case2y="X"Case3y=”:"EndSelectText1.Text=""Text1.SetFocusEndSubPrivateSubCommand3_Click()'正负号Text1.Text=-Val(Text1.Text)EndSubPrivateSubCommand4_Click()'小数点IfInStr(Text1.Text,".")ThenExitSubElseText1.Text=Text1.Text+"."EndIfEndSubPrivateSubCommand5_Click()DimlengthAsIntegerlength=Len(Text1.Text) '数字长度Iflength=1ThenIfText1.Text<>"0."Then'除非结果为0,否则都要退一位Text1.Text="0."EndIfElseText1.Text=Left(Text1.Text,length-1)EndIfEndSubPrivateSubCommand6_Click() '清空当前数据Text1.Text="0."EndSubPrivateSubCommand7_Click() '清除所有数据x1=0x2=0Text1.Text=Format(0,"0.")EndSubPrivateSubCommand8_Click()IfText1.Text<0Thenm=MsgBox("被开方数要大于零”,vbExclamation+vbOKOnly,'提示”)ElseText1.Text=Sqr(Val(Text1.Text))lastinput="=”EndIfEndSubPrivateSubCommand9_Click()IfText1.Text=0Thenm=MsgBox("除数不能为0”,vbExclamation+vbOKOnly,'提示”)Text1.SetFocusElseText1.Text=Format(1/Val(Text1.Text),"0.####################")lastinput="=”EndIfEndSubPrivateSubcopy_Click() '复制Clipboard.ClearClipboard.SetTextText1.SelTextEndSubPrivateSubForm_Initialize()'利用控件数组产生0-9的控件Fori=1To9LoadCommand1(i)SelectCaseiMod3Case0WithCommand1(i).Visible=True.Caption=i.Left=Command1(0).Left+1440.Top=Command1(i-3).Top+Command1(i).Height-1095EndWithCase1WithCommand1(i).Visible=True.Caption=i.Left=Command1(0).Left.Top=Command1(i-1).Top+Command1(i).Height-1095EndWithCase2WithCommand1(i).Visible=True.Caption=i.Left=Command1(0).Left+720.Top=Command1(i-2).Top+Command1(i).Height-1095EndWithEndSelectNextiForj=1To3 '‘生成运算符的控件按钮LoadCommand2(j)WithCommand2(j).Visible=True.Left=Command2(0).Left.Top=Command2(j-1).Top+Command2(j).Height+100EndWithCommand2(j).Caption=Choose(j,"-","X",”f)NextjEndsubPrivateSubForm_Resize()Me.Width=4230Me.Height=4860EndSubPrivateSubkexue_Click() '到科学型界面Form2.ShowForm1.HideEndSubEndSubPrivateSubpaste_Click()'粘贴Text1.SelText=Clipboard.GetTextEndSubForm2：OptionExplicitDimiAsIntegerDimjAsIntegerDimkAsIntegerDimnAsIntegerDimx1AsDoubleDimx2AsDoubleDimYAsStringDimopAsIntegerDimlastinputAsStringDimmAsStringDimBAsStringDimDAsStringPrivateSubAbout_Click()Form2.HideForm3.ShowEndSubPrivateSubCommand1_Click(IndexAsInteger)输入数字0-9IfText1.Text="0."Orlastinput="="ThenText1.Text=Indexlastinput="number"ElseIfForm1.Tag<>""ThenIfIndex=10ThenText1.Text="0"ElseText1.Text=Command1(Index).CaptionEndIfForm1.Tag=""ElseText1.Text=Text1.Text&Command1(Index).CaptionEndIflastinput="number"EndIfEndSubPrivateSubCommand10_Click()Text1.Text=Format(Text1.Text/100,"0.####################")lastinput="=”EndSubPrivateSubCommand11_Click()x2=Val(Text1.Text)SelectCaseYCase"+"x1=x1+x2Case"-"x1=x1-x2Case"x"x1=x1*x2Case”；'Ifx2=0Thenm=MsgBox("除数不能为0”,vbExclamation+vbOKOnly,'提示”)Text1.SetFocusElsex1=x1/x2EndIfEndSelectText1.Text=Format(x1,"0.#####################")lastinput="=”Text1.SetFocusEndSubPrivateSubCommand12_Click(IndexAsInteger)SelectCaseIndexCase0Text1.Text=Format(Sin(Val(Text1.Text)),"0.####################")Case1Text1.Text=Format(Cos(Val(Text1.Text)),"0.####################")Case2Text1.Text=Format(Tan(Val(Text1.Text)),"0.####################")Case3Fori=1ToVal(Text1.Text)-1Text1.Text=Format(i*Text1.Text,"0.####################")NextiEndSelectlastinput="=”EndSubPrivateSubCommand13_Click(IndexAsInteger)IfText1.Text="0."Orlastinput="="ThenText1.Text=Command13(Index).Captionlastinput="number"ElseIfForml.Tag<>""ThenIfIndex=10ThenText1.Text="0"ElseText1.Text=Command13(Index).CaptionEndIfForm1.Tag=""ElseText1.Text=Text1.Text&Command13(Index).CaptionEndIflastinput="number"EndIfSelectCaseCommand13(Index).CaptionCase"A":D=D&"10"Case"B":D=D&"11"Case"C":D=D&"12"Case"D":D=D&"13"Case"E":D=D&"14"Case"F":D=D&"15"EndSelectEndSubPrivateSubCommand2_Click(IndexAsInteger)x1=Val(Text1.Text)op=IndexSelectCaseopCase0TOC\o"1-5"\h\z="+"Case1="-"Case2="x"Case3=二”EndSelectText1.Text=""Text1.SetFocusEndSubPrivateSubCommand3_Click()'正负号Textl.Text=-Val(Textl.Text)EndSubPrivateSubCommand4_Click()'小数点IfInStr(Text1.Text,".")ThenExitSubElseText1.Text=Text1.Text+"."EndIfEndSubPrivateSubCommand5_Click()DimlengthAsIntegerlength=Len(Text1.Text) '数字的长度Iflength=1ThenIfText1.Text<>"0."Then'除非结果为零，否则都要减一位Text1.Text="0."EndIfElseText1.Text=Left(Text1.Text,length-1)EndIfEndSubPrivateSubCommand6_Click()清空当前数据Text1.Text="0."EndSubPrivateSubCommand7_Click()'清除所有数据x1=0x2=0Text1.Text=Format(0,"0.")EndSubPrivateSubCommand8_Click()IfText1.Text<0Thenm=MsgBox("被开方的数要大于零”,vbExclamation+vbOKOnly,"提示”)ElseText1.Text=Sqr(Val(Text1.Text))lastinput="=”EndIfEndSubPrivateSubCommand9_Click()IfText1.Text=0Thenm=MsgBox("除数不能为0”,vbExclamation+vbOKOnly,'提示”)Text1.SetFocusElseTextl.Text=Format(1/Val(Textl.Text),"0.####################")lastinput="=”EndIfEndSubPrivateSubcopy_Click()'复制Clipboard.ClearClipboard.SetTextText1.SelTextEndSubPrivateSubForm_Initialize()'利用控件数组产生0-9的控件Fori=1To9LoadCommand1(i)SelectCaseiMod3Case0WithCommand1(i).Visible=True.Caption=i.Left=Command1(0).Left+1440.Top=Command1(i-3).Top+Command1(i).Height-1095EndWithCase1WithCommand1(i).Visible=True.Caption=i.Left=Command1(0).Left.Top=Command1(i-1).Top+Command1(i).Height-1095EndWithCase2WithCommand1(i).Visible=True.Caption=i.Left=Command1(0).Left+720.Top=Command1(i-2).Top+Command1(i).Height-1095EndWithEndSelectNextiForj=1To3 '生成运算符的控件按钮LoadCommand2(j)WithCommand2(j).Visible=True.Left=Command2(0).Left.Top=Command2(j-1).Top+Command2(j).Height+100EndWithCommand2(j).Caption=Choose(j,"-","x",”/)NextjFork=1To3LoadCommand12(k)WithCommand12(k).Visible=True.Left=Command12(0).Left.Top=Command12(k-1).Top+Command12(k).Height+100EndWithCommand12(k).Caption=Choose(k,"cos","tan","n!")NextkForn=1To5LoadCommand13(n)WithCommand13(n).Visible=True.Top=Command13(0).Top.Left=Command13(n-1).Left+Command13(n).Width+100EndWithCommand13(n).Caption=Choose(n,"B","C","D","E","F")NextnEndSubPrivateSubForm_Load()'初始化x1=0x2=0Text1.Text="0."EndSubPrivateSubkexue_Click()Form2.ShowForm1.HideEndSubPrivateSubForm_Resize()Me.Height=5820Me.Width=5130EndSubPrivateSubHexadecimal_Click()Textl.Text=Hex(Val(Text1.Text))EndSubPrivateSubNormal_Click()Form1.ShowForm2.HideEndSubPrivateSubOctonary_Click()Text1.Text=Oct(Val(Text1.Text))EndSubPrivateSubOption1_Click()Text1.Text=Hex(Val(Text1.Text))Forn=0To5Command13(n).Enabled=TrueNextnForj=2To9Command1(j).Enabled=TrueNextjCommand1(8).Enabled=TrueCommand1(9).Enabled=Truelastinput="="EndSubPrivateSubOption2_Click()Text1.Text=Oct(Val(Text1.Text))Command1(8).Enabled=FalseCommand1(9).Enabled=FalseForn=0To5Command13(n).Enabled=FalseNextnForj=2To9Command1(j).Enabled=TrueNextjlastinput="="EndSubPrivateSubOption3_Click()Forn=0To5Command13(n).Enabled=FalseNextnCommand1(8).Enabled=TrueCommand1(9).Enabled=TrueForj=2To9Command1(j).Enabled=TrueNextjFori=1ToLen(Text1.Text)SelectCaseMid(Text1.Text,i,1)Case"0”:D=D&"0"Case"1":D=D&"1"Case"2":D=D&"2"Case"3":D=D&"3"Case"4":D=D&"4"Case"5":D=D&"5"Case"6":D=D&"6"Case"7":D=D&"7"Case"8":D=D&"8"Case"9":D=D&"9"Case"A":D=D&"10"Case"B":D=D&"11"Case"C":D=D&"12"Case"D":D=D&"13"Case"E":D=D&"14"Case"F":D=D&"15"EndSelectNextiText1.Text=Dlastinput="=”EndSubPrivateSub