有人编写了如下程序：Private Sub Form_Click()Dim s As Integer，x As Integers=0x=0Do While s=10000x=x+1s=s+x^2LoopPdnt sEnd Sub上述程序的功能是：计算s=1+22+32+…+n2+…，直到s>10000为止。程序运行后，发现得不到正确的结果，必须进行修改。下列修改中正确的是A．把x=0改为x=1B．把Do While s=10000改为Do While s<=10000C．把Do While s=10000

题目

有人编写了如下程序：

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的位置

相似考题

1.有如下程序: include using namespace std; class Sample { frien有如下程序： #include ＜iostream＞ using namespace std; class Sample { friend long fun(Sample s); public: Sample(long a) {x=a;} private: long x; }; long fun(Sample s) { if(s.x ＜ 2) return 1; return s.x * fun(Sample(s.x-1)); } int main() { int stun = 0; for (int i=0; i＜6; i++) {sum += fun(Sample(i));} cout ＜＜ sum; return 0; }运行时输出的结果是A．120B．16C．154D．34

2.有人编写了如下程序： Private Sub Form. Click（） Dim s As Integer，x As Integer s=0 x=0 Do While S=1000 x=x+l s=s+x^2 Loop Print s End Sub 上述程序的功能是：计算s=1+22+32+…+n2+…，直到s>10000为止。程序运行后，发现得不到正确的结果，必须进行修改。下列修改中正确的是（）。A.把x=0改为x=1．B.把Do While s=10000改为Do While s<=10000C.把Do While S=10000改为Do While s>10000D.交换x=x+1和s=s+x^2的位置

3.有如下程序： #inClude<iostream> using namespaCe std； Class Sample{ friend long fun(Sample S)； publiC： Sample(10ng A．{x=a；} private： long X； }； long fun(Sample S){ if(S．x<2)return l； return S．X*fun(Sample(s．x-1))； } int main（） { int sum=0； for(int i=0；i<6；i++) {sum+=fun(Sample(i))；} Cout<<sum： return 0； } 执行这个程序的输出结果是（）。A.120B.16C.154D.34

4.有以下程序include using namespace std;class sample{private:int x;public:sample(有以下程序#include ＜iostream＞using namespace std;class sample{private: int x;public: sample(int a) { x=a; } friend double square(sample s);};double square(sample s){ return s. x*s. x;}int main(){ sample s1(20),s2(30); cout＜＜square(s2)＜＜end1; return 0;}执行结果是( )。A．20B．30C．900D．400

参考答案和解析

正确答案：B
解析：直到s>10000时终止，即：s<=10000时继续，因此本题答案为B)。

更多“有人编写了如下程序:Private Sub Form_Click()Dim s As Integer,x As Integers=0x=0Do While s=1 ”相关问题

第1题：

有以下程序include using namespace std; class sample { private: int x; public:

有以下程序 #include ＜iostream＞ using namespace std; class sample { private: int x; public: sample(int a) { x=a; } friend double square(sample s); }; double square(sample s) { return s.x*s.x; } int main() { sample s1 (20),s2(30); cout＜＜square(s2)＜＜end1; return 0; } 执行结果是
A．20
B．30
C．900
D．400

正确答案：C
解析：本题考核友元函数的应用。程序中函数square是类sample的一个友元函数，它可以直接访问类sample的所有成员。它的功能是返回类sample的私有数据成员x的平方。所以程序的执行结果是：900。注意：友元函数不是类的成员函数，在类外定义时不要加上类名及其作用域运算符(::)。友元函数的调用与一般函数的调用的方式和原理一致，可以在程序的任何地方调用它。
第2题：

有以下程序includeusing namespace std;class sample{private: int x;public: sample

有以下程序 #include＜iostream＞ using namespace std； class sample { private： int x； public： sample(int a) { x=a； } friend double square(sample s)； }； double square(sample S) { return s．x*s.x； } int main() { sample s1(20)，s2(30)； cout＜＜square(s2)＜＜endl； return 0； } 执行结果是
A．20
B．30
C．900
D．400

正确答案：C
解析：本题考核友元函数的应用。程序中函数square是类sample的一个友元函数，它可以直接访问类sample的所有成员。它的功能是返回类sample的私有数据成员x的平方。所以程序的执行结果是：900。注意：友元函数不是类的成员函数，在类外定义时不要加上类名及其作用域运算符(：：)。友元函数的调用与一般函数的调用的方式和原理一致，可以在程序的任何地方调用它。
第3题：

编写程序，实现如下功能：内存中有X、Y两个数：X=32,Y=-78 利用汇编语言编写完整的程序，计算这两个数之和，并将结果存入内存S，即：S=X+Y

√
第4题：

下列程序执行后，变量S的值为______ 。 Dim s As Long，X As Integer s=0 X=1 Do While x＜10 s= s+ x x=x+2 Loop Print s
A． 10
B．25
C．50
D．100

正确答案：B
第5题：

有人编写了如下程序：
Private Sub Form. Click（）
Dim s As Integer，x As Integer
s=0
x=0
Do While S=1000
x=x+l
s=s+x^2
Loop
Print 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
D.交换x=x+1和s=s+x^2的位置

正确答案：B
B。【解析】本题考查简单的循环问题，DoWhile(条件)表示当条件为真时，循环才能执行，针对于本题中只有'-5s=10000是循环才能够进行执行，而程序的功能是计算s=1+22+32+…+100002，所以当s<=10000时执行才能实现此功能，所以答案选择B。

题目

相似考题

参考答案和解析

更多“有人编写了如下程序:Private Sub Form_Click()Dim s As Integer,x As Integers=0x=0Do While s=1 ”相关问题

相关内容