数值模拟

Public getTili As Boolean
Public buyTili As Boolean
Public cishu As Integer
Public dengji As Integer
Public tili As Integer
Public jingyan As Integer
Public zijin As Long
Public tianshu As Integer
Private Sub Check1_Click()
If Check1.Value = 1 Then
    'MsgBox "被选择"
    getTili = True
Else
    'MsgBox "未被选择"
    getTili = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
    'MsgBox "被选择"
    buyTili = True
Else
    'MsgBox "未被选择"
    buyTili = False
End If
End Sub
Private Sub readButton_Click()
FileNumber = FreeFile
Open "player.txt" For Input As #FileNumber
Do While Not EOF(FileNumber)
    Line Input #FileNumber, TextLine
    temp = temp + TextLine + vbCrLf
    showTxt.Text = temp
Loop
Close #FileNumber
Set re = New RegExp
re.Pattern = "等级：(\d+).*\n当前经验：(\d+).*\n当