填空题下列程序的运行结果是（）。 Program test Implicit none Integer::sum,i sum=0.0 do i=1,203,2 sum=sum+i end do write(*,*) i end
填空题
下列程序的运行结果是（）。 Program test Implicit none Integer::sum,i sum=0.0 do i=1,203,2 sum=sum+i end do write(*,*) i end
参考解析
解析：
暂无解析
相关考题：
设有命令按钮Command1的单击事件过程，代码如下： Private Sub Command1 Click() Dim a(3,3)As Integer For i=1 To 3 For j=1 To 3 a(i,j)=i*j+i Next j Next i Sum=0 For i=1 To 3 Sum=Sum+a(i,4-i) Next i Print Sum End Sub 运行程序，单击命令按钮，输出结果是______。A．20B．7C．16D．17
有如下程序： Private Sub Form_Click() Dimi As Integer,sumASInteger sum=0 For i=2To 10 If i Mod2＜＞0 And i Mod 3=0 Then sum=sum+i End If Nexti Print sum EndSub 程序运行后，单击窗体，输出结果为( )。A．12B．30C．24D．18
有如下程序： Private Sub Form_Click() Dim i As Integer，Sum As Integer Sum=0 For i=2 To 10 If i Mod 2＜＞0 And i Mod 3=0 Then Sum=Sum+i End If Next Print Sum End Sub 程序运行后，单击窗体，输出结果为A．12B．30C．24D．18
下列程序的执行结果是 Function P(N As Integer) For i=1 To N Sum=Sum+i Next i P=Sum End Function Private Sub Commandl_Click() S=P(1)+P(2)+P(3)+P(4) Print S End SubA.15 B.16 C.20 D.25
以下程序的运行结果是()。main(){inti=1,sum=0;while(i10)sum=sum+1;i++;printf(“i=%d,sum=%d“,i,sum);}A、i=10,sum=9B、i=9,sum=9C、i=2,sum=1D、运行出现错误
下列程序运行后,单击窗体,输出结果为( )。 Private Sub Form_Click() Dim i As Integer, sum As Integer sum = 0 For i = 2 To 10 If i Mod 2 <> 0 Andi Mod 3 = 0 Then sum = sum ＋ i End If Next i Print sum End Sub A. 12B. 18C. 24D. 30
阅读下列程序： Function func(n As Integer)As Integer Sum = 0 For i = 1 To n Sum = Sum + (i + 1)* i Next i func = Sum End Function.Private Sub Command1_Click () Dim a As Integer a= 5 s = func (A)Print s End Sub 程序运行后，单击命令按钮，输出的结果为A．80B．60C．70D．15
下列程序段的输出结果是【】。 include void main() {inti=10,sum=0;do{sum=＋sum＋i;i=i 下列程序段的输出结果是【 】。include＜iostream.h＞void main(){int i=10，sum=0；do{sum=+sum+i；i=i-2;}while(i＞＝2)；cout＜＜sum＜＜end1；}
有如下程序，可以得到0到100之间所有偶数之和。 DIM I AS INTEGER DIM SUM AS INTEGER SUM = 0 FOR I =0 TO 100 STEP 2 SUM = SUM + I NEXT I DEBUG. PRINT I DEBUG. PRINT SUM 程序运行后，变量I和SUM的值是( )。A．100和2450B．102和2550C．104和2650D．106和2850
有如下程序： Private Sub Form_Click( ) Dim i As Integer, Sum As Integer Sum = 0 For i = 2 To 10 If i Mod 2=0 And i Mod 3＜＞0 Then Sum = Sum + i End If Next Print Sum End Sub 程序运行后，单击窗体，输出结果为A．12B．30C．24D．18
有如下程序:: Private Sub Form. Click() Dim i As Integer,sum As Integer sum=0 For i=2 To 10 If i Mod 2 ＜＞0 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为______。A． 12B．30C．24D．18
有如下程序： Private Sub Form_Click() Dim i As Integer, Sum As Integer sum=0 For i=2 To 10 If i Mod 2＜＞0 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为______。A．12B．30C．24D．18
阅读下列程序： Private Sub Form Click() Dim i As Integer， sum As Integer For i = 2 To 10 If i Mod 2 ＜＞ 0 Then Print i； Else sum = sum + i End If Next i Print sum End Sub 程序运行后，单击窗体，在窗体上的输出结果是A．3 5 7 9 30B．1 3 5 7 9C．2 4 6 8 20D．11 15 17 19 20
下面程序运行时，单击窗体后，窗体上显示的结果是( )。 Private Sub Form_Click Dim I As Integer Dim sum As Long Dim t1 As Long t1=1:sum=0 For 1=1 To 3 t1=t1*I sum=sum+t1 Next I Print sum End SubA．3B．9C．5D．6
设有如下程序： Private Sub Form. Click（ ） Dim ary(1 To 5)As Integer Dim i As Integer Dim sum As Integer For i=1 To 5 ary(i)=i+l sum=sum+ary(i) Next i Print sum End Sub 程序运行后，单击窗体，则在窗体上显示的是（ ）。A.15B.16C.20D.25
在窗体上画一个命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1 Click() Dim Arr1(12)As Integer， Arr2(3)As Integer Dim Sum As Integer Sum = 2 For i=1 To 12 Arrl(i)= i Next i For i=1 To 3 Arr2(i)= Arrl(i*i) Next i For i = 1 To 3 Sum = Sum + Arr2(i) Next i Print Sum End Sub 程序运行后，单击命令按钮，在窗体上的输出结果为A．16B．24C．32D．36
下列程序的执行结果是( )。 Function P(N As Integer) For i=1 To N Sum=Sum+i Next i P=Sum End Function Private Sub Command1_Click() S=P(1)+P(2)+P(3)+P(4) Print S; End SubA．15B．16C．2OD．25
以下程序的运行结果是（）. main（） { int i=1，sum=0； while（i10） sum=sum+1；i++； printf（"i=%d，sum=%d"，i，sum）； }A、i=10，sum=9B、i=9，sum=9C、i=2，sum=1D、运行出现错误
填空题下列程序的运行结果是（）。 Program test Implicit none Complex a,b,c A=(1.0,2.0) b= (2.0,4.0) c=a+b Write(*,*) c Stop end
填空题下列程序的运行结果是（）。 Program main implicit none integer, target :: a=1 integer, pointer :: p p=a p=3 write(*,*)a end
填空题下列程序的运行结果是（）。 Program test Implicit none Integer::i Integer::a(5)=(/ (i, i=1,5) /) Integer::b(5)=0 Where (a3) b=a End where Write(*,”(5(i3,1x))”) b end
填空题下列程序的运行结果是（）。 Program main implicit none integer ::a=1 integer ::b=2 call add ( a ) Call add ( b) Write(*,*) a , b Stop end Subroutine add (sum) Implicit none integer :: sum sum=sum+1 Return end
填空题下列程序的运行结果是（）。 Program test Implicit none Integer,parameter:: limit=10 Integer counter Integer:: ans=0 Counter=2 do while(counter=limit) ans=ans+counter counter=counter+2 end do Wrte(*,*)ans end
填空题下列程序的运行结果是（）。 Program test Implicit none Integer::i Integer::a(5) Forall ( i=1:5 ) A(I)=5 End forall Write(*,*)a Stop end
填空题下列程序运行结果为（）。 Program main Implicit none Integer：：floor=5，i Do i=1， floor If（i==3）cycle If（i==4）cycle Write（*，*）i End do end