数值模拟

最新推荐文章于 2024-12-13 08:46:04 发布

侠之大者为国为民

最新推荐文章于 2024-12-13 08:46:04 发布

阅读量1.4k

点赞数

CC 4.0 BY-SA版权

分类专栏： VB 文章标签： VB

本文链接：https://blog.youkuaiyun.com/sofeien/article/details/39399857

本文深入探讨了数值模拟的概念及其在不同领域的应用，通过实例展示了如何使用VB进行数值模拟编程，揭示了其在解决复杂问题中的强大能力。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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当前体力：(\d+).*\n资金：(\d+).*\n可购买体力次数：(\d+)"
If (re.Test(temp) = True) Then
    Set re1 = re.Execute(temp)(0)
    cishu = re1.SubMatches