1、1-111习题一一、简答题1. 简述 VB 的特点。2. 安装 Visual Basic 系统程序应具备什么条件？3. 启动 Visual Basic 有几种方法？4退出 Visual Basic 有几种方式？5什么是对象？什么是类？简述它们之间的关系。6VB 环境有哪些部分组成？7VB 有几种工作模式？8属性窗口由哪几个部分组成？9设置属性有哪些方法？10简述 Visual Basic 应用程序的建立步骤。11Visual Basic 应用程序中有哪些文件？12Visual Basic 的对象有哪三要素？13VB 应用程序的执行步骤是什么？14Visual Basic 应用程序中有哪几种类型
2、的错误？二、填空题1. Visual Basic 是一种面向 的可视化程序设计语言，采取了 的编程机制。2. 在 VB 集成开发环境中，运行应用程序的方法有两种是： 或 。3Visual Basic 的对象主要分为 和 两大类。4. 在 Visual Basic 中，用来描述一个对象外部特征的量称之为对象的 。5. 在 Visual Basic 中，设置或修改一个对象的属性的方法有两种，它们分别是 和 。6. 在 Visual Basic 中，最基本的对象是 。7. 在 Visual Basic 中，默认窗体名为 ，默认工程名为 。8. 若用户单击了窗体 Form1，则启动的事件名为 。9.
3、调用方法的具体调用格式为 。10在代码中设置对象属性的格式为 。2-111三、单项选择题1. 窗体的标题栏显示内容由窗体对象的 属性决定。A) BackColor B)BackStyle C)Text D)Caption2. 窗体的示意图标可用 属性来设置。A) Picture B) Image C) Icon D) MouseIcon3. 窗体的控制菜单的有无由窗体对象的 属性决定。A) ControlBox B) MinButton C) MaxButton D) BorderStyle4. 若要取消窗体的最大化功能，则可设置 属性为 False 来实现。A) ControlBox B)
4、MinButton C) MaxButton D) Enabled5. 以下 4 个选项， 不属于 VB 的工作模式。A) 编译 B) 设计 C) 运行 D) 中断6. 窗体的边框样式由窗体对象的 属性来设置。A) BackStyle B) BorderStyle C) WindowState D) FillStyle7. 若要以程序代码方式设置在窗体中显示文本的字体大小，则可用窗体对象的 属性来实现。A) FontName B) Font C) FontSize D) FontBold8. 命令按钮的标题文字由 属性来设置。A) Text B) Caption C) Name D) (名称)
5、9. VB 是面向对象的程序设计，以下 4 个选项， 不属于面向对象的三要素。A) 变量 B) 属性 C) 事件 D) 方法10. 若要将某命令按钮设置为默认命令按钮，可设置 属性为 True 来实现。A) Value B) Cancel C) Default D) Enabled11. 若要使命令按钮不可见，可设置 属性为 False 来实现。A) Value B) Enabled C) Visible D) Cancel12. 运行程序时，系统自动执行窗体的 事件。A) load B) click C) unload D) GotFocus13. 若要设置文本框最大可接收的字符数，可通过
6、属性来实现。A) MultiLine B) Length C) Max D) MaxLength14. 若要使某命令按钮获得控制焦点，可使用 方法来设置。A) Refresh B) SetFocus C) GotFocus D) Value15. 若要使命令钮可响应事件，可通过设置 属性的取值来实现。A) Visible B) Enabled C) Default D) Value16. 在运行时，若要调用某命令按钮的 Click 事件过程，可设置该命令按钮对象的 属性为 True 来实现。A) Enabled B) Value C) Default D) Cancel3-11117. 标签框
7、的边框，由 属性的设置值决定。A) BorderStyle B) BackStyle C) BackColor D) AutoSize18. 标签框文本的对齐方式由 属性来决定。A) Align B) Alignment C) Autosize D) BackStyle19. 标签框所显示的内容，由 属性值决定。A) Text B) Name C) Caption D) Alignment20. 在运行时，若要获得用户在文本框中所选择的文本，可通过访问 属性来实现。A) SelStart B) SelLength C) Text D) SelText21. 若要设置或返回文本框中的文本，可通过
8、文本框对象的 属性来实现。A) Caption B) Text C) (名称) D) Name22.若要使标签框的大小自动与所显示的文本相适应，可通过设置 属性的值为 True 来实现。A) AutoSize B) Alignment C) Appearance D) Visible四、简单程序设计题1建立一个简单的应用程序，其窗体界面如下，单击窗体，则在窗体上显示“欢迎使用 Visual Basic！” ，反复练习建立一个 Visual Basic 应用程序的步骤。2建立一个简单的应用程序，其窗体界面如下，单击放大按钮，则文字“你好！”放大；单击缩小按钮，则文字“你好！”缩小；单击结束按钮，
9、则结束程序的运行。 3建立一个简单的应用程序，其窗体界面如下，单击输入按钮，则将光标定位在第一个文本框；单击大写转小写按钮，则将文本框 1 中的大写字母转化为小写显示在文本框 2 中；单击小写转大写按钮，则将文本框 1 中的小写字母转化为大写显示在文本框 2 中。图 3-1-1 习题 1-1 程序界面 图 3-1-2 习题 1-2 程序运行界面图 3-1-3 习题 1-3 程序运行界面4-111习题一 参考答案一、简答题1.答：Visual Basic 是 Microsoft 公司与 1991 年推出的基于 Windows 环境的语言，其主要特点如下：(1) 方便、直观的可视化的程序设计工具；
10、(2) 面向对象的程序设计方法；(3) 事件驱动的编程机制；(4) 结构化程序设计语言；(5) 强大的数据库访问能力；(6) 提供强大的网络功能，并具备完备的联机帮助功能；(7) 强大的数据库管理和存取操作的能力。2.答：任何一个软件都要占用计算机系统一定的资源，因此对计算机系统都有一定的要求，Visual Basic 系统程序对计算机系统的要求如下：硬件要求：586 以上 CPU，16MB 以上内存，100MB 以上硬盘等。软件要求：Windows 95/98/2000/XP 或 Windows NT。3.答：通常有以下三种启动方式：(1) 通过“开始”按钮：单击桌面上的“开始”/“程序”菜
11、单，然后打开“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 FilesMicrosoft Visual StudioVB 98VB6.exe。4答：通常有四种方式：(1) 利用文件菜单：单击菜单“文件”/“退出” ，即可退出 VB
12、 环境。(2) 利用快捷方式：利用快捷键 Alt+F4，即可退出 VB 环境。(3) 利用标题栏：鼠标右击标题栏，选择“关闭” ，即可退出 VB 环境。(4)利用关闭按钮：鼠标单击窗口右上方“关闭”按钮，即可退出 VB 环境。5答：对象(Object)是包含现实世界物体特征的抽象实体，反映了系统为之保存信息和与之交互的能力。每个对象有各自的内部属性和操作方法，整个程序是由一系列相互作用的对象构成的，对象之间的交互通过发送消息来实现。类(class)是指具有相同的属性和操作方法，并遵守相同规则的对象的集合。从外部看，类的行为可以用新定义的操作(方法) 加以规定。类是对象集合的抽象，规定了这些对象
13、的公共属性和方法；而对象是类的一个实例。6答：VB 环境通常由：标题栏、菜单栏、工具栏、属性窗口、代码窗口、工5-111程资源管理器窗口、立即窗口、窗体布局窗口、工具箱所组成。7答：VB 有三种工作模式： 设计模式：可进行应用程序界面的设计和代码的编制，此模式用于开发应用程序。 运行模式：运行应用程序，此时不可编辑代码和界面，此模式用于显示运行结果。 中断模式：应用程序运行暂时中断，此时可编辑代码，但不可编辑界面，此模式用于调试程序。按 F5 键或单击“继续”按钮继续运行程序，单击“结束”按钮停止运行程序。在此模式下会弹出“立即”窗口，在窗口内可输入简短的命令，并立即执行。8答：属性窗口由以下
14、几个部分组成： 对象列表框：用于显示窗体中的对象，单击其右边的下拉按钮可显示当前窗体所包含的对象列表。 属性显示排列方式：用于显示窗体中的所选对象的属性，通过窗口的滚动条可找到任何一个属性，窗口中的属性可以按以下两种方式排列： 按字母顺序：此时属性按字母的顺序排列 分类顺序：此时属性按外观、位置、行为、杂项等分类排列 属性列表框：该列表框列出在设计模式下选定对象可更改的属性及缺省值，不同的对象其属性也不同。属性列表框由左右两部分组成，左边列出选定对象的各种属性名，右边列出其相应的属性值。用户可先选定某一属性，再在右部对该属性值进行设置或修改。 属性解释框：当用户在属性列表框中选定某属性后，解释
15、框显示所选属性的含义。9答：设置对象的属性可在两个位置进行： 在设计阶段利用属性列表框进行设置； 在程序中通过程序代码进行设置。在程序中设置属性的语法格式为：对象名.属性名属性值通常，对于反映对象外观特征的一些不变属性应在设计阶段完成；而一些内在的可变的属性应在编程中实现。在设计阶段对属性进行设置一般有两步： 首先鼠标单击对象，以选定设置的对象； 在属性窗口选中需设置的属性，在右侧属性值栏中输入或选择相应的属性值。10答：创建 VB 应用程序分为以下几个过程： 建立用户界面以及界面中的对象； 设置各个对象的属性； 为对象事件编写程序； 保存工程； 运行程序。6-11111答：一个 Visual
16、 Basic 应用程序或一个 Visual Basic 工程可以包括 7 种类型的文件，其中最常用的是窗体文件、标准模块文件、类模块文件。 窗体文件(.frm)：该文件包含窗体及控件的属性设置；窗体级的变量和外部过程的声明；事件过程和用户自定义过程。Visual Basic 中一个应用程序包含一个或多个窗体，每一个窗体都有一个窗体文件。一个窗体文件由两部分组成，一部分是作为用户界面的窗体；另一部分是窗体和窗体中的对象执行的代码。 标准模块文件(.bas)：标准模块文件完全由代码组成，在标准模块的代码中，可以声明全局变量，可以定义函数过程和子程序过程。标准模块中的全局变量可以被工程中的其它模块调
17、用；而公共的过程可以被窗体模块的任何事件调用。该文件可选。 类模块文件(.cls)：类模块文件中既包含代码又包含数据，每个类模块定义了一个类，可以在窗体模块中定义类的对象，调用类模块中的过程。它用于创建含有属性和方法的用户自己的对象。该文件可选。 工程文件(.vbp)：该文件包含与该工程有关的全部文件和对象的清单。 窗体的二进制数据文件(.frx)：当窗体或控件的数据含有二进制属性(如图片或图标)，将窗体文件保存时，系统自动产生同名的.frx 文件。 资源文件(.res)：包含不必重新编辑代码就可以改变的位图、字符串和其他数据。该文件可选。 ActiveX 控件的文件(.ocx)：该文件可以添
18、加到工具箱并在窗体中使用。12答：Visual Basic 对象的三要素为属性、事件和方法。 对象的属性：在面向对象的程序设计中，属性是对象的一个特性，是用来描述和反映对象特征的一系列数值。同类型的对象有相同的属性不同的属性值；不同类型的对象有不同的属性。 事件：在 VB 中，事件是发生在对象身上、能被对象识别的动作，事件正是激发某一过程的导火索。 方法：“方法”是指对象本身所包含的一些特殊函数或过程，利用对象内部自带的函数或过程，可以实现对象的一些特殊功能和动作。13答：VB 应用程序的执行步骤如下： 启动应用程序，装载和显示窗体； 窗体或窗体上的对象等待事件的发生； 事件发生时，执行相应的
19、事件过程； 重复执行步骤和； 直到遇到“END”结束语句结束程序的运行。14答：在 VB 环境下，错误有以下几种。 编辑错误：编辑错误是指用户在代码窗口书写代码时，VB 会对程序直接进行语法检查，如果有错，系统会自动弹出一个出错信息提示框，出错的那行变为红色。 编译错误：编译错误是指启动了运行程序，在 VB 开始运行之前的编译阶段发现的错误，此种错误一般为变量未定义等。7-111 运行错误：运行错误是指通过了编译，在运行程序时发生的错误，此类错误一般是由于执行了非法操作而产生。 逻辑错误：如果没有出现前三种错误，但程序仍然没有得到正确的结果，则说明程序存在逻辑错误。二、填空题1.答：对象，事件
20、驱动2.答：编译运行模式、解释运行模式3.答：窗体、控件4.答：属性5.答：在设计阶段利用属性列表框进行设置、在程序中通过程序代码进行设置6.答：窗体7.答：Form1、工程 18.答：Click9.答：对象名.方法名参数名表10答：对象名.属性名属性值三、单项选择题1.答：D 2.答：C3.答：A4.答：C5.答：A6.答：B7.答：C8.答：B9.答：A10.答：C11.答：C12.答：A13.答：D14.答：B15.答：B16.答：B17.答：A18.答：B19.答：C20.答：D21.答：B22.答：A8-111四、简单程序设计题1解： 建立用户界面以及界面中的对象启动 Visual
21、Basic 环境，选择“标准 exe”，创建工程、窗体。 设置各个对象的属性调整窗体 Form1 的大小，将窗体 Form1 的 Caption 属性设为练习 1。 为对象事件编写程序编写窗体对象 Form1 的单击事件驱动程序如图 3-1-1(b)所示： 保存工程保存窗体：单击菜单“文件/保存 form1”，并取名为习题 1；保存工程：单击菜单“文件/保存工程” ，并取名为习题 1。运行程序按 F5 功能键或菜单“运行/ 启动”或运行按钮 ，运行程序，即可得到如图 3-1-1（a）所示的运行结果。2解： 建立用户界面以及界面中的对象 启动 Visual Basic 环境，选择“标准 exe”
22、，创建工程、窗体。 单击窗口左边工具箱中的“标签按钮“ ，此时鼠标变成十字形状，拖动鼠标，在窗体上画 1 个标签：“Label1“。单击窗口左边工具箱中的“命令按钮“ ，此时鼠标变成十字形状，拖动鼠标，在窗体上画命令按钮：“Command1“，再重复两次，画出命令按钮 “Command2“，“Command3“。设置各个对象的属性适当调整窗体 Form1 和各个对象的大小和位置；将窗体 Form1 的 Caption 属性设为练习 2；将标签 Label1 的 Caption 属性设为你好！，FontSize 属性设为三号；将命令按钮 Command1、Command2、Command3 的
23、Caption 属性设为放大、缩小、结束；图 3-1-1(a) 运行效果 图 3-1-1(b) 程序代码9-111其它属性可取默认值。为对象事件编写程序分别编写 3 个命令按钮对象的单击事件驱动程序如图 3-1-2(b)所示：保存工程保存窗体：单击菜单“文件/保存 form1”，并取名为习题 2；保存工程：单击菜单“文件/保存工程” ，并取名为习题 2。运行程序按 F5 功能键或菜单“运行/ 启动”或运行按钮 ，运行程序，即可得到如图 3-1-2（a）所示的运行结果。3解：建立用户界面以及界面中的对象 启动 Visual Basic 环境，选择“标准 exe”，创建窗体 Form1， 单击窗口
24、左边工具箱中的文本框按钮，此时鼠标变成十字形状，拖动鼠标，在窗体上画 3 个文本框：“Text1“，“Text2“ ，“Text3“， 单击窗口左边工具箱中的“命令按钮“ ，此时鼠标变成十字形状，拖动鼠标，分别在窗体上画 3 个命令按钮：“Command1“， “Command2“，“Command3“ 设置各个对象的属性 适当调整窗体 Form1 和各个对象的大小和位置， 将窗体 Form1 的 Caption 属性设为练习 3， 将文本框的 Text 属性设为空， 将命令按钮 Command1、Command2、Command3 的 Caption 属性设为输入、大写转小写、小写转大写，
25、其它属性可取默认值。为对象事件编写程序分别编写 3 个命令按钮对象的单击事件驱动程序如图 3-1-3(b)所示：保存工程保存窗体：单击菜单“文件/保存 form1”，并取名为习题 3；保存工程：单击菜单“文件/保存工程” ，并取名为习题 3。运行程序图 3-1-2(a) 运行效果 图 3-1-2(b) 程序代码10-111按 F5 功能键或菜单“运行/ 启动”或运行按钮 ，运行程序，即可得到如图 3-1-3（a）所示的运行结果。习题二一、选择题 1以下不合法的常量是_。A) 100.0 B) 100 C) 102 D) 10E+01 2以下合法的变量名是_。A) E8 B) 6*delta C
26、) True D) a%d 3VB 中合法的数值常量是_。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(
27、-2)*10+0.5)/10 + val(“.123e2cd“)的值是_。A) .123e2 B) .123 C) 0.5 D) 12.87变体变量(Varient)是一种特殊的数据类型，除了自定义类型和_外，可以包含任何种类的数据类型。A) 实型和货币型 B) 字节型和整型 C) 固定长度字符串 D) 可变长度字符串8关于变体变量(Varient)，下列说法正确的是_。A) 变体变量占用 16 字节的固定存储单元 图 3-1-3(a) 运行效果 图 3-1-3(b) 程序代码11-111B) 变体变量定义后，系统将变体变量初始化为数值 0 或空字符串C) 设 x 为变体变量，且 x=”101
28、”，则 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) 工具箱11Visual Basic 认为下面_组变量是同一个变量。A) aver 和 average B) sum 和 summary C) AB1 和 ab1 D) A1
29、和 A_112假设变量 int1 是一个整型变量，则执行赋值语句 int1=“12“+34 Next iEnd Sub11.下面程序的运行结果为_Private Sub Form_Click()Dim a%, b%b = 1a = 2Do While b 10b = 2 * a + bLoopPrint bEnd Sub12.下面程序的运行结果为_Private Sub Form_Click()Dim i%, j%For i=3 to 1 step -1Print spc(5-i);For j=1 to 2*i-1Print “*”;Next jPrintNext iEnd Sub13在窗体上
30、画一个命令按钮，名称为 Command1。然后编写如下程序，程序运行后，如果单击命令按钮，则运行结果为_ Private Sub Command1_Click() 19-111For a=1 To 4 For b=0 To a Print Chr$(65+a); Next b Print Next a End Sub 14在下面的空格处填上相应的内容，使其能完成找出能被 5 和 7 整除的 5 个最小的正整数。Private Sub Form_Click()Dim k%,n%k=0n=1Don=n+1If thenPrint nk=k+1End ifloop End Sub15在下面的空格处填
31、上相应的内容，使其能完成输入任意长度的字符串，将字符串倒置。Private Sub Form_Click()Dim str$,i%,t$str=inputbox$(“输入字符串”)n= For i=1 to t=mid(str,i,1)mid(str,i,1)= =tNext iPrint strEnd Sub三、程序设计题1.将一张 1 元钞票换成一分、二分和五分硬币，每种至少 8 枚，问有多少种方案？20-1112. 模拟给出一系列的 110 的操作数和算术运算符，输入该题的答案，根据输入的答案判断正确与否，当结束时给出成绩。3. 将可打印的 ASCII 码制成表格输出，打印每个字符及其编
32、码值。4. 编写程序，利用文本框检查用户的口令，验证口令的正确，并给出相应的提示信息。5. 编写程序，任意输入一个整数，打印它的因子，并统计因子的个数。6. 利用随机函数产生 10 个 10-100 内的随机整数，求其中的最大数、最小数，以及它们的平均数。7. 显示所有 100 以内 6 的倍数的数，并求这些数的和。8. 设计程序，当给定 n 值时，求出 S1+(1+2)+(1+2+3)+(1+2+3+n)的值。9. 编写程序求 S123n，求 S 不大于 32767 时最大的 n。10.用 Print 方法输出图形，程序运行输出如图 3-3-10 所示。习题三参考答案一、单项选择题1. 答：
33、A2. 答：D3. 答：C4答：D5答：D6. 答：C二、填空题1.答：变量，属性2.答：单引号()，下划线(_)，冒号(：)图 3-3-10 输出图形程序运行界面21-1113.答：Inputbox，字符串，val4.答：Msgbox5.答：根据情况在不同的操作中选取其中的一种6.答：Is 关系表达式7.答：不应改变其值8.答：顺序，分支，循环 9.答：410.答：2 311.答：1312.程序的运行结果为: * 13程序运行结果为: BBCCCDDDDEEEEE 14 n Mod 5 = 0 And n Mod 7 = 0 While k 515 Len(str) n 2 Mid(str,
34、 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(a) 程序运行界面22-111见图 3-3
35、-1（b）所示。按 F5 功能键，运行程序，单击窗体，运行结果如图 3-3-1(a)所示。2.解：解题分析：根据题目要求，可用随机函数分 别产生两个 110 的操作数，再将“”、 “”、 “”、“”四种运算符分别对应于 1、2、3、4，通 过随机函数随机生成一个14 之间的数以确定算术运算符，将两个操作数以此运算符进行运算，并将运算结果在文本框的 KeyPress 事件中与用户输入的答案比较，若相同，则在图片框中输出的算式之后，再输出符号“”，否 则， 输入符号“”。同 时分 别用两个变量保存用户计算算式正确和错误的数目，当停止做 题时，点 击“统计”按钮 ，输出一条虚线隔断，再输出做题的正确
36、率。操作步骤：在 VB 环境中创建工程、窗体，在窗体上添加一个标签，一个文本框，一个图形框，3 个按钮。设置各相关控件的属性，见表 3-3-2。表 3-3-2 各相关控件的属性及其值控件名称 属性 属性值 备注Form1 caption 测试 窗体的标题Command1 caption 出题 按钮的标题Command2 caption 统计 按钮的标题Command3 caption 结束 按钮的标题图 3-3-1(b) 窗体的 Click 事件代码23-111编写各相关控件的事件代码，见图 3-3-2(a)、图 3-3-2(b)所示。按 F5 功能键，运行程序，程序运行状况如图 3-3-2(
37、c)所示。图 3-3-2(a) 出题按钮 Click 事件代码图 3-3-2(b) 文本框 KeyPress 事件及其余按钮 Click 事件代码24-1113. 解：解题分析：在 Ascii 码表中，可显示打印的 Ascii 码其值从 32 开始，一直到126，因此，可用循环变量，自 32 开始一直循环到 126，对 Ascii 码的值，使用 Chr$()函数，可以获得对应该码值的字符，在窗体上的图片框中用 Print 方法输出，为了使输出的内容整齐规范，设定每行 输出一定列数后换行重新输 出( 如图 3-3-3(a)所示)。可使用 Tab()函数在指定的位置输出，其格式 为：Tab(m*(
38、i+j) mod n)+1)格式中 m 为每列表达式及间 隔所占的最大宽度，n 为每行可输出的表达式的列数，i 是循环变量，j 是补值，以 满足当 i 为起始值时，(i+j) mod n)表达式的值为 0,1表示每行第 1 列表达式输出的起始位置。本 题中各参数值 的取法参见图 3-3-3(b)命令按钮的 Click 事件代码。操作步骤：图 3-3-2(c) 程序运行界面图 3-3-3(a) 程序运行结果25-111在 VB 循环中创建工程、窗体，在窗体上添加一个图片框，1 个命令按钮。设置相关控件的属性，见表 3-3-3 所示。表 3-3-3 各相关控件的属性及其值控件名称 属性 属性值 备
39、注Form1 caption ASCII 码符与码值对照表 窗体的标题Command1 caption 打印 按钮的标题编写相关控件的事件代码，见图 3-3-3(b)所示。按 F5 功能键，运行程序，点击“打印”按钮，运行结果如图 3-3-3(a)所示。4.解：解题分析：本题是求证通过文本框中输入的内容是否和指定内容(假设正确口令为：“123456” )相同。当文本框中内容输入完毕后验证文本框中内容是否正确，可利用文本框的 KeyPress 事件或 Volidata 事件编写代码若利用 KeyPress 事件，则要求用户在输入口令后必须按 Enter 键，通过 KeyPress 事件中返回的
40、KeyAscii 参数检测到 Enter 键，开始对文本框中输入的整体内容进行验证；如采用 Volidata 事件编程，则当文本框即将失去焦点 时，触 发 Volidata 事件，通过编程验证文本框中输入口令的正确性。本题解答使用 KeyPress 事件编程。当口令输入不正确时，可使用Msgbox()函数 显示提示信息。 为了防止输入口令时显示口令造成泄密，应设置输入口令的文本框的 PasswordChar 属性值为“*”，使得在文本框中输入的任何内容均显示为* 。图 3-3-4(a) 文本框 KeyPress 事件代码图 3-3-3(b) “打印”按钮 Click 事件代码26-111操作步
41、骤：在 VB 环境中创建工程、窗体，在窗体上添加 1 个标签，1 个文本框。设置相关控件的属性，见表 3-3-4 所示。表 3-3-4 各相关控件的属性及其值控件名称 属性 属性值 备注Form1 Caption 口令验证 窗体的标题Text1 Text 空 清空Text1 PasswordChar * 隐藏显示口令内容编写相关控件的事件代码，见图 3-3-4(a)所示。按 F5 功能键，运行程序，观察程序运行效果，如图 3-3-4(b)所示。5.解：解题分析：一个数的因子就是能被此数整除的数，可以通 过循环语句，用此数对从 1 开始，到此数的一半的每一个数进行 Mod 运算，余数为 0 的数
42、都是此数的因子。操作步骤：在 VB 环境中创建工程、窗体，在窗体上添加 3 个标签，3 个文本框，1 个按钮。设置各相关控件的属性，见表 3-3-5 所示。图 3-3-4(b) 程序运行界面图 3-3-5(a) 命令按钮 Click 事件代码27-111表 3-3-5 各相关控件的属性及其值控件名称 属性 属性值 备注Form1 Caption 求解因子 窗体的标题Text1/Text2/text3 Text 空 清空Label1 Caption 输入数据Label2 Caption 其因子是Label3 Caption 因子个数Command1 Caption 求因子编写相关控件的事件代码，
43、见图 3-3-5(a)所示。按 F5 功能键，运行程序，在“输入数据”文本框中输入一个数(例如 50)，点击“求因子”按钮，在“其因子是”和“因子个数”文本框中分别显示出该的所有因子及统计出的因子个数，运行界面如图 3-3-5(b)所示。 6.解：解题分析：声明一个包含 10 个元素的数组，在循 环语句中，用随机函数产生10 随机整数，每产生一个随机整数，都对其进行最小数、最大数比较，并将其累加到存放求和值的变量中，循环结 束，即可得出最小数、最大数，将其累加和除以 10 即为它们的平均数。操作步骤：在 VB 环境中创建工程、窗体，在窗体上添加 4 个标签，4 个文本框控件。设置相关控件的属性
44、，见表 3-3-6 所示。表 3-3-6 各相关控件的属性及其值控件名称 属性 属性值 备注Form1 Caption 求最大数和最小数 窗体的标题Text1/Text2Text3/Text4 Text 空 清空Label1 Caption 生成一组数据Label2 Caption 最大数是Label3 Caption 最小数是Label4 Caption 平均数是图 3-3-5(b) 程序运行界面 图 3-3-6(a) 习题 3-6 程序运行界面28-111编写相关控件的事件代码，见图 3-3-6(b)所示。按 F5 功能键，运行程序，程序运行结果如图 3-3-6(a)所示。 7.解：解题分
45、析：采用循环语句，循 环变量取值从 6 开始到 100，每一个循环变量的值，都对 6 进行 Mod 运算，根据结果是否为 0确定是否是 6 的倍数，若是则在窗体上显示，并将其值进行累加计算，计数器加 1，循 环结束，就可在窗体上显示出 100 以内的所有6 的倍数的数字，个数及累加和( 如图 3-3-7(a)所示)。图 3-3-6(b) 窗体 Click 事件代码图 3-3-7(a) 习题 3-7 程序运行界面图 3-3-7(b) 窗体的 Click 事件代码29-111操作步骤：在 VB 环境中创建工程、窗体。设置窗体的 Caption 属性为“测试数据” 。编写窗体的 Click 事件代码
46、，见，编写窗体的单击事件过程，运行界面如图3-3-7(a)所示，程序代码如图 3-3-7(b)所示。 按 F5 功能键，运行程序，单击窗体，显示运行结果( 见图 3-3-7(a)。8.解：解题分析：此题的求解可采用循环语句，定义两个求和变量，一个用于存放累加 项数之和，另一个用于存放每一累加项之和。操作步骤：在 VB 环境中创建工程、窗体，在窗体上添加二个文本框和二个标签控件。设置相关控件的属性，见表 3-3-8 所示表 3-3-8 各相关控件的属性及其值控件名称 属性 属性值 备注Form1 Caption 求和 窗体的标题Text1/Text2 Text 空 清空Label1 Captio
47、n n 的值Label2 Caption 和编写窗体的 Click 事件代码，见图 3-3-8(b)所示。按 F5 功能键，运行程序，运行界面如图 3-3-8(a)所示。9.解：解题分析：求解此题可采用条件循环语句，判断当 n 的阶乘结果大于指定数时，跳出循环，并输出此时的 n 值。操作步骤：在 VB 环境中创建工程、窗体。图 3-3-8(a) 求和程序运行界面图 3-3-8(b) 窗板的 Click 事件代码30-111编写窗体的 Click 事件代码，见图 3-3-9(a)所示。按 F5 功能键，运行程序，单击窗体，观察运行结果。10.解：解题分析：见图 3-3-10(a)，输出图形分为左右两个三角块。每个三角块都有五行 输出，左 边三角块首行输出从第 1 列开始，每行的起始列随着行数的增加而增加，每行输出的*符号数量随着行数的增加
