第一章 选择题

1. VB是一种面向对象的可视化程序设计语言,采取了（ A ）的编程机制。

（A）事件驱动 (B) 按过程顺序执行

（C）从主程序开始执行 (D) 按模块顺序执行

2. 以下不属于VB的工作模式的是（c ）模式。

(A) 运行 (B)设计 (C) 编译 (D)中断

3. 在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体窗口、属性窗口外，必不可少的窗口是（ C ）。

（A）窗体布局窗口 （B）立即窗口 （C）代码窗口 （D）监视窗口

4. 保存新建工程时，默认的路径是（ B ）。

（A）My Documents （B）VB98 （C）\ （D）Windows

5. 将调试通过的VB工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件拿到其他机器上不能运行的主要原因是（ A ）。

（A）运行的机器上无VB系统 （B）缺少.frm窗体文件

（C）该可执行文件有病毒 （D）以上原因都不对

6. VB6.0集成开发环境可以（ D ）。

（A）编辑、调试、运行程序，但不能生成可执行程序

（B）编辑、调试、生成可执行程序，但不能运行程序

（C）编辑、生成可执行程序、运行程序，但不能调试

（D）编辑、调试、运行程序，也能生成可执行程序

7. VB6.0集成环境的主窗口中不包含（ B ）。

（A）菜单栏 （B）状态栏 （C）标题栏 （D）工具栏

8. 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（ C ）。

（A）工程资源管理器窗口 （B）工具箱窗口

（C）代码窗口 （D）属性窗口

9. 下面四个选项中，不是VB6.0工具箱的标准控件的是（ C ）。

（A）滚动条 （B）定时器 （C）多媒体 （D）框架

10. VB6.0的（ C ）版本，可供专业编程人员开发功能强大的组内分布式应用程序。

（A）初级版 （B）学习版 （C）企业版 （D）专业版

11. 英文缩写“OOP”的含义是（ A ）。

（A）面向对象程序设计 （B）结构化程序设计语言

（C）事件驱动的编程机制 （D）可视化程序设计

12. 不能打开代码窗口的操作是（ B ）。

（A）双击窗体设计器的任意地方 （D）选择视图菜单中的“代码窗口”

（B）按下F4键 （C）单击工程资源管理器中的“查看代码”按钮

13. 标准模块的扩展名是（ C ）。

（A）.frm （B）.bmp （C）.bas （D）.vbp

14. 窗体文件的扩展名是（ A ）。

（A）.frm （B）.bmp （C）.bas （D）.vbp

15. 工程文件的扩展名是（ D ）。

（A）.frm （B）.vbg （C）.bas （D）.vbp

16. 不能打开属性窗口的操作是（ D ）。

（A）单击工具栏上的“属性窗口”按钮 （B）选择视图菜单中的“属性窗口”

（C）按下F4键 （D）选择工程菜单中的“属性窗口”

17. 不能打开对象窗口的操作是（ A ）。

（A）按下F2键 （B）单击工程资源管理器中的“查看对象”按钮

（C）按下Shift+F7组合键 （D）选择视图菜单中的“对象窗口”

18. 不能打开资源管理器窗口的是（ B ）。

（A）单击工具栏上的“工程资源管理器”按钮

（B）在窗体上单击右键，从弹出的快捷菜单中选择“工程资源管理器”选项

（C）选择视图菜单中的“工程资源管理器” （D）按Ctrl+R

19. 下面四个选项中，不是工程资源管理器管理的文件是（ B ）。

（A）窗体文件 （B）图形文件 （C）标准模块文件 （D）工程文件

20. 与传统的程序设计语言相比，vb6最突出的特点是（ B ）。

（A）结构化程序设计 （B）事件驱动编程机制

（C）集成开发环境 （D）程序调试技术

21. VB窗体设计器的主要功能是（ A ）。

（A）建立用户界面 （B）编写员程序代码

（C）画图 （D）显示文字

22. 用标准工具栏中的工具按钮不能执行的操作是（ D ）。

（A）添加窗体 （B）添加工程 （C）打开工程 （D）添加模块

23. 下属选项中，属于VB的程序设计方法是（ B ）。

（A）面向对象、顺序驱动 （B）面向对象，事件驱动

（C）面向过程，事件驱动 （D）面向过程，顺序驱动

二、填空题

1. 当进入VB集成环境，发现没有显示“工具箱”窗口时，应选择（ 视图 ）菜单的（ 工具箱 ）选项，使“工具箱”窗口显示。

2. VB6.0集成环境的主窗口由标题栏、菜单栏和（工具栏）组成。

3. VB6.0集成环境有三种工作状态，工作状态显示在（标题栏 ）。

4. VB6.0提供了3种版本，这三种版本是（学习版，专业版，企业版 ）。

5. VB6.0有设计、中断和运行三种工作状态，立即窗口不能在（运行）状态下使用。

三、简答题

1. 运行VB6.0需要什么样的最小硬件环境？只要能运行Windows9x或Windows NT并具有140MB以上的硬盘空间即可。

2. 当正常安装VB6.0后，误把Windows子目录删除。当重新安装Windows后，是否要再安装VB6.0？要再安装Visual Basic6.0。因为安装VB6.0时，有些VB程序系统自动安装在Windows98目录下，所以一旦删除Windows98子目录，就必须再安装VB6.0。

3. VB6.0有学习版、专业版和企业版，怎样知道所安装的是哪个版本？在启动VB6.0的启动封面上，能显示对应的版本。

4. VB6.0有多种类型的窗口，若想在设计时看到代码窗口，怎样操作？

法：

（1）热键F7 （2）“视图”—> “代码窗口”

（3）在窗体窗口中双击任一控件或窗体本身

（4）从工程窗口中选择窗体或模块后单击“查看代码”按钮。

5. 如何使各窗口显示或不显示？单击要操作窗口的“关闭”按钮时，则不显示该窗口；选择“视图”菜单的对应的窗口命令显示所需的窗口。

6. 叙述VB6.0的特点。

VB的特点：

（1）具有面向对象的可视化设计工具;

（2）事件驱动的编程机制;

（3）提供了易学易用的应用程序集成开发环境;

（4）结构化的程序设计语言;

（5）支持多种数据库系统的访问;

（6）Active技术;

（7）VB 6.0在开发环境上、网络功能等的增强;

（8）完备的help联机帮助功能。

第二章一．选择题

1. 假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先执行的操作是（ A ）。

（A）单击窗体上没有控件的地方 （B）单击任一个控件

（C）不执行任何操作 （D）双击窗体的标题栏

2. 在VB中最基本的对象是（ C ），它是应用程序的基石，是其它控件的容器。

（A）文本框 (B)命令按钮

（C)窗体 (D)标签

3. 有程序代码如下：text1.text=“visual basic” 则：text1、text和“visual basic”分别代表（ C ）。

（A）对象，值，属性 (B) 对象，方法，属性

（C） 对象，属性，值 (D) 属性，对象，值

4. VB是一种面向对象的程序设计语言，（ A ）不是面向对象系统所包含的三要素。

（A）变量 (B)事件 (C)属性 (D)方法

5. VB的一个应用程序至少包括一个（ B ）文件，该文件存储窗体上使用的所有控件对象和有关的（ ）、对象相应的（ ）过程和（ ）代码。

（A）模块、方法、事件、程序 (B)窗体、属性、事件、程序

（C）窗体、程序、属性、事件 (D)窗体、属性、事件、方法

6. 在VB6.0环境已有应用程序的情况下，要重新建立一个工程的操作是（ C ）。

（A）单击工具栏上的“添加工程”按钮

（B）在工程资源管理器窗口上单击右键，在弹出的快捷菜单中选择“新建工程”选项

（C）选择“文件”菜单中的“新建工程”

（D）选择“视图”菜单中的“新建工程”

7. 为了把窗体上的某个控件变为活动，应执行的操作是（ B ）。

（A）单击窗体的边框 （B）单击该控件的内部

（C）双击该控件 （D）双击窗体

8. 确定一个控件在窗体上的位置的属性是（ C ）。

（A）Width和Height （B）Width或Height

（C）Top和Left （D）Top或Left

9. 确定一个窗体或控件的大小的属性是（ B ）。

（A）Width和Height （B）Width或Height

（C）Top和Left （D）Top或Left

10. 对于窗体，下面（ D ）属性可以在程序运行时进行设置。

