20分啊.口水.我来解,先占个楼 VB语言的完整代码如下：Private Sub Command1_Click() s = 1 i = 2 While s < 1000 a = i ^ 2 s = s + i ^ 2 i = i + 1 Wend Print i-2 End Sub 运行结果为：13 你要的答案是【i－2】如...