内蒙古巴彦淖尔市临河三中计算机班2018-2019高二下学期信息技术期中考试试卷VB
试卷更新日期：2019-09-18 类型：期中考试
一、选择题（23*2分）
-
1. 定义有5个整型元素的数组，正确的语句是（ ）A、DIM A(4) AS INTEGER B、OPTION BASE 1：DIM A(5) C、DIM A&(5) D、DIM A(5) AS INTEGER2. 下列程序的运结果是（ ）
DIM A（1991 TO 1998） AS INTEGER
FOR I=1 TO 8
A(I)=I
PRINT A(I)；
NEXT I
A、1 2 3 4 5 6 7 8 B、1991 1992 1993 1994 1995 1996 1997 1998 C、显示出错信息 D、0 0 0 0 0 0 0 03. 下列程序运行后的输出结果是（ ）DIM A(6) AS INTEGER
FOR I= 1 TO 6
A(I)= I
NEXT I
PRINT A(I)
A、0 B、6 C、7 D、显示出错信息4. 下列程序段的执行结果为:（ ）Dim M(10) as integer
For i = 0 To 10
M(i) = 2*i
Next i
Print M(M(3))
A、12 B、6 C、0 D、45. 在窗体上画一个命令按钮，其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 B、7 C、8 D、96. 语句A%=6.8执行后，变量A%的值是（ ）。A、6 B、7 C、6.8 D、7.07. 执行下列程序后，变量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
A、70 B、8 C、25 D、158. 下列程序段的执行结果为（ ）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)
A、A(5)=5 B、A(5)=10 C、A(5)=20 D、A(5)=409. 在窗体上画一个名称为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
程序运行后，单击命令按钮，在文本框中显示的值（ ）
A、12 B、13 C、14 D、1510. 下列没有PICTURE属性的是（ ）A、FORM B、LISTBOX C、OPTIONBUTTON D、CHECKBOX11. 下列程序所计算的数学式子是（ ）PRIVATE SUB FORM__CLICK( ）
S=0
FOR A= 1 TO 5
S=S+（10^A-1）/3
NEXT A
PRINT S
END SUB
A、10+100+1000+10000+100000 B、1+11+111+1111+11111 C、3+33+333+3333+33333 D、9+99+999+9999+9999912. 下列程序的执行结果是（ ）PRIVATE SUB FORM__CLICK()
X=INT(RND)+5
IF X THEN PRINT X
ELSE PRINT X+2
END SUB
A、0 B、7 C、出错 D、513. 下列说法或用法正确的是（ ）A、OPTION BASE 6 B、OPTION BASE语句的位置可以任意 C、DIM A(6, 3 TO 7)定义的是二维数组 D、数组元素的下标不能是负数14. 如果将一个数据添加到列表框中，应用（ ）A、LIST B、REMOVEITEM C、ADDITEM D、CLEAR15. 有如下程序：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
运行后输出结果是（ ）
A、2 5 3 6 B、2 3 5 6 C、4 7 5 8 D、4 5 7 816. 统计列表框选项个数属性的是（ ）A、List B、Listcount C、Listindex D、Selected17. 下列语句使用正确的是（ ）A、DIM A(6 TO 2) AS SINGLE B、LIST2.REMOVEITEM “北京” C、LIST2.CLS D、LIST2.LISTINDEX=018. 若复选框被选中，其VALUE属性的值是（ ）A、0 B、1 C、TRUE D、FALSE19. 若单选按钮被选中，其VALUE属性的值是（ ）A、0 B、1 C、TRUE D、FALSE20. 语句Dim a&(1 To 20), b#(2, -1 To 1)定义两个数组，其类型分别为（ ）A、二维单精度实型数组和二双精度型数组 B、二维长整型数组和二维单精度实型数组 C、一维单精度实型数组和二维整型数组 D、一维长整型数组和二维双精度型数组21. 定义数组 a(1 to 5, 5)后，下列哪一个数组元素不存在（ ）。A、a(1, 1) B、a(1, 5) C、a(0, 1) D、a(5, 5)22. 以下程序输出的结果是（ ）。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
A、
B、
C、
D、
23. 设有数组定义语句：Dim a(5) As Integer, List1为列表框控件。下列给数组元素赋值的语句，错误的是（ ）。A、a(3)=3 B、a(3)=VAL(InputBox(“InputData”） C、a(3)=Listl.ListIndex D、a=Array(1,2,3,4,5,6)二、填空题（20*1分）
-
24. VB中的三种基本程序结构是结构，结构和结构。25. 在程序运行过程中可以改变数组元素个数的是数组，不可以改变数组元素个数的是数组。26. FOR循环体的执行次数由 ， 和决定.27. 数组的维数由的个数决定，数组的最小下标从1开始，要在声明段中用语句说明。28. 组合框是和组合而成的控件。29. 组合框的类型由其属性决定。30. 列表框选中项的序号由属性决定。31. 第一个列表框的默认名称是 ， 第一个组合框的默认名称是。32. DIM A(-2 TO 3, 4) AS INTEGER，该数组占的字节数是 ， 该数组中的元数个数是个。33. DO 循环中当型循环的关键字是 ， 直到型循环的关键字是。
三、程序填空（17*2分）
-
34. 求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
35. 打印矩阵
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
36. 按了回车键后，将组合框中输入的内容添加到组合框中，组合框的名称是COMBO1。PRIVATE SUB COMBO1 （KEYASCII AS INTEGER）
IF
END IF
END SUB
37. 素数是指除了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
38. 随机产生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