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

我用的是VB6.0,我学着做了一段封装VBA的代码，在试运行的时候正常，但在生成工程文件的时候报错：“编译错误，用户类型定义未定义。” 请高手点一下。先谢过了。 Sub hongtong() Dim excelApp As New Excel.Application Dim excelWorkBook As Excel.Workbook Dim excelWorksheet As Excel.Worksheet Set excelWorkBook = excelApp.Workbooks.Add '创建新工作簿 Set excelWorksheet = ex...

我是一名财务人员。一直在自学编程，前几年都是自学，拿着一本书在啃，有不懂的就从网上搜答案。这么多年，进展缓慢。但自从在论坛上学习那就进步快多了。自己有疑惑的地方，经高人一指点，那可是豁然开朗。如拨云雾而见青天啊。

这几年一直在学VBA,对VB也稍懂一些。不过这两个语言有些部分是相同的，现在开始学VB喽。