下面程序段的运行结果是（) 。DO10I=1 ， 5S=0.0IF（MOD（I ， 2).EQ.0)S=S＋IIF（MOD（I ， 3).EQ.0)S=S－

下面程序段的运行结果是 () 。

DO10I=1 ， 5

S=0.0

IF(MOD(I ， 2).EQ.0)S=S+I

IF(MOD(I ， 3).EQ.0)S=S-I

10CINTINUE

WRITE(* ， *)S

END

(A)0.0

(B)1.0

(D)3.0

参考答案

您可能感兴趣的试题

下面程序段的运行结果是（) 。DIMENSION M（3 ， 3)DATA M／1 ， 2 ， 3 ， 4 ， 5 ， 6 ， 7 ， 8 ， 9／DO 1

答案解析
下面程序段的运行结果是（) 。DIMENSIONSUM（3)DATASUM／1.0 ， 2.0 ， 3.0／I=2X=ADD（I ， SUM)WRITE（*

答案解析
下面程序段的运行结果是（)。A=2．56A=A＋0.05I=AA=A／10（A) 2.61（B) 0.2（C) 0.261（D)0

答案解析
下面程序段的运行结果是（)。DO 1 I=1,10,21K=K＋1PRINT *,KEND（A) 10（B) 8（C) 6（D) 5

答案解析
下面程序段的运行结果是（)。DO10I=1，6S=0.0DO10J=I，5，－1S=S＋I＋J10．CONTINUEWRITE（*,100)S100．FORM

答案解析
如下程序段的输出结果是。i=1DO WHILE i<10i=i＋2END DO？ i

答案解析
（12）下列程序段的运行结果是 Sub sele（) Dim n As Integer I=21:n=3 Do While i>n I=i－n Loop

答案解析

下面程序段的运行结果是 （) 。DO10I=1 ， 5S=0.0IF（MOD（I ， 2).EQ.0)S=S＋IIF（MOD（I ， 3).EQ.0)S=S－