懂VB的进来,这个是个计算器的代码,但是计算的时候,0.8除以2就是0.5.0.2除以2就是0.等于说是四舍五入

懂VB的进来,这个是个计算器的代码,但是计算的时候,0.8除以2就是0.5.0.2除以2就是0.等于说是四舍五入Dim IntNum As IntegerDim LonNum As LongDim IntNum2 As IntegerPrivate Sub Command1_Click()If IntNum2 = 1 ThenText1.Text = 1IntNum2 = 0ElseText1.Text = Text1.Text & 1End IfEnd SubPrivate Sub Command10_Click()If IntNum2 = 1 ThenText1.Text = 6IntNum2 = 0ElseText1.Text = Text1.Text & 6End IfEnd SubPrivate Sub Command11_Click()If IntNum2 = 1 ThenText1.Text = 9IntNum2 = 0ElseText1.Text = Text1.Text & 9End IfEnd SubPrivate Sub Command12_Click()LonNum = Text1.TextIntNum = 4Text1.Text = ""End SubPrivate Sub Command13_Click()LonNum = Text1.TextIntNum = 1Text1.Text = ""End SubPrivate Sub Command14_Click()LonNum = Text1.TextIntNum = 2Text1.Text = ""End SubPrivate Sub Command15_Click()LonNum = Text1.TextIntNum = 3Text1.Text = ""End SubPrivate Sub Command16_Click()If IntNum = 1 ThenText1.Text = LonNum + Text1.TextElseIf IntNum = 2 ThenText1.Text = LonNum - Text1.TextElseIf IntNum = 3 ThenText1.Text = LonNum * Text1.TextElseIf IntNum = 4 ThenIf Text1.Text = 0 ThenRet = MsgBox("除数不能为0",32 + 3,"错误")ElseText1.Text = LonNum / Text1.TextEnd IfEnd IfIntNum2 = 1End SubPrivate Sub Command17_Click()Text1.Text = ""End SubPrivate Sub Command2_Click()If IntNum2 = 1 ThenText1.Text = 4IntNum2 = 0ElseText1.Text = Text1.Text & 4End IfEnd SubPrivate Sub Command3_Click()If IntNum2 = 1 ThenText1.Text = 7IntNum2 = 0ElseText1.Text = Text1.Text & 7End IfEnd SubPrivate Sub Command4_Click()If IntNum2 = 1 ThenText1.Text = "."IntNum2 = 0ElseText1.Text = Text1.Text & "."End IfEnd SubPrivate Sub Command5_Click()If IntNum2 = 1 ThenText1.Text = 2IntNum2 = 0ElseText1.Text = Text1.Text & 2End IfEnd SubPrivate Sub Command6_Click()If IntNum2 = 1 ThenText1.Text = 5IntNum2 = 0ElseText1.Text = Text1.Text & 5End IfEnd SubPrivate Sub Command7_Click()If IntNum2 = 1 ThenText1.Text = 8IntNum2 = 0ElseText1.Text = Text1.Text & 8End IfEnd SubPrivate Sub Command8_Click()If IntNum2 = 1 ThenText1.Text = 0IntNum2 = 0ElseText1.Text = Text1.Text & 0End IfEnd SubPrivate Sub Command9_Click()If IntNum2 = 1 ThenText1.Text = 3IntNum2 = 0ElseText1.Text = Text1.Text & 3End IfEnd Sub