阅读下列FORTRAN77程序:INTEGER A(4,4)DATA A/1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16/WRITE(*,
相似题目
-
下列程序输出结果为( )。Private Sub Command1_Click()a%=10b%=5Change a,bPrint a,bEnd SubPrivate Sub Change(ByVal a As Integer,b As Integer)Tmp=aa=bb=tmpEnd Sub
-
下列程序段的运行结果是( )。Dim A As Integer , B As IntegerA = 15B = 4Print 4 + A B
-
阅读下面一段代码Integer in1 = new Integer(10);Integer in2 = new Integer(10);Integer in3 = 10;Integer in4 = 10;System.out.print(in1 == in2);System.out.print(in1 == in3);System.out.print(in3 == in4);下列选项中,程序的运行结果是( )
-
阅读程序:Function Fun(a As Integer)Static C b=0:b=b+2:c=c+2 F=a*b*cEnd FunctionPrivate S
-
下列不是FORTRAN77赋值语句的是()。(A)X=.TRUE.(B)X=X*X(C)X=X**2**2(D)X=X++
-
阅读下列FORTRAN程序:DIMENSION A(6)READ(*,*)(A(I),I=1,6)DO 10 K=1,3S=A(K)A(K)=A(7-K)A(7-K)=
-
“M不能被N整除”的FORTRAN77表达式是()。A.(M/N).NE.0B.NOT.(MOD(M,N).NE.0)C.MOD(M,N).NE.0D.IN
-
阅读下列FORTRAN程序:DO20K=2,5,2S=1.0DO10J=K,510S=S+J20CONTINUE*WRITE(*,*) SEND执行上述程序
-
阅读下列FORTRAN程序:DIMENSIONA(3,4)DATAA/3*+4.0,3*-3.0,3*-2.0,3*-1.0/S=0.0DO20K=1,3D=A(K,1
-
下列各类计算机程序设计语言中,不属于高级程序设计语言的是()。A.Visual BasicB.Fortran语言C.C++
-
一个完整的FORTRAN77源程序的组成不应该
-
阅读下列FORTRAN程序:READ(*,10)A,B,C10FORMAT(1X,F3.1,2X,2F3.2)WRITE(*,*)BEND如果在执行该程序时从键盘输入1234567890↙(其中↙为回车键)则运行后输出的B值为:()。
-
阅读下列FORTRAN77程序:DIMENSION JA(3),JB(3,2)DATA JB/1,2,3,4,5,6/DO 10 K=1,310 JA(K)=JB(K,
-
阅读下列FORTRAN程序:PARAMETER(L=3)INTEGER N(L)DATAN/3*0/DO20I=1,LDO20J=1,LN(J)=N(1) +120CO
-
阅读下列FORTRAN77程序:INTEGERA(3,3)DATAA.1,2,3,4,5,6,7,8,9/S=0.0DO10I=1.3J=MOD(I,3)+1S=S+A
-
阅读下列FORTRAN程序:INTEGERM(3,3)DATAM/1,2,3,4,5,6,7,8,9/DO101=1,3WRITE(*,100) (M(I,J),J=1
-
阅读FORTRAN程序:READ(*,*)ND0 10 K=1,NS=S+K**210 CONTINUEWRLTE(*,100)S100 FORMAT(2X,F8.0)END键盘输入5则程序运行后的输出结果是()
-
阅读下列FORTRAN程序:DIMENSION M(6)READ(*,*)MDO 10 J=1,6DO 10 K=J,6JF(M(K).LT.M(J))THENN=M(K)M(K)=M(J)M(J)=NEND IF10 CONTINUEWRITE(*,100)(M(I),I=1,6)A.1 2 3 7 9 10
-
单击命令按钮时,下列程序的执行结果是()。 Private Sub Command1_Click() Dim a As Integer,b As Integer,C As Integer a=3 b=4 c=5 Print SecProc(c,b,a) End Sub Function FirProc (x As Integer,y As Integer,z As Integer) FirProc
-
阅读下列FORTRAN程序:MQIUH=N (5) +N (10)WRITE(*,’(2X, 15)’)MQIUHENDFUNCTION N (K)N=0DO 10 J=1,kN=N+J10 CONTINUERETURNEND程序运行后的结果是()
-
阅读程序: Sub p(b() As Integer) For i=1 To 4 b(i)=2*i Next i End 5ub Private Sub Command1_C1ick() Dima(1 To 4)As InteSera(1)=5a(2)=6a(3)=7a(4)=8 caU p(a) For i=1 To 4 Pdnt a(i) Next i End Sub 运行上面的程序,单击
-
阅读程序: Option Base 1 Private Sub Form_Click() Dima(3)As Integer Print"输入的数据是:"; Fori=1 To 3 a(i)=InputBox(“输入数据”) Printa(i); Next Print If a(1)<a(2) Then t=a(1) a(1)=a(2) a(2)= [10] End If Ifa(2)>a(3)T
-
执行下列程序后,变量a的值为()。 Dim i As Integer Dim a As Integer a=0 For i=1 To 100 Step 2 a=a+1 Next i
-
阅读程序: Option Base1 Private Sub Form_Click() Dim a(3)As Integer Print“输入的数据是:”; For i=1 To 3 a(i)=InputBox(“输人数据”) Print a(i); Next Print If a(1) t=a(1) a(1)=a(2) a(2)=【8】 End If If a(2)>a(3) Then m=a
推荐题目
- 江苏省城乡和住房建设厅《关于加强全省建筑安全生产责任追究若干意见的通知》对建筑施工安全生产监督管理部门或单位在,取消其在本考核年度内安全生产各类评优、评奖资格,并在江苏省范围内通报批评。()
- 卸妆时皮肤清洁的第一步,用来去除面部的()
- 患者男性,70岁。因乙状结肠癌并发肠梗阻4天,体温39℃,拟行急诊肠切除吻合术。既往有高血压病史10年,现血压110/90mmHg。最佳的麻醉方法是()
- 混凝土作业分包企业资质标准要求企业近3年()年完成劳务分包合同额100万元以上。
- 对渗透液进入裂纹、裂缝和小开口缺陷的速度和程度有影响的性能是()
- 计算题:灌浆时,在8min之内灌进了三槽(200L/槽)浆液。问在灌浆记录表“单位注浆量”一栏中应记多少?
- ()是一种汲取各种鸟禽的特点而组成的图案,在商代青铜器装饰中应用很广。
- 社会主义核心价值观和社会主义核心价值体系具有内在的一致性。(1.0分)
- 小调中在Ⅱ级上构成的和弦音是re fa la do。
- 做耐压试验的设备周围栏上须悬挂标示牌()