下列程序能输出几个数()。a = 5 if a>4: if a<3: print(1) else: print(2) else: if a<6: print(3) else: print(4)
A.1
B.2
C.3
D.4
A.1
B.2
C.3
D.4
A.1234
B.2345
C.11111
D.1111
阅读下列FORTRAN程序: REAL A(5) COMMON /CC/X DATA A/1,2,3,4,5/ X=0 Y=FUN(A,5) +FUN(A,5) WRITE(*,*) Y END FUNCTION FUN(A,N) REAL A(N) COMMON /CC/X X=X+1 F=1 DO 10 I=N,1 F=F+A(I) 10 CONTINUE FUN=F+X END 上述程序执行后,输出结果是()。
A.4.0
B.5.0
C.16.0
D.33.0
阅读下列FORTRAN程序: INTEGER M(3,3) DATA M/1,2,3,4,5,6,7,8,9/ DO 10 1=1,3 WRITE(*,100) (M(I,J),J=1,I) 10 CONTINUE 10 FORMAT (1X,312) END 上述程序执行后,输出结果是()。
A.1 4 7 2 5 8 3 6 9
B.1 2 3 4 5 6 7 8 9
C.1 2 5 3 6 9
D.1 4 5 7 8 9
阅读下列FORTRAN程序
INTEGERX(3,3),A
DATA X/1,2,3,4,5,6,7,8,9/
DO 10 I=1,3
DO 10 J=I+1,3
A=X(I,J)
X(I,J)=x(J,I)
X(J,I)=A
10 CONTINUE
20 WRITE(*,20)((X(I,J),J:l=3),I=1,3)
20 FORMAT(1X,3I2)
END
运行上述程序后,其输出是()。
(A) 1 4 7
2 5 8
3 6 9
(B) 1 2 3
4 5 6
7 8 9
(C) 9 6 1
8 5 2
7 4 3
(D) 9 8 7
6 5 4
3 2 1
A.5 8 12 15 30
B.12 15 5 30 18
C.8 12 15 30 18
D.12 15 5 18 30
Private Sub Form_Click()
Dim N%, N1%, N2%, I%, K1%, K2%
N = Val(InputBox("输入大于6的偶数"))
For N1 = 3 To N / 2 Step 2
K1 = ----1---
For I = 2 To K1 '判断N1是否是素数
If N1 Mod I = 0 Then ----2----
Next I
If I > K1 Then
N2 = ----3----
K2 = Int(Sqr(N2))
For I = 2 To K2
If N2 Mod I = 0 Then Exit For
Next I
If I > K2 Then Print N & "=" & N1 & "+" & N2
End If
End If
Next N1
End Sub
A.31
B.10
C.20
D.13