内蒙古自治区巴彦淖尔市临河区第三高级中学2021-2022学...

PRIVATE SUB FORM_CLICK( )

S=1

FOR I = 1 TO 5

    S=S*I

NEXT I

PRINT S，I

END SUB

A=1：S=0

DO WHILE A>5

    S=S+A

    A=A+1

LOOP

PRINT S, A

S=6： A=1

DO

    A=A+1

    S=S+A

LOOP UNTIL A<=8

PRINT S, A

FOR A=5 TO 1

    S=S+A

NEXT A

PRINT S  

该程序的运行结果是（     ）

FOR A=1 TO 5 STEP -1

    S=S+A

NEXT A

PRINT S 

该程序的运行结果是（     ）

FOR I= 1 TO 9

    M=VAL(INPUTBOX(“M”))

    IF A>M THEN A=M

NEXT I

PRINT A  

这段程序的功能是（   ）

FOR I= 1 TO 100

    IF I MOD 2 =0 THEN S=S+I 

NEXT I

PRINT S

这段程序的功能是(    )

DIM Y AS INTEGER，A AS INTEGER

Y=3 ：K=3

DO UNTIL K<9

    K=K-2

Y=Y+K

LOOP

PRINT Y; K

DO WHILE N<=10

    S=S+N

LOOP

PRINT S

该程序的运行结果是（    ）。

PrivateSubCommand1_Click()

    n=VAL(Text1.Text)

    SelectCasen

        Case1To20

            x=10

        Case2，4，6

            x=20

        CaseIs<10

            x=30

        Case10

            x=40

    EndSelect

    Text2.Text=x

EndSub

程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是(      )

PRIVATE SUB FORM_CLICK( )

    S=0

    FOR A= 1 TO 5

        S=S+10^A-1

    NEXT A

    PRINT S

END SUB

PRIVATE SUB FORM_CLICK( )

    A=VAL(INPUTBOX(“请输入第一个数”))

    B=VAL(INPUTBOX(“请输入第二个数”))

    C=VAL(INPUTBOX(“请输入第三个数”))

    M=A

    IF M>B THEN M=B

    IF M>C THEN M=C

    PRINT M

END SUB

J=1:N=0

Do While N<3

    J=J*(J+1)

    N=N+1

Loop

Print N; J

FOR I=1 TO 20

    IF I MOD 2=0 THEN

        S=S+1

    ELSEIF I MOD 3 =0 THEN

        M=M+1

    ELSEIF I MOD 5 =0 THEN

        N=N+1

    END IF

NEXT I

PRINT S, M, N

这段程序的执行结果是(        )

PRIVATE SUB FORM_CLICK( )

    S=0

    For i= 1 to 5

        S=s+i

    Next i

    PRINT s

END SUB

a=1

Do Until a>7

    a=a*(a+1)

Loop

Print a

N1=InputBox(“请输入第一个数”)

N2=InputBox(“请输入第二个数”)

Print N1+N2

当输入分别为111和222是，程序输出为（       ）。

FOR A= 1 TO 100

    IF A>9 THEN EXIT FOR

NEXT A

PRINT A

FOR A= 1 TO 3

    PRINT A;

NEXT A

PRIVATE SUB FORM_CLICK( )

    DIM x as integer, y as integer

    X=VAL（INPUTBOX（“请输入数”））

    FOR I= 1 TO

        y=VAL（INPUTBOX（“请输入数”））

        IF x<y THEN

    PRINT X

END SUB

PRIVATE SUB FORM CLICK（）

    DIM X AS SINGLE

    J=0 : B=0: Q=0: L=0: Y=0

    FOR I=1 TO 

        X=VAL（INPUTBOX（“请输入一个成绩”））

        SELECT CASE

            CASE  

                J=J+1

            CASE IS>=80

                B=B+1

            CASE IS>=70

                Q=Q+1

            CASE

                L=L+1

            CASE 

                Y=Y+1

END SUB

PRIVATE SUB FORM_CLICK( )

    DIM X AS STRING

    X=INPUTBOX(“请输入一个字符串”)

    Y=“”

    FOR I= 1 TO

    NEXT I

   PRINT Y

END SUB

PRIVATE SUB FORM_CLICK( )

    S=0

    FOR I= 1 TO

        X=VAL(INPUTBOX(“请输入成绩”))

    NEXT I

    PRINT

END SUB

PRIVATE SUB FORM_CLICK( )

    S=0

    FOR I= 1 TO 100

            S=S+I

        END IF

    NEXT I

   PRINT I

END SUB