数学题给我难住了，有没有大神半夜写个例子

王小点

.如果真 (number ＝ “0045”)
    返回 (“0046”)
.如果真结束

.如果真 (number ＝ “0144”)
    返回 (“0145”)

.如果真结束
.如果真 (number ＝ “0243”)
    返回 (“0244”)
.如果真结束

.如果真 (number ＝ “0243”)
    返回 (“0244”)
.如果真结束

.如果真 (number ＝ “0342”)
    返回 (“0343”)
.如果真结束

.如果真 (number ＝ “0441”)
    返回 (“0442”)
.如果真结束

.如果真 (number ＝ “0540”)
    返回 (“0541”)

.如果真 (number ＝ “XXXX”)
    返回 (“XXXX-1”)

这是16进制的。  可以看到规律    从 hex45 + FF 就等于下个结果的 HEX0144   然后0144+FF  就等于下个结果的0243   所以如何计次循环写 一直判断到 FFFF  能算出从 45开始每次加FF 分别的 数是多少

LEOONL

  

子程序名	返回值类型	公开	备 注
地址偏移运算	文本型
参数名	类 型	参考	可空	数组	备 注
参数一	文本型
参数二	文本型

变量名	类 型	静态	数组	备 注
结果	文本型

结果 ＝ 进制_十到十六 (进制_十六到十 (参数一) ＋ 进制_十六到十 (参数二), )
返回 (结果)

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
结果	文本型

结果 ＝ “0045”
判断循环首 (真)
结果 ＝ 地址偏移运算 (结果, “FF”)
调试输出 (结果)
如果真 (取文本左边 (结果, 2) ＝ “FF”)
跳出循环 ()

判断循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 地址偏移运算, 文本型<br /> .参数 参数一, 文本型<br /> .参数 参数二, 文本型<br /> .局部变量 结果, 文本型<br /> <br /> 结果 ＝ 进制_十到十六 (进制_十六到十 (参数一) ＋ 进制_十六到十 (参数二), )<br /> 返回 (结果)<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 结果, 文本型<br /> <br /> 结果 ＝ “0045”<br /> .判断循环首 (真)<br />     结果 ＝ 地址偏移运算 (结果, “FF”)<br />     调试输出 (结果)<br />     .如果真 (取文本左边 (结果, 2) ＝ “FF”)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .判断循环尾 ()

Suky

.如果真 (number ＝ “XXXX”)
    返回 (“XXXX-1”)

你这返回值   是减1？？不是加1吗？

真冬

  

调试输出 (子程序_十六进制加法 (“0045+ff”))

子程序名	返回值类型	公开	备 注
子程序_十六进制加法	文本型
参数名	类 型	参考	可空	数组	备 注
参数1	文本型

变量名	类 型	静态	数组	备 注
对象	对象
a	文本型		0
i1	整数型
b	文本型

a ＝ 分割文本 (参数1, “+”, )
计次循环首 (取数组成员数 (a), i1)
b ＝ b ＋ “+&h” ＋ a [i1]
计次循环尾 ()
对象.创建 (“ScriptControl”, )
对象.写属性 (“Language”, “VBScript”)
返回 (对象.文本方法 (“Eval”, “hex(0” ＋ b ＋ “)”))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> 调试输出 (子程序_十六进制加法 (“0045+ff”))<br /> <br /> .子程序 子程序_十六进制加法, 文本型<br /> .参数 参数1, 文本型<br /> .局部变量 对象, 对象<br /> .局部变量 a, 文本型, , "0"<br /> .局部变量 i1, 整数型<br /> .局部变量 b, 文本型<br /> <br /> a ＝ 分割文本 (参数1, “+”, )<br /> .计次循环首 (取数组成员数 (a), i1)<br />     b ＝ b ＋ “+&h” ＋ a [i1]<br /> .计次循环尾 ()<br /> 对象.创建 (“ScriptControl”, )<br /> 对象.写属性 (“Language”, “VBScript”)<br /> 返回 (对象.文本方法 (“Eval”, “hex(0” ＋ b ＋ “)”))

鹏书

最简答的就是转10进制计算 显示得时候转十六进制

真冬

  

变量名	类 型	静态	数组	备 注
a	文本型

调试输出 (子程序_十六进制四则运算 (“0ff45+ff+1”))
暂停 ()
a ＝ “0045”
循环判断首 ()
a ＝ 子程序_十六进制四则运算 (a ＋ “+ff”)
调试输出 (a, 子程序_十六进制四则运算 (a ＋ “+1”))
循环判断尾 (到整数 (子程序_十六进制四则运算 (a ＋ “-FFFF”, 真)) ＜ 0)

子程序名	返回值类型	公开	备 注
子程序_十六进制四则运算	文本型
参数名	类 型	参考	可空	数组	备 注
参数1_十六进制运算表达式	文本型
参数2_返回十进制	逻辑型

变量名	类 型	静态	数组	备 注
对象	对象

返回 (对象.文本方法 (“Eval”, 选择 (参数2_返回十进制, “(”, “hex(”) ＋ 对象.文本方法 (“Replace”, 参数1_十六进制运算表达式, “&H$&&” ＋ 字符 (到字节 (对象.写属性 (“Global”, 对象.创建 (“VBScript.RegExp”, )) ≠ 对象.写属性 (“Pattern”, “[a-fA-F0-9]+”)))) ＋ “)” ＋ 字符 (到字节 (对象.创建 (“ScriptControl”, ) ≠ 对象.写属性 (“Language”, “VBScript”)))))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 a, 文本型<br /> <br /> 调试输出 (子程序_十六进制四则运算 (“0ff45+ff+1”))<br /> 暂停 ()<br /> a ＝ “0045”<br /> .循环判断首 ()<br />     a ＝ 子程序_十六进制四则运算 (a ＋ “+ff”)<br />     调试输出 (a, 子程序_十六进制四则运算 (a ＋ “+1”))<br /> .循环判断尾 (到整数 (子程序_十六进制四则运算 (a ＋ “-FFFF”, 真)) ＜ 0)<br /> <br /> .子程序 子程序_十六进制四则运算, 文本型<br /> .参数 参数1_十六进制运算表达式, 文本型<br /> .参数 参数2_返回十进制, 逻辑型, 可空<br /> .局部变量 对象, 对象<br /> <br /> 返回 (对象.文本方法 (“Eval”, 选择 (参数2_返回十进制, “(”, “hex(”) ＋ 对象.文本方法 (“Replace”, 参数1_十六进制运算表达式, “&H$&&” ＋ 字符 (到字节 (对象.写属性 (“Global”, 对象.创建 (“VBScript.RegExp”, )) ≠ 对象.写属性 (“Pattern”, “[a-fA-F0-9]+”)))) ＋ “)” ＋ 字符 (到字节 (对象.创建 (“ScriptControl”, ) ≠ 对象.写属性 (“Language”, “VBScript”)))))