Question

求大神编程vb软件啊 悬赏一千可以吗

具体要求如下 ：
2框不为0时 拿2框中的数字除以（100减去1框和3框中的数字 ）取整数加1
2框为0时 1框中的数字除以3框中的数字得出一个带有小数的结果 小数点后两位乘以一个数字a得出一个靠近100的结果 这个数字a再乘以小数点前的数字再加1

以上是我的要求 跪求大神伸出援手啊。。
满意的话可以找找我其他的问题统一给分啊

Answer 1

Private Sub Command1_Click()
   Dim a As Double, b As String, c As Integer
   If IsNumeric(Text1.Text) And IsNumeric(Text2.Text) And IsNumeric(Text3.Text) Then
      If Val(Text2.Text) <> 0 Then
         Label1.Caption = Str(CInt(Val(Text2.Text) / (100 - Val(Text1.Text) - Val(Text3.Text))) + 1)
      ElseIf Val(Text1.Text) <> 0 Then
         b = Format(Str(Val(Text1.Text) / Val(Text3.Text)), "0.00##")
         c = Mid(b, InStr(b, ".") + 1, 1)
         If Val(c) <> 0 Then
            a = 100 / Val(c)
         Else
            MsgBox "输入数据不符合要求！"
            Exit Sub
         End If
         Label1.Caption = Val(Mid(b, InStr(b, ".") - 1, 1)) * a + 1
      End If
    Else
         MsgBox "输入数据不符合要求！"
    End If
End Sub

追问

还有两个小修改的 抱歉了啊

1、'拿2框中的数字除以（100减去1框和3框中的数字 ）取整数加1 【（100减去1框和3框中的数字 ）这个得出的数字需要再往前算两个小数点】
例子 100-89.01-5.49=5.5 2框中的数字除以的是0.055的
2、最后输出的结果都是要取整数的 小数点后都要四舍五入的

追答

Private Sub Command1_Click() '修改后代码
   Dim a As Double, b As String, c As Integer
   If IsNumeric(Text1.Text) And IsNumeric(Text2.Text) And IsNumeric(Text3.Text) Then
      If Val(Text2.Text) <> 0 Then
         Label1.Caption = Str(CInt(Val(Text2.Text) / (100 - Val(Text1.Text) - Val(Text3.Text)) * 100) + 1)
      ElseIf Val(Text1.Text) <> 0 Then
         b = Format(Str(Val(Text1.Text) / Val(Text3.Text)), "0.00##")
         c = Mid(b, InStr(b, ".") + 1, 1)
         If Val(c) <> 0 Then
            a = 100 / Val(c)
         Else
            MsgBox "输入数据不符合要求！"
            Exit Sub
         End If
         Label1.Caption = CInt(Val(Mid(b, InStr(b, ".") - 1, 1)) * a + 1)
      End If
    Else
         MsgBox "输入数据不符合要求！"
    End If
End Sub

追问

不用测试 我就知道很完美了 晚会我用电脑加分再采纳 非常感谢