Dim s As IntegerDim x As IntegerDim y As Integers = 0x = 1y = 1While (x \ y > 10 ^ -5)s = s + x \ yx = x + 1y = y + 2Wend-----------------------------------------------------------------------最后结果...