有人编写了如下程序： 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

题目

有人编写了如下程序： 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改为Do While s>10000

D.交换x=x+1和s=s+x^2的位置

相似考题

1.（ 35 ）有如下程序：：#includeusing 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 ） retum 1;retum s.x*fun （ Sample （ s.x-a ））}int main （）{int sum=0for （ int i =0; i <6; i ++ ） { sum+=fun （ Sample （ i ） ; ） }cout<<SUM;retum 0;}运行时输出的结果是A ） 120B ） 16C ） 154D ） 34

2.有如下程序: 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

3.下列程序中，实现将封装数据类型Integer和基本数据类型int之间的转换，以及Integer,int类型和String类型之间的转换。请将程序补充完整。程序运行结果如下：123456456public class ex7_1{public static void main(String[]args) {Integer intObj；int n；String s；intObj = new Integer(123)；n=intObj.__________；System.out.printin(Integer.toString(n))；s=new String("456")；intObj=Integer._________；System.out.println(intObj.__________)；n=Integer.parseInt(s)；System.out.println(Integer.toString(n))；}}

4.有人编写了如下程序：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改为Do While s>10000D．交换x=x+l和s=s+x^2的位置

更多“有人编写了如下程序: Private Sub Form. Click( ) Dim s As Integer,x As Integer s=0 x=0 ”相关问题

  • 第1题：

    现有如下程序： Private Sub Command1_Click() s=0 For i=1 To 5 s=s+f(5+i) Next Print s End Sub Public Function f(x As Integer) If x＞=10 Then t=x+1 Else t=x+2 End If f=t End Function 运行程序，则窗体上显示的是( )。

    A．38

    B．49

    C．61

    D．70


    正确答案：B
    解析：本题考查的考点是有关函数调用和If语句的。要注意在前4次循环中每次调用f函数时传递的参数分别为6、7、8、9，都是小于10的；最后一次循环传递参数10。所以最终结果应该为 8+9+10+11+11=49

  • 第2题：

    有以下程序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。注意：友元函数不是类的成员函数，在类外定义时不要加上类名及其作用域运算符(::)。友元函数的调用与一般函数的调用的方式和原理一致，可以在程序的任何地方调用它。

  • 第3题：

    11、下面哪些定义是类型正确的？

    A．f :: (Integer, Integer) -> Float f (x,y) = x / y

    B．f :: (Integer, Integer) -> Float f (x,y) = (fromInteger x) / (fromInteger y)

    C．f :: (Integer, Integer) -> Float f (x,y) = 3*x + y

    D．f :: (Integer, Integer) -> Integer f (x, y) = 3*x + y


    AFT 通常由含有一个双氢呋喃环和一个氧杂萘邻酮(香豆素)的基本架构单位构成 AFT 分为 黄曲霉毒素B1(AFB1)、黄曲霉毒素 B2 (AFB2) 黄曲霉毒素G1(AFG1)、黄曲霉毒素 G2(AFG2) 黄曲霉毒素M1(AFM1)、黄曲霉毒素 M2(AFM2) B1、G1的呋喃环氢键异构。M1型氢键变为羟基。 1比2呋喃环上多了一个双键。

  • 第4题：

    有如下程序： #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.120

    B.16

    C.154

    D.34


    正确答案：C
    本题考查默认构造函数，当i=0、1时，fun(Sample(i))为1；当i=2时，fun(Sample(i)1为2；当i=3时，fun(Sample(i))为6；当i=4时，fun(Sample(i))为24；当i=5时，fun(Sample(i))为120。所以总和为l54

  • 第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。

相关内容