8位BASIC的DEF FN(x)定义函数命令在VB.NET中的等效转换方法

8位BASIC里的DEF FN本质是轻量的单行自定义表达式函数，在VB.NET中有两种成熟的对应实现，完全可以匹配你移植老游戏的需求：

• 第一种是标准Function过程，是最稳妥、可读性最高的方案，适合所有场景。你可以直接在窗体类或者代码模块里定义函数，调用方式和老BASIC里写FNX()、FNDS()完全一致。
  对应你贴出的代码，移植后的写法如下（已经修正了你原代码里的括号bug）：

  ' 初始化随机数生成器，放在程序启动逻辑里，和Commodore BASIC的RND行为对齐
  Private rndGen As New Random()
  
  ' 对应原代码90行 DEF FNX(D)=INT(RND(0)*D*8-D*3)
  Private Function FNX(D As Integer) As Integer
      Return CInt(Math.Floor(rndGen.NextDouble() * D * 8 - D * 3))
  End Function
  
  ' 对应原代码100行 DEF FNDS(D)，原代码漏了P(D,1)-P(L,1)的闭合括号，已修正
  ' 注意老BASIC里FNDS直接引用了全局变量L和二维数组P，这里如果不想传参可以把L和P设为类/模块级变量
  Private Function FNDS(D As Integer) As Integer
      Dim dx = Math.Abs(P(D, 0) - P(L, 0))
      Dim dy = Math.Abs(P(D, 1) - P(L, 1))
      Dim dz = Math.Abs(P(D, 2) - P(L, 2))
      Return CInt(Math.Floor(Math.Sqrt(dx ^ 2 + dy ^ 2 + dz ^ 2)))
  End Function
  

  定义完成后，你原代码里的P(I,0)=FNX(I)、P(I,6)=FNDS(I)这类调用可以直接照搬，不需要修改调用逻辑。
• 第二种是Lambda表达式（VB.NET 2008及以上版本支持），体感最接近老BASIC就近定义DEF FN的写法，可以直接在代码块内部声明短函数，不需要单独在类/模块级别写函数定义：

  ' 直接写在你需要调用函数的代码段开头即可
  Dim FNX As Func(Of Integer, Integer) = Function(D) CInt(Math.Floor(rndGen.NextDouble() * D * 8 - D * 3))
  Dim FNDS As Func(Of Integer, Integer) = Function(D)
      Dim dx = Math.Abs(P(D, 0) - P(L, 0))
      Dim dy = Math.Abs(P(D, 1) - P(L, 1))
      Dim dz = Math.Abs(P(D, 2) - P(L, 2))
      Return CInt(Math.Floor(Math.Sqrt(dx ^ 2 + dy ^ 2 + dz ^ 2)))
  End Function
  

  如果你是刚接触现代VB开发，优先用第一种标准Function的写法，调试更方便，也不容易出作用域相关的错误。

DEF FN是8位机内存极度受限时代的设计产物，被移除不是因为功能缺失，而是本身的设计缺陷已经不适应现代开发的要求：

• 作用域规则混乱：老式8位BASIC的DEF FN是全局挂载的，函数可以任意读取、修改全局变量，没有访问控制，也没有参数类型校验，程序规模稍大就很容易出现命名冲突、隐式变量依赖导致的bug，排查成本极高。比如你写的FNDS直接引用了全局的L变量和P数组，这种隐式依赖在多人协作或者代码量上千行之后几乎是维护灾难。
• 功能完全被更灵活的方案覆盖：DEF FN最初只能写单行表达式，不支持多行逻辑、局部变量、递归、异常处理等基础能力。从QuickBASIC时代开始，标准的Function过程就已经完全覆盖了DEF FN的所有使用场景，还支持更复杂的逻辑、明确的类型定义，继续保留DEF FN只会增加语法的冗余度。
• 不符合强类型面向对象的设计规范：VB.NET运行在.NET统一类型系统之上，所有代码都需要归属到类/模块的成员下，DEF FN这种脱离类型系统、全局游离的语法设计，和.NET的内存管理、访问控制规则完全不兼容，因此被正式移除，而非没有替代方案。

移植注意：Commodore 16 BASIC中RND(0)返回的是[0,1)区间的单精度浮点数，INT()函数是向下取整，和VB.NET里CInt()的四舍五入逻辑不一样，必须搭配Math.Floor()使用才能和原游戏的随机数、距离计算逻辑完全一致，否则会出现坐标偏移、随机范围不对的问题。另外原100行的FNDS如果按照你贴的代码直接运行，会因为漏了括号先计算P(L,1)^2再做减法，算出来的距离是完全错误的，移植时一定要修正这个括号问题。

内容的提问来源于stack exchange，提问作者dazeleeper