懂VB的进来,这个是个计算器的代码,但是计算的时候,0.8除以2就是0.5.0.2除以2就是0.等于说是四舍五入
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/10/04 19:44:16
懂VB的进来,这个是个计算器的代码,但是计算的时候,0.8除以2就是0.5.0.2除以2就是0.等于说是四舍五入
Dim IntNum As Integer
Dim LonNum As Long
Dim IntNum2 As Integer
Private Sub Command1_Click()
If IntNum2 = 1 Then
Text1.Text = 1
IntNum2 = 0
Else
Text1.Text = Text1.Text & 1
End If
End Sub
Private Sub Command10_Click()
If IntNum2 = 1 Then
Text1.Text = 6
IntNum2 = 0
Else
Text1.Text = Text1.Text & 6
End If
End Sub
Private Sub Command11_Click()
If IntNum2 = 1 Then
Text1.Text = 9
IntNum2 = 0
Else
Text1.Text = Text1.Text & 9
End If
End Sub
Private Sub Command12_Click()
LonNum = Text1.Text
IntNum = 4
Text1.Text = ""
End Sub
Private Sub Command13_Click()
LonNum = Text1.Text
IntNum = 1
Text1.Text = ""
End Sub
Private Sub Command14_Click()
LonNum = Text1.Text
IntNum = 2
Text1.Text = ""
End Sub
Private Sub Command15_Click()
LonNum = Text1.Text
IntNum = 3
Text1.Text = ""
End Sub
Private Sub Command16_Click()
If IntNum = 1 Then
Text1.Text = LonNum + Text1.Text
ElseIf IntNum = 2 Then
Text1.Text = LonNum - Text1.Text
ElseIf IntNum = 3 Then
Text1.Text = LonNum * Text1.Text
ElseIf IntNum = 4 Then
If Text1.Text = 0 Then
Ret = MsgBox("除数不能为0",32 + 3,"错误")
Else
Text1.Text = LonNum / Text1.Text
End If
End If
IntNum2 = 1
End Sub
Private Sub Command17_Click()
Text1.Text = ""
End Sub
Private Sub Command2_Click()
If IntNum2 = 1 Then
Text1.Text = 4
IntNum2 = 0
Else
Text1.Text = Text1.Text & 4
End If
End Sub
Private Sub Command3_Click()
If IntNum2 = 1 Then
Text1.Text = 7
IntNum2 = 0
Else
Text1.Text = Text1.Text & 7
End If
End Sub
Private Sub Command4_Click()
If IntNum2 = 1 Then
Text1.Text = "."
IntNum2 = 0
Else
Text1.Text = Text1.Text & "."
End If
End Sub
Private Sub Command5_Click()
If IntNum2 = 1 Then
Text1.Text = 2
IntNum2 = 0
Else
Text1.Text = Text1.Text & 2
End If
End Sub
Private Sub Command6_Click()
If IntNum2 = 1 Then
Text1.Text = 5
IntNum2 = 0
Else
Text1.Text = Text1.Text & 5
End If
End Sub
Private Sub Command7_Click()
If IntNum2 = 1 Then
Text1.Text = 8
IntNum2 = 0
Else
Text1.Text = Text1.Text & 8
End If
End Sub
Private Sub Command8_Click()
If IntNum2 = 1 Then
Text1.Text = 0
IntNum2 = 0
Else
Text1.Text = Text1.Text & 0
End If
End Sub
Private Sub Command9_Click()
If IntNum2 = 1 Then
Text1.Text = 3
IntNum2 = 0
Else
Text1.Text = Text1.Text & 3
End If
End Sub
Dim IntNum As Integer
Dim LonNum As Long
Dim IntNum2 As Integer
Private Sub Command1_Click()
If IntNum2 = 1 Then
Text1.Text = 1
IntNum2 = 0
Else
Text1.Text = Text1.Text & 1
End If
End Sub
Private Sub Command10_Click()
If IntNum2 = 1 Then
Text1.Text = 6
IntNum2 = 0
Else
Text1.Text = Text1.Text & 6
End If
End Sub
Private Sub Command11_Click()
If IntNum2 = 1 Then
Text1.Text = 9
IntNum2 = 0
Else
Text1.Text = Text1.Text & 9
End If
End Sub
Private Sub Command12_Click()
LonNum = Text1.Text
IntNum = 4
Text1.Text = ""
End Sub
Private Sub Command13_Click()
LonNum = Text1.Text
IntNum = 1
Text1.Text = ""
End Sub
Private Sub Command14_Click()
LonNum = Text1.Text
IntNum = 2
Text1.Text = ""
End Sub
Private Sub Command15_Click()
LonNum = Text1.Text
IntNum = 3
Text1.Text = ""
End Sub
Private Sub Command16_Click()
If IntNum = 1 Then
Text1.Text = LonNum + Text1.Text
ElseIf IntNum = 2 Then
Text1.Text = LonNum - Text1.Text
ElseIf IntNum = 3 Then
Text1.Text = LonNum * Text1.Text
ElseIf IntNum = 4 Then
If Text1.Text = 0 Then
Ret = MsgBox("除数不能为0",32 + 3,"错误")
Else
Text1.Text = LonNum / Text1.Text
End If
End If
IntNum2 = 1
End Sub
Private Sub Command17_Click()
Text1.Text = ""
End Sub
Private Sub Command2_Click()
If IntNum2 = 1 Then
Text1.Text = 4
IntNum2 = 0
Else
Text1.Text = Text1.Text & 4
End If
End Sub
Private Sub Command3_Click()
If IntNum2 = 1 Then
Text1.Text = 7
IntNum2 = 0
Else
Text1.Text = Text1.Text & 7
End If
End Sub
Private Sub Command4_Click()
If IntNum2 = 1 Then
Text1.Text = "."
IntNum2 = 0
Else
Text1.Text = Text1.Text & "."
End If
End Sub
Private Sub Command5_Click()
If IntNum2 = 1 Then
Text1.Text = 2
IntNum2 = 0
Else
Text1.Text = Text1.Text & 2
End If
End Sub
Private Sub Command6_Click()
If IntNum2 = 1 Then
Text1.Text = 5
IntNum2 = 0
Else
Text1.Text = Text1.Text & 5
End If
End Sub
Private Sub Command7_Click()
If IntNum2 = 1 Then
Text1.Text = 8
IntNum2 = 0
Else
Text1.Text = Text1.Text & 8
End If
End Sub
Private Sub Command8_Click()
If IntNum2 = 1 Then
Text1.Text = 0
IntNum2 = 0
Else
Text1.Text = Text1.Text & 0
End If
End Sub
Private Sub Command9_Click()
If IntNum2 = 1 Then
Text1.Text = 3
IntNum2 = 0
Else
Text1.Text = Text1.Text & 3
End If
End Sub
由于你声明的变量都是整数,所以VB在赋值时会先进行取整,比如在Text1输入0.8,则
LonNum = Text1.Text = 0.8 转为整数就是1
再把1除以2不就是0.5吗?
同理,输入0.2则VB会自动转为0,然后0除以2不就是0吗?
应该把变量声明为浮点数(Single或Double)
LonNum = Text1.Text = 0.8 转为整数就是1
再把1除以2不就是0.5吗?
同理,输入0.2则VB会自动转为0,然后0除以2不就是0吗?
应该把变量声明为浮点数(Single或Double)
VB里如何做个可以计算sin和cos的计算器? 求代码
谁来帮我算算这个,64除以(1.75)2等于多少?就是64除1.75的平方
如果a除以b等于2除以7,那么a就是b的2/7.
分数除以整数(0除外),等于分数乘这个整数的倒数,这个计算法则用字母表示就是a/b除以c=()
vb计算1!+3!+*****+(2n+1)!的代码
分数除以整数(0除外),等于分数()这个整数的(),这个计算法则用字母表示就是b分之a÷c=().
一个数不断除以2余数倒过来写为什么就是这个数的二进制呢
求有数字按键的简单vb计算器代码,
如果a除以b等于3除以4,那么a就是b的4分之3( ).
如果a除以b等于5除以6,那么b就是a的多少?
如果a除以b等于5除以6,那么a就是b的多少
如果a除以b等于5除以3,那么a就是b的35