：
7-1以外的主线本掉落增加了😂但基本都是1：1左右浮动
：
代码看的人都麻了，想起当初被支配的恐惧了。这里说一下我个人体验游戏后的感觉推开暴击不算，实际伤害应该是这样吧基础面板攻击-目标防御＝基础伤害 基础伤害+（1*对血盾）+（1*对首领角色）如果算上暴击，那就是。 基础伤害*爆伤+（1*对血盾）+（1*对首领角色）对伤应该是和爆伤加算才对
极限输出 V0.8版
V0.3 重新考虑了属性攻击力的加成情况
V0.4 修改了对生命值伤害和对首领伤害的词条上限
V0.5 修改了对生命值伤害，对首领伤害，对护盾伤害，对角色伤害的总上限。
V0.6 实验后发现对生命值伤害，对首领伤害，对护盾伤害，对角色伤害是每个词条上限都为50%。
V0.7 测试过程中发现了一个坏消息，对首领伤害只对有三段血的BOSS生效，如下图，我不知道这是bug还是就是这样，所以下调对首领伤害
9
：
Sub FindMaxValue() Dim a() As Variant, b() As Variant, c() As Variant, d() As Variant, e() As Variant, f() As Variant, g() As Variant Dim max_y As Double, max_a As Double, max_b As Double, max_c As Double, max_d As Double, max_e As Double, max_f As Double, max_g As Double Dim i As Long, j As Long, k As Long, m As Long, n As Long, p As Long, q As Long Dim y As Double Dim row As Long ' 定义数组 a = Array(0, 1, 2, 3) b = Array(0, 1, 2, 3, 4, 5) c = Array(0, 1, 2, 3, 4, 5) d = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15) e = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18) f = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18) g = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18) ' 初始化最大值和对应的变量 max_y = -1E+308 max_a = 0 max_b = 0 max_c = 0 max_d = 0 max_e = 0 max_f = 0 max_g = 0 ' 查找最大值和对应的变量 For i = LBound(a) To UBound(a) For j = LBound(b) To UBound(b) For k = LBound(c) To UBound(c) For m = LBound(d) To UBound(d) For n = LBound(e) To UBound(e) For p = LBound(f) To UBound(f) For q = LBound(g) To UBound(g) If a(i) + b(j) + c(k) + d(m) + e(n) + f(p) + g(q) = 18 Then y = (1 + a(i) * X) * (1 + b(j) * 0.1) * (1 + c(k) * 0.1) * (1 + d(m) * 0.05) * ((1.5 + f(p) * 0.2) * (0.06 + e(n) * 0.1) + (0.94 - e(n) * 0.1) * 1) * (1 + 0.05 * g(q)) If y > max_y Then max_y = y max_a = a(i) max_b = b(j) max_c = c(k) max_d = d(m) max_e = e(n) max_f = f(p) max_g = g(q) End If End If Next q Next p Next n Next m Next k Next j Next i ' 将结果写入A列 row = 1 Range("A1").Value = "攻击力" Range("A2").Value = max_a Range("A3").Value = "对生命值伤害" Range("A4").Value = max_b Range("A5").Value = "对首领伤害" Range("A6").Value = max_c Range("A7").Value = "机械攻击力或元素攻击力或超能攻击力" Range("A8").Value = max_d Range("A9").Value = "暴击率" Range("A10").Value = max_e Range("A11").Value = "暴击伤害" Range("A12").Value = max_f Range("A13").Value = "攻击速度" Range("A14").Value = max_g Range("A15").Value = "y" Range("A16").Value = max_y ' 格式化A列 Range("A1:A16").Font.Bold = True Range("A1:A16").HorizontalAlignment = xlCenter ' 自动调整列宽 Columns("A:A").AutoFit ' 弹出消息框显示结果 MsgBox "增伤倍率的最大值为：" & max_y & vbNewLine & _ "攻击力词条数为：" & max_a & vbNewLine & _ "对生命值伤害词条数为：" & max_b & vbNewLine & _ "对首领伤害词条数为：" & max_c & vbNewLine & _ "机械攻击力或元素攻击力或超能攻击力词条数为：" & max_d & vbNewLine & _ "暴击率词条数为：" & max_e & vbNewLine & _ "暴击伤害词条数为：" & max_f & vbNewLine & _ "攻击速度词条数为：" & max_g End SubSub FindMaxValue() Dim a() As Variant, b() As Variant, c() As Variant, d() As Variant, e() As Variant, f() As Variant, g() As Variant Dim max_y As Double, max_a As Double, max_b As Double, max_c As Double, max_d As Double, max_e As Double, max_f As Double, max_g As Double Dim i As Long, j As Long, k As Long, m As Long, n As Long, p As Long, q As Long Dim y As Double Dim row As Long ' 定义数组 a = Array(0, 1, 2, 3) b = Array(0, 1, 2, 3, 4, 5) c = Array(0, 1, 2, 3, 4, 5) d = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15) e = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18) f = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18) g = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18) ' 初始化最大值和对应的变量 max_y = -1E+308 max_a = 0 max_b = 0 max_c = 0 max_d = 0 max_e = 0 max_f = 0 max_g = 0 ' 查找最大值和对应的变量 For i = LBound(a) To UBound(a) For j = LBound(b) To UBound(b) For k = LBound(c) To UBound(c) For m = LBound(d) To UBound(d) For n = LBound(e) To UBound(e) For p = LBound(f) To UBound(f) For q = LBound(g) To UBound(g) If a(i) + b(j) + c(k) + d(m) + e(n) + f(p) + g(q) = 18 Then y = (1 + a(i) * X) * (1 + b(j) * 0.1) * (1 + c(k) * 0.1) * (1 + d(m) * 0.05) * ((1.5 + f(p) * 0.2) * (0.06 + e(n) * 0.1) + (0.94 - e(n) * 0.1) * 1) * (1 + 0.05 * g(q)) If y > max_y Then max_y = y max_a = a(i) max_b = b(j) max_c = c(k) max_d = d(m) max_e = e(n) max_f = f(p) max_g = g(q) End If End If Next q Next p Next n Next m Next k Next j Next i ' 将结果写入A列 row = 1 Range("A1").Value = "攻击力" Range("A2").Value = max_a Range("A3").Value = "对生命值伤害" Range("A4").Value = max_b Range("A5").Value = "对首领伤害" Range("A6").Value = max_c Range("A7").Value = "机械攻击力或元素攻击力或超能攻击力" Range("A8").Value = max_d Range("A9").Value = "暴击率" Range("A10").Value = max_e Range("A11").Value = "暴击伤害" Range("A12").Value = max_f Range("A13").Value = "攻击速度" Range("A14").Value = max_g Range("A15").Value = "y" Range("A16").Value = max_y ' 格式化A列 Range("A1:A16").Font.Bold = True Range("A1:A16").HorizontalAlignment = xlCenter ' 自动调整列宽 Columns("A:A").AutoFit ' 弹出消息框显示结果 MsgBox "增伤倍率的最大值为：" & max_y & vbNewLine & _ "攻击力词条数为：" & max_a & vbNewLine & _ "对生命值伤害词条数为：" & max_b & vbNewLine & _ "对首领伤害词条数为：" & max_c & vbNewLine & _ "机械攻击力或元素攻击力或超能攻击力词条数为：" & max_d & vbNewLine & _ "暴击率词条数为：" & max_e & vbNewLine & _ "暴击伤害词条数为：" & max_f & vbNewLine & _ "攻击速度词条数为：" & max_g End Sub
：
辛苦了，想请教一下绿毛这种回能需要几条再全堆护盾这种好，还有就是猎刃这种用什么套装，要堆50对角色或者对血伤害么，具体需要什么属性
![[表情_开心]](https://img.tapimg.com/market/images/48516f625646b5ea2c66f0cab3c9c52a.png)
射击的秘密：交错残响的奇妙世界
#我的游戏日记Vol.3
