COBOL 在线测试

以下测验提供与COBOL Framework相关的多项选择题（MCQ）。您必须阅读所有给定的答案并单击正确的答案。如果您不确定答案，则可以使用“ Show Answer按钮Show Answer 。您可以使用“ Next Quiz按钮在Next Quiz中检查新的问题集。

问题1 - COBOL中的AREA B从哪里开始？

Answer : B

说明 (Explanation)

所有COBOL语句必须从区域B开始，区域B从12列到72列

问题2 - 如何在程序中声明半字二进制？

Answer : B

说明 (Explanation)

S9（4）COMP用于声明半字二进制。

问题3 - S9（7）SIGN TRAILING SEPARATE字段占用多少字节？

Answer : B

说明 (Explanation)

对于SIGN TRAILING SEPARATE，9（7）将占用7个字节和1个字节，因此它将占用总共8个字节。

问题4 - 以下程序的输出是什么？

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 WS-ID PIC 9(5).
PROCEDURE DIVISION.
   A000-FIRST-PARA.
   INITIALIZE WS-ID REPLACING NUMERIC DATA BY 12345.
   DISPLAY WS-ID.
STOP RUN.

Answer : B

说明 (Explanation)

WS-ID将被初始化，数字数据将被声明中提到的12345替换。

您可以使用下面的“ Try it选项尝试相同的代码:

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 WS-ID PIC 9(5).
PROCEDURE DIVISION.
   A000-FIRST-PARA.
   INITIALIZE WS-ID REPLACING NUMERIC DATA BY 12345.
   DISPLAY WS-ID.
STOP RUN.

问5 - 以下程序的输出是什么？

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 WS-NUM1 PIC 9(9).
   01 WS-NUM2 PIC 9(9).
PROCEDURE DIVISION.
   A000-FIRST-PARA.
   MOVE 25 TO WS-NUM1 
   MOVE 15 TO WS-NUM2 
   IF WS-NUM1 > WS-NUM2 THEN
      DISPLAY 'IN LOOP 1 - IF BLOCK'
   ELSE
      DISPLAY 'IN LOOP 1 - ELSE BLOCK'
   END-IF.
STOP RUN.

A - IN LOOP 1 - ELSE BLOCK

B - IN LOOP 1 - IF BLOCK

C - 错误

D - 这些都不是

Answer : B

说明 (Explanation)

WS-NUM1大于WS-NUM2，因此满足条件并且它将进入IF循环。

您可以使用下面的“ Try it选项尝试相同的代码:

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 WS-NUM1 PIC 9(9).
   01 WS-NUM2 PIC 9(9).
PROCEDURE DIVISION.
   A000-FIRST-PARA.
   MOVE 25 TO WS-NUM1 
   MOVE 15 TO WS-NUM2 
   IF WS-NUM1 > WS-NUM2 THEN
      DISPLAY 'IN LOOP 1 - IF BLOCK'
   ELSE
      DISPLAY 'IN LOOP 1 - ELSE BLOCK'
   END-IF.
STOP RUN.

问题6 - 物理记录是外部设备上存在的信息，逻辑记录是程序使用的信息。这个陈述是真是假？

A - True

B - False