下列程序运行后屏幕显示的结果是（ ）。 S= FOR X=2 TO 10 STEP 2 S=S+X ENDFOR ?S RETURNA.10B.20C.30D.40
下列程序运行后屏幕显示的结果是（ ）。 S= FOR X=2 TO 10 STEP 2 S=S+X ENDFOR ?S RETURN
A.10
B.20
C.30
D.40
相关考题：
有人编写了如下程序：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+…，直到s10000为止。程序运行后，发现得不到正确的结果，必须进行修改。下列修改中正确的是A．把x=0改为x=1B．把Do While s=10000改为Do While s=10000C．把Do While s=10000改为Do While s10000D．交换x=x+l和s=s+x^2的位置
阅读下列程序，并给出运行结果SET，FALK OFFCLEARSTORE 0 T0 X，Y，S1，S2，S3D0 WHILE X1OX=X +lDO CASECASE INT(X/2)=X/2S1：SI+X/2CASE MOD(XJ 3)=0S2=S2+X/3CASE INT(X/2)X/2S3=S3+1ENDCASEENDDO?S1,S2,S3SET TALK 0NRETURN运行以上程序后，屏幕显示【 】。
有人编写了如下程序： 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+…，直到s10000为止。程序运行后，发现得不到正确的结果，必须进行修改。下列修改中正确的是（ ）。A.把x=0改为x=1．B.把Do While s=10000改为Do While s=10000C.把Do While S=10000改为Do While s10000D.交换x=x+1和s=s+x^2的位置
运行下列程序:Private Sub form_Click( )Dim sl As String, s2 As Strings1 = "12341234m = 0For i = 3 To 1 Step -1m = m + 1s2 = fun1(s1, m)Debug.Print s2;Next iEnd SubPrivate Function fun1(x, y) As Stringfun1 = Right(x, y)End Function单击窗体后，则在立即窗口内显示结果是( )。A.1234B.4321C.434234D.1111
有人编写了如下程序：Private Sub Form. Click（ ）Dim s As Integer，x As Integers=0x=0Do While S=1000x=x+ls=s+x^2LoopPrint sEnd Sub上述程序的功能是：计算s=1+22+32+…+n2+…，直到s10000为止。程序运行后，发现得不到正确的结果，必须进行修改。下列修改中正确的是（ ）。A.把x=0改为x=1．B.把Do While s=10000改为Do While s=10000C.do= while= s=10000D.交换x=x+1和s=s+x^2的位置
阅读下列FORTAN程序：INTEGER X(7)DATA X/4,5,7,8,10,12,11/DO 10 K=l，7IF(MOD(X(K)，2)NE. 0)THEN S=S+X(K)N=N+1 END IF 10 CONTINUE T=S/NWRITE(*，20)S，T 20 FORMAT(2X，3F6.1)END程序运行后的输出结果是：A. 23.0 7.7B. 47. 0 6.7C. 34. 0 8.5D. 57. 0 11.4
下列程序段的输出结果是_____。 Dim s As Integer For i=10 To 1 Step -2 s=s+i Next i Print iA．0B．-1C．1D．-2