QuickBasic中如何实现可选参数的子程序/函数及坐标式参数？

一、实现带有可选参数的子程序/函数 #

QuickBasic本身不支持你示例中用方括号标记的原生可选参数语法，但可以通过以下几种方式模拟实现：

1. 使用OPTIONAL关键字与IsMissing函数（QB4.5及以上版本） #

QB4.5引入了OPTIONAL关键字和IsMissing函数，允许定义变体类型的可选参数，并判断参数是否被传递：

FUNCTION MyFunct% (x AS INTEGER, OPTIONAL y AS VARIANT, OPTIONAL z AS VARIANT)
    Dim yVal%, zVal%
    ' 给可选参数设置默认值
    yVal = IIf(IsMissing(y), 0, y)
    zVal = IIf(IsMissing(z), 0, z)
    ' 自定义函数逻辑
    MyFunct = x + yVal + zVal
END FUNCTION

' 调用示例
PRINT MyFunct(5)          ' 仅传第一个参数，输出5
PRINT MyFunct(5, 6, 7)    ' 传全部参数，输出18

注意：可选参数必须声明为VARIANT类型，IsMissing仅对变体类型的可选参数有效。

2. 使用PARAMARRAY处理可变数量参数 #

如果需要支持任意数量的参数（或不确定参数个数），可以用PARAMARRAY关键字将参数打包为变体数组，然后在函数内根据数组长度判断参数是否存在：

FUNCTION MyFunct% (PARAMARRAY args())
    Dim x%, y%, z%
    ' 第一个参数为必填项
    x = args(0)
    ' 处理第二个可选参数
    If UBound(args) >= 1 Then
        y = args(1)
    Else
        y = 0 ' 默认值
    End If
    ' 处理第三个可选参数
    If UBound(args) >= 2 Then
        z = args(2)
    Else
        z = 0 ' 默认值
    End If
    MyFunct = x + y + z
END FUNCTION

' 调用示例
PRINT MyFunct(5)          ' 输出5
PRINT MyFunct(5, 6, 7)    ' 输出18

PARAMARRAY必须放在参数列表的最后位置，所有传入的参数会被自动转为变体类型，需要自行处理类型转换。

3. 用特殊默认值模拟可选参数 #

如果使用旧版本QB（不支持OPTIONAL），可以约定一个不会被业务逻辑用到的特殊值作为参数未传递的标记，在子程序/函数内替换为默认值：

FUNCTION MyFunct% (x AS INTEGER, y AS INTEGER, z AS INTEGER)
    ' 约定-999为未传递参数的标记
    If y = -999 Then y = 0
    If z = -999 Then z = 0
    MyFunct = x + y + z
END FUNCTION

' 调用示例
PRINT MyFunct(5, -999, -999) ' 等价于仅传第一个参数，输出5
PRINT MyFunct(5, 6, 7)       ' 传全部参数，输出18

这种方法兼容性好，但调用时需要手动传入标记值，不够简洁。

二、实现类似图形命令的坐标格式参数 #

QuickBasic内置的WINDOW、LINE等命令使用的(x1,y1)-(x2,y2)是编译器层面实现的语法糖，用户自定义的子程序/函数无法直接使用这种语法，但可以通过以下方式模拟：

1. 使用自定义坐标类型封装 #

先定义一个表示坐标点的自定义类型，然后传递两个坐标点参数：

TYPE Point
    X AS INTEGER
    Y AS INTEGER
END TYPE

SUB DrawMyLine (startPt AS Point, endPt AS Point)
    ' 调用内置LINE命令实现逻辑
    LINE (startPt.X, startPt.Y)-(endPt.X, endPt.Y)
END SUB

' 调用示例
Dim p1 AS Point, p2 AS Point
p1.X = 10: p1.Y = 10
p2.X = 50: p2.Y = 50
CALL DrawMyLine(p1, p2)

这种方法代码结构清晰，适合需要多次复用坐标的场景。

2. 使用多参数直接传递坐标值 #

直接将坐标拆解为四个参数（x1,y1,x2,y2），调用时传入对应数值：

SUB MyWindow (x1 AS INTEGER, y1 AS INTEGER, x2 AS INTEGER, y2 AS INTEGER)
    WINDOW (x1, y1)-(x2, y2)
END SUB

' 调用示例
CALL MyWindow(10, 50, 100, 100)

这种方式最接近内置命令的调用逻辑，只是省略了括号对的语法。

3. 使用PARAMARRAY解析可变坐标参数 #

如果需要更灵活的参数传递，可以用PARAMARRAY接收坐标值，然后在子程序内验证参数数量：

SUB MyLine (PARAMARRAY coords())
    ' 验证参数是否为4个（两个坐标点的X、Y值）
    If UBound(coords) <> 3 Then
        PRINT "Invalid coordinate format"
        Exit SUB
    End If
    LINE (coords(0), coords(1))-(coords(2), coords(3))
END SUB

' 调用示例
CALL MyLine(10, 10, 50, 50)

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