剛剛考試給出的一道題

Johnnyc

剛剛考試碰到一道填充題，不懂解，大家有興趣可試試。底線部份就是要填充的內容。

Sub test()
Dim i As Integer
Dim s As Integer
i = 1
s = 0
Do While i < 10
    if  _____  =1 then
        s = s + i
    End If

    i = i + 1
Loop
msgbox s

(結果：s = 12 )
求底線部份要填內容

End Sub

熊之召唤术

这事啥题目？数学题？1-9取数加起来=12？

zhenghui13

i Mod 3
i              s
1             1
4             5
7             12

曹银强

Sub test()
Dim i As Integer
Dim s As Integer
i = 1
s = 0
Do While i < 10
     If i - s - 3 = 1 Then
         s = s + i
     End If
    i = i + 1
Loop
MsgBox s
End Sub

曹银强

填写内容为： i - s - 3

lsdongjh

If i Mod 3 = 1 Then

microyip

1. -1 * (i = 5) - 1 * (i = 7)

复制代码

microyip

这种题目随便填都是对的，答案有很多种，不是唯一的

Johnnyc

感謝各位，都是高手!