两道vb题求答案_百度知道
两道vb题求答案
我有更好的答案
&2;(h&&&2;&Then&&/&2&&ElseIf&If&50&&150&元&-&10)&nbsp.Text)&&&&'-&40&*&为负&&&&30&&&或者&&MsgBox&&此上网时间;&ElseIf&&&=&Sum&60&Sum&=&nbsp，收费标准，将超过收费上限&&nbsp，不符合;&&h&&&50&And&30&&h&&&10&Then&&&&&&&&Text2&=&30&+&Then&And&h&+&50&Then&&&&&&&&Sum&&&130&+&=&&将超过收费上限&+&(h&-&&30&&&&&&&&&+&(h&-&&&'简化版&&-&50)&&&&2;&&150&元&&&&&&&方法二;&nbsp.5&&&&ElseIf&h&&Else&&Text2&=&=&(150&-&&&&30&&nbsp.Text&&40&h&&=&&ElseIf&&&h&&&0&&Sum&&&&End&2&*&&50&&&&&&&&h&=&nbsp.5&*&Then&Text2;Sum&=&(h&h&&&0&&nbsp.5)&Text2&=&MsgBox&Val(Text1;&&nbsp：&&&&h&&=&2&&&&Else&&&&&&&&Sum&=&30&+&50)&*&=&10&And&&*&2.5&10)&*&&&测试版&方法一：&&&&If&h&&nbsp代码如下：&If&Then&nbsp
采纳率：81%
来自团队：
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。您所在位置： &
&nbsp&&nbsp&nbsp&&nbsp
vb考试题库MicrosoftWord文档.doc 35页
本文档一共被下载：
次 ,您可全文免费在线阅读后下载本文档。
下载提示
1.本站不保证该用户上传的文档完整性，不预览、不比对内容而直接下载产生的反悔问题本站不予受理。
2.该文档所得收入(下载+内容+预览三)归上传者、原创者。
3.登录后可充值，立即自动返金币，充值渠道很便利
需要金币：100 &&
vb考试题库MicrosoftWord文档.doc
你可能关注的文档：
··········
··········
一、单项选择题（25道小题，共25分）
1、VB中工程软件的扩展名为(c )A、ds B、frmC、vbp D、bas
2、把字符串&abcdef
&右边的空格去掉应使用( b)函数A、trim
B、rtrimC、right D、mid
3、文本框text1的text属性的数据类型是(b )A、整数型B、字符串C、单精度D、双精度
4、下列( b)属性决定窗体标题栏显示内容（1分）A、NameB、CaptionC、TextD、BackStyl
5、命令按钮command1不具有下列哪个事件(d )（1分） A、ClickB、KeyPressC、GotFocusD、DblClick
6、为了使文本框同时具有水平和垂直滚动条，应先将MultiLine属性设置为True,然后再把ScrollBars 属性设置为( d)（1分）A、0B、1C、2D、3
7、Dim D(3,1 To 10,1 To 15)语句中，数组的元素个数为(c )A、3*10*16B、3*11*16C、4*10*15D、4*11*15
8、如果整型变量c、d、x的值分别为8、6、0，则下列语句For I=c to d : x=x+i : Next
I 执行结束时，I的值为(a )（1分）A、8B、7C、6D、5
9、假定有以下循环结构
Do Until 条件
Loop 则正确的描述是( b)（1分）
A、如果&条件&是一个为0的常数，则一次循环体也不执行B、如果&条件&是一个为0的常数，则至少执行一次循环体C、如果&条件&是一个不为0的常数，则至少执行一次循环体D、不论&条件&是否为&真&，至少要执行一次循环体
10、&x是小于100的非负数&，用VB表达式表示正确的是(c )A、0 &= x 0r
x & 100B、0 &= x & 100
C、0 &= x And x & 100D、0 &=x , x & 100
11、下列语句错误的是( d)A、exit forB、exit doC、end subD、exit select
12、Inputbox函数返回的数据类型为( d)A、整型B、逻辑型C、单精度D、字符串
13、假定有以下程序段: For I= 1 To 3: For j = 1 To 5 Step -1:
Print I*j: Next j: Next I
则语句Print I*j 的执行次数是( d)（1分）
A、15B、18C、10D、0
14、如果要清除在窗体中打印输出的文字，可以利用( c)语）
A、InputB、LoadC、ClsD、Paint
15、case &表达式表列&,其中的表达式表列不正确的为(d )（1分）A、Case 100*aB、Case 1000 To 2000
C、Case Is&3000D、Case 2000&Is&3000
16、下列说法错误的是( )（1分）
A、VB声明数组时既可指定上界也可指定下界B、数组元素类型可以是任意的VB数据类型C、数组元素的下标可以是数值，也可以是结果在上下界之间的数值表达式D、VB声明数组时必须指定下界
17、下面的四个数组说明语句语法正确的是(c ) A、DIM X[10]B、DIM EN fn(10)
C、DIM X(20)D、DIM ENSION a[10]
18、以下程序段: x = 1: y = 4: Do Until y&4: x = x * y: y = y
执行后x的结果为( b) A、1B、4C、8D、20
19、以下声明和命名标识符错误的是( c)A、必须以字母开头B、变量名的最后一个字符可以是类型声明字符C、长度不能超过8个字符D、不能与关键字同名
20、下列说明错误的是(d )（1分）A、Const MyVar#=123B、Dim myname as stringC、dim a as integer,dim b as singleD、dim MyString=&Hello,&+&My friend!&
21、VB中允许出现的数据形式为(b )A、1.89E1.1B、.368C、D32D、2.5E
22、设a=2,b=3,c=4,d=5,下列表达式a&b AND c&=d OR
正在加载中，请稍后...VB_编程练习(答案)_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
VB_编程练习(答案)
阅读已结束，下载文档到电脑
想免费下载更多文档？
定制HR最喜欢的简历
下载文档到电脑，方便使用
还剩13页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢VB习题及习题解答_甜梦文库
VB习题及习题解答
习题一一、简答题1. 简述 VB 的特点。 2. 安装 Visual Basic 系统程序应具备什么条件？ 3. 启动 Visual Basic 有几种方法？ 4．退出 Visual Basic 有几种方式？ 5．什么是对象？什么是类？简述它们之间的关系。 6．VB 环境有哪些部分组成？ 7．VB 有几种工作模式？ 8．属性窗口由哪几个部分组成？ 9．设置属性有哪些方法？ 10．简述 Visual Basic 应用程序的建立步骤。 11．Visual Basic 应用程序中有哪些文件？ 12．Visual Basic 的对象有哪三要素？ 13．VB 应用程序的执行步骤是什么？ 14．Visual Basic 应用程序中有哪几种类型的错误？二、填空题1. Visual Basic 是 一 种 面 向 的可视化程序设计语言，采取了 的编程机制。 2. 在 VB 集 成 开 发 环 境 中 ， 运 行 应 用 程 序 的 方 法 有 两 种 是 ： 或 。 3．Visual Basic 的对象主要分为 和 两大类。 4. 在 Visual Basic 中 ， 用 来 描 述 一 个 对 象 外 部 特 征 的 量 称 之 为 对 象 的 。 5. 在 Visual Basic 中，设置或修改一个对象的属性的方法有两种，它们分别 是 和 。 6. 在 Visual Basic 中，最基本的对象是 。 7. 在 Visual Basic 中 ， 默 认 窗 体 名 为 ，默认工程名 为 。 8. 若用户单击了窗体 Form1，则启动的事件名为 。 9. 调用方法的具体调用格式为 。 10．在代码中设置对象属性的格式为 。1-109三、单项选择题1. 窗体的标题栏显示内容由窗体对象的 属性决定。 A) BackColor B)BackStyle C)Text D)Caption 2. 窗体的示意图标可用 属性来设置。 A) Picture B) Image C) Icon D) MouseIcon 3. 窗体的控制菜单的有无由窗体对象的 属性决定。 A) ControlBox B) MinButton C) MaxButton D) BorderStyle 4. 若要取消窗体的最大化功能，则可设置 属性为 False 来实现。 A) ControlBox B) MinButton C) MaxButton D) Enabled 5. 以下 4 个选项， 不属于 VB 的工作模式。 A) 编译 B) 设计 C) 运行 D) 中断 6. 窗体的边框样式由窗体对象的 属性来设置。 A) BackStyle B) BorderStyle C) WindowState D) FillStyle 7. 若要以程序代码方式设置在窗体中显示文本的字体大小， 则可用窗体对象的 属性来实现。 A) FontName B) Font C) FontSize D) FontBold 8. 命令按钮的标题文字由 属性来设置。 A) Text B) Caption C) Name D) (名称) 9. VB 是面向对象的程序设计，以下 4 个选项， 不属于面向对象的三要 素。 A) 变量 B) 属性 C) 事件 D) 方法 10. 若要将某命令按钮设置为默认命令按钮，可设置 属性为 True 来实 现。 A) Value B) Cancel C) Default D) Enabled 11. 若要使命令按钮不可见，可设置 属性为 False 来实现。 A) Value B) Enabled C) Visible D) Cancel 12. 运行程序时，系统自动执行窗体的 事件。 A) load B) click C) unload D) GotFocus 13. 若要设置文本框最大可接收的字符数，可通过 属性来实现。 A) MultiLine B) Length C) Max D) MaxLength 14. 若要使某命令按钮获得控制焦点，可使用 方法来设置。 A) Refresh B) SetFocus C) GotFocus D) Value 15. 若要使命令钮可响应事件，可通过设置 属性的取值来实现。 A) Visible B) Enabled C) Default D) Value 16. 在运行时，若要调用某命令按钮的 Click 事件过程，可设置该命令按钮对 象的 属性为 True 来实现。 A) Enabled B) Value C) Default D) Cancel 17. 标签框的边框，由 属性的设置值决定。2-109A) BorderStyle B) BackStyle C) BackColor D) AutoSize 18. 标签框文本的对齐方式由 属性来决定。 A) Align B) Alignment C) Autosize D) BackStyle 19. 标签框所显示的内容，由 属性值决定。 A) Text B) Name C) Caption D) Alignment 20. 在运行时，若要获得用户在文本框中所选择的文本，可通过访问 属 性来实现。 A) SelStart B) SelLength C) Text D) SelText 21. 若要设置或返回文本框中的文本， 可通过文本框对象的 属性来实现。 A) Caption B) Text C) (名称) D) Name 22.若要使标签框的大小自动与所显示的文本相适应， 可通过设置 属性的 值为 True 来实现。 A) AutoSize B) Alignment C) Appearance D) Visible四、简单程序设计题1． 建立一个简单的应用程序， 其窗体界面如下， 单击窗体， 则在窗体上显示 “欢 迎使用 Visual Basic！ ” ，反复练习建立一个 Visual Basic 应用程序的步骤。图 3-1-1 习题 1-1 程序界面图 3-1-2习题 1-2 程序运行界面2． 建立一个简单的应用程序， 其窗体界面如下， 单击放大按钮，则文字“你好！ ”放大；单击缩小按 钮，则文字“你好！ ”缩小；单击结束按钮，则结束 程序的运行。 3． 建立一个简单的应用程序， 其窗体界面如下， 单击输入按钮，则将光标定位在第一个文本框；单 击大写转小写按钮，则将文本框 1 中的大写字母转 化为小写显示在文本框 2 中； 单击小写转大写按钮， 则将文本框 1 中的小写字母转化为大写显示在文本 图 3-1-3 习题 1-3 程序运行界面 框 2 中。3-109习题一 参考答案一、简答题1.答：Visual Basic 是 Microsoft 公司与 1991 年推出的基于 Windows 环境的 语言，其主要特点如下： (1) 方便、直观的可视化的程序设计工具； (2) 面向对象的程序设计方法； (3) 事件驱动的编程机制； (4) 结构化程序设计语言； (5) 强大的数据库访问能力； (6) 提供强大的网络功能，并具备完备的联机帮助功能； (7) 强大的数据库管理和存取操作的能力。 2.答：任何一个软件都要占用计算机系统一定的资源，因此对计算机系统都有 一定的要求，Visual Basic 系统程序对计算机系统的要求如下： 硬件要求：586 以上 CPU，16MB 以上内存，100MB 以上硬盘等。 软件要求：Windows 95/98/2000/XP 或 Windows NT。 3.答：通常有以下三种启动方式： (1) 通过 “开始” 按钮： 单击桌面上的 “开始” / “程序” 菜单， 然后打开 “Microsoft Visual Studio 6.0 中文版”子菜单中的“Microsoft Visual Basic 6.0 中文版” 程序，即可启动 VB 6.0。 (2) 利用快捷方式：若桌面上有 VB 6.0 的快捷图标，双击快捷图标也可启动 VB 6.0。 (3) 利用运行命令：当 VB 系统软件安装在 C 盘默认路径下时，可以在“开始” 菜单的运行对话框中输入如下命令来启动 VB 6.0。 C:\Program Files\Microsoft Visual Studio\VB 98\VB6.exe。 4．答：通常有四种方式： (1) 利用文件菜单：单击菜单“文件”/“退出” ，即可退出 VB 环境。 (2) 利用快捷方式：利用快捷键 Alt+F4，即可退出 VB 环境。 (3) 利用标题栏：鼠标右击标题栏，选择“关闭” ，即可退出 VB 环境。 (4)利用关闭按钮：鼠标单击窗口右上方“关闭”按钮，即可退出 VB 环境。 5．答：对象(Object)是包含现实世界物体特征的抽象实体，反映了系统为之保 存信息和与之交互的能力。每个对象有各自的内部属性和操作方法，整个程序是由 一系列相互作用的对象构成的，对象之间的交互通过发送消息来实现。 类(class)是指具有相同的属性和操作方法， 并遵守相同规则的对象的集合。 从外 部看，类的行为可以用新定义的操作(方法)加以规定。 类是对象集合的抽象，规定了这些对象的公共属性和方法；而对象是类的一个 实例。 6．答：VB 环境通常由：标题栏、菜单栏、工具栏、属性窗口、代码窗口、工4-109程资源管理器窗口、立即窗口、窗体布局窗口、工具箱所组成。 7．答：VB 有三种工作模式： ⑴ 设计模式：可进行应用程序界面的设计和代码的编制，此模式用于开发应用 程序。 ⑵ 运行模式：运行应用程序，此时不可编辑代码和界面，此模式用于显示运行 结果。 ⑶ 中断模式：应用程序运行暂时中断，此时可编辑代码，但不可编辑界面，此 模式用于调试程序。按 F5 键或单击“继续”按钮继续运行程序，单击“结束”按钮 停止运行程序。在此模式下会弹出“立即”窗口，在窗口内可输入简短的命令，并 立即执行。 8．答：属性窗口由以下几个部分组成： ⑴ 对象列表框：用于显示窗体中的对象，单击其右边的下拉按钮可显示当前窗 体所包含的对象列表。 ⑵ 属性显示排列方式：用于显示窗体中的所选对象的属性，通过窗口的滚动条 可找到任何一个属性，窗口中的属性可以按以下两种方式排列： ① 按字母顺序：此时属性按字母的顺序排列 ② 分类顺序：此时属性按外观、位置、行为、杂项等分类排列 ⑶ 属性列表框：该列表框列出在设计模式下选定对象可更改的属性及缺省值， 不同的对象其属性也不同。属性列表框由左右两部分组成，左边列出选定对象的各 种属性名，右边列出其相应的属性值。用户可先选定某一属性，再在右部对该属性 值进行设置或修改。 ⑷ 属性解释框：当用户在属性列表框中选定某属性后，解释框显示所选属性的 含义。 9．答：设置对象的属性可在两个位置进行： ⑴ 在设计阶段利用属性列表框进行设置； ⑵ 在程序中通过程序代码进行设置。在程序中设置属性的语法格式为： 对象名.属性名＝属性值 通常，对于反映对象外观特征的一些不变属性应在设计阶段完成；而一些内在 的可变的属性应在编程中实现。 在设计阶段对属性进行设置一般有两步： ① 首先鼠标单击对象，以选定设置的对象； ② 在属性窗口选中需设置的属性，在右侧属性值栏中输入或选择相应的属性 值。 10．答：创建 VB 应用程序分为以下几个过程： ⑴ 建立用户界面以及界面中的对象； ⑵ 设置各个对象的属性； ⑶ 为对象事件编写程序； ⑷ 保存工程； ⑸ 运行程序。5-10911．答：一个 Visual Basic 应用程序或一个 Visual Basic 工程可以包括 7 种类型 的文件，其中最常用的是窗体文件、标准模块文件、类模块文件。 ⑴ 窗体文件(.frm)：该文件包含窗体及控件的属性设置；窗体级的变量和外部 过程的声明；事件过程和用户自定义过程。Visual Basic 中一个应用程序包含一个 或多个窗体，每一个窗体都有一个窗体文件。一个窗体文件由两部分组成，一部分 是作为用户界面的窗体；另一部分是窗体和窗体中的对象执行的代码。 ⑵ 标准模块文件(.bas)： 标准模块文件完全由代码组成， 在标准模块的代码中， 可以声明全局变量，可以定义函数过程和子程序过程。标准模块中的全局变量可以 被工程中的其它模块调用；而公共的过程可以被窗体模块的任何事件调用。该文件 可选。 ⑶ 类模块文件(.cls)：类模块文件中既包含代码又包含数据，每个类模块定义 了一个类，可以在窗体模块中定义类的对象，调用类模块中的过程。它用于创建含 有属性和方法的用户自己的对象。该文件可选。 ⑷ 工程文件(.vbp)：该文件包含与该工程有关的全部文件和对象的清单。 ⑸ 窗体的二进制数据文件(.frx)：当窗体或控件的数据含有二进制属性(如图 片或图标)，将窗体文件保存时，系统自动产生同名的.frx 文件。 ⑹ 资源文件(.res)：包含不必重新编辑代码就可以改变的位图、字符串和其他 数据。该文件可选。 ⑺ ActiveX 控件的文件(.ocx)：该文件可以添加到工具箱并在窗体中使用。 12．答：Visual Basic 对象的三要素为属性、事件和方法。 ⑴ 对象的属性：在面向对象的程序设计中，属性是对象的一个特性，是用来描 述和反映对象特征的一系列数值。同类型的对象有相同的属性不同的属性值；不同 类型的对象有不同的属性。 ⑵ 事件：在 VB 中，事件是发生在对象身上、能被对象识别的动作，事件正是 激发某一过程的导火索。 ⑶ 方法： “方法”是指对象本身所包含的一些特殊函数或过程，利用对象内部 自带的函数或过程，可以实现对象的一些特殊功能和动作。 13．答：VB 应用程序的执行步骤如下： ⑴ 启动应用程序，装载和显示窗体； ⑵ 窗体或窗体上的对象等待事件的发生； ⑶ 事件发生时，执行相应的事件过程； ⑷ 重复执行步骤②和③； ⑸ 直到遇到“END”结束语句结束程序的运行。 14．答：在 VB 环境下，错误有以下几种。 ⑴ 编辑错误：编辑错误是指用户在代码窗口书写代码时，VB 会对程序直接进 行语法检查，如果有错，系统会自动弹出一个出错信息提示框，出错的那行变为红 色。 ⑵ 编译错误：编译错误是指启动了运行程序，在 VB 开始运行之前的编译阶段 发现的错误，此种错误一般为变量未定义等。6-109⑶ 运行错误：运行错误是指通过了编译，在运行程序时发生的错误，此类错误 一般是由于执行了非法操作而产生。 ⑷ 逻辑错误：如果没有出现前三种错误，但程序仍然没有得到正确的结果，则 说明程序存在逻辑错误。 二、填空题 1.答：对象，事件驱动 2.答：编译运行模式、解释运行模式 3.答：窗体、控件 4.答：属性 5.答：在设计阶段利用属性列表框进行设置、在程序中通过程序代码进行设置 6.答：窗体 7.答：Form1、工程 1 8.答：Click 9.答：对象名.方法名［参数名表］ 10．答：对象名.属性名＝属性值 三、单项选择题 1.答：D 2.答：C 3.答：A 4.答：C 5.答：A 6.答：B 7.答：C 8.答：B 9.答：A 10.答：C 11.答：C 12.答：A 13.答：D 14.答：B 15.答：B 16.答：B 17.答：A 18.答：B 19.答：C 20.答：D 21.答：B 22.答：A7-109四、简单程序设计题 1．解： ⑴ 建立用户界面以及界面中的对象 启动 Visual Basic 环境，选择“标准 exe” ，创建工程、窗体。 ⑵ 设置各个对象的属性 调整窗体 Form1 的大小，将窗体 Form1 的 Caption 属性设为练习 1。 ⑶ 为对象事件编写程序 编写窗体对象 Form1 的单击事件驱动程序如图 3-1-1(b)所示：图 3-1-1(a) 运行效果图 3-1-1(b)程序代码⑷ 保存工程 保存窗体：单击菜单“文件/保存 form1” ，并取名为习题 1； 保存工程：单击菜单“文件/保存工程” ，并取名为习题 1。 ⑸运行程序 按 F5 功能键或菜单 “运行/启动” 或运行按钮 ， 运行程序， 即可得到如图 3-1-1 （a）所示的运行结果。 2．解： ⑴ 建立用户界面以及界面中的对象 ① 启动 Visual Basic 环境，选择“标准 exe” ，创建工程、窗体。 ② 单击窗口左边工具箱中的&标签按钮& ， 此时鼠标变成十字形状， 拖动鼠标， 在窗体上画 1 个标签：&Label1&。 ③单击窗口左边工具箱中的&命令按钮& ， 此时鼠标变成十字形状， 拖动鼠标， 在窗体上画命令按钮：&Command1&，再重复两次，画出命令按钮 &Command2&， &Command3&。 ⑵设置各个对象的属性 ①适当调整窗体 Form1 和各个对象的大小和位置； ②将窗体 Form1 的 Caption 属性设为练习 2； ③将标签 Label1 的 Caption 属性设为你好！ ，FontSize 属性设为三号； ④将命令按钮 Command1、Command2、Command3 的 Caption 属性设为放大、 缩小、结束；8-109⑤其它属性可取默认值。 ⑶为对象事件编写程序 分别编写 3 个命令按钮对象的单击事件驱动程序如图 3-1-2(b)所示： ⑷保存工程 保存窗体：单击菜单“文件/保存 form1” ，并取名为习题 2； 保存工程：单击菜单“文件/保存工程” ，并取名为习题 2。 ⑸运行程序 按 F5 功能键或菜单 “运行/启动” 或运行按钮 ， 运行程序， 即可得到如图 3-1-2 （a）所示的运行结果。图 3-1-2(a) 运行效果图 3-1-2(b)程序代码3．解： ⑴建立用户界面以及界面中的对象 ① 启动 Visual Basic 环境，选择“标准 exe” ，创建窗体 Form1， ② 单击窗口左边工具箱中的文本框按钮，此时鼠标变成十字形状，拖动鼠标， 在窗体上画 3 个文本框：&Text1&，&Text2&，&Text3&， ③ 单击窗口左边工具箱中的&命令按钮& ， 此时鼠标变成十字形状， 拖动鼠标， 分别在窗体上画 3 个命令按钮：&Command1&， &Command2&，&Command3& ⑵ 设置各个对象的属性 ① 适当调整窗体 Form1 和各个对象的大小和位置， ② 将窗体 Form1 的 Caption 属性设为练习 3， ③ 将文本框的 Text 属性设为空， ④ 将命令按钮 Command1、Command2、Command3 的 Caption 属性设为输入、 大写转小写、小写转大写， ⑤ 其它属性可取默认值。 ⑶为对象事件编写程序 分别编写 3 个命令按钮对象的单击事件驱动程序如图 3-1-3(b)所示： ⑷保存工程 保存窗体：单击菜单“文件/保存 form1” ，并取名为习题 3； 保存工程：单击菜单“文件/保存工程” ，并取名为习题 3。 ⑸运行程序9-109按 F5 功能键或菜单 “运行/启动” 或运行按钮 ， 运行程序， 即可得到如图 3-1-3 （a）所示的运行结果。图 3-1-3(a) 运行效果图 3-1-3(b)程序代码习题二一、选择题1．以下不合法的常量是_________。 A) 100.0 B) 100 C) 10^2 D) 10E+01 2．以下合法的变量名是_________。 A) E8 B) 6*delta C) True D) a%d 3．VB 中合法的数值常量是__________。 A) 16E3 B) 3.1e C) ±32.76 D) 2^(1.258) 4．假设 Datetime1 是一个 date 类型的变量，以下赋值语句错误的是_________。 A) Datetime1=#11/16/06# B) Datetime1=#July 16,2006# C) Datetime1=#11:20:00 am# D) Datetime1= “11/16/06” 5．在 Visual Basic 中，以下不可以作为字符串常量的是___________。 A) &2/01/02& B) mn C) &mn& D) & & 6 ． 表 达 式 以 int(8*sqr(36)*10^(-2)*10+0.5)/10 + val(&.123e2cd&) 的 值 是 __________。 A) .123e2 B) .123 C) 0.5 D) 12.8 7．变体变量(Varient)是一种特殊的数据类型，除了自定义类型和_________外， 可以包含任何种类的数据类型。 A) 实型和货币型 B) 字节型和整型 C) 固定长度字符串 D) 可变长度字符串 8．关于变体变量(Varient)，下列说法正确的是____________。 A) 变体变量占用 16 字节的固定存储单元 B) 变体变量定义后，系统将变体变量初始化为数值 0 或空字符串10-109C) 设 x 为变体变量，且 x=”101”，则 x=x+201 是正确的 D) 变量未定义而直接使用，该变量即为变体变量，所以变体变量是无类型的 9．下列符号常量的声明中，不合法的是___________。 A) const a As single=1.3 B) const a As integer=&13& C) const a=&OK& D) const a As long=int(4.5678) 10．系统符号常量可以通过__________获得。 A) 代码窗口 B) 对象浏览器 C) 属性窗口 D) 工具箱 11．Visual Basic 认为下面___________组变量是同一个变量。 A) aver 和 average B) sum 和 summary C) AB1 和 ab1 D) A1 和 A_1 12．假设变量 int1 是一个整型变量，则执行赋值语句 int1=&12&+34 & 11 后，变 量 int1 的值是___________。 A) 46 B) 123411 C) 57 D) 4611 13．若定义了数值型变量、字符型变量和逻辑变量，但未赋值，则数值型、字 符型和逻辑型变量的默认值分别是_____________。 A) 0 空串 0 B) 0 0 True C) 0 空串 False D) 没有任何值 14．设有以下定义语句： dim sum，aver as single,d1,d2 as double,ss as string*5 则变量 sum、aver、d1、d2 和 ss 的类型分别是____________。 A) 单精度型、单精度型、双精度型、双精度型、字符串型 B) 可变类型、单精度型、双精度型、双精度型、字符串型 C) 单精度型、单精度型、可变类型、双精度型、字符串型 D) 可变类型、单精度型、可变类型、双精度型、字符串型 15． 如果要强制显示声明变量， 可在窗体模块或标准模块的声名段中加入 Option Explicit 语句，若让系统自动插入 Option Explicit 语句，则应采用的操作步骤是 __________。 A) 在“工具”菜单中选择“选项”命令，打开“选项”对话框，单击“编辑器” 选项卡，选中“要求变量声名”选项。 B) 在“编辑”菜单中执行“插入文件”命令 C) 在“工程”菜单中执行“添加文件”命令 D) 在“工程”菜单中执行“引用”命令 16．表达式(13\2+2)*int(21/5) mod (3^3-4 Mod 16\2^2)的值是_____________。 A) 3 B) 2 C) 6 D) 5 17．下面表达式的运算结果和其它三个表达式的值不相同的是___________。 A) exp(-4.5) B) int(-4.5)+0.5 C) -abs(-4.5) D) sgn(-4.5)-3.5 18．设 a=2，b=3，c=4，d=5，下列三个表达式的值分别是___________。 ⑴ a&b and c&=d or 2*a&c ⑵ 3&2*b or a=c and b&&c or c&d ⑶ not a&=c or 4*c=b^2 and b&&a+c A) False False False B) True False False11-109C) False False True D) False True False 19．Visual Basic 中，产生[10,50]之间的随机整数的表达式是__________。 A) int(rnd(1)*40)+10 B) int(rnd(1)*40)+11 C) int(rnd(1)*41)+11 D) int(rnd(1)*41)+10 20．表达式 Int(rnd(0)+1)+Int(rnd(1)-1)的值是______________。 A) 1 B) -1 C) 0 D) 2 21．将任意一个正的两位数 N 的个位数与十位数对换的表达式是_________。 A) (N-int(N/10)*10)*10+int(N/10)或(N mod 10)*10+(N \10) B) N-int(N)/10*10+int(N)/10 或(N \ 10)*10+int(N／10) C) int(N/10)+(N-int(N/10) 或(N mod 10)*10+(N／10) D) (N \ 10)*10+( N mod 10) 或(N \ 10)*10+int(N／10) 22． 表达式： left(&你近来可好？&,1) + right(&How do you like&,4)+ Mid(&英语？高 数？ 计算机？&,4,3)的值是_____________。 A) 你 like 高数？ B) 你 like 计算机 C) 你高数？ D) like 高数？ 23． 函数 instr(Lcase(mid(&VISUAL Basic 程序设计&,4,8)),&s& )的值是__________。 A) Ual BASIC B) 6 C) 7 D) ual basic 24．表达式 Str(len(&-56.69&))+Str(val(&66.6e2cd&))的值是____________。 A) 7 666 B) 6 6660 C) 6666 D) 6660 25．统计年龄 age 不超过 35 岁且职称 zc 是“教授”或“副教授”的人数，表 示该条件的逻辑表达式是____________。 A) age&=35 and zc=”教授” and zc=”副教授” B) age&=35 and zc=”教授” or zc=”副教授” C) age&=35 and (zc=”教授” or zc=”副教授”) D) age&=35 and zc=”教授” zc=”副教授” 26 ．代数式 x1-|a|+ln10+sin(x2+2 π )/Cos(57 × 3.14/180), 对应的 VB 表达式是 ___________。 A) x1-abs(a)+log(10)+sin(x2+2*3.14)/Cos(57*3.14/180) B) x1-abs(a)+ln(10)+sin(x2+2*π)/Cos(57*3.14/180) C) x1-|a|+ln10+sin(x2+2π)/Cos(57) D) x1-abs(a)+ln(10)+sin(x2+2*3.14)/Cos(57*3.14/180) 27．不能正确表示条件“两个整型变量 A 和 B 之一为 0，但不能同时为 0”的 布尔表达式是_____________。 A) A*B=0 and A&&B B) (A=0 or B=0 )and A&&B C) (A=0 or b=0) or (A&&0 0r B&&0) D) A*B=0 and(A=0 or B=0)二、填空题1．用类型说明符来标识数据类型时，表示单精度使用的符号_______；双精度 使用的符号_______；整型使用的符号_______；长整型使用的符号_______字符串使 用的符号_______；货币型使用的符号_______。12-1092． 随机生成一个 1~9 的随机整数的表达式是___________________。 3． 一个变量未被显示定义， 末尾也没跟类型说明符， 则变量的默认类型是＿＿。 4．单精度浮点数和双精度浮点数指数分别用_____和_____来表示。 5．设 a$ = &Visual Basic Programing&: b$ = &Turbo& c$ = b$ & Space(1) & UCase(Mid$(a$, 12, 1)) & Right(a$, 11) 则变量 c$的值是_______________。 6．表达式(-10)^-2 的值是_______。 7．表达式 abs(-7 mod -2)的值是_______。 8．假设 a=”A”，写出下列逻辑表达式的值 ⑴ a&=”0” and a&=”9” or a&=”A” and a&=”Z”的值： _______________。 ⑵ a=&”0” and a&=”9” or a&=”A” and a&=”Z” 的值：_______________。 ⑶ a&=”0” and a&=”9” and a&=”A” and a&=”Z” 的值：_______________。 ⑷ a&=”0” or a&=”9” and a&=”A” or a&=”Z” 的值：_______________。 9．设 a=30,b=60,c=10,d=50，则表达式 a+b&160 or (b*c&200 and not d&60)的值 _______。 10．将下列数学式子写成 Visual Basic 表达式： (1) a≤x≤b _______________。 （2） cos2 (c+d)．(sin(x)+1) _______________。 （3） |-5|+ 2(a+b)2/3_______________。 （4） 3e2+8 x ?ln2_______________。 （5）a __________。 c ? 12 b? d ? 15三、程序设计1．编程序求圆面积，圆面积公式为：s=π r2，窗体界面如图 1-1 所示。在文本 框 text1 中输入半径的值，单击“计算圆面积”命令按钮后，在文本框 text2 中以只 读方式显示出计算结果。图 1-1 13-109窗体设计界面图 2-1程序运行效果2. 编程实现：从文本框 text1 中输入以秒为单位所表示的时间，然后将其换算 成几天几小时几分钟几秒，单击窗体，在标签 Label2 中显示出总秒数和换算后的结 果。习题二一、选择题参考答案1．C 2．A 3．A 4．D 5．B 6．D 7．C 8．C 9．D 10．B 11．C 12． D 13． C 14． D 15． A 16． D 17． A 18． D 19． D 20． C 21． A 22．A 23．C 24．B 25．C 26．A 27．D二、填空题1. ! # % & $ @ 2. int(9*rnd+1) 3. 变体类型 4. E(或 e) D(或 d) 5. Turbo C Programing 6. 0.01 7. 1 8. ⑴ True ⑵ True ⑶ False ⑷ True 9. True 10. (1) x&=a xor x=&b (2) (Cos(c+d))^2*(sin(x)+1) (3) abs(-5)+2*(a+b)^2/3 (4) 3*exp(2)+ 8*sqr(x)*log(2) (5) a/(b+(c+12)/(d-15))三、程序设计1．解： 解题分析：本题求圆面积，半径 r 的值通过文本框输入获得，应考虑允许半径 输入包含小数，因此声明半径变量 r 为单精度数；圆周率π(3.1415926)为一常数， 在程序中可以直接将 3.1415926 嵌在求圆面积的表达式中，也可通过 Const 声明语 句先将此值赋于一个符号常量，在随后的程序编码中以符号常量替代圆周率；考虑 到运算求出的圆面积值的精度应会提高，所以保存圆面积值的变量声明时应为双精 度变量， 在窗体上显示求出圆面积值的控件为 Text2， 该文本框的内容由程序代码赋14-109值，不需要人工输入，为防止误操作，可将此文本框控件的 Locked 属性值设Z为 True；所显示圆面积值的格式可用 Format 格式函数设Z，保留两位小数。 操作步骤： ⑴在 VB 环境中创建工程、窗体，在窗体上添加两个标签控件 label1 和 label2、 两个文本框控件 text1 和 text2、两个命令按钮控件 cmd1 和 cmd2。 ⑵设置各相关控件的属性，见表 3-2-1 所示。表 3-2-1 各相关控件的属性设置 控件名称 Form1 Label1 Label2 Text1 Text2 Cmd1 Cmd2 属性名 Font Caption Caption Text Text Locked Caption Caption 属性值 楷体_GB2312、小四 输入半径 r： 圆面积： 空 空 True 计算圆面积 退出 说明 设定窗体中各对象的字体锁定，禁止修改⑶编写相关控件的事件代码，见图 3-2-1(a)所示。图 3-2-1(a) 命令按钮 Click 事件代码⑷按 F5 功能键，运行程序， “输入半径 r”文本框中输入圆半径，点击“计算圆 面积”按钮，即刻在“圆面积”文本框中显示出所求圆面积值。 ⑸在指定的路径下保存工程文件为“求圆面积.vbp” ，保存窗体文件为“求圆面 积.frm” 。 2．解： 解题分析：换算算法为：对输入的秒数如整除 60，可得到总的分钟数，如用 Mod 运算符对 60 求余，可求的秒数；对所求出的总的分钟数如整除 60，可得到总 的小时数，如用 Mod 对 60 求余，即为所求的分钟数；对总的小时数如整除 24，可 得到总的天数，如用 Mod 对 24 求余，即为所求的小时数。运行界面如图 2-1 所示。 Label2 中显示结果表达式的正确写法如下： Label2 = Text1.Text & &秒=& & day & &天& & hour & &小时& & minute& &分& & second & &秒&。本题在窗体的 Click 事件编程。15-109操作步骤： ⑴在 VB 环境中创建工程、窗体，在窗体上添加一个文本框控件，两个标签控 件。 ⑵设置相关控件的属性，见表 3-2-2 所示。 ⑶编写窗体的 Click 事件代码，见图 3-2-2(a)所示。 ⑷按 F5 功能键，在文本框中输入时间秒数，单击窗体，转换的结果即刻在标签 中显示。 ⑸在指定的路径下保存工程文件为“时间转换.vbp” ，保存窗体文件为“时间转 换.frm” 。图 3-2-2(a) 窗体 Click 事件代码 表 3-2-2 各相关控件的属性设置 控件名称 Label1 Label2 属性名 Caption Caption Borderstyle Forecolor Text 属性值 输入秒数 空 1 vbRed 空 说明 清空 设置边框线 设置字体颜色为红色 清空Text1习题三一、单项选择题1. 下面程序段运行后，显示的结果是 。 dim x If x Then Print x Else Print x+1 A) 1 B) 0 C) 01 2.若要退出 For 循环，可使用的语句为 。 A) Exit B) Exit Do C) Exit Sub16-109D) 显示出错信息 D) Exit For3. 语句 If x=1 Then y=1，下列说法正确的是 。 A) x=1 和 y=1 均为赋值语句 B) x=1 和 y=1 均为关系表达式 C) x=1 为关系表达式，y=1 为赋值语句 D) x=1 为赋值语句，y=1 为关系表达式 4．结构化程序由三种控制结构组成，以下不属于三种控制结构的是 。 A) 顺序结构 B) 循环结构 C) 分支结构 D) 递归结构 5．以下程序段求两个数中的大数，不正确的是 。 A) max=iif(x&y,x,y) B) if x&y then max=x else max=y C) max=x D) if y&x then max=x If y&x then max=y max=y 6. 下列循环语句能正常结束的是 。 A) I=5 B) I=1 C) I=10 D) I=6 Do Do Do Do I=I+1 I=I+2 I=I-1 I=I-2 Loop until I&0 Loop until I=10 Loop until I&0 Loop until I=1二、填空题1.Visual Basic 的赋值语句既可给 赋值， 也可给对象的 赋值。 2.Visual Basic 的注释语句采用 ；Visual Basic 的续行符采用 ； 若要在一行书写多条语句，则各语句间应加分隔符， Visual Basic 的语句分隔符 为 。 3.在 VB 中， 用于产生输入对话框的函数是 ， 其返回值类型为 ， 若要利用该函数接收数值的数据则可利用 函数对其返回值进行转换而得 到。 4.在 VB 中，若要产生一消息框，则可用语句 来实现。 5.选择结构的功能是 。 6.在 Select Case 语句中，关键字 Case 后面的取值的格式有 3 种：一组用逗号 间隔的表达式、表达式 1 To 表达式 2、 。 7. 循环变量在循环体内可以引用，但 ，否则将导致循环无法正常 执行。 8. 在 VB 中，控制结构有 、 、 。 9.下面程序的运行结果为________ Private Sub Form_Click() Dim j%, a% For j = 1 To 10 a=a+j\7 Next j Print a End Sub 10.下面程序的运行结果为________17-109Private Sub Form_Click() Dim i%, a%, j% For i = 1 To 2 a=0 For j = 1 To i + 1 a=a+1 Next j P Next i End Sub 11.下面程序的运行结果为________ Private Sub Form_Click() Dim a%, b% b=1 a=2 Do While b & 10 b=2*a+b Loop Print b End Sub 12.下面程序的运行结果为_______ Private Sub Form_Click() Dim i%, j% For i=3 to 1 step -1 Print spc(5-i); For j=1 to 2*i-1 Print “*”; Next j Print Next i End Sub 13．在窗体上画一个命令按钮，名称为 Command1。然后编写如下程序，程序运 行后，如果单击命令按钮，则运行结果为_______ Private Sub Command1_Click() For a=1 To 4 For b=0 To a Print Chr$(65+a); ? Next b ? Print18-109Next a End Sub 14．在下面的空格处填上相应的内容，使其能完成找出能被 5 和 7 整除的 5 个 最小的正整数。 Private Sub Form_Click() Dim k%,n% k=0 n=1 Do n=n+1 If ① then Print n k=k+1 End if loop ② End Sub 15．在下面的空格处填上相应的内容，使其能完成输入任意长度的字符串，将 字符串倒置。 Private Sub Form_Click() Dim str$,i%,t$ str=inputbox$(“输入字符串”) n= ① For i=1 to ② t=mid(str,i,1) mid(str,i,1)= ③ ④ =t Next i Print str End Sub三、程序设计题1.将一张 1 元钞票换成一分、二分和五分硬币，每种至少 8 枚，问有多少种方 案？ 2. 模拟给出一系列的 1～10 的操作数和算术运算符，输入该题的答案，根据输 入的答案判断正确与否，当结束时给出成绩。 3. 将可打印的 ASCII 码制成表格输出，打印每个字符及其编码值。 4. 编写程序，利用文本框检查用户的口令，验证口令的正确，并给出相应的提 示信息。19-1095. 编写程序，任意输入一个整数，打印它的因子，并统计因子的个数。 6. 利用随机函数产生 10 个 10-100 内的随机整数，求其中的最大数、最小数， 以及它们的平均数。 7. 显示所有 100 以内 6 的倍数的数，并求这些数的和。 8. 设计程序， 当给定 n 值时， 求出 S＝1+(1+2)+(1+2+3)+?+(1+2+3+?n)的值。 9. 编写程序求 S＝1×2×3×?×n，求 S 不大于 32767 时最大的 n。 10.用 Print 方法输出图形，程序运行输出如图 3-3-10 所示。图 3-3-10 输出图形程序运行界面习题三参考答案一、单项选择题1. 答：A 2. 答：D 3. 答：C 4．答：D 5．答：D 6. 答：C二、填空题1.答：变量，属性 2.答：单引号(’)，下划线(_)，冒号(：) 3.答：Inputbox，字符串，val 4.答：Msgbox 5.答：根据情况在不同的操作中选取其中的一种 6.答：Is 关系表达式 7.答：不应改变其值 8.答：顺序，分支，循环20-1099.答：4 10.答：2 3 11.答：13 12.程序的运行结果为: ***** *** * 13．程序运行结果为: BB CCC DDDD EEEEE 14．① n Mod 5 = 0 And n Mod 7 = 0 ② While k & 5 15．① Len(str) ② n\2 ③ Mid(str, n - i + 1, 1) ④ Mid(str, n - i + 1, 1)三、程序设计题1.解： 解题分析：设一分、二分和五 分硬币的数量为 a，b，c，由于每 种硬币的数量至少 8 枚， 则 a 的范 围是 8～(100-2*8-5*8)，b 的范围 是 8～(100-1*8-5*8)\2，c 的范围 是 8～(100-1*8-2*8)\5，编写 3 层 的 循 环 ， 测 试 条 件 是 a*1+b*2+c*5=100 ， 可 在 窗 体 的 Click 事件中编写程序代码，运行 界面如图 3-3-1（a）所示。 操作步骤： ⑴在 VB 环境中创建工程、 窗 体。 ⑵编写窗体的 Click 事件代 码，见图 3-3-1（b）所示。 ⑶按 F5 功能键，运行程序， 单击窗体，运行结果如图 3-3-1(a) 所示。图 3-3-1(a) 程序运行界面21-109图 3-3-1(b) 窗体的 Click 事件代码2.解： 解题分析：根据题目要求，可用随机函数分别产生两个 1～10 的操作数，再将 “＋” 、 “－” 、 “×” 、 “÷”四种运算符分别对应于 1、2、3、4，通过随机函数随机 生成一个 1～4 之间的数以确定算术运算符， 将两个操作数以此运算符进行运算， 并 将运算结果在文本框的 KeyPress 事件中与用户输入的答案比较，若相同，则在图 片框中输出的算式之后，再输出符号“√” ，否则，输入符号“×” 。同时分别用两 个变量保存用户计算算式正确和错误的数目，当停止做题时，点击“统计”按钮， 输出一条虚线隔断，再输出做题的正确率。 操作步骤： ⑴在 VB 环境中创建工程、窗体，在窗体上添加一个标签，一个文本框，一个 图形框，3 个按钮。 ⑵设置各相关控件的属性，见表 3-3-2。表 3-3-2 各相关控件的属性及其值 控件名称 Form1 Command1 Command2 Command3 属性 caption caption caption caption 属性值 测试 出题 统计 结束 备注 窗体的标题 按钮的标题 按钮的标题 按钮的标题22-109⑶编写各相关控件的事件代码，见图 3-3-2(a)、图 3-3-2(b)所示。图 3-3-2(a) 出题按钮 Click 事件代码图 3-3-2(b) 文本框 KeyPress 事件及其余按钮 Click 事件代码23-109⑷按 F5 功能键，运行程序，程序运行状况如图 3-3-2(c)所示。图 3-3-2(c) 程序运行界面3. 解： 解题分析： 在 Ascii 码表中， 可显示打印的 Ascii 码其值从 32 开始， 一直到 126， 因此，可用循环变量，自 32 开始一直循环到 126，对 Ascii 码的值，使用 Chr$()函 数，可以获得对应该码值的字符，在窗体上的图片框中用 Print 方法输出，为了使输 出的内容整齐规范，设定每行输出一定列数后换行重新输出(如图 3-3-3(a)所示)。可 使用 Tab()函数在指定的位Z输出，其格式为： Tab(m*((i+j) mod n)+1) 格式中 m 为每列表达式及间隔所占的最大宽度，n 为每行可输出的表达式的列 数，i 是循环变量，j 是补值，以满足当 i 为起始值时，((i+j) mod n)表达式的值为 0,1 表示每行第 1 列表达式输出的起始位Z。本题中各参数值的取法参见图 3-3-3(b)命 令按钮的 Click 事件代码。24-109图 3-3-3(a) 程序运行结果操作步骤： ⑴在 VB 循环中创建工程、窗体，在窗体上添加一个图片框，1 个命令按钮。 ⑵设置相关控件的属性，见表 3-3-3 所示。表 3-3-3 各相关控件的属性及其值 控件名称 Form1 Command1 属性 caption caption 属性值 ASCII 码符与码值对照表 打印 备注 窗体的标题 按钮的标题⑶编写相关控件的事件代码，见图 3-3-3(b)所示。图 3-3-3(b) “打印”按钮 Click 事件代码⑷按 F5 功能键，运行程序，点击“打印”按钮，运行结果如图 3-3-3(a)所示。 4.解： 解题分析：本题是求证通过文本框中输入的内容是否和指定内容(假设正确口令 为： “123456”)相同。当文本框中内容输入完毕后验证文本框中内容是否正确，可 利用文本框的 KeyPress 事件或 Volidata 事件编写代码若利用 KeyPress 事件， 则要 求用户在输入口令后必须按 Enter 键，通过 KeyPress 事件中返回的 KeyAscii 参数 检测到 Enter 键，开始对文本框中输入的整体内容进行验证；如采用 Volidata 事件 编程，则当文本框即将失去焦点时，触发 Volidata 事件，通过编程验证文本框中输 入口令的正确性。本题解答使用 KeyPress 事件编程。当口令输入不正确时，可使 用 Msgbox()函数显示提示信息。为了防止输入口令时显示口令造成泄密，应设Z输 入口令的文本框的 PasswordChar 属性值为“*” ，使得在文本框中输入的任何内容 均显示为*。25-109 图 3-3-4(a) 文本框 KeyPress 事件代码操作步骤： ⑴在 VB 环境中创建工程、窗体，在窗体上添加 1 个标签，1 个文本框。 ⑵设置相关控件的属性，见表 3-3-4 所示。表 3-3-4 各相关控件的属性及其值 控件名称 Form1 Text1 Text1 属性 Caption Text PasswordChar 属性值 口令验证 空 * 备注 窗体的标题 清空 隐藏显示口令内容⑶编写相关控件的事件代码，见图 3-3-4(a)所示。 ⑷按 F5 功能键，运行程序，观察程序运行效果，如图 3-3-4(b)所示。图 3-3-4(b) 程序运行界面5.解： 解题分析：一个数的因子就是能被此数整除的数，可以通过循环语句，用此数 对从 1 开始，到此数的一半的每一个数进行 Mod 运算，余数为 0 的数都是此数的因 子。 操作步骤： ⑴在 VB 环境中创建工程、窗体，在窗体上添加 3 个标签，3 个文本框，1 个按 钮。 ⑵设置各相关控件的属性，见表 3-3-5 所示。图 3-3-5(a) 命令按钮 Click 事件代码 26-109表 3-3-5 各相关控件的属性及其值 控件名称 Form1 Text1/Text2/text3 Label1 Label2 Label3 Command1 属性 Caption Text Caption Caption Caption Caption 属性值 求解因子 空 输入数据 其因子是 因子个数 求因子 备注 窗体的标题 清空⑶编写相关控件的事件代码，见图 3-3-5(a)所示。 ⑷按 F5 功能键，运行程序，在“输入数据”文本框中输入一个数(例如 50)，点 击“求因子”按钮，在“其因子是”和“因子个数”文本框中分别显示出该的所有 因子及统计出的因子个数，运行界面如图 3-3-5(b)所示。图 3-3-5(b)程序运行界面图 3-3-6(a) 习题 3-6 程序运行界面6.解： 解题分析：声明一个包含 10 个元素的数组，在循环语句中，用随机函数产生 10 随机整数，每产生一个随机整数，都对其进行最小数、最大数比较，并将其累加 到存放求和值的变量中，循环结束，即可得出最小数、最大数，将其累加和除以 10 即为它们的平均数。 操作步骤： ⑴在 VB 环境中创建工程、窗体，在窗体上添加 4 个标签，4 个文本框控件。 ⑵设置相关控件的属性，见表 3-3-6 所示。表 3-3-6 各相关控件的属性及其值 控件名称 Form1 Text1/Text2 Text3/Text4 Label1 Label2 Label3 Label4 27-109 属性 Caption Text Caption Caption Caption Caption 属性值 求最大数和最小数 空 生成一组数据 最大数是 最小数是 平均数是 清空 备注 窗体的标题⑶编写相关控件的事件代码，见图 3-3-6(b)所示。图 3-3-6(b) 窗体 Click 事件代码⑷按 F5 功能键，运行程序，程序运行结果如图 3-3-6(a)所示。 7.解： 解题分析：采用循环语句，循环变量取 值从 6 开始到 100，每一个循环变量的值， 都对 6 进行 Mod 运算，根据结果是否为 0 确定是否是 6 的倍数， 若是则在窗体上显示， 并将其值进行累加计算，计数器加 1，循环 图 3-3-7(a) 习题 3-7 程序运行界面 结束， 就可在窗体上显示出 100 以内的所有 6 的倍数的数字，个数及累加和(如图 3-3-7(a)所示)。28-109图 3-3-7(b) 窗体的 Click 事件代码操作步骤： ⑴在 VB 环境中创建工程、窗体。 ⑵设置窗体的 Caption 属性为“测试数据” 。 ⑶编写窗体的 Click 事件代码，见，编写窗体的单击事件过程，运行界面如图 3-3-7(a)所示，程序代码如图 3-3-7(b)所示。 ⑷按 F5 功能键，运行程序，单击窗体，显示运行结果(见图 3-3-7(a))。 8.解： 解题分析：此题的求解可采用循环语句，定 义两个求和变量，一个用于存放累加项数之和， 另一个用于存放每一累加项之和。 操作步骤： ⑴在 VB 环境中创建工程、 窗体， 在窗体上添 加二个文本框和二个标签控件。 ⑵设置相关控件的属性，见表 3-3-8 所示控件名称 Form1 Text1/Text2 Label1 Label2 属性 Caption Text Caption Caption图 3-3-8(a) 求和程序运行界面表 3-3-8 各相关控件的属性及其值 属性值 求和 空 n 的值 和 备注 窗体的标题 清空⑶编写窗体的 Click 事件代码，见图 3-3-8(b)所示。 ⑷按 F5 功能键，运行程序，运行界面如图 3-3-8(a)所示。图 3-3-8(b)窗板的 Click 事件代码9.解： 解题分析： 求解此题可采用条件循环语句，判断当 n 的阶乘结果大于指定数时， 跳出循环，并输出此时的 n 值。 操作步骤： ⑴在 VB 环境中创建工程、窗体。29-109⑵编写窗体的 Click 事件代码，见图 3-3-9(a)所示。图 3-3-9(a)窗体的 Click 事件代码⑶按 F5 功能键，运行程序，单击窗体，观察运行结果。10.解： 解题分析：见图 3-3-10(a)，输出图形分为左右两 个三角块。每个三角块都有五行输出，左边三角块首 行输出从第 1 列开始，每行的起始列随着行数的增加 而增加，每行输出的*符号数量随着行数的增加而减少 2 倍的行数增加量，通过 String()函数可输出指定数量 的的*符号；右边三角块与左边三角块每行间隔等距， 图 3-3-10(a) 图形运行界面 或用 Space()函数输出定长的空格，再输出右边三角 块，右边三角块第一行只有一个*符号，每行的*符号数量随着行数的增加而增加 2 倍的行数增加量，也使用 String()输出*符号。 操作步骤： ⑴在 VB 环境中创建工程、窗体。 ⑵编写窗体的 Click 事件代码，见图 3-3-10(b)所示。图 3-3-10(b) 输出图形窗体的 Click 事件代码 30-109⑶按 F5 功能键，运行程序，观察程序运行结果。习题四一、单项选择题1.放置控件到窗体中的最迅速的方法是 。 A) 双击工具箱中控件 B) 单击工具箱中的控件 C) 拖动鼠标 D) 单击工具箱中的控件并拖动鼠标 2.为了使图片框和图像框的大小适应图片的大小，下面设置正确的是 。 A) AutoSize=True Stretch=True B) AutoSize=True Stretch=False C) AutoSize=False Stretch=True D) AutoSize=False Stretch=False 3. 下列 途径在程序运行时不能将图片添加到窗体、图片框或图像框的 Picture 属性。 A) 使用 LoadPicture 方法 B) 对象间图片的复制 C) 通过剪贴板复制图片 D) 使用拖放操作 4.CLS 可清除窗体或图片框中 的内容。 A) Picture 属性设置的背景图案 B) 在设计时放置的控件 C) 程序运行时产生的图形和文字 D) 以上 A～C 全部 5.对于 Cls 方法说法正确的是 。 A) 如果在图片框上使用了 Cls 方法，则清除图片框中所有的内容，包括加 载的图片 B) 如果在图片框上使用了 Cls 方法，则清除图片框中除加载的图片外的所 有内容 C) 如果在图片框上使用了 Cls 方法，则清除图片框中所有程序运行时产生 的文字和图形 D) 如果在图片框上使用了 Cls 方法，系统会报错 6.如果想在图片框上输出文字，则 。 A) 只能使用图片编辑软件加入要输出的文字 B) 可以使用 Print 方法在图片框上输出文字 C) 不可以直接在图片框上输出文字 D) 以上说法都不对 7.关于图片框和文本框的说法正确的是 。 A) 图片框中既可以有文本也可以有图形，而文本框中只能有文字 B) 图片框和文本框都可以加载图片 C) 当在图片框中增加内容时，图片框会自动变大，而文本框不会31-109D) 可以通过 Cls 方法清除图片框与文本框中的内容 8.下列关于图像框控件的说法不正确的是 。 A) 不可以做为容器使用 B) 不支持图形方法 C) 没有事件 D) 只能用于显示图像 9.下列关于 PictureBox 控件与 Image 控件的说法不正确的是 。 A) PictureBox 可以作为控件容器，因而比 Image 占用系统资源多 B) Image 能自动调整大小以适应载入的图片 C) PictureBox 除具有 Image 的所有特性外，还能作为容器 D) PictureBox 能使图片自动调整大小以适应自身的大小 10.命令按钮、单选按钮和复选框上都有 Picture 属性，可以在控件上显示图片， 但需要通过 控制。 A) Appearance 属性 B) Style 属性 C) DisabledPicture 属性 D) DownPicture 属性 11.当单击了单选按钮控件后，下列说法正确的是 。 A) 只执行 Click 事件 B) 只执行 GetFocus C) 既执行事件 Click，也执行事件 GetFocus D) 具体执行哪个事件要在程序或属性中设定 12.复选框的 Value 属性为 1 时，表示 。 A) 复选框未被选中 B) 复选框被选中 C)复选框内有灰色的勾 D) 复选框操作有错误 13.复选框对象是否被选中，可由其 属性判断。 A) Checked B) Value C) Enabled D) Selected 14. 在 Option1_Click() 事 件 中 加 入 语 句 Check1.value=Option1.value 的 结 果 为 。 A) Option1 与 Check1 选中情况保持一致 B) Option1 选中时，Check1 也选中 C) Option1 不选中时，Check1 也不选中 D) 实时错误 15. 框架内的所有控件是 。 A) 随框架一起移动、显示、消失和屏蔽 B) 不随框架一起移动、显示、消失和屏蔽 C) 仅随框架一起移动 D) 仅随框架一起显示和消失 16.下列控件中，没有 Caption 属性的是 。 A) 框架 B) 列表框 C) 复选框 D)单选按钮 17.将数据项“Chian”添加到列表框(List1)中成为第一项应使用 语句。 A) List1.AddItem ?China”, 0 B) List1.AddItem ?China”, 1 C) List1.AddItem 0, ?China” D) List1.AddItem 1, ?China”32-10918.引用列表框(List1)最后一个数据项应使用 。 A) List1.List(List1.ListCount) B) List1.List(List1.ListCount-1) C) List1.List(ListCount) D) List1.List(ListCount-1) 19. 如 果 列 表 框 (List1) 中 没 有 被 选 定 的 项 目 ， 则 执 行 List1.RemoveItem List1.ListIndex 语句的结果是 。 A) 移去第一项 B) 移去最后一项 C) 移去最后加入列表的一项 D) 以上都不对 20.在下列说法中，正确的是 。 A) 通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上 B) 在列表框中不能进行多项选择 C) 在列表框中能够将项目按字母顺序从大到小排列 D) 框架也有 Click 和 DblClick 事件 21.执行 List1.List(List1.ListCount)= ‘80’ 语句后， 下列说明正确的是 。 A) 会产生出错信息 B) List1 列表框最后一个列表项被改为‘8’ C) List1 列表框会增加一个‘80‘列表项 D) List1 列表框的表项个数为 80 个 22. 如果列表框(List1)中只有一个项目被用户选定，则执行 Debug.Print List1.Selected(List1.ListIndex) 语句的结果是 。 A) 在 Dubeg 窗口输出被选定的项目的索引值 B) 在 Debug 窗口输出 True C) 在窗体上输出被选定的项目的索引值 D) 在窗体上输出 True 23. 组合框的 Style 属性决定组合框的类型和行为，它的值为 2 时，其显示形式 和功能是 。 A) 下拉列表框，并允许用户输入不属于列表框中的选项 B) 简单组合框，并允许用户输入不属于列表框中的选项 C) 下拉列表框，不允许用户输入不属于列表框中的选项 D) 简单组合框，不允许用户输入不属于列表框中的选项 24.以下不允许用户在程序运行时输入文字的控件是 。 A) 文本框 B) 下拉式组合框 C) 简单组合框 D) 下拉式列表框 25. 时钟控件的时间间隔是 。 A) 以毫秒计 B) 以分钟计 C) 以秒计 D) 以小时计 26.设计动画时通常使用时钟控件 来控制动画速度。 A) Enabled B) Inteval C) Timer D) Move 27.程序运行时，单击水平滚动条右边的箭头，滚动条的 Value 属性值将 。 A) 增加一个 SmallChange 量 B) 减少一个 SmallChange 量 C) 增加一个 LargeChange 量 D) 减少一个 LargeChange 量33-10928. 一个 UpDown 控件与文本框 “捆绑” 在一起， 其 Min、 Max、 Value 和 Increment 分别为 0、10、9 和 3，并且选定了“换行”功能，当用鼠标单击向上的箭头时，文 本框中的值应是 。 A) 10 B) 12 C) 0 D) 2 29. 下列 控件没有 Min、Max 和 Value 属性。 A) Slider B) ProgressBar C) UpDown D) SSTab 30. 在下面关于常用的 ActiveX 控件的说法中，正确的是 。 A) 在 Animation 控件中，当用 Open 方法打开.avi 文件后直接自动播放 B) Slider 控件有 Scroll 和 Change 事件 C) UpDown 不能与 Slider“捆绑” D) 选项卡只可以出现在控件的顶端二、填空题1. VB 的控件分为 、 和可插入对象。 2. 写出下列控件的缺省英文名称及英文缩写：图片框 、 ， 单选 按钮 、 ，垂直滚动 条 、 ，组 合 框 、 ，形状控件 、 。 3. 为了在运行时把 C:\Windows 目录下的图形文件 Picfile.jpg 装入图片框 Picture1，所使用的语句为 。 4. 图片框内可使 PictureBox 根据图片调整大小的属性为 ；图像框 为 ，若使 Image 控件可根据图片调整大小，该属性值应为 。 5. 使用 Move 方法把图片框 Picture1 的左上角移动到距窗体顶部 100Twip，距 窗 体 左 边 框 200Twip ， 同 时 图 片 框 高 度 和 宽 度 都 缩 小 50% ， 具 体 形 式 为 。 6. 执行 语句，可以清除 Picture1 图片框内的图片。 7. 复选框的 属性设置为 2-Grayed 时，将变成灰色，禁止用户选择。 8. 属性设置为 1，单选按钮和复选框的标题显示在左边。 9. 属性设置为 1，单选按钮和复选框以图形方式显示。 10. 在程序运行时， 如果将框架的 属性设为 False， 则框架的标题是灰色， 表示框架内的所有对象均被屏蔽，不允许用户对其进行操作。 11. 常用的容器控件有： 、 等。 12. 当用户单击滚动条的空白处时，滑块移动的增量值由 属性决定。 13. 列表框中项目的序号是从 开始的， 表示列表框中最后一 项的序号， 方法可清除列表框的所有内容。 14. 列表框中的 和 属性是数组。 15. 滚动条响应的重要事件有 和 Change，滚动条产生 Change 事件是因为 值改变了 16. 如果要每隔 15s 产生一个计时器事件，则 Interval 属性应设置为 ， 函数将返回系统的时间。 17. 在 3 种不同风格的组合框中，用户不能输入数据的组合框是 ，通过34-109属性设置为 。 18. 访问键是通过键盘来访问控件，访问键是设置是在控件的 属性中用 字符加在访问字符的前面，运行时按 键+访问字符。 19. 组合框是 和 控件的组合。 20. 窗体和其他控件的 Name 属性只能在 设置，不能在 期间 设置。 21.下面程序段是将列表框 List1 中重复的项目删除，只保留一项。 For i=0 to List1.ListCount-1 For j=List1.ListCount-1 to step -1 If List1.List(i)=List1.List(j) then _____________________ End if Next j Next i 22. 下列程序允许用户按 Enter 键将一个组合框(CboComputer)中没有的项目添 加到组合框中。 Sub cboComputer_KeyPress(KeyAscii as Integer) Dim flag as Boolean If KeyAscii=13 then Flag=False For i=0 to cboComputer.ListCount-1 If then Flag=Ture ：Exit for Next i If then ______ Else Msgbox(‘组合框中已有该项目!’) End if End if End Sub三、简单程序设计题1. 设计一用户登录界面(如图 3-4-1)， 要求用 户名必须是字母开头，长度不大于 10 个字符， 口令可以是任意字符，区分大小写。长度不少于 4 个字符。点击“确定”按钮后检测用户名和口 令是否正确， 若正确， 则显示信息框 “口令正确， 允许登录!” ，若不正确，则显示信息框“口令不 正确， 请重新输入!” ； 输入错误 口令次数超过三 次， 显示 “你不是合法用户， 不能登录!” 对话框，图 3-4-1 登录界面 35-109然后退出系统。 2. 创建一个点菜单的程序(如图 3-4-2 所示)， 从窗体左边列表框的菜单中选中所 需的菜名，点击“添加”按钮，添加到右边的列表框中，也可以将右边不满意的菜 项再选中，通过点击“删除”按钮，从右边的列表框中清除。双击所需菜名可以直 接添加或删除。 3. 编制小时钟程序，利用时钟 Timer 控件来控制指针的转动(如图 3-4-3 所示)。 4 利用时钟控件和形状控件设计一个“红绿灯”变换程序，各色灯亮的延迟时 间可以事先设定(如图 3-4-4 所示)。图 3-4-2 点菜程序运行界面图 3-4-3 时钟程序运行界面图 3-4-4 信号灯设置演示图 3-4-5 星空月全食演示5. 编写程序模拟在满月的夜空下，月全食天文现象的变化过程。习题解答一、单项选择题1.A 2.B 图片框的 AutoSize 属性为 True 可使图片框自动适应图片的大小，图像框 的 Stretch 属性为 True，可使图片自动缩放以适应图像框大小，Stretch 为 False，可36-109使图像框的大小自动适应图片的大小。 3.D 拖放操作本身不会对系统产生任何影响， 在拖放操作过程中会触发许多事 件，要想将图片通过拖放操作添加到窗体，必须在拖放操作触发的事件中通过编写 程序代码实现。 4.C Cls 方法不能清除在设计状态下添加在窗体或图片框中的图形和文字，只 能清除在程序运行时产生在窗体或图片框中的图形和文字。 5.C 同上 6.B Print 方法可在窗体、图片框、打印机等对象上输出文字。 7.A 文本框中不能有图形，也不会随内容的增加而自动变大，而是通过水平和 垂直滚动条查看更多的内容。 Cls 方法可以清除图片框中程序运行时产生的文字和图 形，但不能清除文本框中的内容。 8.C 图像框控件也具有 Click、DblClick 事件、鼠标事件等 9.D PictureBox 控件不能使图片自动调整大小以适应自大的大小，但当其属性 AutoSize 为 True 时，PictureBox 控件能自动调整大小以适应图片的大小。 10.B DisabledPicture 属性用于当控件失效时所显示的图片，DownPicture 属性 用于当命令按钮、单选按钮和复选框按下时显示的图片。 11.A GetFocus 事件是在命令按钮一获得焦点时就触发，发生在 Click 事件之 前，Click 事件只发生在单选按钮被单击之后。 12.B Value 属性值为 0、1、2 时分别表示未被选中、被选中、禁止被使用。 13.B Value 属性值为 1 被选中，为 0 未被选中。 14.D 当 Option1 的 Click 事件发生后，Option1 的 Value 属性值为 True，转变 为十进制值为-1，Check1 的 Value 属性值只能为 0、1 和 2 三个状态值，因此将报实 时错误。 15.A 框架是一个容器，容器内的控件会随着框架一起移动、显示、消失和屏 蔽。 16.B 列表框没有 Caption 属性 17.A AddItem 方法所带的第一个参数是要增加的列表项内容，第二个参数是 位于列表框中位置的索引号。 18.B 列表框中最后一个数据项的索引号为 List1.ListCount-1 19.D 当没有选定列表框中的项目时，列表框的 ListIndex 属性值为-1，执行 List.RemoveItem List1.ListIndex 语句将出错。 20.D 程序运行期间时钟控件是看不见的，永远不能显示在窗体上。在列表框 中可以进行多项选择，列表框控件通过 Sorted 属性值设置为 True 时，只能将项目按 字母顺序从小到大排列，但不能实现从大到小排列。 21.C List1 控件的 List 属性是一个数组，数组元素分别对应列表框中各个列表 项目， 列表框中的列表项数目为 List1.ListCount， 索引号从 0 开始到 List1.ListCount-1， 因此，该语句是在列表框中增加一个列表项，内容为“80” 。 22.B 当列表框中只有一个项目被用户选定时，List1.ListIndex 返回被用户选定 的项目索引号，因此，List1 控件的 Selected 属性值将返回为 True。Debug.Print 将37-109True 在 Debug 窗口中输出。 23.C 组合框控件在 Style 属性值为 2 时表现为下拉列表框， 用户只能在列表框 中选择，不能在文本框中输入。 24.D 同上 25.A 时钟控件的时间间隔单位是毫秒 26.B 时钟控件的 Interval 属性决定时钟控件两次调用 Timer 事件的间隔时间 (毫秒数)，其值越小，调用 Timer 事件的时间间隔越短，动画速度越快。 27.A SmallChange 是用户单击滚动条两端箭头时， 滑块移动的变化值， 右边箭 头是增加，左边箭头是减少。LargeChange 是用户在滚动条的空白处单击时，滑块移 动的变化值。 28.A Increment 属性表示增减幅值，此题增减幅值为 3，单击向上箭头，Value 值将增加 3，超过最大值时，先为最大值 10，继续单击向上箭头，再依次增加 3。 29.D SSTab 控件是用于制作多个选项卡对话框的控件，没有 Min、Max 等属 性。 30.B 在 Animation 控件中，只有当 AutoPlay 属性值设置为 True 时，用 Open 方法打开的.avi 文件后才可直接自动播放。UpDown 控件可以和 Slider 控件捆绑。选 项卡不仅可以出现在控件的顶端，也可以出现在控件的两边。 .二、填空题1.标准控件，ActiveX 控件 2. PictureBox， Picture1 OptionButton， Option1 HScrollBar， HScroll1 ComboBox， Combo1 Shape ， Shape1 3.Picture1.picture=loadpicture(“c:\Windows\picfile.jpg”) 4.AutoSize，Stretch，False 5. Picture1.Move 200,100,Picture1.Width/2,Picture1.Height/2 6. Picture1.picture=LoadPicture(“”) 7.Value 8.Aligement 9.Style 10.Enabled 11.窗体，图片框，框架 12. LargeChange 13. 0 ， List1.ListCount-1， clear 14. List, selected 15. Scroll 16. 15000，Time()38-10917. 下拉列表框，Style，2 18. Caption，&，Alt 19. 文本框，列表框 20. 设计状态，程序运行 21. i+1 List1.RemoveItem j 22. CboComputer.text=CboComputer.List(i) not Flag CboComputer.AddItem CboComputer.text三、简单程序设计题1．解： 解题分析：在“登录”按钮的 Click 事件中编程，将输入在文本框中的分别赋于 两个变量，为防止输入过程中误操作，应用 Trim()函数去除输入信息的头、尾部空 格。用 Left()函数截取用户名的第一个字符，判断是否是字母，若不是字母，根据题 意给出信息提示，将用户名清空，并将控件焦点再次Z于用户名，等待重新输入用 户名。用 Static 关键字声明记录口令输入次数的静态变量，判断输入的口令是否和 默认值相同，若不相同，将口令输入次数增 1，检查口令输入次数是否达到三次， 若达到三次，给出“不是合法用户”的提示，并结束程序运行，若没有达到三次， 给出“口令不正确，请重新输入”提示，清空口令文本框，并将控件焦点Z于口令 文本框。 操作步骤： ⑴在 VB 环境中创建工程、窗体，在窗体上添加二个文本框、二个标签和二个 命令按钮控件。 ⑵设置各相关控件的属性，见表 3-4-1 所示。表 3-4-1 各相关控件的属性及其值 控件名称 Form1 Command1 Command2 Label1 Label2 属性 caption caption caption caption caption 属性值 登录 登录 退出 用户名 口 令 备注 窗体的标题 按钮的标题 按钮的标题⑶编写命令按钮的 Click 事件代码，见图 3-4-1(a)所示。39-109图 3-4-1(a) 命令按钮的 Click 事件代码⑷按 F5 功能键，运行程序，分别正确和错误的用户名、口令，观察程序运行的 结果。 2.解： 解题分析：根据题意使用列表框列出可向顾客提供的菜名，饭店菜谱列表框采 用复选框样式(Style 属性Z 1)，允许顾客在列表框中同时选择多个菜名。在“添加” 按钮的 Click 事件中，通过循环语句对列表框的所有列表项从下到上进行循环检测， 检测每一列表项的 Selected(i)属性值是否为 True，以判断该列表项是否已被选中， 对已被选中的列表项可通过 Additem 方法，添加到顾客用菜列表框中，同时再用 RemoveItem 方法将其从饭店菜谱中删除的地。将顾客用菜列表框的 MultiSelect 属 性设Z为 2，允许用户同时选择多个选错的菜名列表项，通过点击“删除”按钮， 可将其从顾客用菜列表框中删除。在列表框的双击事件中，可直接通过 AddItem 方 法和 RemoveItem 方法对选中的列表项进行操作。 操作步骤： ⑴在 VB 环境中创建工程、窗体，在窗体上添加二个标签，二个列表框和三个 命令按钮控件。 ⑵设置各相关控件的属性，见表 3-4-2 所示。表 3-4-2 各相关控件的属性及其值 控件名称 Form1 40-109 属性 caption 属性值 点菜程序 备注 窗体的标题Command1 Command2 Command3 Label1 Label2 List1 List2caption caption caption caption caption Style MultiSelect添加 删除 退出 饭店菜谱 顾客用菜 1 2按钮的标题 按钮的标题 按钮的标题设置为复选框模式 扩展多项选择⑶编写相关控件的事件代码，见图 3-4-2(a)、图 3-4-2(b)所示。图 3-4-2(a) 命令按钮 Click 事件代码41-109图 3-4-2(b) 列表框 DblClick 事件代码⑷按 F5 功能键，运行程序，观察程序运行结果。 3.解： 解题分析：完成此题的要求， 必须能实现时钟 指针随系统时间的改变而动态的变化位Z， 用于表 示秒针、 分针和时针的线控件的一个端点的坐标位 Z应是固定不变的(在时钟的轴心上)，另一个端点 的坐标位Z可根据系统时间获得的秒数、 分钟数及 小时数在指针长度不变的情况下相对轴心转动来 求得。再用时钟控件运行刷新指针的位Z， 就可得 到一个打针动态转动的时钟画面。 图 3-4-3(a) 时钟设计图 操作步骤： ⑴在 VB 环境中创建工程、窗体，在窗体上添加两个 Shape 控件、三个 Line 控 件、四个标签控件和一个时钟控件，根据图 3-4-3 初步调整各控件的相对位置(如图 3-4-3(a)所示)，三个指针控件垂直重叠放置。 ⑵设置各相关控件的属性，见表 3-4-3 所示。42-109图 3-4-3(a) 窗体的 Load 事件代码表 3-4-3 各相关控件的属性及其值 控件名称 Shape1 属性 Shape BackStyle BackColor Shape BackStyle BackColor ForeColor BorderWidth BorderWidth caption caption Caption caption Interval 属性值 2 1 &H00FFFFFF& 3 1 &H% %H000000FF% 2 2 12 3 6 9 100 说明 椭圆 背景不透明 白色表盘 圆 背景不透明 黑色轴心 红色秒针 分针线宽 时针线宽 时钟盘面数字 时钟盘面数字 时钟盘面数字 时钟盘面数字 时钟指针刷新频率Shape2 Line1 Line2 Line3 Label1 Label2 Label3 Label4 Timer1⑶编写各相关控件的事件代码，见图 3-4-3(b)、3-4-3(c)。图 3-4-3(c) 时钟控件的 Timer 事件代码⑷按 F5 功能键，运行程序，观察运行效果。 4.解： 解题分析：可用形状控件在窗体上作出三个小圆模拟三色信号灯。用三个文本 框控件及三个 UpDown 控件组合，用以设Z三色信号灯延迟的时间，在各色信号灯 的延迟时间较短时(小于 60 秒)，可使用一个时钟控件就可实现各色信号灯的循环延 迟亮灯。将三个文本框中设Z的各色信号灯的延迟时间作为时钟控件的 Interval 属 性值，先设定一个累加变量，在时钟控件的 Timer 事件中通过累加变量对 3 的 Mod 运算，根据其值分别可为 0、1、2 确定红、黄、绿三色灯亮及延迟时间。通过“开 始”按钮，启动时钟控件，并从红灯开始三色循环延迟亮灯。 操作步骤：43-109⑴在 VB 环境中创建工程、窗体，在窗体上添加四个形状控件、一个框架控件、 三个标签控件、二个命令按钮控件、一个时钟控件、一个包括三个元素的文本框控 件数组和一个包括三个元素的 UpDown 控件数组。各控件的相互位置关系调整可参 考图 3-4-4。 ⑵设置各相关控件的属性，见表 3-4-4 所示。表 3-4-4 各相关控件的属性及其值 控件名称 Shape1 属性 Shape BackStyle BackColor Shape BackStyle BackColor Shape BackStyle BackColor BorderWidth Caption caption caption Caption caption caption Enabled 属性值 3 1 vbRed 3 1 vbYellow 3 1 vbGreen 2 延迟时间 红灯 黄灯 绿灯 开始 退出 False 说明 椭圆 背景不透明 红色 圆 背景不透明 黄色 圆 背景不透明 绿色 线宽 框架标题Shape2Shape3 Shape4 Frame1 Label1 Label2 Label3 Command1 Command2 Timer1禁止工作⑶编写各相关控件的事件代码，见图 3-4-4(a)、图 3-4-4(b)所示。 ⑷按 F5 功能键，运行程序，设置各色信号灯延迟时间，点击“开始”按钮，观 察信号灯变化效果。图 3-4-4(a) 命令按钮 Click 事件代码 44-109图 3-4-4(b) 时钟控件 Timer 事件代码5.解： 解题分析：求解本题需解决两个问题，一个是星空繁星，可在窗体上用窗体的 坐标系通过 Rnd 随机函数产生随机点的当前坐标(CurrentX，CurrentY)，星星的色 彩也可使用 Rnd 生成随机三基色 RBG，再通过窗体的 Pset 方法在窗体的当前坐标 上画出指定颜色的点。采用循环语句重复画点就画出星空繁星。月全食可通过两个 直径略有差异的圆形 Shape 控件， 一个为白色的月亮(大的)， 另一个为地球的阴影(小 的)，月亮设定在窗体的中心，地球从窗体的边缘在时钟控件的控件下慢慢地向月亮 移动，演示月全食。 操作步骤： ⑴在 VB 环境中创建工程、窗体，在窗体上添加两个形状控件。 ⑵设置相关控件的属性，见表 3-4-5 所示。表 3-4-5 各相关控件的属性及其值 控件名称 Shape1 Shape2 45-109 属性 Shape BackStyle BackColor Shape BackStyle 属性值 3 1 &H00FFFFFF& 3 1 说明 圆 背景不透明 白色月亮 圆 背景不透明BackColor&H%黑色地球阴影⑶编写各相关控件的事件代码，见图 3-4-5(a)所示图 3-4-5(a) 月全食程序代码⑷按 F5 功能键，运行程序，观察程序运行结果。习题五一、单项选择题1. Dim aa(10 to 20) 所定义的数组元素个数是_____。 A) 11 B)20 C）30 2. Dim ww(-1 to 2,-2 to 1) 所定义的数组元素个数是_____。 A) 9 B) 16 C) 4 3. Dim ww(3,3) 所定义的数组元素个数是_____。 A) 9 B) 4 C) 16 4.下列程序的输出结果是________。 Private Sub Command1_Click() Dim ww As Variant ww = Array(1, 2, 3, 4) Print ww(1) End Sub46-109D）10 D) 12 D) 12A) 1 B) 2 C) 3 D) 4 5.下列程序的输出结果是________。 Private Sub Command1_Click() Dim tt tt = Array(&合肥&, &上海&, &北京&, &天津&) For i = LBound(tt) To UBound(tt) tt(i) = tt(i) + &市& Next i Print tt(3) End Sub A) 合肥市 B) 上海市 C) 北京市 D) 天津市 6. 下列程序的输出结果是________。 Dim ww( ) Private Sub Command1_Click() Const tt = 6 ReDim ww(tt) As Integer For i = 1 To tt ww(i) = i * i Next i Print ww(i) End Sub A) 36 B) 49 C) 出错信息 D) 12 7. 在窗体上画一个名称为 Textl 的文本框和一个名称为 Command l 的命令按钮， 然后编写如下事件过程： Private Sub Command1_Click() Dim ww(10, 10) As Integer Dim i As Integer, j As Integer For i = 1 To 3 For j = 2 To 4 ww(i, j) = i + j Next j Next i Text1.Text = ww(2, 3) + ww(3, 4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是________。 A) 12 B) 13 C) 14 D) 15 8.下列程序的输出结果是________。 Private Sub Command1_Click() Dim i As Integer, j As Integer47-109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 A) 1 2 3 B) 2 3 4 C) 1 4 7 246 345 258 369 456 369 9.下列程序的输出结果是________。 Option Base 1 Private Sub Command1_Click() Dim ww%(5), i% For i = 1 To 5 ww(i) = i * i Next i Print ww(ww(2) * ww(3) - ww(4) * 2) + ww(1) End Sub A) 17 B) 16 C) 15 10.下列程序的输出结果是________。 Option Base 1 Private Sub Form_Click() Dim a(10) As Integer, b(5) As Integer, i% For i = 1 To 10 a(i) = 10 - i + 1 Next i For i = 1 To 5 b(i) = a(2 * i - 1) + a(2 * i) Next i For i = 1 To 5 Print b(i); Next i End Sub A) 1 3 5 7 9 B) 2 4 6 8 10 C) 19 15 11 7 3 D) 3 7 11 15 19D) 1 2 3 456 789D) 1448-109二、填空题1. 以下程序的功能是：用 Array 函数建立一个含有 8 个元素的数组，然后查找 并输出该数组中保元素的最小值。请将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim arr1 Dim Min%, i% arr1 = Array(12, 435, 76, -24, 78, 54, 866, 43) Min = _____①_____ For i = 2 To 8 If arr1(i) & Min Then ____②________ Next i Print &最小值是:&; Min End Sub 2. 以下程序的功能是：分别计算给定的 10 个数中正数之和与负数之和。请将 程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim ww ww = Array(12, -6, 15, 34, -32, 47, 13, 9, 6, -3) s1 = 0 s2 = 0 For k = 1 To 10 If (ww(k) & 0) Then s1 = ____①_____ Else s2 = ______②_____ End If Next k Print &正数之和为 &; s1 Print &负数之和为 &; s2 End Sub 3. 以下程序的功能是：程序运行后，单击窗体，在输入对话框中分别输入三个 整数，程序将输出三个数中的中间数，如图 3-5-1 所示。请将程序补充完整。 Option Base 1 Private Sub Form_Click() Dim a(3) As Integer Print &输入的数据是：&; 图 3-5-1 程序运行界面 For i = 1 To 349-109a(i) = InputBox(&输入数据&) Print a(i); Next Print If a(1) & a(2) Then t = a(1) a(1) = a(2) a(2) =_____①_______ End If If a(2) & a(3) Then m = a(2) ElseIf a(1) & a(3) Then m = ______②_______ Else m = ______③______ End If Print &中间数是:&; m End Sub 4. 以下程序的功能是：求一个 3×3 阶矩阵的三行中元素之和最大的那一行。 请将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim ww%(3, 3), tt%(3) For i = 1 To 3 For j = 1 To 3 ww(i, j) = InputBox(&请输入数据&) Next j Next i For k = 1 To 3 For j = 1 To 3 tt(k) = ______①_______ Next j Next k msum = ______②_______ lmax = _______③_______ For i = 2 To 3 If tt(i) & msum Then msum = tt(i) lmax = i50-109End If Next i Print &最大的一行是：&; lmax Print &该行的和是：&; msum End Sub三、程序设计题1. 用数组结构编写程序，输入 10 个整数，统计奇数之和以及偶数之和。 2. 利用随机函数生成并输出 8 个 1～10 之间的随机整数，然后对这一组数从小 到大进行排序，最后输出结果。 3. 使用数组结构编写一个程序， 输入 10 个学生的成绩，统计最高分、 最低分和平均分(如图 3-5-2 所示)。 其中：单击 Command4 按钮，用 Inputbox()函数输入 10 个成绩数据， 并在 Picture1 图形框中显示所输入的 成绩； 单击 Command1 按钮，在 Text1 文本框中显示最高分； 单击 Command2 按钮，在 Text2 文本框中显示最低分； 图 3-5-2 统计学生成绩窗体界面 单击 Command3 按钮，在 Text3 文本框中显示平均分。 4. 编程输出下面的杨辉三角形。 1 1 1 1 1 1 11 2 3 4 5 0 6 51 3 6 1 0 1 01 4 1 2 51 5 11 6 15. 编程建立并输出一个 5×5 的矩阵，该矩阵两条对角线元素为 1，其余元素均 为 0。51-109习题五参考答案一、单项选择题1. 答：A Dim aa(10 to 20)定义了一个一维数组， 数组元素的下标范围从 10～20 ,从 10～ 20 的整数有 11 个，故元素的个数是 11。 2. 答；B Dim ww(-1 to 2,-2 to 1)定义了一个二维数组，数组元素的第 1 维下标范围从 -1～2 ,从-1～2 的整数有 4 个，数组元素的第 2 维下标范围从-2～1 ,从-2～1 的整数 有 4 个，故元素的个数是 4×4。 3. 答：C Dim Dim ww(3,3)定义了一个二维数组，数组元素的第 1 维下标范围从 0～3 , 从 0～3 的整数有 4 个， 数组元素的第 2 维下标范围也是从 0～3 ,从 0～3 的整数有 4 个，故元素的个数是 4×4。 4.答：B 一维数组 WW 的下标的下限默认从 0 开始，下标范围从 0～3，ww(1)代表数组 中的第二个元素，其值为 2。 5.答：D tt(3)元素为数组中的第 4 个元素，其初值为：&天津&，加上字符”市”，将其变为 &天津市&。 6.答：C 一维数组 ww(tt) 的下标范围从 0～6,For 循环结束后，其循环变量 i 的值为 7, Print WW(i),即为 Print WW(7)。WW(7)超越数组的上界范围，故报错。 7.答：A 经过循环赋值后，元素 ww(2, 3)的值为 5，元素 ww(3, 4)的值为 7，故文本框中 的值为 12。 8.答：.D 经过两重循环，执行表达式 a(i, j) = (i - 1) * 3 + j 并打印所得到的结果。 9. 答：A 经过循环赋值后：元素 ww(1)的值为 1；元素 ww(2)的值为 4；元素 ww(3)的值 为 9；元素 ww(4)的值为 16。表达式 ww(4*9-16*2)+1 的值为 ww(4)+1,故打印结果 为 17。 10.答：C 经过循环，执行表达式 a(i) = 10 - i + 1 后，a 数组中的值为：10、9、8、7、6、 5、4、3、2、1。经过第二个循环，执行表达式 b(i) = a(2 * i - 1) + a(2 * i)后，b 数组 中的值为：19、15、11、7、3。故正确答案为 C 项。52-109二、填空题1. 2. 3. 4. ①arr1(1) 或 12 ①s1 + ww(k) ①t ①tt(k) + ww(k, j) ②Min = arr1( i ) ②s2 + ww(k) ②a(3) ③a(1) ②tt(1) ③1三、程序设计题1.解： 解题分析：可以声明一个包含 10 元素的数组，使用循环语句，通过 InputBox() 函数对话框接收输入 10 个整数， 每接收一个数都将其在图片框中显示出来， 输入结 束后再重新使用循环语句对数组每个元素检测是奇数还是偶数，并分别用两个变量 保存奇数和偶数的累加和，循环结束后将累加和结果用文本框在窗体上显示出来。 操作步骤： ⑴在 VB 环境中创建工程、窗体，在窗体上添加三个标签控件，一个图片框控 件、两个文本框控件和两个命令按钮控件。 ⑵设置各相关控件的属性，见表 3-5-1 所示。表 3-5-1 各相关控件的属性及其值 控件名称 Command1 Command2 Label1 Label2 Label3 Text1/Text2 属性 caption caption caption caption caption Text 属性值 输入 计算 输入的数据 奇数之和 偶数之和 空 说明清空⑶编写相关控件的事件代码，见图 3-5-1(a)。53-109图 3-5-1(a) 命令按钮的 Click 事件代码⑷按 F5 功能键，运行程序，单击“输入”按钮，在 Inputbox()对话框中分别输 入 10 个任意数，再点击“计算”按钮，观察在文本框中输入的结果，如图 3-5-1(b)。图 3-5-1(b) 习题 5-1 运行结果2. 解： 解题分析：可声明一个包含 8 个元素的数组，通过循环语句，使用随机函数生 成 8 个 1～10 之间的随机整数分别赋于 8 个数组元素。再采用经典选择排序法对 8 个数组元素排序，排序后的结果在图片框中输出。 操作步骤： ⑴在 VB 环境中创建工程、 窗体， 在窗体上添加 3 个标签控件、 1 个文本框控件、 2 个命令按钮控件和 2 个图片框控件。54-109⑵设置相关控件的属性，见表 3-5-2 所示。表 3-5-2 各相关控件的属性及其值 控件名称 Command1 Command2 Label1 Label2 Label3 Text1 属性 caption caption caption caption caption Text 属性值 生成数组 选择排序 数组的长度 生成的数组 排序后的数组 空 说明清空⑶编写相关控件的事件代码，见图 3-5-2(a)所示。图 3-5-2(a) 命令按钮的 Click 事件代码⑷按 F5 功能键， 运行程序， 在文本框中输入数组元素的个数， 点击 “生成数组” 按钮，再点击“选择排序”按钮，观察程序运行的结果，如图 3-5-2(b)所示。55-109图 3-5-2(b) 习题 5-2 运行结果3.解： 解题分析： 根据题目要求， 在窗体模块中声明一个包含 10 个元素的数组， 在 “输 入数据”按钮的 Click 事件中通过循环语句和 InputBox()对话框接收输入 10 个学生 的成绩，并在图片框中显示出来。在“最高分”和“最低分”按钮的 Click 事件中通 过循环语句对数组各元素用比较法分别找出最高分和最低分，并在文本框中显示， 在“平均分”按钮的 Click 事件中通过循环语句，将数组各元素的数据累加，循环结 束后将累加之和再除以数组元素的个数得平均分，在文本框中显示。 操作步骤： ⑴在 VB 环境中创建工程、窗体，在窗体上添加一个图片框控件、三个文本框 控件和四个命令按钮控件，设计界面如图 3-5-3(a)所示。图 3-5-3(a) 习题 5-3 运行初始界面⑵设置各相关控件的属性，见表 3-5-3 所示。表 3-5-3 各相关控件的属性及其值 控件名称 Command1 Command2 Command3 56-109 属性 caption caption caption 属性值 最高分 最低分 平均分 说明Command4caption输入数据⑶编写相关控件的事件代码，见图 3-5-3(b)所示。 ⑷按 F5 功能键，运行程序，点击“输入数据”按钮，输入 10 个学生的成绩， 再分别点击“最高分” 、 “最低分”和“平均分”按钮，观察在文本框中显示的数据。图 3-5-3(b) 各命令按钮的 Click 事件代码4. 解： 解题分析：观察杨辉三角形的结构，可将其看作是一个二维矩阵的左下半部分， 声明一个拥有 i 行 j 列的二维数组 w(i,j)来描述杨辉三角形中的各个数据，再仔细观 察各个数据的组成可以发现，矩阵对角斜线上的数据都为 1，即当 i=j 时，数组元素 W(i,j)的值都为 1；而每一行的第 1 个数也全为 1，即当 j=1 时，w(i,j)=1；此外，中 间第 i 行 j 列的数据等于第 i-1 行 j-1 列的数加上第 i-1 行 j 列的数，因此，可用双层57-109循环嵌套来输出杨辉三角形的数据排列。 操作步骤： ⑴在 VB 环境中创建工程、窗 体，在窗体上添加一个图片框控 件和一个命令按钮控件。 ⑵设置命令按钮控件的 Caption 属性值为“生成” 。 ⑶编写命令按钮控件的 Click 事件代码，如图 3-5-4(b) 所示。 ⑷按 F5 功能键，运行程序， 点击“生成”按钮，程序运行效 果如图 3-5-4(a)所示。图 3-5-4(a) 习题 5-4 的运行结果图 3-5-4(b) 命令按钮的 Click 事件代码5.解： 解题分析：声明一个表示 i 行 j 列的二维数 组 aa(i,j)，根据题意，该矩阵中排列数据的规律 是两条对角线上的元素均为 1，其余均为 0，即 当 i=j 或 i+j=6 时，数组元素 aa(i,j)=1,否则， aa(i,j)=0。在图片框中每行输出 5 列，共输出 5 行。 操作步骤： ⑴在 VB 环境中创建工程、 窗体， 在窗体上 添加一个图片框控件和一