VB第2次周考(高三第2学期)

临河三中 周考试卷
1 / 3
临河三中2015---2016学年第二学期 高三年级计算机班第二次周考试题 命题人：秦露 考试时间：3.4
共100分 40分钟 科目:Visual BAsic
一、 选择题
1. 下面语句中可以正确地声明一个动态数据组的是（ ）。

A.Private a(n)As Integer
B.Dim a ( )As Integer
C.Dim a (,) As Integer
D.Dim a( 1 To n)
2. 假定建立了一个名为Command1 的命令按钮数组，则以下说法中错误的是（ ） A 、数组中每一个命令按钮的名称（Name 属性）均为Command1 B 、数组中每一个命令按钮的标题（Caption 属性）都一样 C 、数组中所有命令按钮可以使用同一个事件过程
D 、用名为Command1 （下标）可以访问数组中的每个命令按钮 3. 下列叙述中，正确的是（）
A 、控件数组的每一个成员的Caption 属性值都必须相同
B 、控件数组的每一个成员的Index 属性值都必须不相同
C 、控件数组的每一个成员都执行不同的事件过程
D 、对已经建立的多个类型相同的控件，这些控件不能组成控件数组
4. 在窗体中添加一个命令按钮Command1和一个文本框text1，并有以下程序： Private sub Command1_click() Static a As Variant
A=Array(20,13,45,-10,50,25) …… End sub
此程序的功能是求数组a 的最小元素值，并把最小值放在文本框中。

为实现程序的功能，省略号处的程序段应该是_________
A.min=a(1)
B. min=a(0) For I =2 to 6 For i=1 to 5 If min<a(i)Then If min >a(1)Then min=a(1) min = a(i)
End If End If Next I Next i Text1.Text=min Text1.Text=min C.min=a(0) D.min =a(0) For i=1 to 5 For I =1 to 5 If min<a(1) If min <a(i)Then min=a(i) min=a(i)
End If Next1.Text=min Next 1 Text1.Text=min 5. 以下有关控件数组的说法中错误的是（ ） A.控件数组由一组具有共同名称和相同类型的控件组成 B.控件数组中的每一个控件共享同样的事件过程
C.控件数组中的每隔元素的下标由控件的Index 属性指定
D.同一控件数组中的元素只能有相同的属性设置值
6. 在窗体上画3个单选按钮，组成一个名为chkoption 的控件数组，用于标识数组下标的参数是( )。

A. Tag
B. Index
C. ListIndex
7. 下列叙述正确的是（ ）。

A. 控件数组的每一个成员的Caption 属性值都必须相同
B. 控件数组的每一个成员的Index 的属性值都必须相同
C. 控件数组的每一个成员都执行同样的事件过程
D. 对已经建立的多个类型相同的控件，这些控件不能组成控件数组 二、 填空题
1. 在使用Remin 语句重新定义数组时，为保留原先的数据，应使用（ ）关键
字。

2. 对于数值型数组，各元素的默认值是（），字符串数组元素的默认值是（ ）。

3. 用语句Dim A （10） As Integer 定义的数组其最小小标是（ ）。

4. 控件数组用下标索引值（Index ）来标识各个控件，第一个小标值为（ ）。

5. 设在窗体上有一个文本框Text1，一个标签数组Label1，共有10个标签，以下程序代码实现在单击任一个标签的内容添加到文本框现有内容之后。

Private Sub Label1_Click(Index As Integer)
Text1.text=( )
End Sub
6.以下程序代码实现单击命令按钮Command1时生成20个[0,100]之间的随机整数存于数组arr中，打印数组中大于50数，并求这些数的和，请在空白处填写恰当的语句。

Private sub command1_click()
Dim arr(1 to 20)
For i=1 to 20
Arr(i)=( )
Next i
Sum=0
For Each x In ( )
If x>50 then
Print tab(20);x
Sum=( )
End if
Next ( )
Print tab(20);”sum=”; sum
7.下述程序的功能是实现矩阵的转换（即行列转换）。

阅读下列程序，请在空白处填写恰当的语句，使之完成上述功能。

Option Explicit
Option BAse 1
Private Sub Command1_Click()
Dim I As Integer,j As Integer,D1()As Integer,D2()As Integer
Dim m As Integer,n As Integer
M=inputbox(“输入数组行数”)
N=inputBox（“输入数组列数”）
（）D1(m,n) As Integer,D2(n,m) As Integer
For i=1 to m
For j=1 to n D1(I,j)=Int(Rnd*90+10)
Print D1(I,j);
Next j
Next i
For i=1 to ( )
For j=1 to ( )
( )
Next j
Next i
For i=1 to n
For j=1 to m
Print D2(I,j);
Next j
Print
Next i
End sub
8.下列程序的功能是随机产生10个两位数并输出，然后进行排序并输出，请在空白处填入相应的语句，使之完成上述功能。

Option Explicit
Option Base 1
Private Sub Sommand1_Slick()
Dim D（） As Integer，I As Integer，J As Integer，k As Integer Randomize
（）
For i=1 to 10
D(I)=Rnt(90*Rnd )+10
Print d(i);
Next i
For i=1 to 9
For j=( ) to 10
2 / 3
临河三中 周考试卷
3 / 3
If D(i)>D(j) then K=D(i) D(i)=D(j) D(j)=k End if Next j Print D(i); Next i
Print ( ) End Sub
9. 某数组有20个元素，元素的值由键盘输入，要求将前10个元素与后10个元素对换，即第1个元素与第20个元素互换，第2个元素与第19个元素互换……第10个元素与11个元素互换，以下程序完成元素的值和对换，并输出数组原来各个元素的值和对换后各元素的值。

Private sub command1_click() Dim x(1 to 20) As single Label1.caption=”” Label2.caption=”” N=20 For i=1 to N
X(i)=val(InputBox(“第” & I & ”个数”)) Label1.Caption=Label1.Caption & x （i ）& “” Next i
For i=1 to ( ) T=x(i)
( ) ( ) Next i For i=1 to n
Label2.caption=label2.caption & x(i) & “”
Next i End Sub 三、判断题
1. 在Visual Basic 中只允许使用一维数组和二维数组。

（ ）
2. 在使用Dim 语句声明数组时，下标必须是常量，不能是变量，而在引用数组元素
时下标可以是常数、变量或表达式。

（ ） 3. 在同一过程中，数组和简单变量不能同名。

（ ）
4. 在Visual Basic 中，动态数组可以在需要时改变大小。

（ ）
5. 某动态数组声明为布尔型数组，它们的初始值为True 。

（ ）
6. 窗体中需要使用相同类型的控件时，使用控件数组可以简化程序，节省资源。

（ ）
7. 判断表面数组说明语句的正误。

I 、 Dim a(8) As Integer （ ） II 、 Dim b(n) As Double （ ） III 、 Dim c(8, 3) As String （ ） IV 、 Dim d(-10 To -1) As Boolean （ ） V 、 Dim e(-99 To -5, -3 To 0) （ ）
VI 、 Dim f(-10 To -20, 10 To 20) As Long （ ） VII 、 Dim g(10, -10) As Single （ ）
VIII 、 D im h(100 To 100, 100) As String （ ） IX 、 Dim x(5) As Integer （ ）
ReDim x(10) As Integer
X 、 Dim y() （ ）
ReDim y。