A.标准模块中的全局变量可以被工程中的任何模块引用 B.标准模块的文件扩展名为.bas
C.标准模块不完全由代码组成，还可以有窗体
D.标准模块中的 Private过程不能被工程中的其他模块调用
31.要想在过程调用后返回两个结果，下面的过程定义语句中正确的是（ A ）。 A.Sub proc1(n, m)
B.Sub proc1(n, ByVal m) C.Sub proc1(ByVal n, m)
D.Sub proc1(ByVal n, ByVal m) 32.设定义了如下的Sub过程
Sub add(a As Single, b As Single) ... End Sub
下面调用该过程的语句（B）是正确的。 A.Call Add(\
B.Call Add(2 * x, Sin(1.57)) C.Call Add x,y
D.Call Add(12，12，x )
33.以下控件对象中，不具有text属性的是( D )。 A.组合框 B.列表框 C.文本框 D.标签
34.Visual Basic中，任何控件都具有(B )属性。 A.Text B.(名称) C.Caption D.Font
35.使用( C)方法可以将新的列表项添加到一个列表框中。 A.RemoveItem B.Clear C.AddItem D.Print
36.要选择列表框List1的第6项，可以使用语句( A)。 A.List1.ListIndex = 5 B.List1.Selected= 5 C.List1.ListIndex = 6 D.List1.Selected = 6
37.下列( A )属性是每个控件都具有的。 A.Name B.Interval C.Font D.Caption
38.要使两个单选按钮属于同一个框架，正确的操作是( B)。 A.先画两个单选按钮，再画框架将单选按钮框起来 B.先画一个框架，再在框架中画两个单选按钮
C.先画一个框架，再在框架外画两个单选按钮，然后把单远按钮拖到框架中 D.以上三种方法都正确
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.若有一个菜单项（名为MenuItem），为了在运行时使该菜单项失效（变灰），应使用的语句是（C） A.MenuItem.Visible=False B.MenuItem.Checked=True C.MenuItem.Enabled=False D.MenuItem.Enabled=True
42.使用通用对话框控件打开字体对话框时，如果要在字体对话框中显示效果和颜色，必须设置通用对话框控件的Flags属性为（D）。 A.128 B.127 C.255 D.256 43.Cls方法可以清除窗体或图片框中的（B）内容。 A.在设计阶段使用Picture属性设置的背景位图 B.在运行阶段产生的图形和文字 C.以上全部内容
D.在设计阶段放置的控件
44.执行语句Form1.ScaleLeft=100:Form1.ScaleTop=200之后，窗体Form1的左上角坐标为（D）。 A.视ScaleMode属性的当前值而定 B.（0,0） C.(200,100)
D.(100,200)
45.下面叙述正确的是（B）。
A.不能改变pSet方法绘制的点的大小
B.pSet方法绘制的点的大小受其容器对象的DrawWidth属性的影响 C.pSet方法只能使用容器对象的前景颜色画点 D.以上均不对
46.假设窗体的当前坐标为(200,200),则执行语句Line Step(100,100)-Step(200,200)时，绘制 的直线的终点坐标为（D）。
A.(300,300 ) B.(200,200) C.（100，100） D.(500,500)
47.假设窗体的当前坐标为(200,200),则执行语句Line Step(100,100)-Step(200,200)时，绘制 的直线的终点坐标为（A）。
A.(300,300) B.(200,200) C.（100，100） D.(500,500) 48.以下叙述中不正确的是（D）
A.以下循环语句中的条件表示当到达文件结尾时结束循环： Do While Not EOF(1) 循环体语句 LOOP
B.随机文件每条记录的长度是固定的
C.执行如下命令后，文件指针指向文件的开头： Open\
D.Open语句的功能是打开一个已经存在的文件
49.若要将某文件的属性设置为只读，应使用SetAttr语句将其属性参数设为（C） A.vbArchive B.vbNormal C.vbReadOnly D.1 50.在随机文件中（C） A.记录的长度是任意的 B.记录的内容是随机产生的 C.可以通过记录号随机读取记录 D.记录号是通过随机数产生、 程序设计：
'一 编写一个找出一维数组的最大值及其位置的通用过程。
'要求：
'1.最大值保存在参数max中；
'2.最大值的位置保存在参数Pos中；
'------------------------------------------------- '注意： 请在指定的事件内编写代码 ' 代码只能写在两行标识之间 ' 不得修改已有代码
'保存时不得修改窗体和工程文件的名称及路径，否则后果自负。 '------------------------------------------------- Option Base 1
Private Sub MaxNum(A() As Integer, max As Integer, Pos As Integer) '********** Begin ********** Dim i As Integer max = A(1) Pos = 1
For i = 2 To UBound(A) If A(i) > max Then max = A(i) Pos = i End If
'********** End ********** End Sub
Private Sub Form_Click()
Dim max As Integer, Pos As Integer Dim K As Integer, A() As Integer Print \数组元素的内容：\
Open App.Path & \ Do While Not EOF(1) K = K + 1
ReDim Preserve A(K) Input #1, A(K) Print A(K); Loop Print
Call MaxNum(A, max, Pos)
Print \最大值为：\其位置是第\个\ Open App.Path & \ Print #2, max Print #2, Pos Close End Sub
二 '编写一个计算裴波那契数列第n项的递归函数过程fib。 '裴波那契数列为1，1，2，3，5，8，13，...
'规则为第1项为1，第2项为1，从第3项开始，后项等于前两项之和 '即：fib(n)=fib(n-1)+fib(n-2)
'------------------------------------------------- '注意： 请在指定的事件内编写代码 ' 代码只能写在两行标识之间 ' 不得修改已有代码
'保存时不得修改窗体和工程文件的名称及路径，否则后果自负。 '-------------------------------------------------
Private Function fib(n As Integer) As Long '********** Begin ********** If n = 1 Then fib = 1
ElseIf n = 2 Then fib = 1 Else
fib = fib(n - 1) + fib(n - 2) End If '********** End ********** End Function
Private Sub Form_Click()
Print \裴波那契数列的第7项为：\ Print \裴波那契数列的第8项为：\ Open App.Path & \ Print #1, fib(7) Print #1, fib(8) Close End Sub
三 '使用While...Wend循环求1^2+2^2+3^2+…大于10000的最小值 '------------------------------------------ '要求：表达式的累加和务必保存在变量S中
'------------------------------------------------- '注意： 请在指定的事件内编写代码 ' 代码只能写在两行标识之间 ' 不得修改已有代码
'保存时不得修改窗体和工程文件的名称及路径，否则后果自负。 '-------------------------------------------------
Private Sub Form_Click()
Dim S As Single '用S保存累加和 '********** Begin ********** Dim i As Integer S = 0: i = 0 While S <= 10000 i = i + 1 S = S + i ^ 2
Wend
'********** End **********
Print \…大于10000的最小值：\
Open App.Path & \ Print #1, S Close End Sub
窗体设计：
【控件属性评分】 错误
【控件】VB.CheckBox_Ch1 标准答案：Name=Ch1 学生答案：Name=
【控件属性评分】 错误
【控件】VB.CheckBox_Ch1 标准答案：Caption=计算机 学生答案：Caption=
【控件属性评分】 错误
【控件】VB.CheckBox_Ch1 标准答案：Caption=语文 学生答案：Caption=
【控件属性评分】 错误
【控件】VB.CheckBox_Ch1 标准答案：Caption=数学 学生答案：Caption=
【控件属性评分】 错误
【控件】VB.HScrollBar_HS1 标准答案：Name=HS1 学生答案：Name=
【控件属性评分】 错误
【控件】VB.CommandButton_C1 标准答案：Name=C1 学生答案：Name=
【控件属性评分】 错误
【控件】VB.CommandButton_C1 标准答案：Caption=移动滚动框
学生答案：Caption=
（五）
1对象可以识别和响应的某些行为称为( C )。 A.方法 B.属性 C. 事件 D.继承
2任何控件都具有( B)属性。 A.ForeColor B.(名称) C.Caption D.Text
3窗体上有多个控件，在Form_Activate（）事件过程中添加(D )语句，就可以确保每次运行程序时，都将光标定位在文本框Text1中。
A.Text1.GetFocus B.Text1.Text=\C.Text1.Visible=True D.Text1.SetFocus
4设a=\下面使b的值为\的语句是( D ) A.b=Left(a,8,12) B.b= Right(a,5,5) C.b=Left(a,8,5) D.b=Mid(a,8,5)
5设A=7，B=4，C=6，则表达式A Mod 3 + B ^ 3 / C \\ 5的值为( C) A.2 B.出错 C.3 D.1
22
6将数学表达式cos(a+b)+5e写成Vb表达式的正确形式是( C) A.Cos (a+b) ^2 +5*e^2 B.Cos ^2(a+b) +5*Exp(2) C.Cos(a+b)^2+5*Exp(2) D.Cos ^2(a+b) +5*Ln(2)
7如果将布尔常量值True赋值给一个整型变量，则整型变量的值为( C) A.0 B.假 C.-1 D.真
8下列说法正确的是( B )