内蒙古巴彦淖尔市临河三中计算机班2018-2019高二下学期信息技术期中考试试卷VB
年级： 学科：信息技术（信息科技） 类型：期中考试 来源：91题库
一、选择题（23*2分） （共23小题）
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
Next i
End Sub
B . 
C . 
D . 
二、填空题（20*1分） （共10小题）
三、程序填空（17*2分） （共5小题）
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）;
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