D.A数组中的所有元素值不确定
18.以下定义数组或给数组元素赋值的语句中，正确的是（A） A.Dim A As Variant
A = Array(1, 2, 3, 4, 5) B.Dim A(10) As Integer A = Array(1, 2, 3, 4, 5) C.Dim A(10) A = \
D.Dim A(2) As Integer, B(2) As Integer B(0) = 0: B(1) = 1: B(2) = 2 A = B
19..设有以下语句： Dim A
A = Array(\B = Join(A, \则B的值是（C） A.A B.abc C.a,b,c
D.Join(A,\
20.在以下语句中，a只能是（ B）。 Dim X(15)
For Each a In X Print a; Next a
A.已经声明的动态数组 B.Variant类型的变量 C.已经声明的静态数组 D.整型变量
21.用Array函数给某X赋值时，X必须是（D ）。 A.整型变量
B.已经声明的静态数组 C.已经声明的动态数组 D.Variant类型的变量
22.设已用复制、粘贴的方法建立了一个命令按钮数组，驻足名为Command1，以下对该数组的说法错误的是（C） A.命令按钮的大小都相同
B.命令按钮共享相同的事件过程
C.在代码中访问任意一个命令按钮只需使用名称Command1 D.命令按钮的所有Caption属性都相同
23.设有命令按钮Command1单击事件过程，代码如下： Private Sub Command1_Click(） Dim a(1 To 30）As Integer For i=1 To 30
a(i）=Int(Rnd*100） Next
For Each arrItem In a
If arrItem Mod 7=0 Then Print arrItem； If arrItem>90 Then Exit For Next End Sub
对于该事件过程，以下叙述中错误的是（C ）。
A.If arrItem>90……语句的作用是当数组元素的值大于90时退出For循环 B.If arrItem Mod 7=0……语句的功能是输出数组中能够被7整除的数 C.语句For Each arrItem In a有语法错误 D.a数组中的数据是30个100以内的整数 24.下面的数组声明语句中（ B ）是正确的。 A.Dim a[3,4] As Integer B.Dim a(3, 4) As Integer C.Dim a(3:4) As Integer D.Dim a(3;4) As Integer
25.下列说法中正确的是（ C ）。
A.在调用过程时，所有局部变量被系统初始化为0或空字符串 B.局部变量的作用域可以超出所定义的过程
C.在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程 D.在窗体的Form_Load事件过程中定义的变量是全局变量
26.假设已定义了一个私有通用过程Private Sub Sub1(a As Single, b As Single)，则下列调用语句中错误的是（ C ）。
A.sub1 12，x
B.Call Sub1(2*x，sin(1)) C.Call Sub1 x，y D.Sub1 12，12
27.在参数传递过程中，使用关键字（C）来修饰参数，可以使之按值传递。 A.ByRef B.Reference C.ByVal D.Value
28.下面的过程定义语句中合法的是（D） A.Sub Proc1(n)As Integer B.Sub Procl(ByVal n()) C.Function Procl（Procl） D.Function Procl(ByVal n)
29.当一个工程有多个窗体时，其中的启动窗体时（B) A.最后一个添加的窗体
B.在“工程属性”对话框中指定的启动窗体 C.第一个添加的窗体
D.启动Visual Basic时建立的窗体
30.在窗体模块的通用声明段中声明变量时，不能使用（D ）关键字。 A.Dim B.Public C.Private D.Static
31.下列有关参数的说法中，错误的是（ C）。 A.过程的形参不可以是定长字符串类型的变量
B.按值传递参数，形参和实参的类型可以不同，只要相容即可 C.按地址传递参数，形参和实参的类型可以不同
D.按地址传递参数，形参和实参也能以按值传递方式进行形实结合
32.若在应用程序的标准模块、窗体模块和过程Sub1的说明部分，分别用\、 \和\语句说明了三个同名变量G。
如果在过程Sub1中使用赋值语句\，则该语句是给在（ C ）说明部分定义的变量G赋值。 A.标准模块
B.标准模块、窗体模块和过程Sub1 C.过程Sub1 D.窗体模块
33.要使滚动条表示最大值100，应设置其(A )属性。 A.Max B.Min
C.SmallChange D.LargeChange
34.语句List1.RemoveItem List1.ListCount-1的作用是( C )。 A.删除列表框中当前选中的项 B.删除列表框的第一项 C.删除列表框的最后一项 D.删除列表框中所有的项
35.要设置某文本框的文字具有斜体效果，正确的语句是(D )。 A.Text1.FontItalic = False B.Text1.FontBold = False C.Text1.FontBold = True D.Text1.FontItalic = True
36.单选按钮用于一组互斥的选项中，若一个应用程序中包含多组互斥条件，可使用( B )控件对单选按钮进行分组。 A.框架控件或图像控件 B.框架控件或图片框 C.组合框或图像控件 D.组合框或图片框
37.窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp的事件过程如下： Private Sub Text1_KeyUp(KeyCode As Integer , shift As Integer） Dim C As string c=Text1.Text
Text2.Text=Chr(Asc(c）+2） End Sub
38.以下所列的6个控件中， CheckBox（复选框）、ComboBox（组合框）、HscrollBar（水平滚动条）、Image（图像框）、Frame（框架）、Label（标签）、具有Caption属性的有( A)个。 A.3 B.5
C.2 D.4
39.设在菜单编辑中定义了一个菜单选项，名为menu1。为了在运行时隐藏该菜单项，应使用的语句是（D） A.menu1.Visible=True B.menu1.Enabled=True C.menu1.Enabled=False D.menu1.Visible=False 40.以下说法正确的是（B）
A.只有当代码窗口为当前活动窗口时，才能打开菜单编辑器 B.只有当某个窗体为当前活动窗体时，才能打开菜单编辑器
C.任何时候都可以使用“工具”菜单下的“菜单编辑器”命令打开菜单编辑器 D.任何时候都可以使用标准工具栏的“菜单编辑器”按钮打开菜单编辑器 41.以下叙述中错误的是（B）。
A.程序运行过程中，可以重新设置菜单的Visible属性
B.在同一个窗体的菜单项中，不允许出现标题相同的菜单项 C.在同一个窗体的菜单项中，不允许出现名称相同的菜单项 D.弹出式菜单也在菜单编辑器中定义
42.使用通用对话框控件打开字体对话框时，如果要在字体对话框中列出可用的屏幕字体和打印机字体，必须设置通用对话框控件的Flags属性为（B）。 A.0 B.3 C.2 D.1
43.语句Line(100,100)-(500,500),,B的功能是（B）。 A.使用窗体的前景颜色绘制一条直线 B.使用窗体的前景颜色绘制一个矩形 C.使用窗体的背景颜色绘制一个矩形 D.使用窗体的背景颜色绘制一条直线
44.当一个对象（如窗体或图片框）被移动或改变大小之后；或当一个覆盖该对象的窗体被移开之后，如果要保持该对象上所画图形的完整性，可以选择触发（D）事件来完成图形的重画工作。 A.Click B.Active C.Load D.Paint
45.通过设置Line控件的（D）属性可以绘制虚线、点划线等多种样式的直线。 A.Shape B.FillStyle C.Style
D.BorderStyle
46.DrawStyle属性用于设置图形方法输出的线型，它受（D）属性的限制。 A.FillStyle B.FillColor C.BorderStyle D.DrawWidth
47.在顺序文件中（B）
A.每条记录的长度按从小到大排序
B.记录按写入的先后顺序存放，并按写入的先后顺序读出 C.按记录的某个关键数据项的排序顺序组织文件 D.每条记录的长度必须相同
48.使用驱动器列表框的（B）属性可以返回或设置磁盘驱动器的名称 A.ListIndex B.Drive C.ChDrive D.List
49.执行语句Open\后，系统（B） A.在C盘当前文件夹下建立名为StuData.dat的顺序文件
B.将C盘当前文件夹下名为StuData.dat的文件的内容读入内存
C.将某个磁盘文件的内容写入C盘当前文件夹下名为StuData.dat的文件中 D.将内存数据存放在C盘当前文件夹下名为StuData.dat的文件中 50.下列叙述中不正确的是 （A）
A.Write#语句和Print#语句建立的顺序文件格式完全一样
B.若使用Print#语句将数据输出到文件，则各数据项之间没有逗号分隔，且字符串不加双引号 C.若使用Write#语句将数据输出到文件，则各数据项之间自动插入逗号，并且将字符串加上双引号 D.Write#语句和Print#语句均实现向文件中写入数据' 一
生成100个[0,100]之间的随机整数存于数组A中， '并将它们显示在一个文本框（Text1）中，在数组A中 '查找指定的元素Number。要求：Number用InputBox
'函数输入，查找结果显示在另一个文本框（Text2）中。
'------------------------------------------------- '注意： 请在指定的事件内编写代码 ' 代码只能写在两行标识之间 ' 不得修改已有代码
'保存时不得修改窗体和工程文件的名称及路径，否则后果自负。 '------------------------------------------------- Private Sub Command1_Click() '********** Begin **********
Dim A(100) As Integer, Num As Integer
Dim i As Integer, j As Integer, t As Integer Randomize
Text1.Text = \ For i = 1 To 100
A(i) = Int(90 * Rnd + 10)
Text1.Text = Text1.Text & Str(A(i)) Next i
Num = InputBox(\请输入要查找的数\ k = 0
For i = 1 To 100
If A(i) = Num Then k = i Exit For End If Next i
If k <> 0 Then
Text2.Text = \要查找的数是第\个\ Else
Text2.Text = \要查找的数不存在\ End If
'********** End ********** End Sub 二
编程求由一位随机整数[1,9]构成的4×5二维数组A的 '每一列元素的和。运行界面如图所示。 '
'要求：
'1.二维数组的名称必须用A；
'2.不得更改界面中已给出的控件类型和名称；
'------------------------------------------------- '注意： 请在指定的事件内编写代码 ' 代码只能写在两行标识之间 ' 不得修改已有代码
'保存时不得修改窗体和工程文件的名称及路径，否则后果自负。 '-------------------------------------------------
Private Sub Command1_Click() '********** Begin **********
Dim A(4, 5) As Integer, i As Integer, j As Integer For i = 1 To 4 For j = 1 To 5
A(i, j) = Int(9 * Rnd + 1) Picture1.Print A(i, j); Next j
Picture1.Print Next i
For j = 1 To 5 Sum = 0
For i = 1 To 4
Sum = Sum + A(i, j) Next i
Text1.Text = Text1.Text & Str(Sum) Next j
'********** End ********** End Sub
三'编写一个求N！的函数Fact，并完善Command1_Click事件过程
'单击命令按钮（Command1）时调用该函数求表达式(5!+6!)/7!的值， '结果显示在文本框（Text1）中。
'要求：表达式(5!+6!)/7!的计算结果务必保存在变量s中 '------------------------------------------------- '注意： 请在指定的事件内编写代码 ' 代码只能写在两行标识之间 ' 不得修改已有代码
'保存时不得修改窗体和工程文件的名称及路径，否则后果自负。 '------------------------------------------------- '********** Begin **********
Private Function Fact(n As Integer) As Long
End Function
Private Sub Command1_Click() '调用函数Fact求表达式(5!+6!)/7!的值 Dim s As Single '表达式(5!+6!)/7!的计算结果务必保存在变量s中
NJIT_VB s End Sub
'********** End **********