又一道蓝桥小题

不规则结构

图片是原题截图！原题对内存占用(360m)和运行时间（2s）要求极其严格，做对的只有17%！附件根据原题略有改动！有兴趣的朋友可以对标要求用vba做一下！

一招秒杀

1 句 6行，0.015-0.032秒，在原题范围内，数字再大，也不会影响速度，全部瞬间秒杀，内存耗用几乎可以忽略不计，做题生产，两个数例，都试了一下，欢迎验证。

不规则结构

一招秒杀 发表于 2024-9-29 20:19
1 句 6行，0.015-0.032秒，在原题范围内，数字再大，也不会影响速度，全部瞬间秒杀，内存耗用几乎可以忽略 ...

另外2行的结果你试验了吗

一招秒杀

不规则结构 发表于 2024-9-29 20:56
另外2行的结果你试验了吗

一个是93，一个是819，你帮我验证一下，时间 一般是 0.014秒。

不规则结构

一招秒杀 发表于 2024-9-29 21:14
一个是93，一个是819，你帮我验证一下，时间 一般是 0.014秒。

和我算的一样.

一招秒杀

增加  (0,0), 修正  整周的情况下，天 数不会多 +1。

yynrzwh

Function test(a As Long, b As Long, n As Long)
Dim x As Long, s As Long
'a = 10
'b = 20
'n = 99
x = 0
s = 0
Do While s < n
    x = x + 1
    If (x + 1) Mod 7 = 0 Or x Mod 7 = 0 Then
        s = s + b
    Else
        s = s + a
    End If
Loop

test = x
End Function

醉眼看尘世

一招秒杀 发表于 2024-9-29 20:19
1 句 6行，0.015-0.032秒，在原题范围内，数字再大，也不会影响速度，全部瞬间秒杀，内存耗用几乎可以忽略 ...

手算8天就可以了，好像

一招秒杀

醉眼看尘世 发表于 2024-9-29 22:57
手算8天就可以了，好像

附图里面有2组数据，一组为8，一组为……

kevinchengcw

是我理解错了吗