（A）MaxButton （B）BorderStyle （C）Name （D）Left

11. 要使Print方法在Form_Load事件中起作用，要对窗体的（ C ）属性进行设置。

（A）BackColor （B）BorderStyle （C）AutoRedraw （D）Caption

12. 要使标签控件显示时不覆盖其背景内容，要对（ D ）属性进行设置。

（A）BackColor （B）BorderStyle （C）ForeColor （D）BackStyle

13. 要使对象看得见而不可操作，要对（ A ）属性设置。

（A）Enabled （B）Visible （C）BackColor （D）Caption

14. 文本框没有（ D ）属性。

（A）Enabled （B）Visible （C）BackColor （D）Caption

15. 不论任何控件，共同具有的是（ B ）属性。

（A）Text （B）Name （C）ForeColor （D）Caption

16. 要使某控件在运行时不可见，应对（ B ）属性进行设置。

（A）Enabled （B）Visible （C）BackColor （D）Caption

17. 要使窗体在运行时不可改变窗体的大小和没有最大化、最小化按钮，只要对下列（ B ）属性设置就有效。

（A）MaxButton （B）BorderStyle （C）Width （D）MinButton

18. 当运行程序时，系统自动执行启动窗体的（ A ）事件过程。

（A）Load （B）Click （C）Unload （D）GotFocus

19. 当文本框的ScrollBars属性设置了非零值，却没有效果，原因是（ B ）。

（A）文本框中没有内容 （B）文本框的MultiLine属性为False

（C）文本框的MultiLine属性为True （D）文本框的Locked属性为True。

20. 下面是文本框的四个属性，在程序运行时，（ B ）属性能使鼠标单击文本框而不触发文本框的Click事件。

（A）Visible （B）Enabled （C）Locked （D）MultiLine

21. 下面四个选项都是VB中对象的属性名称，（ A ）不能用程序代码设置属性值。

（A）Name （B）Enabled （C）BackColor （D）Picture

22. 以下选项中“=”的左边是用户界面上的对象名，不正确的赋值语句是（ A ）。

（A）Form1=”sdfs” （B）Command1=True

（C）Text1=”abcd” （D）Label1=”等级考试”

23. 以下叙述中正确的是（ A ）。

（A）窗体的Name属性指定窗体的名称，用来标识一个窗体

（B）窗体的Name属性的值是显示在窗体标题栏中的文本

（C）可以在运行期间改变对象的Name属性的值

（D）对象的Name属性值可以为空

24. 以下四个选项都是VB中对象的属性名称，在界面设计时，（ D ）属性值的设置需要利用对话框。

（A）Name （B）Enabled （C）WindowState （D）Picture

25. 以下选项中，框架的控件值是（A ）。

（A）Caption （B）Value （C）Interval （D）Enabled

26. .以下选项中，不是布尔类型的属性是（ B ）。

（A）单选按钮的Value （B）复选框的Value

（C）命令按钮的Value （D）Enabled

27. 要连续在窗体的不同位置上画出多个相同类型的控件，在用鼠标点击工具箱中控件之前，应该做的操作是（ C ）。

（A）按下Alt键 （B）按下Shift （C）按下Ctrl键 （D）按下F4键

28. 以下选项中，（ C ）是窗体的特有属性。

（A）Caption （B）Visible （C）WindowState （D）Left

29. 改变文本框的滚动条配备，需要先设置（ D ）属性。

（A）Visible （B）Enabled （C）Locked （D）MultiLine

30. 下面四个选项，（D ）不是窗体的属性。

（A）MinButton （B）MaxButton （C）Caption （D）ReSize

31. 下面四个选项，（ A ）是窗体的特有事件。

（A）Load （B）Locked （C）Click （D）KeyPress

32. 假定窗体的名称（Name属性）为Form1，则把窗体的标题设置为“VBTest”的语句为（ B ）。

（A）Form1=”VB Test” （B）Caption=”VB Test”

（C）Form1.Text=”VB Test” （D）Form1.Name=”VB Test”

33. 为了保存一个VB应用程序，应当（ D ）。

（A）只保存窗体文件 （B）分别保存工程文件和标准模块文件

（C）只保存工程文件（D）分别保存工程文件、窗体文件和标准模块文件

34. 为了装入一个VB应用程序，应当（ C ）。

（A）只装入窗体文件 （B）分别装入工程文件和标准模块文件

（C）只装入工程文件 （D）分别装入工程文件、窗体文件和标准模块文件

35. 命令按钮不能响应的事件是（ A ）。

（A）DblClick （B）Click （C）MouseDown （D）MouseUp

36. 决定窗体标题栏上显示内容的属性是（ C ）。

（A）Text （B）Name （C）Caption （D）BackStyle

37. 当窗体最小化时缩小为一个图标，设置这个图标的属性是（ B ）。

（A）MouseIcon （B）Icon （C）Picture （D）MousePointer

38. 为了仅取消窗体的最大化功能，需要把它的（ D ）属性设置为False。

（A）ControlBox （B）MinButton （C）Enabled （D）MaxButton

39. 决定窗体有无控制菜单的属性是（ A ）。

（A）ControlBox （B）MinButton （C）Enabled （D）MaxButton

40. 为了使文本框同时具有水平和垂直滚动条，应先把MultiLine属性设置为True，然后再把ScrollBars属性设置为（ D ）。

（A）0 （B）1 （C）2 （D）3

41. 使文本框获得焦点的方法是（ C ）。

（A）Change （B）GotFocus （C）SetFocus （D）LostFocus

42. 为了使标签覆盖背景，应把BackStyle属性设置为（ A ）。

（A）0 （B）1 （C）True （D）False

43. 为了使标签的内容居中显示，应把AlignMent属性设置为（ C ）。

（A）0 （B）1 （C）2 （D）3

44. 决定标签内显示内容的属性是（ C ）。

（A）Text （B）Name （C）Caption （D）Enabled

45. 为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是（ B ）。

（A）Value （B）Default （C）Cancel （D）Enabled

46. 为了在按下ESC键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是（ C ）。

（A）Value （B）Default （C）Cancel （D）Enabled

47. 下面四个选项中，不是文本框属性的是（ D ）。

（A）TabIndex （B）PassWordChar （C）ScrollBars （D）Value

48. 以下能够触发文本框Change事件的操作是（ D ）。

（A）文本框失去焦点 （B）文本框获得焦点

（C）设置文本框的焦点 （D）改变文本框的内容

49. 文本框的默认属性是（ A ）。

（A）Text （B）Caption （C）Top （D）Name

50. 标签的默认属性是（ B ）。

（A）Text （B）Caption （C）Top （D）Name

51. 若要设置标签的背景颜色，使用的属性是（ B ）。

（A）Color （B）BackColor （C）ForeColor （D）FontBold

52. 若要设置文本框中所显示的文本颜色，使用的属性是（ C ）。

（A）FillColor （B）BackColor （C）ForeColor （D）BackStyle

53. 命令按钮能响应的事件是（ B ）。

（A）DblClick （B）Click （C）Scroll （D）Load

54. 下面选项中，（ C ）不是文本框的属性。

（A）MultiLine （B）MaxLength （C）TextBox （D）Loaded

二、填空题

1. 程序运行时，为了让命令按钮不可操作，并且呈现灰色，必须将其（Enabled

）属性设置为False。

2. 改变文本框的滚动条配备，需先设置MultiLine属性，然后设置（ ScrollBars ）属性。

3. 文本框能返回ASCII码值的事件是（ KeyPress）。

4. 当程序运行后，用鼠标双击对象时主要触发的事件是（DblClick）。

5. 文本框的控件值是（ Text， ），命令按钮的控件值是（ Value ）。

6. 在VB中，由系统事先设定的，能被对象识别和响应的动作称为（ 事件 ）。

7. 一个控件在窗体上的位置由（ Left ）和（ Top ）属性决定，其大小由（Width）和（ Height ）属性决定。

8. 对象属性设置主要有两种方法，分别是（在属性窗口直接设置）和（在代码窗口中设置）。

9. 在程序代码中设置属性值的一般格式为（.[对象.]属性=属性值）。

10. 当窗体的大小改变时，触发（ ReSize）事件。

11. 为了选择多个控件，可以按住（ Ctrl ）键，然后单击每个控件。

12. 在用VB开发应用程序时，一般需要（界面设计）、（ 属性设置 ）、（编写代码 ）和（保存和运行程序 ）四步。

13. 控件和窗体的Name属性只能通过（ 属性窗口 ）设置，不能在（ 运行 ）期间设置。

14. 在VB中，窗体文件和工程文件的扩展名分别是（ frm ）和（ vbp）。

15. 为了把一个VB应用程序装入内存，只要装入（ 工程 ）文件即可。

16. VB应用程序通常由3类模块组成，分别是（ 窗体模块 ）、（标准模块 ）（ 类模块 ）。

17. 在刚建立工程时，使窗体上的所有控件具有相同的字体格式，应对（ 窗体 ）的（Font系列 ）属性进行设置。

18. 当对文本框的ScrollBars属性设置为2（有垂直滚动条），但没有垂直滚动条显示时，是没有把（ MultiLine ）属性设置为True的原因。

19. 在代码窗口对窗体的BoerderStyle、MaxButton属性进行了设置，但运行后没有效果，原因是这些属性（只能在属性窗口设置 ）。

20. 当对命令按钮的Picture属性装入.bmp图形文件后，此按钮上并没有显示所设置的图形，原因是没有对（ Style ）属性设置为1（Graphical）。

21. 要对文本框中已有的内容进行编辑，按下键盘上的按键，就是不起作用，原因是设置（ Locked ）的属性为True。

22. 在窗体上已建立多个控件如Text1、Label1、Command1，若要使程序一运行焦点就定位在Command1控件上，应把Command1控件的（ TabIndex

）属性的值设置为0。

23. 为了使标签能自动调整大小以显示全部文本内容，应把标签的（ AutoSize ）属性 设置为True。

24. 假定有一个文本框，其名称为Text1，为了使该文本框具有焦点，应执行的语句是（ Text1.SetFocus ）。

25. 为了使一个标签透明且没有边框，必须把它的BorderStyle属性设置为（ 0 ），并把BackStyle属性设置为（ 0 ）。

三、简答题

1. 叙述建立一个完整的应用程序的过程。

2. 当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。问该工程涉及到多少文件要保存？若要保存该工程中的所有文件，正确的操作应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？

3. 假定在Windows环境中，要保存工程文件时，若不改变目录名，则系统默认的目录是什么？

4. 为了使一个控件在运行时不可见，应对该控件的什么属性进行何种设置？

5. 为了防止用户编辑文本框内的内容，应对该控件的什么属性进行何种设置？

6. 为了使标签框的大小由Caption属性的值进行扩展或缩小，应对该控件的什么属性进行何种设置？

7. VB6.0提供的大量图形文件在那个目录下？若您的计算机上没有安装，则怎样安装这些图形？

8. 在VB6.0中，命令按钮的显示形式可以有标准的或图形的两种选择，这通过什么属性来设置？若选择图形的，则通过什么属性来装入图形？若已在规定的属性里装入了某个图形文件，但该命令按钮还是不能显示图形，而显示的是Caption属性设置的文字，怎样改正？

9. 标签和文本框的区别是什么？

10. 当窗体上有3个文本框和一个命令按钮，若程序运行时，要求焦点定位在私邸三个文本框（Text3）处，应对何控件的什么属性进行何种设置？

11. 若要对窗体上的3个文本框输入数据，各控件焦点的移动可通过Tab键（系统本身具有的），也可以通过回车键，则要对文本框的什么事件进行编程？

12. 当某文本框输入数据后（按了回车键），进行判断认为数据输入错，怎样删除原来数据？怎样使焦点回到该文本框重新输入？

13. 当运行程序前，对某些控件设置属性值，除了在窗体中直接设置外，还可以通过代码设置，这些代码一般放在什么事件中？例如，程序要将命令按钮定位在窗体的中央，请写出事件过程。

1. 设计界面、设置属性、编写代码、保存和运行程序

2. 涉及到2个文件需要保存。先保存窗体文件，再保存工程文件。若先保存工程文件，系统会先弹出“文件另存为”对话框，要求把窗体文件先保存。

3. 系统默认的目录是VB98。

4. 将该控件的Visible属性设置为False。

5. 将文本框的Locked属性设置为True。

6. 将标签的AutoSize属性设置为True。

7. 大量的图形文件存放在Graphics目录下。直接在带有VB6.0系统的光盘上找到Graphics子目录，将其复制到硬盘的VB目录下。

8. 通过Style属性设置图形的或标准的。通过Picture属性来装入图形。不能显示图形是因为Style的值设置了Standard，只要改为Graphical，一般将Caption的值设置为空。

9. 标签和文本框的共同点都可以在窗体上显示文字。不同点在于：标签的内容在Caption属性内，在窗体上只能显示文字，不能编辑；文本框内容在Text属性内，在窗体上可直接对内容进行编辑。

10. 应将Text3控件的TabIndex属性设置为0。

11. 对文本框的KeyPress事件编成。例如，当焦点在Text1时，输入数据按Enter键后，让焦点跳到Text2文本框，程序段如下：

Private Sub Text1_KeyPress(KeyAscii as Integer)

If KeyAscii=13 then

Text2.SetFocus

…

End If

End Sub

12. 假定文本框的名称为Text1，则事件过程如下：

Private Sub Text1_KeyPress(KeyAscii as Integer)

If KeyAscii=13 then

If 出错条件判断成立 then

Text1=””

Text1.SetFocus

End If

…

End If

End Sub

13. 这些代码一般放在窗体的Load事件过程中。将窗体定位在屏幕的中央，只能通过属性窗口对Form1窗口的StartUpPosition属性设置为2（表示屏幕的中心），该属性不能在运行时设置。

要将按钮定位在窗体的中央，事件过程如下：

Private Sub Form_Load()

Command1.Left=Form1.ScaleWidth\2-command1.Width\2

Command1.Top=Form1.ScaleHeight\2-command1.Height\2

End Sub

第三章 一、选择题

1. 在一行上写多条语句时，每个语句之间用（ B ）符号分隔。

（A）， （B）： （C）、 （D）；

2. 一个语句要在下一行继续写，用（ C ）符号作为续行符。

（A）+ （B）- （C）_ （D）…

3. 下面（ A ）是合法的变量名。

（A）X_yz （B）123abc （C）integer （D）X-Y

4. 下面（ D ）是不合法的整常数。

（A）100 （B）&O100 （C）&H100 （D）%100

5. 下面（ B ）是合法的字符常数。

（A）ABC$ （B）”ABC” （C）’ABC’ （D）ABC

6. 下面（ A ）是合法的单精度型变量。

（A）num！ （B）sum% （C）xinte$ （D）mm#

7. 下面（ D ）是不合法的单精度常数。

（A）100！ （B）100.0 （C）1E+2 （D）100.0D+2

8. 表达式16/4-2^5*8/4 mod 5\2的值为（ B ）。

（A）14 （B）4 （C）20 （D）2

9. 数学关系3≤x<10表示成正确的VB表达式为*（ B ）。

（A）3<=x<10 （B）3<=x and x<10

（C）x>=3 or x<10 （D）3<=x and <10

10. /、\、Mod、*四个算术运算符中，优先级别最低的是（ C ）。

（A）\ （B）/ （C）Mod （D）*

11. 与数学表达式对应，VB的不正确表达式是（ D ）。

（A）a*b/(3*c*d) （B）a/3*b/c/d （C）a*b/3/c/d （D）a*b/3*c*d

12. Rnd函数不可能为下列（ B ）值。

（A）0 （B）1 （C）0.1234 （D）0.0005

13. Int（198.555*100+0.5）/100的值是（ C ）。

（A）198 （B）199.6 （C）198.56 （D）200

14. 已知A$=”12345678”，则表达式Val(Left$(A$,4)+Mid$(A$,4,2))的值为（ B ）。

（A）123456 （B）123445 （C）1279 （D）”123445”

