第1次作业一、单项选择题（本大题共60分，共 20 小题，每小题 3 分）1. 下列程序段的执行结果为（）。

a=10:b=30 If aA.10B.30C.10 30D.30 102. 语句X=X+1的正确含义是（）。

A.变量X的值与X+1的值相等B.将变量X的值存到X+1中去C.将变量X的值加1后复制给变量XD.变量X的值为13. 复选框控件其Value属性的可取值是（）。

A.True和FalseB.0和1C.1、2、3D.0、1、24. 语句Picture.Cirle(500,800),800能够在图片框Picture中画出的图形是（）。

A.圆弧B.椭圆C.圆D.扇形5. 假定picture1和text1分别为图片框和文本框的名称，下列选项中不正确的语句是（）。

A.print 25B.picture1.print 25C.text1.print 25D.debug.print 256. 窗体上有一个名称为Frame1的框架（如图），若要把框架上显示的"Frame1"改为汉字"框架"，下列选项中正确的是（）。

A.Frame1.Caption="框架"B.="框架"C.Frame1.Text="框架"D.Frame1.Value="框架"7. 要将单选按钮以图形的方式显示，需要设置的属性是（）。

A.StyleB.ValueC.CaptionD.Enabled8. 不能触发滚动条Change事件的操作是（）。

A.拖动滚动块B.单击两端箭头C.单击滚动块D.单击箭头与滚动块之间的滚动条9. Sub过程与Function过程最根本的区别是__________。

A.Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以B.Function过程可以有参数，Sub过程不可以C.两种过程参数的传递方式不同D.Sub过程的过程名不能返回值，而Function过程能通过过程名返回值10. 假如列表框（List1）有4个数据项，要把最后一个数据项“china”删除的语句是（）。

A.移去第一项B.移去最后一项C.程序无操作D.程序出错11. 关于VB描述错误的是（）。

A.VB集成开发环境是一组软件工具，集应用程序的设计、编辑、运行调试等于一体B.VB是面向过程的程序设计语言C.VB具有事件驱动的编程机制D.VB的工具箱窗口由被绘制成按钮形式的图标构成。

12. 以下选项中，不属于单选按扭属性的是（）。

A.EnabledB.CaptionC.NameD.Min13. 运行以下程序后，输出结果为_____________。

Private SubCommand1_Click() a=1:b=2:c=3 Call test(a,b+3,(c)) Print"main:";a;b;c End Sub Private Function test(p,m,n) p=p+1:m=m+1:n=n+1 Print "sub:";p;m;n End FunctionA.sub:2 6 4main:1 2 3B.sub:2 6 4main:2 2 3C.sub:2 6 4main:2 6 4D.sub:2 6 4main:1 6 414. 若定义一维数组为：Dim a(i To j)，则该数组的元素为______个。

A.j-iB.j-i+1C.j*iD.i+j15. 窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim a As Integer, s As Integer a = 8 s = 1 Do s = s + a a = a－1 Loop While a <= 0 Print s; a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是（）。

A.7 9B.34 0C.9 7D.死循环16. 下列程序段中在Text1中输入202，则Text2中的结果为（）。

x =Val(Text1.Text) Select Case x Case Is < -100, Is > 200 y="x<-100 or x>200" Case Is < 0 y = 100 - x Case Is <= 100 y = 100 + x Case Is <= 200 y = 400 End Select Text2.Text = yA.x<-100 or x>200B.-102C.302D.40017. 如果要求该程序执行3次循环，则应在程序中的括号里输入（）。

X=1 do x=x+3 print x loop until(___)A.x>=7B.x<=7C.x>=8D.x<=818. 假定有一个菜单项，名为MenuItem，为了在运行时使该菜单无效（变灰），应使用的语句为（）。

A.MenuItem.Enabled=FalseB.MenuItem.Enabled=TrueC.MenuItem.Visible= TrueD.MenuItem.Visible= False19. 有如下语句，执行后该段语句的循环次数是（）。

Dim s,I,j as integer For I =1 to 3 For j=3 To 1 Step-1 S=I*j Next j Next I A.3B.4C.9D.1020. 以下语句输出结果是（）。

Private Sub Form_Click() A="Beijing" b="ShangHai" Print a;b End SubA.Beijing ShangHaiB.AbeijingShangHaiC.BeijingShangHaiD.Abeijing二、判断题（本大题共40分，共 20 小题，每小题 2 分）1. 使用Call语句调用事件过程时，实参数必须包含在括号内.2. 数组默认下标从1开始，若希望下标从0开始，可在数组声明之前或模块的通用部分使用Option Base语句将其设为0。

3. 折半查找必须在一个有序的数据序列中进行。

4. 在VB程序中过程不能嵌套定义。

5. 在VB中，定义数组时，其下标允许是变量、常量或者表达式。

6. 过程的递归调用可以看成是一种特殊的过程嵌套调用。

7. 静态局部变量也是局部变量，它的值也只能定义它的过程内使用。

但是它的生存期是整个程序运行期间。

8. 在选择结果嵌套语句中，既可以出现分之内嵌套，也可以出现交叉嵌套。

9. 可以通过Option Base 1设定数组的下标从1开始。

10. 调用函数Function过程的方法与调用VB内部函数的方法一样。

11. 图像框除了可以显示图形之外，还可以作为其它控件的容器。

12. 要想弹出菜单,可以用PopupMenu方法.。

13. 在VB中，&是整型类型符，%是长整型类型符。

14. Visual Basic 提供了列表框控件，当列表框中的项目较多、超过了列表框的长度时，系统会自动在列表框边上加一个滚动条。

15. 使用Call调用Function过程时，不需要实参。

16. 折半查找中，一般选取和待查表中所有记录的平均值相近的记录作为基准。

17. 当滚动条位于最右端或顶端时，表示其值最大，反之为最小。

18. 有n个记录的冒泡排序最多进行n趟。

19. Function过程的定义语句中Public关键字表示过程是全局的、公有的，可以被程序中任何模块使用。

20. 动态数组常用于存储数据类型不断变化的数据。

答案：一、单项选择题（60分，共 20 题，每小题 3 分）1. C2. C3. D4. C5. C6. A7. A8. C9. D 10. D 11. B 12. D 13. B 14. B 15. C 16. A 17. C 18. A 19. C 20. C二、判断题（40分，共 20 题，每小题 2 分）1. √2. ×3. √4. √5. ×6. √7. √8. ×9. √ 10. √ 11. × 12. √ 13. × 14. √ 15. × 16. × 17. × 18. × 19. √ 20. ×。