内蒙古巴彦淖尔市临河三中计算机班2018-2019高二下学期信息技术期中考试试题VB

定义有5个整型元素的数组，正确的语句是（  ）

下列程序的运结果是（  ）

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))

在窗体上画一个命令按钮，其Name属性为Command1，然后编写如下代码：

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

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

语句A%=6.8执行后，变量A%的值是（  ）。

执行下列程序后，变量X的值是（  ）

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)

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程。

  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

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

下列没有PICTURE属性的是（  ）

下列程序所计算的数学式子是（  ）

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

运行后输出结果是（  ）

统计列表框选项个数属性的是（  ）

下列语句使用正确的是（  ）

若复选框被选中，其VALUE属性的值是（  ）

若单选按钮被选中，其VALUE属性的值是（  ）

语句Dim a&(1 To 20), b#(2, -1 To 1)定义两个数组，其类型分别为（  ）

定义数组 a(1 to 5, 5)后，下列哪一个数组元素不存在（  ）。

以下程序输出的结果是（  ）。  

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

设有数组定义语句：Dim a(5) As Integer, List1为列表框控件。下列给数组元素赋值的语句，错误的是（  ）。

VB中的三种基本程序结构是结构，结构和结构。

在程序运行过程中可以改变数组元素个数的是数组，不可以改变数组元素个数的是数组。

FOR循环体的执行次数由，和决定.

数组的维数由的个数决定，数组的最小下标从1开始，要在声明段中用语句说明。

组合框是和组合而成的控件。

组合框的类型由其属性决定。

列表框选中项的序号由属性决定。

第一个列表框的默认名称是，第一个组合框的默认名称是。

DIM A(-2 TO 3, 4) AS INTEGER，该数组占的字节数是，该数组中的元数个数是个。

DO 循环中当型循环的关键字是，直到型循环的关键字是。

求2+4+6+8+10+12+14+……100

      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

按了回车键后，将组合框中输入的内容添加到组合框中，组合框的名称是COMBO1。

PRIVATE SUB COMBO1 （KEYASCII AS INTEGER）

IF

        

END IF

END SUB

素数是指除了1和本身不能被任何数整除的数。请将3到100间的素数添加到LIST1中。

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

随机产生10个[12,20]间的随机整数放在A数组中，打印最大的和最小的。请完善程序：

  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