1、源码:.版本 2.子程序 任意进制转十进制, 整数型.参数 文本, 文本型.参数 进制, 整数型.局部变量 i, 整数型.局部变量 十进制, 整数型.计次循环首 (取文本长度 (文本), i) 十进制 = 十进制 × 进制 + 寻找文本 (“0123456789ABCDEF”, 取文本中间 (到大写 (文本), i, 1), , 假) - 1.计次循环尾 ()返回 (十进制)
2、实例:
1、源码:.版本 2.子程序 任意进制转十进制, 整数型.参数 文本, 文本型.参数 进制, 整数型.局部变量 i, 整数型.局部变量 十进制, 整数型.计次循环首 (取文本长度 (文本), i) 十进制 = 十进制 × 进制 + 寻找文本 (“0123456789ABCDEF”, 取文本中间 (到大写 (文本), i, 1), , 假) - 1.计次循环尾 ()返回 (十进制)
2、实例: