比方说初始本金100块，拿出20%（即20块）用于投资，
如果赚了1倍（即赚了20块），立即停止投资（此时本金变为120块，下次继续投资仍拿出20%，即24块）
如果赔了50%（即亏了10块），也立即停止投资（此时本金变为90块，下次继续投资仍拿出20%，即18块）
如些反复投资100次后，假设胜率为60%（即共有60次是赚的），最后是多少钱？



“结果”按钮的代码

 Dim m1, m2, m3, m4, m5, m6, x, y
m1 = Val(Text1.Text) '总本金为几块
m2 = Val(Text2.Text) ' 投资百分比
m3 = Val(Text3.Text) ' 赚几倍就跑
m4 = Val(Text4.Text) ' 亏百分之几也跑
m5 = Val(Text5.Text) '胜率的百分比
m6 = Val(Text6.Text) ' 交易的次数
x = 0              '亏的累加次数
y = 0              '盈的累加次数

？？？？？
z = Int(Rnd() * 2)
If z = 0 And x < (1 - m5 * 0.01) * m6 Then
m1 = m1 - m1 * m2 * 0.01 * m4 * 0.01
x = x + 1
End If
If z = 1 And y < m5 * 0.01 * m6 Then
m1 = m1 + m1 * m2 * 0.01 * m3
y = y + 1
End If
？？？？？

Text7.Text = Str(m1 * 10000)


这思路好像是错的，特别是问号处，哪位朋友能帮我完善一下吗？小白一个，不胜感激！！！

[此贴子已经被作者于2016-4-26 13:25编辑过]

可能是你的笔误吧
假设前提是一定赚就赚几倍（text3的值）就跑，然后进行下一场的投资
亏就一定亏百分之几（text4的值）就跑，然后进行下一场的投资。

能否帮忙编一个？谢谢！

可以借助一下我在6楼的回复

[此贴子已经被作者于2016-4-27 00:19编辑过]

很遗憾，不是这样的。如果是赚的话，就赚1倍；如果是亏的话就亏50%。在不重新设定之前，这20次的交易中都是这样盈亏比例的。

[此贴子已经被作者于2016-4-27 00:20编辑过]

不好意思，又打扰你了。
你贴的结果是对的，但我模拟一下，仍是错误的，不知哪个代码改错了？
小小白一个，你说的离场判断代码不知在哪里改。
能否贴个完整的代码，让我学习，谢谢！

可以用了，非常的感谢，俺可以一条一条拆开学习了