有人编写了如下程序: Private Sub Form_Click() Dim s As Integer,x As Integer s=0 x=0 Do While s=10000 x=x+1

admin2011-10-24  23

问题 有人编写了如下程序:
  Private Sub Form_Click()
    Dim s As Integer,x As Integer
    s=0
    x=0
    Do While s=10000
        x=x+1
        s=s+x^2
    Loop
    Pdnt s
  End Sub
    上述程序的功能是:计算s=1+22+32+…+n2+…,直到s>10000为止。程序运行后,发现得不到正确的结果,必须进行修改。下列修改中正确的是

选项 A、把x=0改为x=1
B、把Do While s=10000改为Do While s<=10000
C、把Do While s=10000改为Do While s>10000
D、交换x=x+l和s=s+x^2的位置

答案B

解析 直到s>10000时终止,即:s<=10000时继续,因此本题答案为B)。
转载请注明原文地址:https://jikaoti.com/ti/PHO0FFFM
0

随机试题
最新回复(0)