无法调用子程序 [复制链接]

//读取界面元素名称为"账号"的默认值,如果该元素未设置默认值则读出100
dim 采集 = ReadUIConfig("多选框1")
dim 训练 = ReadUIConfig("多选框2")
dim 晋升 = ReadUIConfig("多选框3")
dim 资源类型 = ReadUIConfig("A1")
dim 训练等级 = ReadUIConfig("B1")
dim 晋升等级 = ReadUIConfig("C1")

If 采集 = true Then
TracePrint "采集"
call 资源A()

ElseIf 训练 = true Then
TracePrint "训练"
call 训练A()

ElseIf 晋升 = true Then
TracePrint "晋升"
call 晋升A()

End If

Sub 资源A


If 资源类型 = 0 Then
TracePrint "无"
Else
If 资源类型 = 1 Then
TracePrint "生肉"
Else
If 资源类型 = 2 Then
TracePrint "木材"
Else
If 资源类型 = 3 Then
TracePrint "煤矿"
Else
If 资源类型 = 4 Then
TracePrint "铁矿"
End If
End If
End If
End If
End If
End Sub


Sub 训练A
If 训练等级 = 0 Then
TracePrint "无"
ElseIf 训练等级 = 1 Then
TracePrint "训练1级"
ElseIf 训练等级 = 2 Then
TracePrint "训练2级"
ElseIf 训练等级 = 3 Then
TracePrint "训练3级"
ElseIf 训练等级 = 4 Then
TracePrint "训练4级"
ElseIf 训练等级 = 5 Then
TracePrint "训练5级"
ElseIf 训练等级 = 6 Then
TracePrint "训练6级"
ElseIf 训练等级 = 7 Then
TracePrint "训练7级"
ElseIf 训练等级 = 8 Then
TracePrint "训练8级"
End If
End Sub

Sub 晋升A
If 晋升等级 = 0 Then
TracePrint "无"
ElseIf 晋升等级 = 1 Then
TracePrint "晋升1级"
ElseIf 晋升等级 = 2 Then
TracePrint "晋升2级"
ElseIf 晋升等级 = 3 Then
TracePrint "晋升练3级"
ElseIf 晋升等级 = 4 Then
TracePrint "晋升练4级"
ElseIf 晋升等级 = 5 Then
TracePrint "晋升练5级"
ElseIf 晋升等级 = 6 Then
TracePrint "晋升练6级"
ElseIf 晋升等级 = 7 Then
TracePrint "晋升7级"
ElseIf 晋升等级 = 8 Then
TracePrint "晋升8级"
End If
End Sub


萌新求教，为什么上面这段代码，无法调用子程序