运行以下程序后,输出的图案是( )。 Forml.Cls A$=String$(10,“*”) For i=1 To 5 n=10-2*i X$=A$:Y$=SpaceS(n)

admin2012-09-07  11

问题 运行以下程序后,输出的图案是(    )。
    Forml.Cls
    A$=String$(10,“*”)
    For i=1 To 5
        n=10-2*i
        X$=A$:Y$=SpaceS(n)
        Mid$(X$,i+1,n)=Y$
        PrintX$
    Next i

选项 A、*        *

   **      **

   ***    ***

   ****  ****

   **********
B、**********

     **********

    **********

   **********

  **********

C、*********

     *******

      *****

       ***

       **
D、**********

    ********

    ******

    ****

    **

答案A

解析 本题考查循环程序的分析。本程序首先在字符串A中存放10个“*”号。指定循环输出5行;每次循环输出第i行时,把字符串中从i+1开始的n个字符替换成n个空格。根据“n=10-2*i”语句,n的变化为8、6、4、2、0。
转载请注明原文地址:https://jikaoti.com/ti/ZaO0FFFM
0

最新回复(0)