浙教版初中信息技术九年级上学期期末试卷（9）

b=1

Do while (b<40)

    b=b*(b+1) 

Loop

Print b

Dim s As long, x As Integer

s=0 : x=1

Do While (x<10)

    s=s+x

    x=x+2

Loop

Print s

If a>5 then

    if b<4 then

        c=a-b

    else

        c=b-a

    End if

Else

    if b>3 then

        c=a*b

    else

        c= a mod b

    End if

End if

x=0

For i = 1 to 5 

    For j = i to 5

        x=x+1

    Next j

Next i

Print x

a=0

For i=1 To 2 

    For j=i To 2

        For k=1 To j

            a=a+2

        Next k

    Next j

Next i

Dim G As Integer

Dim M As Integer

Input “输入重量 G = ”; G

If  then

    M=0.65*G

Else

    M=

End if

Print “运费为：”; M

Sub mult( )

    Dim Sum As Integer

    Sum=0

    Dim i as integer

    For to 50

        If i MOD 2= Then

        End if

    Next i

    Print sum

End Sub

For  to 9

    For b=0 to 9

        For c=0 to 9

            For d=0 to 9

                X=

                If then

                    print x

                End if

            Next d

        Next c

    Next b

Next a