内蒙古巴彦淖尔市临河三中计算机班2018-2019高二下学期...

DIM A（1991 TO 1998） AS INTEGER

FOR I=1 TO 8

   A(I)=I

PRINT A(I)；

       NEXT I

DIM A(6) AS INTEGER

FOR I= 1 TO 6

  A(I)= I

NEXT I

PRINT A(I)

Dim M(10) as integer

For i = 0 To 10

M(i) = 2*i

Next i

Print M(M(3))

Option Base 1

Private Sub Command1Click

     Dim a(4, 4)

     For i = 1 To 3

        For j = 1 To 3

             a(i, j)=(i-1)*3+j

        Next j

     Next i

     PRINT A(3, 1)

End Sub

程序运行后，单击命令按钮，其输出结果为（  ）

PRIVATE SUB FORM__CLICK( )

   S=0

  FOR A = 1 TO 5

    FOR B= 1 TO 3

    S=S+1

    NEXT B

  NEXT A

PRINT S

END SUB

   Dim A(10)，B(5)

   For i = 1 To 10

       A(i) = i

       Next i

   For j = 1 To 5

       B(j) = j * 20

   Next j

   A(5) = B(2)

   Print "A(5)=";A(5)

  Privat Sub Command1 Click

      Dim array1(10,10) As Integer

      Dim i AS integer, j As Integer

      For i = 1 To 3

          For j = 2 To 4

              array1(i,j) = i + j

          Next j

      Next i

  Text1.Text=array1(2, 3)+array1(3, 4)

  End Sub

程序运行后，单击命令按钮，在文本框中显示的值（  ）

PRIVATE SUB FORM__CLICK( ）

S=0

FOR A= 1 TO 5

    S=S+（10^A-1）/3

NEXT A

PRINT S

END SUB

 PRIVATE SUB FORM__CLICK()

 X=INT(RND)+5

   IF X   THEN   PRINT X 

   ELSE   PRINT X+2

   END SUB

 Dim a(3, 3) As Integer

 For m = 1 To 3

 For n = 1 To 3

   a(m, n)=(m-1)*3+n

 Next n

 Next m

   For m = 2 To 3

For n = 1 To 2

   Print a(n, m);

Next n

Next m

运行后输出结果是（  ）

Option Base 1

Private Sub Command1 Click()

    Dim a%(3,3)

    For i=1 To 3

        For j=1 To 3

            a(i,j)=i*j

            Print a(i,j);〃〃;

        Next j

        Print

    Next i

End Sub

      PRIVATE SUB FORM-------CLICK()

      S=0

DIM I AS INTEGER, S AS INTEGER

      FOR I= 2 TO 100

           S=S+

      NEXT I

      PRINT S

      END SUB

        PRIVATE SUB FORM_CLICK

        DIM A（4，4） AS INTEGER

        FOR I = 1 TO 4

           FOR J= 1 TO 4

              IF

                A（I，J）=1

               A（I，J）=0

              END IF

              PRINT A（I，j）;

            PRINT

        END SUB

PRIVATE SUB COMBO1 （KEYASCII AS INTEGER）

IF

END IF

END SUB

PRIVATE SUB FORMCLICK

  FOR I = 3 TO

     F=0

     FOR J= 2 TO I-1

       IF THEN

        F=1

        EXIT FOR

       END IF

     NEXT J

  IF F=0   THEN

 END SUB

  PRIVATE SUB FORM_CLICK()

  MAX=0: MIN=21

FOR I= 1 TO 10

   A(I)=

  IF THEN   MAX=A(I)

  IF THEN  MIN=A(I)

NEXT I

PRINT “最大数是”；MAX ,”最小数是” ；MIN

END SUB