15. Print DateAdd(“m”,1,#1/30/2000#)语句显示的结果是（ A ）。

（A）2000-2-29 （B）2000-2-28 （C）2000-2-30 （D）2000-3-1

16. 表达式DateDiff（”d”,#12/30/1999#,#1/13/2000#）的结果是（ C ）。

（A）1 （B）11 （C）14 （D）99

17. 表达式Len（”123程序设计ABC”）的值是（A ）。

（A）10 （B）14 （C）20 （D）17

18. 表达式LenB（”123程序设计ABC”）的值是（ C ）。

（A）10 （B）14 （C）20 （D）17

19. 设a=1,b=2,c=3,d=4，下面逻辑表达式的值为真的是（ C ）。

（A）Sqr(d)>b （B）Not(c-b)（C）d>c and b>a （D）Abs(a-d)

20. 在以下的运算符中，优先级最高的是（ C ）。

（A）/ （B）\ （C）^ （D）Mod

21. 设a=”visual basic”，下面使b=”basic”的语句是（ B ）。

（A）b=Left(a,8,12) （B）b=Mid(a,8,5)

（C）b=Right(a,5,5) （D）b=Left(a,8,5)

22. 从键盘上输入两个字符串，分别保存在变量str1、str2中。确定第二个字符串在第一个字符串中起始位置的函数是（ D ）。

（A）Left （B）Mid （C）String （D）Instr

23. 设a=2,b=3,c=4,d=5，表达式a>b and c<=d or 2*a>c的值是（ B ）。

（A）True （B）False （C）-1 （D）0

24. 设a=2,b=3,c=4,d=5，表达式3>2*b or a=c and b<>c or c>d的值是（ B ）。

（A）True （B）False （C）-1 （D）0

25. 设a=2,b=3,c=4,d=5，表达式not a<=c or 4*c=b^2 and b<>a+c的值是（ B ）。

（A）True （B）False （C）-1 （D）0

26. 假定Picture1和Text1分别为图片框和文本框的名称，下列不正确的语句是（ C ）。

（A）Print 25 （B）Picture1.Print 25

（C）Text1.Print 25 （D）Debug. Print 25

27. 语句Print 5*5\5/5的输出结果是（ B ）。

（A）5 （B）25 （C）0 （D）1

28. 语句Print Sgn（-6^2）+Abs（-6^2）+Int（-6^2）的输出结果是（ C ）。

（A）-36 （B）1 （C）-1 （D）-72

29. 表达式4+5\6*7/8 Mod 9的值为（B ）。

（A）4 （B）5 （C）6 （D）7

30. 设有整数x，如果Sgn（x）的值为-1，则x的值是（ B ）。

（A）整数 （B）大于0的整数

（C）等于0的整数 （D）小于0的整数

31. 可以同时删除字符串前导和尾部空白的函数是（ C ）。

（A）Ltrim （B）Rtrim （C）Trim （D）Mid

32. m，n是整数，且n>m，在下面的选项中，能将x赋值为一个m~n之间（含m,n）的任意数的语句是（ A ）。

（A）x=Int(Rnd*(n-m+1))+m （B）x= Int(Rnd*n)+m

（C）x=Int(Rnd*m)+n （D）x=Int(Rnd*(n-m))+m

33. VB6.0表达式”123”+Abs(1)的值是（ C ）。

（A）123-1 （B）1231 （C）124 （D）错误表达式

34. VB6.0表达式”12a”+Abs(1)的值是（ D ）。

（A）12b （B）12a1 （C）121 （D）错误表达式

35. 当用Const a%=19.8 定义后，a的值是（ C ）。

（A）19 （B）19.8 （C）20 （D）0

二、填空题

1. 在VB中，1234、123456&、1.2346E+5、1.2346D+5四个常数分别表示（ 整型，长整型，单精度、双精度 ）类型。

2. 整型变量x中存放了一个两位数，要将两位数交换位置，例如，13变成31，实现的表达式是（ （x mod 10）*10+x\10）。

3. 数学表达式的VB算术表达式为（ (a+b)/(1/(c+5)-c*d/2) ）。

4. 表示x是5的倍数或是9的倍数的逻辑表达式为（ x mod 5=0 or x mod 9=0）。

5. 已知a=3.5，b=5.0，c=2.5，d=True，则表达式：a>=0 and a+c>b+3 or not d的值是（ false ）。

6. Int(-3.5)、Int (3.5)、Fix(-3.5)、Fix(3.5)、Round(-3.5)、Round(3.5)的值分别是（ -4,3,-3,3,-4,4 ）。

7. 表达式Ucase(Mid(“abcdefgh”,3,4))的值是（CDEF ）。

8. 在直角坐标系中，（x，y）是坐标系中任意点的位置，用x与y表示在第一象限或第三象限的表达式是（ x*y>0 ）。

9. 要以××××年××月××日形式显示当前机器内日期的Format函数表达式为（ format(date,”yyyy-mm-dd”) ）。

10. 计算已近入21世纪有多少天的函数表达式是（ datediff(“d”,date,”2000-1-1”)）。

11. 计算离你毕业（假定毕业时间为2006年6月28日）还有多少个星期的函数表达式是（datediff(“w”,date,”2006-6-28”) ）。

12. 表示s字符变量是字母字符（大小写字母不区分）的逻辑表达式为（ucase(s)>=”A” and ucase(s)<=”Z” ）。

13. VB6.0表达式Len（Left（"abcd”，3）+Right（”商丘师范学院”，4））的值是（ 7 ）。

14. 数学式2cos2y+e2x的VB6.0表达式是（2*cos(2*y)+exp(2*x)）。

15. 产生一个在[-50，-5]范围内的随机负整数（包含-50和-5）的表达式是（–int(rnd*46+5) ）。

16. 设y是整型变量，判断y为奇数的表达式是（y mod 2<>0 ）。

17. VB6.0表达式3\3*3 mod 3的值为（ 0 ）。

18. 表达式Fix（-11.85）+Int（-23.01）的值是（ -35 ）。

19. 在VB中，字符串常量要用（“”）括起来，日期/时间型常量要用(##）括起来。

20. 在VB6.0中，字符采用（Unicode）编码方式。在这种编码方式中，一个中文字符或一个西文字符均视为（一个）字符，每个字符用（2 ）个字节编码。

21. 语句Print Int（（12345.6789*100+0.5）/100）的输出结果是（ 12345）

22. 语句Print “25+32=”;25+32的输出结果是（25+32=57 ）。

23. 若a=4,b=9，则语句Print a>b mod 4 的输出结果是（ true ）。

24. 语句Print “123”+”456”+3的输出结果是（123459 ）。

25. 语句Print “234”+10+”123”的输出结果是（ 367 ）。

三、简答题

1. 说明下列哪些是VB合法的直接常量，分别指出它们是什么类型：

（1）100.0 （2）%100 （3）1E1（4）123D3（5）123,456（6）0100 （7）”ASDF” （8）”1234” （9）#2000/10/7# （10）100#（11）π （12）&0100 （13）&O78 （14）&H123 （15）True（16）T

（17）&H12ag （18）-1123!

（1）合法，单精度 （2）不合法 （3）合法，单精度（4）合法，双精度 （5）123,456 （6）合法，二进制整数（7）合法，字符型 （8）不合法 （9）合法，日期型 （10）合法，单精度 （11）不合法 （12）合法，八进制（13）不合法 （14）合法，十六进制 （15）合法，逻辑型（16）不合法 （17）不合法 （18）合法，单精度

2. 下列符号中，哪些是VB合法的变量名？

（1）a123 （2）a12_3 （3）123_a （4）a 123 （5）Integer

（6）XYZ （7）False （8）sin(x) （9）sinx （10）变量名（11）abcdefg （12）π

（1）合法 （2）合法 （3）不合法 （4）不合法 （5）不合法（6）合法 （7）不合法 （8）不合法 （9）合法 （10）合法（11）合法 （12）不合法

3. 把下列算术表达式写成VB表达式

（1）|x+y|+z5 abs(x+y)+z^5 （2）(1+xy)6 (1+x*y)^6（3）10*x+sqr(3*y))/(x*y)（4） (-b+sqr(b*b-4*a*c))/(2*a) （5）1/(1/r1+1/r2+1/r3) （6）sin450+ sin(45*3.14/180)+(exp(10)+log(10))/sqr(x+y+1)

4. 根据条件写一个VB表达式：

（1）产生一个”C”~”L” 范围内的大写字符。 chr(int(rnd*10+67))

（2）产生一个100~200（包括100和200）范围内的正整数。 int(rnd*101+100)

（3）已知直角坐标系中任意一个点（x,y），表示该点在第一或第三象限内。x*y>0

（4）表示x是5或7的倍数。x mod 5=0 or x mod 7=0

（5）将任意一个两位数x的个位数与十位数对换。例如，x=78，则表达式的应为87。 (x mod 10)*10+x\10

（6）将变量x的值按四舍五入保留小数点后两位。例如，x的值为123.2389，表达式的值为123.24。 round(x*100)/100

（7）表示字符变量C是字母字符（大小写不区分）。 ucase(C)>=”A” and ucase(C)<=”Z”

（8）取字符变量S中第五个字符起的6个字符。 Mid(s,5,6)

（9）表示10≥x<20的关系表达式。 (x>=10) and (x<20)

（10）x、y中有一个小于z。 x

（11）x、y都大于z。 x>z and y>z

5. 写出下列表达式的值：

（1）123+23 Mod 10\7+Asc(“A”) 188

（2）100+”100” & 100 “200100”

（3）Int(68.555*100+0.5)/100 68.56

（4）已知A$=”87654321”,求表达式Val(Left$(A$,4)+Mid$(A$,4,2))的值 87654

（5）DateAdd(“m”,1,#1/30/2000#) #2/29/2000#

（6）Len(“VB程序设计”) 6

6. 利用SHELL（）函数，在VB程序中分别执行画图和WORD应用程序。略

7. VB提供了哪些标准数据类型？声明类型时，其类型关键字分别是什么？其类型符又是什么？ 略

8. 哪种数据类型需要的内存容量最少，且可以存储例如3.2345这样的值？

9. 将数字字符串转换为数值，用什么函数？判断是否是数字字符串，用什么函数？取字符串中的某几个字符，用什么函数？大小写字母间的转换用什么函数？

10. 要使单精度变量x、y、z分别保留1位、2位、3位小数位，并在窗体显示，使用什么函数？如何写对应的Print方法？

8. 单精度

9. val函数，isnumeric函数，mid函数，ucase或lcase函数

10. 用format函数，print format(x, ”0.0”),format(y, ”0.00”),format(z, ”0.000”)

第五章选择题

1. 如下数组声明语句，（B ）正确。

（A）Dim a[3,4] as integer （B）Dim a(3,4) as integer

（C）Dim a(n,n) as integer （D）Dim a(3 4) as integer

2. 要分配存放如下方阵，可使用声明语句( C )来实现（不能浪费空间）。.

（A）Dim a(9) as single （B）Dim a(3,3) as single

（C）Dim a(-1 to 1,-5 to -3) as single （D）Dim a(-3 to -1,5 to 7) as integer

3. 数组声明语句Dim a(3,-2 to 2,5) as integer中，数组a包含的元素个数为（ A ）。

（A）120 （B）75 （C）60 （D）13

4. 用语句Dim a(-3 to 5) as integer所定义的数组的元素个数是（D ）。

（A）6 （B）7 （C）8 （D）9

5. 用语句Dim a(3 to 5，-2 to2)所定义的数组的元素个数是（ C ）。

（A）20 （B）12 （C）15 （D）24

6. 下面的B中有（ C ）个数组元素。

Dim B : B=(1,2,3,4,5,6,7,8,9)

（A）任意多 （B）8 （C）9 （D）10

一、 填空题

1. 控件数组的名字由（ Name ）属性指定，而数组中的每个元素由（ Index ）属性指定。

2. 由函数建立的数组的名字必须是（ 变体 ）类型。

3. 数组定义Dim D(20) ，数组D有（ 21 ）个数组元素。

三、分析程序的运行结果

1. 在窗体上画一个命令按钮command1，然后编写如下事件过程：

option base 1

private sub command1_click()

dim a

a=array(1,2,3,4)

j=1

for i=4 to 1 step -1

s=s+a(i)*j

j=j*10

next i

print s

end sub

程序运行后，单击command1，输出结果为：1234

2. 在窗体上画一个命令按钮command1，然后编写如下事件过程：

option base 1

private sub command1_click()

dim a,b(3,3)

a=array(1,2,3,4,5,6,7,8,9)

for i=1 to 3

for j=1 to 3

b(i,j)=a(i*j)

if j>=I then print tab(j*3);b(I,j);

next j

print

next I 1 2 3

end sub 4 6

程序运行后，单击command1，输出结果为： 9

3. 在窗体上画一个命令按钮command1，然后编写如下事件过程：

option base 1

private sub command1_click()

dim a%(3,3)

for i=1 to 3

for j=1 to 3

if j>1 and i>1 then

a(i,j)=a(a(i-1,j-1),a(i,j-1))+1

else

a(i,j)=i*j

end if

print a(i,j);” “;

next j

print

next I 1 2 3

end sub 2 3 1

程序运行后，单击command1，输出结果为： 3 2 3

4. 在窗体上画一个命令按钮command1，然后编写如下事件过程：

option base 1

private sub command1_click()

dim a%(10),p(3) as integer

k=5

for i=1 to 10

a(i)=i

next i

for i=1 to 3

p(i)=a(i*i)

next i

for i=1 to 3

k=k+p(i)*2

next i

print k

end sub

程序运行后，单击command1，输出结果为：33

5. 在窗体上画一个命令按钮command1，然后编写如下事件过程：

option base 1

private sub command1_click()

dim a%(4,4)

for i=1 to 4

for j=1 to 4

a(i,j)=(i-1)*3+j

next j

next i

for i=1 to 4

for j=1 to 4

print a(j,i);

next j

print 1 4 7 10

next I 2 5 8 11

end sub 3 6 9 12

程序运行后，单击command1，输出结果为：4 7 10 13

6. 在窗体上画一个命令按钮command1，然后编写如下事件过程：

option base 1

private sub command1_click()

dim a%(5,5)

for i=1 to 3

for j=1 to 4

if j>1 and i>1 then

a(i,j)=i*j

end if

next j

next i

for n=1 to 2

for m=1 to 3

print a(m,n);

next m

print

next n

end sub 0 0 0

程序运行后，单击command1，输出结果为：0 4 6

7. 在窗体上画一个命令按钮command1，然后编写如下事件过程：

private sub command1_click()

dim a%(5)

for i=0 to 4

a(i)=i+1

t=i+1

if t=3 then

print a(i);

a(t-1)=a(i-2)

else

a(t)=a(i)

endif

if i=3 then a(i+1)=a(t-4)

a(4)=1

print a(i);

next i

end sub

程序运行后，单击command1，输出结果为：1 2 3 1 4 1

8. 在窗体上画一个命令按钮command1，然后编写如下事件过程：

private sub command1_click()

dim a%(3,3)

dim b

b=array(1,2,3,4,5,6,7,8,9)

j=1

for i=0 to 8

j=i mod 3

k=i\3

a(j,k)=b(i)

next i

k=1

for j=0 to 2

print tab(3*(j+1));a(k,j);

next j

end sub

程序运行后，单击command1，输出结果为：2 5 8

9. 在窗体上画一个命令按钮command1，一个文本框text1，然后编写如下事件过程：

private sub command1_click()

dim b

b=array(34,5,13,35,9,6,42)

for i=1 to ubound(b,1)

if b(i)>b(i-1) then

x=b(i)

for j=i-1 to 0 step -1

if b(j)>x then exit for

b(j+1)=b(j)

next j

b(j+1)=x

end if

next i

text1=””

for i=0 to ubound(b,1)

text1=text1+str(b(i))+”,”

next i

end sub

运行程序后，文本框text1中的内容是：42, 35, 34, 13, 9, 6, 5,

10. 在窗体上画一个命令按钮command1，然后编写如下事件过程：

private sub command1_click()

dim a(3,3)

for i=0 to 3

for j=0 to 3

a(i,j)=(i+1)*10+j

next j,i

for i=0 to 3

for j=0 to 3

if i

x=a(i,j) ：a(i,j)=a(j,i) : a(j,i)=x

end if

next j,i

for i=0 to ubound(a,1)

for j=0 to ubound(a,2)

print a(i,j);

next j

print 10 20 30 40

next I 11 21 31 41

end sub 12 22 32 42

运行程序后，文本框text1中的内容是：13 23 33 43

11. 在窗体上画一个命令按钮command1，然后编写如下事件过程：

private sub command1_click()

dim arr1%(10),arr2(10)

n=3

for i=1 to 5

arr1(i)=i

arr2(n)=2*n+i

next i

print arr2(n);arr1(n)

end sub

程序运行后，单击command1，输出结果为：11 3

12. 在窗体上画一个命令按钮command1，然后编写如下事件过程：

private sub command1_click()

dim m%(10)

for k=1 to 10

m(k)=12-k

next k

x=6

print m(2+m(x))

end sub

程序运行后，单击command1，输出结果为：4

13. 在窗体上画一个命令按钮command1，然后编写如下事件过程：

private sub command1_click()

dim b

b=array(56,22,16,67,26,14,9,87)

k=3

do while k

b(k)=b(k+1)

k=k+1

loop

print b(5)

end sub

程序运行后，单击command1，输出结果为：9

14. 在窗体上画一个命令按钮command1，然后编写如下事件过程：

private sub command1_click()

dim b,a(2,4)

b=array(1,2,3,4,5,6,7,8,9,10,11,12,13,14)

for i=0 to 2

for j=0 to 4

a(i,j)=b(i*(ubound(a,2)+1)+i)

next j

next i

print b(i*(ubound(a,2)+1)-3)

end sub

程序运行后，单击command1，输出结果为：13

15. 在窗体上画一个命令按钮command1，然后编写如下事件过程：

private sub command1_click()

dim a(5 to 16)

dim b

b=array(1,2,3,4,5,6,7,8,9)

for i=1 to 8

a(5+i)=b(i)

next i

print a(7)

end sub

程序运行后，单击command1，输出结果为：3

16. 在窗体上画一个命令按钮command1，然后编写如下事件过程：

private sub command1_click()

dim b,a(3,3)

b=array(1,2,3,4,5,6,7,8,9)

j=1

for i=0 to 8

k=i\3 : j=I mod 3

a(k,j)=b(i)

print a(k,j);

if j=2 then print

next I 1 2 3

end sub 4 5 6

程序运行后，单击command1，输出结果为：7 8 9

17. 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：

Private Sub Command1_Click()

Dim i As Integer,j As Integer

Dim a(10,10)As Integer

For i=1 To 3

For j=1 To 3

a(i,j)=(i-1)*3+j

Print a(i,j);

Next j

Print

Next i

End Sub

程序运行后，单击命令按钮，窗体上显示的是 同17题

18. 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

Dim array1(10,10) As Integer

Dim i,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

程序运行后，单击command1，文本框中显示的结果为：12

四、简答题

1. 要分配存放12个元素的整形数组，下列数组声明（若无下界，按默认规定）哪些符合要求？

（1）n=12 （2）Dim a%（）

Dim a（1 to n）as integer n=11

ReDim a（n）

（3）Dim a%[2,3] （4）Dim a(1,1,2) as integer

（5）Dim a%（10） （6）Dim a!（）

ReDim a（1 to 12） ReDim a（3,2）as integer

（7）Dim a%（2,3） （8）Dim a（1 to 3 1 to 4）as integer

2. 已知下面的数组声明，写出它的数组名、数组类型、维数、各维的上下界、数组的大小，并按行的顺序列出各元素。 Dim a(-1 to 2,3) as single

3. 静态数组和动态数组的区别是什么？在声明静态数组、重定义动态数组时的下标都可以用变量来表示吗？

4. 已声明了静态数组a(3,4)，能否在下面再用重定义动态数组a(4,4)来重定义A数组的大小？

5. 使用ReDim语句可以改变数组类型吗？

6. 在ReDim语句中加了Preserve关键字，对重定义数组有何限制？

7. 利用随机数生成两个四行四列的矩阵（数据不一定相同，前者范围在30~70，后者为101~135）。要求：

（1）将两个矩阵相加结果放入C矩阵中。

（2）将a矩阵转置。

（3）求C矩阵中元素的最大值和下标。

（4）以下三角形式显示A矩阵、上三角形式显示B矩阵。

（5）将A矩阵第一行与第三行对应元素交换位置，即第一行元素放到第三行，第三行元素放到第一行。

（6）将A矩阵两条对角线元素之和。

（7）将A矩阵按列的次序把各元素放入一位数组D中，显示结果。

8. 声明一个有20个元素的一维字符类型数组，要求：

（1）由随机数形成小写字母构成的数组，每个元素的字符个数由随机数产生，范围1~11。

（2）要求将生成的数组分四行显示。

（3）显示生成的字符数组中字符最多的元素。

9. 自定义一个职工类型，包含职工号、姓名和工资。声明一个职工类型的动态数组。输入n个职工的数据，要求按工资递减的顺序排序，并显示排序的结果，每个职工一行显示三项信息。

1. （2）、（4）、（7）符合要求。

2. 数组名为a、数组类型为单精度，二维数组，各维的下界分别为-1和0、上界分别为2和3，数组的大小为4*4共16个元素，各元素排列顺序如下：

a(-1, 0) a(-1, 1) a(-1, 2) a(-1, 3)

a(0, 0) a(0, 1) a(0, 2) a(0, 3)

a(1, 0) a(1, 1) a(1, 2) a(1, 3)

a(2, 0) a(2, 1) a(2, 2) a(2, 3)

3. 静态数组在声明数组时的下标必须是常数，以后不能改变其大小；动态数组在Dim声明时不要声明数组的大小，在以后的程序中可以用ReDim语句重新声明数组的大小，ReDim语句中的下标可以出现有确定值的变量或表达式。

4. 已声明了的静态数组不能再用重定义语句来重新定义静态数组的大小。

5. 可以反复地改变数组的大小和数组的维数，但是不能改变数组的类型。

6. 在ReDim语句中加上了Preserve关键字，就只能重定义数组最后一维的大小，且根本不能改变数组的维数。例如，如下语句：

Dim a（）

ReDim a（3，4）

ReDim Preserve a（4，5）

程序执行到ReDim Preserve a（4，5）时显示“下标越界”出错信息，也就是只能改变第二个下标的大小，而不能改变第一个下标的大小。

7. 利用随机数生成两个矩阵：

Dim a%(1 to 4, 1 to 4), b%(1 to 4, 1 to 4), c%(1 to 4, 1 to 4)

Private Sub Form_Click()

For i=1 to 4

For j=1 to 4

a(i,j)=int(rnd*41+30)

b(i,j)=int(rnd*35+101)

next j, i

End Sub

（1）将两个矩阵相加结果放入矩阵C中：

for i=1 to 4

for j=1 to 4

c(i,j)=a(i,j)+b(i,j)

next j, i

（2）将矩阵a转置：

for i=1 to 4

for j=1 to i-1

t=a(i,j): a(i,j)=a(j,i): a(j,i)=t

next j, i

（3）统计矩阵c最大值和下标：

dim max%, maxi%, maxj%

max=c(1,1): maxi=1: maxj=1

for i=1 to 4

for j=1 to 4

if c(i,j)>max then

max=c(i,j): maxi=i: maxj=j

end if

next j, i

（4）以下三角形式显示矩阵a、上三角形式显示矩阵b：

输出下三角元素：

for i=1 to 4

for j=1 to i

print a(i,j); space(4-len(a(i,j)));

next j

print

next i

输出上三角元素：

for i=1 to 4

for j=i to 4

print tab(j*4);b(i,j);

next j

print

next i

（5）将矩阵a第一行与第三行对应元素交换位置，即第一行元素放在第三行；第三行元素放在第一行：

for j=1 to 4

t=a(1,j) : a(1,j)=a(3,j) : a(3,j)=t

next j

（6）求矩阵a两条对角线之和：

s=0

for i=1 to 4

s=s+a(i,i)+a(i,5-i)

next i

（7）将矩阵a按列的次序把各元素放入一维数组d中，显示结果：

dim d%(1 to 16) ,k%

for i=1 to 4

for j=1 to 4

k=(j-1)*4+i

d(k)=a(i,j)

next j, i

8. 声明一个有20个元素的一维字符类型数组，要求：

（1）由随机数形成小写字母构成的数组，每个元素的字符个数由随机数产生，范围1~11。

Dim st(1 to 20) as string, c as string*1

Dim i%, n%

For i=1 to 20

n=int(rnd*11+1)

for j=1 to n

c=chr(int(rnd*26+97))

st(i)=st(i) & c

next j

print st(i)

next i

（2）要求将生成的数组分四行显示。

For i=1 to 20

Print st(i); space(15-len(st(i)));

If i mod 5=0 then print

Next i

（3）显示生成的字符数组中字符最多的元素。

Maxlen=0

Maxstr=””

For i=1 to 20

If len(st(i))>maxlen then

Maxlen=len(st(i))

Maxstr=st(i)

End if

Next i

Print maxlen, maxstr

9. 自定义一个职工类型，包含职工号、姓名和工资。声明一个职工类型的动态数组。输入n个职工的数据，要求按工资递减的顺序排序，并显示排序的结果，每个职工一行显示三项信息。

Dim a() As zg, i%

Private Sub Command1_Click()

i = i + 1

If i < n Then MsgBox ("人数超过"): Exit Sub

With a(i)

.gh = Val(Text1)

.xm = Text2

.gz = Val(Text3)

End With

Text1 = "": Text2 = "": Text3 = ""

End Sub

Private Sub Command2_Click()

Picture1.Cls

Dim j%, k%, t As zg

For j = 1 To i - 1

For k = j + 1 To i

If a(k).gz > a(k - 1).gz Then

t = a(k): a(k) = a(k - 1): a(k - 1) = t

End If

Next k

Next j

For j = 1 To i

Picture1.Print a(j).gh; a(j).xm; a(j).gz

Next j

End Sub

Private Sub Form_Load()

Dim n%

n = InputBox("输入人数")

ReDim a(1 To n)

i = 0

End Sub

第六章 一、选择题

1. 下列叙述中正确的是（ C ）。

（A）在窗体的Form_Load事件中定义的变量是全局变量

（B）局部变量的作用域可以超出所定义的过程

（C）在某个Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只局限于该过程。

（D）在调用过程时，所有局部变量被系统初始化为0

2. 下列四个叙述中，错误的是（C ）。

（A）过程内用Dim语句定义的变量，它的作用域是此过程

（B）过程内用Static语句定义的变量，它的生存期与整个过程的运行期相同

（C）过程内用Dim语句定义的变量，它的生存期与整个过程的运行期相同

（D）若在模块的“通用声明”中写上语句：Option Explicit，则该模块的所有变量必须先说明后引用

3. 在过程定义中用（C ）表示形参的传值。

（A）Var （B）ByDef （C）ByVal （D）Value

4. 若已编写了一个Sort子过程，在该工程中有多个窗体，为了方便地调用Sort子过程，应该将该过程放在（ B ）中。

（A）窗体模块 （B）标准模块 （C）类模块 （D）工程

5. 在过程中定义的变量，若希望在离开该过程后，还能保存过程中局部变量的值，则应使用（ D ）关键字在过程中定义局部变量。

（A）Dim （B）Private （C）Public （D）Static

6. 下面子过程语句说明合法的是（ D ）。

（A）Sub f1(Byval n%()) （B）Sub f1(n%) as integer

（C）Function f1%(f1%) （D）Function f1(Byval n%)

7. 要想从子过程调用后返回两个结果，下面子过程语句说明合法的是（ C ）。

（A）Sub f1(Byval n%, Byval m%) （B）Sub f1(n%, Byval m%)

（C）Sub f1(n%, m%) （D）Sub f1(Byval n%, m%)

8. 在VB应用程序中，以下正确的描述是（ B ）。

（A）过程的定义可以嵌套，但过程的调用不能嵌套

（B）过程的定义不可以嵌套，但过程的调用可以嵌套

（C）过程的定义和调用均不可以嵌套

（D）过程的定义和调用均可以嵌套

9. 以下叙述中错误的是（ C ）。

（A）一个工程中只能有一个Sub Main过程

（B）窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体

（C）窗体的Hide方法和Unload方法的作用完全相同

（D）若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体

10. 以下叙述中错误的是（ D ）。

（A）如果过程被定义为Static类型，则该过程中的局部变量都是Static类型

（B）Sub过程中不能嵌套定义Sub过程

（C）Sub过程中可以嵌套调用Sub过程

（D）事件过程中可以像通用过程一样由用户定义过程名

11. 定义带可变参数的过程，使用的关键字是（ C ）。

（A）Optional （B）Option （C）Param （D）Private

12. 定义带可选参数的过程，使用的关键字是（ A ）。

（A）Optional （B）Option （C）Param （D）Private

二、填空题

1. 在过程定义的首部出现的变量名叫做（ 形式 ）参数，而在调用过程中传送给过程的（常数、变量、数组元素、表达式）叫做（ 实在 ）参数。

2. 定义和调用函数或过程时参数传递的两种方法是（按值传递，按地址传递）。

3. 在窗体的通用段用Dim语句定义的变量是（窗体）级变量，它只能在（本窗体）中使用。

4. 全局级过程在定义时可以默认，也可以使用关键字（ Public ）进行显示声明；窗体/模块级的过程声明时要用关键字（ Private）。

5. 用Param关键字声明可变参数时，被声明的参数只能是（变体类型数组）。

6. 在带可选参数的过程中，使用（IsMissing ）函数来测试可选参数是否被选。

三、分析运行结果

1. 阅读程序

Function f(a As Integer)

Static c

b = 0: b = b + 1

c = c + 1: f = a + b + c

End Function

Private Sub command1_click()

Dim a As Integer

a = 2

For i = 1 To 3

Print f(a);

Next i

End Sub程序运行后，单击命令按钮，输出结果为：4 5 6

2. 阅读程序

Sub s(x As Single, y As Single)

t = x

x = t / y

y = t Mod y

End Sub

Private Sub command1_click()

Dim a As Single, b As Single

a = 5

b = 4

s a, b

Print a, b

End Sub

程序运行后，单击命令按钮，输出结果为：1.25 1

3. 阅读程序

Function M(x%, y%) As Integer

M = IIf(x > y, x, y)

End Function

Private Sub command1_click()

Dim a As Integer, b As Integer

a = 1

b = 2

Print M(a, b)

End Sub

程序运行后，单击命令按钮，输出结果为：2

4. 阅读程序

Sub Inc(a As Integer)

Static x As Integer

x = x + a

Print x;

End Sub

Private Sub command1_click()

Inc 2

Inc 3

Inc 4

End Sub

程序运行后，单击命令按钮，输出结果为：2 5 9

5. 阅读程序：

Sub p(b() As Integer)

For i = 1 To 4

b(i) = 2 * i

Next i

End Sub

Private Sub command1_click()

Dim a(1 To 4) As Integer

a(1) = 5

a(2) = 6

a(3) = 7

a(4) = 8

p a()

For i = 1 To 4

Print a(i);

Next i

End Sub程序运行后，单击命令按钮，输出结果为：2 4 6 8

6. 阅读程序：

Function fun(ByVal num As Long) As Long

Dim k As Long

k = 1

num = Abs(num)

Do While num

k = k * (num Mod 10)

num = num \ 10

Loop

fun = k

End Function

Private Sub command1_click()

Dim n As Long, r As Long

n = Val(InputBox("请输入一个数："))

r = fun(n)

Print r

End Sub

程序运行后，单击命令按钮，输入1234，输出结果为：24

7. 阅读程序：

Function func(a%, b%) As Integer

Static m As Integer, i As Integer

m = 0

i = 2

i = i + m + 1

m = i + a + b

func = m

End Function

Private Sub command1_click()

Dim k%, m%, p%

k = 4

m = 1

p = func(k, m)

Print p;

p = func(k, m)

Print p

End Sub

程序运行后，单击命令按钮，输出结果为：8 8

8. 阅读程序：

Dim a%, b%, c%

Public Sub p1(x%, y%)

Dim c%

x = 2 * x: y = y + 2: c = x + y

End Sub

Public Sub p2(x%, ByVal y%)

Dim c%

x = 2 * x: y = y + 2: c = x + y

End Sub

Private Sub command1_click()

a = 2: b = 4: c = 6

Call p1(a, b)

Print a, b, c

Call p2(a, b)

Print a, b, c

End Sub 4 6 6

程序运行后，单击命令按钮，输出结果为：8 6 6

9. 阅读程序：

Private Sub command1_click()

Dim m%, i%, x%(10)

For i = 0 To 4

x(i) = i + 1

Next i

For i = 1 To 2

Call proc(x())

Next i

For i = 0 To 4

Print x(i)

Next i

End Sub

Public Sub proc(a%())

Static i%

Do

a(i) = a(i) + a(i + 1)

i = i + 1

Loop While i < 2

End Sub

程序运行后，单击命令按钮，输出结果为：3 5 7 4 5

10. 阅读程序：

Private Sub command1_click()

Print p1(3, 7)

End Sub

Public Function p1!(x!, n%)

If n = 0 Then

p1 = 1

Else

If n Mod 2 = 1 Then

p1 = x * p1(x, n \ 2)

Else

p1 = p1(x, n \ 2) \ x

End If

End If

End Function程序运行后，单击命令按钮，输出结果为：27

11. 阅读程序：

Private Sub command1_click()

Dim x%, y%, z%, w%

x = 9

y = 8

z = 2

w = 6

Call s1(x, y, z, w)

Print x; y; z; w

End Sub

Private Sub s1(a%, b%, ByVal c%, ByVal d%)

a = a + 1

b = b + 2

c = c + 3

d = d + 4

End Sub程序运行后，单击命令按钮，输出结果为：10 10 2 6

12. 阅读程序：

Private Sub command1_click()

Dim x%, y%

x = 9: y = 8

Call s1(5, 7, x, y)

Print x; y

End Sub

Private Sub s1(a%, b%, ByVal c%, ByVal d%)

c = c + a: d = d + b

End Sub程序运行后，单击命令按钮，输出结果为：9 8

13. 阅读程序：

Private Sub command1_click()

Dim x%, y%, z%

x = 5: y = 7: z = 0

Call s1(x, y, z)

Print x; y; z

End Sub

Private Sub s1(ByVal a%, ByVal b%, c%)

c = a + b

End Sub程序运行后，单击命令按钮，输出结果为：5 7 12

14. 阅读程序：

Private i As Integer

Private Sub abc()

a$ = Chr(Asc("A") + i)

Print a$; ";";

End Sub

Private Sub command1_click()

For i = 0 To 4

abc

Next i

End Sub程序运行后，单击命令按钮，输出结果为：A;B;C;D;E;

15. 阅读程序：

Private Sub abc()

a$ = Chr(Asc("A") + i)

Print a$; ";";

End Sub

Private Sub command1_click()

For i = 0 To 4

abc

Next i

End Sub程序运行后，单击命令按钮，输出结果为：A;A;A;A;A;

16. 阅读程序：

Function M(x%, y%) As Integer

M = IIf(x > y, x, y)

End Function

Private Sub command1_click()

Dim a As Integer, b As Integer

a = 100

b = 200

Print M(a, b)

End Sub程序运行后，单击命令按钮，输出结果为：200

17. 阅读程序：

Private i As Integer

Private Sub abc()

a$ = Chr(Asc("A") + i)

b$ = Chr(Asc("Z") - x)

Print a$ & b$; ";";

End Sub

Private Sub command1_click()

Dim x As Integer

For i = 0 To 4

x = x + 1

abc

Next i

End Sub程序运行后，单击命令按钮，输出结果为：AZ;BZ;CZ;DZ;EZ;

四、简答题

1. 子过程与函数过程的异同点是什么?

2. 什么是形参？什么事实参？

3. 调用子过程或函数过程时，实参与形参的对应关系如何？应注意什么问题？

4. 值传递与地址传递的选择与其特点是什么？

5. 在VB中，形参若是数组，不要说明数组元素的个数，即以数组名和圆括号表示，在过程体内如何表示数组的上下界？

6. 在Form1窗体通用声明部分声明的变量，可否在Form2窗体中的过程被访问？

7. 要使变量在某事件过程中保值，有哪几种变量声明的方法？

8. 指出下面过程语句说明中的错误：

（1）Sub f1（n%） as integer （2）Function f1%（f1%）

（3）Sub f1（ByVal n%（）） （4）Sub f1（x（i）as integer)

9. 已知有如下求两个平方数和的fsum子过程：

Public Sub fsum（sum%, byval m%, byval n%）

Sum=m*m+n*n

End Sub

在事件过程中有如下变量声明：

Dim a%,b%,c!

a=10

b=20

则指出如下过程调用语句错误所在：

（1）fsum 3,4,5 （2）fsum c, a, b （5）call fsum c, a, b

（3）fsum a+b, a, b （4）call fsum(sqr(c), sqr(a), sqr(b))

1. 子过程和函数过程的相同点：函数过程和子过程都是功能相对独立的一种子过程结构，它们有各自的过程头、变量声明和过程体。在程序中使用它们不但可以避免频繁的书写重复的程序语句，缩短代码，而且使程序条理清晰，容易阅读。

子过程和函数过程的不同点：

（1）过程声明的关键字不同，子过程用Sub，函数过程用Function。

（2）子过程名无值就无类型声明，函数过程有值就有类型声明。

（3）函数过程名兼作结果变量，因此在函数过程体内至少对函数过程名赋值一次；而子过程名在过程内不能赋值。

（4）调用方式不同，子过程是一句独立的语句，可用call子过程名或省略call直接以子过程名调用；函数过程不是一句独立的语句，是一个函数值，必须参与表达式的运算。

（5）一般来说，一个函数过程可以被一个子过程代替，代替时只要改变函数定义的形式，并在子过程的形参表中增加一个地址传递的形参来传递结果。但反过来，用一个函数过程去替代一个子过程，有时是不容易实现的。

2. 形参是在定义过程时的一种形式虚设的参数，只代表了该过程参数的个数、类型、位置，形参的名字并不重要，也没有任何值，只表示在过程体内进行某种运算或处理。

形参不能是常量、表达式或数组元素，只能是变量。

实参是调用子过程时提供给过程形参的初始值或通过过程体处理过后获得的结果。

3. 调用时用实参代替形参，实参与形参在个数、位置、类型一一对应，但实参与形参名相同与否无关。

VB在调用过程时，提供了命名参数的功能，在调用时使用形参名，而位置可任意；同时VB还提供了可选参数的功能，也就是实参与形参个数不一定相等。

4. 仅要从调用者获得初值，应使用值传递；要将过程运算结果提供给调用者，必须是地址传递。数组、记录类型和对象必须使用地址传递。

调用时地址传递对应的实参不应该是表达式或常量。在VB中尽管不显示出错信息，但得不到所期望的值。

能够用值传递实现的，尽量用值传递，减少过程间关联，有利于程序的调试。

5. 利用VB提供的函数LBound和UBound确定数组的上、下界。

6. 可以，条件是要在Form1窗体通用声明部分声明的变量是Public；Form2窗体中的过程被访问时变量名前加Form1。

7.方法一：在标准模块中声明Public的变量；

方法二：在某事件过程所在的窗体的通用声明段声明变量；

方法三：在某事件过程以Static关键字声明的变量。

8. （1）错误为Sub子过程名无返回值，也就没有类型

（2）函数名与形参名相同

（3）形参n为数组，不允许声明为ByVal值传递

（4）形参x(i)不允许为数组元素

9. （1）fsum 子过程的第一个形参是地址传递，因此对应的实参3不应该是常量。

（2）fsum子过程的第一个形参是整型且地址传递，对应得实参c是单精度，类型不匹配。

（3）fsum子过程的第一个形参是地址传递，因此对应的实参a+b不应该是表达式。

（4）fsum子过程的第一个形参是地址传递，因此对应的实参(sqr(c) 不应该是表达式。

（5）用call语句调用 fsum子过程，必须加圆括号括起实参。.

第七章 一、选择题

1. 要判断在文本框中是否按了Enter键，应在文本框的（ D ）事件中判断。

（A）Change （B）KeyDown （C）Click （D）KeyPress

2. 以下选项中，没有Caption属性的对象是（ B ）。

（A）命令按钮 （B）组合框 （C）窗体 （D）单选框

3. 计时器控件的控件值是（ D ）。

（A）Caption （B）Value （C）Interval （D）Enabled

4. 以下选项中，（ B ）不是鼠标操作事件。

（A）DragDrop （B）GotFocus （C）DblClick （D）MouseDown

5. 以下选项中，（ A ）是键盘操作事件。

（A）KeyUp （B）GotFocus （C）DblClick （D）MouseDown

6. 设置复选框或单选按钮标题对齐方式的属性是（ B ）。

（A）Align （B）AlignMent （C）Sorted （D）Value

7. 为了使列表框中的项目分为多列显示，需要设置的属性为（ A ）。

（A）Columns （B）Style （C）List （D）MultiLine

8. 要想不使用shift或ctrl键就能在列表框中同时选择多个项目，则应把该列表框的MultiSelect属性设置为（ B ）。

（A）0 （B）1 （C）2 （D）其他

9. 删除列表框中指定的项目所使用的方法为（ D ）。

（A）Move （B）Remove （C）Clear （D）RemoveItem

10. 当拖动滚动条中的滚动块时，将触发滚动条的（ C ）事件。

（A）Move （B）Change （C）Scroll （D）SetFocus

11. 用户在组合框中输入或选择的数据可以通过（ C ）属性获得。

（A）List （B）ListIndex （C）Text （D）ListCount