某人去投高利贷，按照规则，投资一万元，每天可返回利息300元，满两月后，返还截止。
现，该人想知道，到哪一天，他的单日利息与本金相等。

为此，我写了一段VB

Dim i As Integer           i 是天数            
Dim b As Double            b是本金
Dim s As Double            s 是本息之和


Private Sub Command1_Click()
  i = 1          赋初值   
  b = 1
  s = 0
 
  
  Do

    s = s + b                           do loop循环，每循环一次，就把利息加入总和，并把天数增加一次
                                         当本息之和大于2万时，终止循环
    b = b * 0.03
    i = i + 1
   
  Loop While s > 2
  
  Print "第"& i & "天利息达到1万元。"
  
   
End Sub

Private Sub Command2_Click()
  End
  
End Sub



运行结果是 第2天利息就达到了1万元。可是，这明显是错误的

究竟是哪个环节有毛病呢？

    s = s + b            把利息加上去，然后 b 应该是恒等于0.03，你b的初值是多少？
    b = b * 0.03         那这里是干嘛？ 利息 B 不是恒等于 0.03 的吗？

收到的鲜花

• 苍穹之舞 于 2022-06-01 20:35 送鲜花  1朵  

b是本钱，  取本钱的本字声母
b的初值是1 ，  1万元
s=s+b            s 是本利和   

此人把获得的利息300元作为新的本钱，再次投入高利贷公司，获得新的利息

所以 b=b*0.03
在第一次循环里 b=300*0.03

Sub 计算()
Dim 本金, 利息 As Double
Dim 天数 As Long
天数 = 0
本金 = 10000
利息 = 300
Do While 利息 < 10000 '//当达到原本金时
天数 = 天数 + 1
本金 = 本金 + 利息
利息 = Round(本金 * 0.03, 2)
Loop
MsgBox 天数
MsgBox 本金 '//累积本金
MsgBox 利息
End Sub

[此贴子已经被作者于2022-6-1 19:06编辑过]

收到的鲜花

• 苍穹之舞 于 2022-06-01 20:35 送鲜花  2朵  

谢谢你的启发！
我重新了代码

Dim d As Integer
Dim bj As Double
Dim lx As Double

Private Sub Command1_Click()
    bj = 1
    d = 0
    lx = 0
   
    Do While lx < 1
      d = d + 1
      lx = Round(bj * 0.03, 2)
      bj = bj + lx
    Loop
   
    Print "第" & d & "天，单日利息超过一万元。"
    Print "此时，滚动本金是" & bj & "万元。"
   
      
End Sub