这个VB代码是什么意思

Question

Filename = ".characters.txt"
LoadCharacters()
While MenuOption <> "x"
  TextWindow.Write("Menu : (a) adjust characters, (v) view 
characters, (x) exit, (c) Create Character : ")
  MenuOption = TextWindow.Read()
  MenuOption = Text.ConvertToLowerCase(MenuOption)
  If MenuOption = "a" Then
    TextWindow.WriteLine("Adjusting Characters")
    AdjustCharacters()
  EndIf  
  If MenuOption = "v" Then
    TextWindow.WriteLine("Viewing Characters")
    ViewCharacters()
  EndIf
  If MenuOption = "x" Then
    TextWindow.WriteLine("Exiting program")
    Program.Delay(500)
    Program.End()
  EndIf
  If MenuOption = "c" Then
    TextWindow.WriteLine("Creating Characters")
    Createcharacter()
  EndIf
EndWhile
'================================================
'c:
sub Createcharacter
  TextWindow.WriteLine("Please enter the number of 
characters you want")
  Characternum = TextWindow.ReadNumber()
    For x = 1 To Characternum
    TextWindow.WriteLine("Please enter the name of the 
character" + x)
    Character[x] = TextWindow.Read()
    Strength[x] = 10
    Skill[x] = 10
  EndFor
  AdjustCharacters()
EndSub 
'================================================
'a:
Sub AdjustCharacters
  For X = 1 To Characternum
    Strength[x] = Strength[x] + Math.Floor
(Math.GetRandomNumber(12)/Math.GetRandomNumber(4))
    Skill[x] = Skill[x] + Math.Floor(Math.GetRandomNumber
(12)/Math.GetRandomNumber(4))
  EndFor
  SaveCharacters()
EndSub
'================================================
'v:
Sub ViewCharacters
  For X = 1 To Characternum
    TextWindow.WriteLine("Character " + x + " - " + 
Character[x] + ", stength = " + Strength[x] + ", skill = " 
+ Skill[x])
  EndFor
EndSub
'================================================
Sub LoadCharacters
  ' Requires Filename to be set
  Characternum = File.ReadLine(Filename,1)
  TextWindow.WriteLine("Number of characters = " + 
Characternum)
  For x = 1 To Characternum
    Character[x] = File.ReadLine(Filename,x * 3 - 1) ' Get 
name
    Strength[x] = File.ReadLine(Filename,x * 3) ' Get 
strength
    Skill[x] = File.ReadLine(Filename,x * 3 + 1) ' Get 
skill
  EndFor
EndSub
'================================================
Sub SaveCharacters
  ' Requires Filename and TotalCharacters to be set
  File.WriteLine(Filename,1,Characternum)
  For x = 1 To Characternum
    File.WriteLine(Filename,x * 3 - 1,Character[x]) ' Set 
name
    File.WriteLine(Filename,x * 3, Strength[x]) ' Set 
strength
    File.WriteLine(Filename,x * 3 + 1, Skill[x]) ' Set 
skill
  EndFor
    EndSub  

真的坚持了下来，需要让我的头绕开它。它是小基础，我必须教孩子们如何用伪代码编写它。如果有人能解释一下这段代码可以用来做什么，我们将不胜感激。

干杯

Answer 1

它是游戏的一部分，玩家会看到一个菜单来创建、调整和查看游戏角色。Createcharacter向玩家询问角色的名称，调整角色为角色提供随机的力量和技能点，保存角色将角色写入文件，加载从文件加载角色并放入内存中，查看角色在屏幕上打印角色名称和统计数据。