COBOL 在线测验

答案：D

解释

在 COMP-3 字段中，符号存储在最后一个字节中。

答案：C

解释

在数组声明中，我们可以在基本项和组项上指定 OCCURS 子句。

答案：B

解释

9(7) 将占用 7 个字节，SIGN TRAILING SEPARATE 占用 1 个字节，总共占用 8 个字节。

答案：B

解释

WS-ID 将被初始化，数值数据将被替换为语句中提到的 12345。

您可以使用下面提供的尝试选项尝试相同的代码

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.

答案：B

解释

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

您可以使用下面提供的尝试选项尝试相同的代码

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.

答案：B

解释

B-para 将执行 4 次，因为 WS-A 的初始值为 1，并且我们在每次迭代中将其递增 1。这里的条件是 WS-A=5，当此条件满足时，它将退出循环。因此，B-para 将执行 4 次。

您可以使用下面提供的尝试选项尝试相同的代码

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 WS-A PIC 9 VALUE 0.

PROCEDURE DIVISION.
   A-PARA.
   PERFORM B-PARA VARYING WS-A FROM 1 BY 1 UNTIL WS-A=5
   STOP RUN.
   
   B-PARA.
   DISPLAY 'IN B-PARA ' WS-A.

答案：B

解释

此语句不正确，因为在进行重写操作之前，读取操作必须成功。

答案：B

解释

逗号不是文字常量。文字常量是常数值。

答案：B

解释

UNSTRING 动词用于将一个字符串分割成多个子字符串。

您可以使用下面提供的尝试选项尝试相同的代码

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 WS-STRING PIC A(30) VALUE 'WELCOME TO TUTORIALSPOINT'.
   01 WS-STR1 PIC A(7).
   01 WS-STR2 PIC A(2).
   01 WS-STR3 PIC A(15).
   01 WS-COUNT PIC 99 VALUE 1.

PROCEDURE DIVISION.
   UNSTRING WS-STRING DELIMITED BY SPACE
      INTO WS-STR1, WS-STR2, WS-STR3
   END-UNSTRING.
   
   DISPLAY WS-STR2.
   
STOP RUN.

答案：D

解释

COMP-1 占用 4 个字节的存储空间。