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

程序代码：

Option Explicit

Dim sl() As Long        '1，代表赢，0代表亏，-1代表已使用

Private Sub Command1_Click()
Dim m1 As Single, m2 As Single, m3 As Single, m4 As Single
Dim m5 As Single, m6 As Long

Dim x As Single, y As Single
Dim z As Single


Dim i As Long
Dim s As String

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

ReDim sl(m6)         '胜率

For i = 1 To m5 * m6 / 100      '生成总胜率数据，以确保完全符合胜率
    sl(i) = 1
Next i

s = "起始本金：" & Format(m1, "0.00") & vbCrLf
s = s & "投资百分比：" & m2 & "%" & vbCrLf
s = s & "投资赚 " & m3 & " 倍离场" & vbCrLf
s = s & "投资亏 " & m4 & "% 离场" & vbCrLf
s = s & "胜率：" & m5 & "%" & vbCrLf
s = s & "交易次数：" & m6 & vbCrLf

For i = 1 To m6
    s = s & "------第 " & i & " 次交易------" & vbCrLf
    If x = 0 Then
        x = m1 * m2 / 100
        m1 = m1 - x
    End If

    s = s & "总资产：" & Format(m1, "0.00") & "+" & Format(x, "0.00") & "=" & Format(m1 + x, "0.00") & vbCrLf
    s = s & "本金：" & Format(m1, "0.00") & "  投资：" & Format(x, "0.00") & vbCrLf
    y = yinkui
    If y > 0 Then
        z = Round(x * y / 100, 2)
        x = x + z
        s = s & "本次投资赚 " & y & "% ，投资收益：" & z & vbCrLf
        If y > m3 * 100 Then
            '离场
            m1 = m1 + x
            x = 0
            s = s & "离场" & vbCrLf
        End If
    Else
        z = Round(x * y / 100, 2)
        x = x + z
        s = s & "本次投资亏 " & -y & "% ，投资损失：" & z & vbCrLf
        If -y > m4 Then
            '离场
            m1 = m1 + x
            x = 0
            s = s & "离场" & vbCrLf
        End If
    End If
Next i
    m1 = m1 + x
    s = s & "------结  算------" & vbCrLf
    s = s & "总资产：" & Format(m1, "0.00")
Text7.Text = s
End Sub

Public Function yinkui() As Single
'返回赢亏
Dim i As Long
Dim j As Long

i = Int(Rnd() * UBound(sl)) + 1
Do
    If sl(i) = -1 Then
        i = i + 1
        If i > UBound(sl) Then
            i = 1
        End If
    Else
        Exit Do
    End If
Loop
j = Int(Rnd() * 120)        '最大赢率：+ 120% 到 -100%
If sl(i) = 0 Then j = -j
sl(i) = -1
If j < -100 Then j = -100    '防止亏掉本金，只能亏投资
yinkui = j
End Function

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

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

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

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

程序代码：

If sl(i) = 0 Then
    j = -50
Else
    j = 100
End If
sl(i) = -1