汉宫秋月夜
幼苗
共回答了17个问题采纳率:94.1% 举报
我用VB写了:
For i = 1001 To 9999 Step 2
temp1 = i Mod 10
n1 = Int(i / 10)
temp2 = n1 Mod 10
n2 = Int(i / 100)
temp3 = n2 Mod 10
temp4 = Int(i / 1000)
If ((temp1 + temp2 + temp3 + temp4) = 25) Then
Sum = Sum + i
End If
Next i
Print Sum
有问题的话,可以用HI给我留言!
1年前
5