Option Explicit Private Sub Command1_Click()Dim gerensds As Single ' 个人所得税Dim fd As Single Dim renshu As Long '人数gerensds = Text1.Text If gerensds <= 45 Then '所得税小于45元时的处理Text4.Text = 0.03Text2.Text = 1Text3.Text = gerensds / 0.03 End If If gerensds > 45 Then '所得税大于45元小于345元时的处理 If gerensds...

Option ExplicitPrivate Sub Command1_Click()Dim gerensds As Single ' 个人所得税Dim fd As SingleDim renshu As Long '人数gerensds = Text1.TextIf gerensds <= 45 Then '所得税小于45元时的处理Text4.Text = 0.03Text2.Text = 1Text3.Text = gerensds / 0.03 End IfIf gerensds > 45 ThenIf Text2.Text <> "" ThenGoTo veryendEnd...

我用的是VB6.0,我做的一个已知个人所得税然后计算应纳税所得额的公式。我在输入个人所得税金额，然后点击运算以后，报错 “溢出，实时错误",代码如下， 我不知道我错那了，请高手指点，先谢了。 Private Sub Command1_Click()Dim gerensds As Single ' 个人所得税Dim fd As Single Dim renshu As Integer '人数gerensds = Text1.Text If gerensds <= 45 Then '所得税小于45元时的处理Text4.Text = 0.03Text2.Text = 1Text3.Te...

我用的是VB6.0,自动求连续整数之和。 Private Sub Command1_Click()Dim x As LongDim y As LongDim z As LongDim a As Longz = 0If Text1.Text = "" Then MsgBox "请输入起始值"If Text2.Text = "" Then MsgBox "请输入截止值"x = Text1.Texty = Text2.TextFor a = x To yz = z + aNext aText3.Text = zEnd Sub