VB程序设计教程 习题解答.doc

vb程序设计教程（第3版）习题解答习题1答案一、选择题1.1 visual basic 6.0分为3种版本，不属于这3种版本的是a）学习版b）专业版c）企业版d）业余版【答】d。1.2 下列方法中不能退出visual basic的是a）按alt+q组合键b）按下alt+f组合键，然后按esc键c）按f10键，然后按f键，再按x键d）打开“文件”菜单“退出”命令【答】b。1.3 visual basic集成的主窗口中不包括a）属性窗口b）标题栏c）菜单栏d）工具栏【答】a。1.4 下列操作可以打开立即窗口的是a）ctrl+db）ctrl+fc）ctrl+gd）ctrl+e【答】c。二、填空题1.5 与传统的程序设计语言相比，visual basic最突出的特点是_。【答】事件驱动编程机制。1.6 如果不使用鼠标，用键盘打开菜单和执行菜单命令，第一步应按_键。【答】功能键f10或alt键。1.7 建立一个新的标准模块，应该选择_菜单下的“添加模块”命令。【答】“工程”菜单。三、思考题1.8 简述visual basic的特点。【答】与一般的程序设计语言相比，vb具有以下特点： (1) 可视化的设计平台； (2) 面向对象的设计方法； (3) 事件驱动的编程机制； (4) 结构化的设计语言； (5) 充分利用windows资源； (6) 开放的数据库功能与网络支持。1.9 简述visual basic集成开发环境的组成。【答】vb 6.0集成开发环境除了具有标准windows环境的标题栏、菜单栏、工具栏外，还有工具箱、属性窗口、工程管理器窗口、窗体设计器、立即窗口、窗体布局窗口等有用的开发工具。(1) 标题栏和菜单栏：标题栏中显示的有窗体控制菜单图标、当前激活的工程名称、当前工作模式以及最小化、最大化还原、关闭按钮。菜单栏中显示了“文件”、“编辑”、“视图”、“工程”、“格式”等菜单项，其中包含了vb编程的常用命令。单击菜单栏中的菜单名，即可打开下拉菜单。在下拉菜单中显示了各种功能子菜单，包含执行该项功能的热键和快捷键。(2) 工具栏及数字显示区：在菜单栏的下面是工具栏，工具栏提供了许多常用命令的快速访问按钮。单击某个按钮，即可执行对应的相关操作。数字显示区包含两个部分，左数字区显示的是对象的坐标位置（窗体工作区的左上角为坐标原点，即(0,0)位置），右数字区显示的是对象的高度（向下递增）和宽度，即对象的大小。(3) 工具箱：标准工具箱包含了建立应用程序所需的各种控件。另外，vb还提供了很多activex控件可以添加到工具箱中。(4) 工程管理器窗口：采用windows资源管理器式的界面，层次分明地列出当前工程中的所有文件。(5) 属性窗口：“属性”窗口包含选定对象（窗体或控件）的属性列表，在设计程序时可通过修改对象的属性设计其外观和相关数据，这些属性值将是程序运行时各对象属性的初始值。(6) 窗体设计器：也称为“对象窗口”，每一个应用程序中的窗体，都有与之对应的窗体设计器窗口。(7) 窗体布局窗口：用来显示窗体在屏幕中的位置。(8) 立即窗口：使用立即窗口可以在中断状态下查询对象的值，也可以在设计时查询表达式的值或命令的结果。1.10 属性窗口主要包括哪些内容？【答】“属性窗口”的内容包括：(1) 对象下拉列表框：标识当前选定对象的名称以及所属的类。单击右端的下拉箭头，可列出当前窗体以及所包含的全部对象的名称，可从中选择要更改其属性的对象。(2) 选项卡：可按字母排序和分类排序两种排序方式显示所选对象的属性。(3) 属性列表框：属性列表框中列出了当前选定的窗体或控件的属性设置值。左半边显示所选对象的所有属性名，右半边是属性值。可以直接在属性窗口中修改属性值，有的属性取值具有预定值，如右侧显示“三点”式按钮或“下拉箭头”式按钮，都有预定值可供选择。在“属性”列表中双击属性值可以遍历所有选项。选择任一属性并按f1键可得到该属性的帮助信息。(4) 属性说明：显示当前属性的简要说明。可通过右键快捷菜单中的“描述”菜单来切换显示或隐藏“属性说明”。1.11 打开属性窗口的方法有哪些？【答】可通过以下方法之一打开属性窗口：（1）单击工具栏中的“属性窗口”按钮。（2）单击“视图”菜单“属性窗口”命令。习题2答案一、选择题2.1 在vb中，被称为对象的是a）窗体b）控件c）控件和窗体d）窗体、控件和属性【答】c。2.2 关于vb“方法”的概念错误的是a）方法是对象的一部分b）方法是预先定义好的操作c）方法是对事件的响应d）方法用于完成某些特定的功能【答】c。2.3 确定窗体控件启动位置的属性是a）width和heightb）width或heightc）startuppositond）top和left【答】c。2.4 下列说法正确的是a）对象的可见性可设为true或falseb）标题的属性值不可设为任何文本c）属性窗口中属性只能按字母顺序排列d）某些属性的值可以跳过不设置，自动设为空值【答】a。2.5 下列说法错误的是a）方法是对象的一部分b）在调用方法时，对象名是不可缺少的c）方法是一种特殊的过程和函数d）方法调用格式和对象属性使用格式相同【答】b。2.6 下列说法错误的是a）窗体文件的扩展名为.frmb）一个窗体对应一个窗体文件c）vb中一个工程只包含一个窗体d）vb中一个工程最多可以包含255个窗体【答】c。2.7 一个工程必须包含的文件的类型是a）*.vbp *.frm *.frxb）*.vbp *.cls *.basc）*.bas *.ocx */res d）*.frm *.cls *.bas【答】a。2.8 新建一个窗体，其borderstyle属性设置为fixed single，但运行时却无最大化和最小化按钮，可能的原因是a）borderstyle的值设为fixed.single，其设置值的作用即禁止最大化和最小化按钮b）窗体的maxbutton和minbutton值设为falsec）正常情况下新建的窗体都没有最大化和最小化按钮d）该窗体可用鼠标拖动框的方法改变窗体的大小【答】b。二、填空题2.9 vb程序设计采用的编程机制是_。【答】事件驱动。2.10 vb对象可以分为两类，分别为_和_。【答】预定义对象；用户定义对象。三、思考题2.11 什么是对象？什么是对象的属性、事件和方法？【答】在可视化编程语言中，对象是代码和数据的集合，它可以是窗体和控件，也可以是菜单或数据库等。从可视化编程的角度来看，这些对象都具有属性（数据）和方法（行为方式）。简单地说，属性是用于描述对象的一组特征，方法是对象实施的一些动作，对象的动作则常常要触发事件，而触发事件又可以修改属性。一个对象建立以后，其操作就通过与该对象有关的属性、事件和方法来描述。2.12 如何创建一个应用程序？【答】（1）设计界面。先建立窗体，再利用控件在窗体上创建各种对象。（2）设置属性。设置窗体或控件等对象的属性。（3）编写代码。编写对象的事件代码。（4）运行调试程序。2.13 如何在当前窗体上创建和删除一个对象？【答】向窗体中添加控件的步骤为：（1）单击工具箱中的控件图标，鼠标指针变成一个十字指针。（2）在窗体的工作区按住鼠标左键拖动鼠标，即可在窗体上画出对应控件。删除一个对象的方法为：选中要删除的对象，按键盘上的delete键。2.14 如何设置对象的属性？【答】设置对象的属性有两种方式：(1) 预设法：在设计界面时，使用属性窗口设置对象的属性。这时只要在属性窗口中选中要修改的属性，然后在右列中键入新的值即可。(2) 现改法：在编写代码的过程中，通过程序代码更改对象的属性。在程序中设置属性的语法格式为：对象名.属性名 属性值2.15 建立对象后，每个属性都有一个默认值，“（名称）”属性和caption属性的默认值相同，它们有什么区别？能否用代码修改“（名称）”属性？【答】建立对象后，名称属性是事件驱动的标识，而caption属性是显示在窗体上标签提示。在编写代码中，不能用代码修改“（名称）”属性，而能用代码修改caption属性。2.16 在没有关闭程序的情况下，如果又添加了一个工程，但运行时会发现运行的仍是第一个工程，这是什么原因？如何解决？【答】这是因为vb默认“工程1”为启动工程。解决办法为：在工程资源器窗口中，右键单击添加的“工程”，在快捷菜单中选择“设置为启动”即可。习题3答案一、选择题3.1 以下关于vb数据类型的说法，不恰当的是a）vb 6.0提供的数据类型主要有字符串型和数值型，此外还有字节、货币、对象、日期、布尔和变体数据类型等b）目前decimal数据类型只能在变体类型中使用c）用户不能定义自己的数据类型d）布尔型数据只能取两种值，用两个字节存储【答】c。3.2 以下各项，可以作为vb变量名的是a）bookb）2_seekc）123.58d）book-1【答】a。3.3 下列哪个符号不能作为vb中的变量名？a）abcdefgb）p000000c）89twddffd）xyz【答】c。3.4 下列( )是vb中的合法变量名。a）ab7b）7abc）ifd）ab7【答】a。3.5 表达式2 *32 + 2 * 8 / 4 + 32的值为a）64b）31c）49d）22【答】b。3.6 函数int(rnd(0)*10)是在( )范围内的整数。a）( 0 , 1 ) b）( 1 , 10 ) c）( 0 , 9 ) d）( 1 , 9 )【答】c。3.7 表达式3 2 mod 1423的值是a）1b）0c）2d）3【答】b。3.8 在vb中，下列两个变量名相同的是a）japan和ja_panb）english和englishc）english和engld）china和chin【答】b。3.9 数学式子sin25写成vb表达式是a）sin25 b）sin(25) c）sin(25)d）sin(25*3.14/180)【答】d。3.10 在vb中，要强制用户对所用的变量进行显式声明，可以在( )设置。a）“属性”对话框b）“程序代码”窗口c）“选项”对话框d）对象浏览器【答】c。3.11 下列符号常量的声明中，不合法的是a）const a as single = 1.1b）const a =okc）const a as double = sin(1)d）const a as integer =12【答】c。3.12 在代码编辑器中，续行符是换行书写同一个语句的符号，用以表示续行符的是a）一个空格加一个下划线“_”b）一个下划线“_”c）一个造字符“-”d）一个空格加一个连字符“-”【答】a。二、填空题3.13 如果希望使用变量x来存放数据765 432.123 456，应将变量x声明为_类型。【答】双精度型。3.14 把vb算术表达式a/(b + c/(d + e/sqr(f)改写成数学表达式为_。【答】。3.15 如果x是一个正实数，对x的第3位小数四舍五入的表达式是_。【答】0.01 * int(100 * (x + 0.005)。3.16 函数str(256.36)的值是_。【答】256.36。三、思考题3.17 vb定义了哪几种数据类型？变量有哪几种数据类型？常量有哪几种数据类型？【答】vb 6.0定义了11种数据类型，它们是整型、长整型、单精度浮点型、双精度浮点型、字符型（变长字符串、定长字符串）、逻辑型、日期型、货币型、字节型、对象型、可变类型（数值、字符）。变量的数据类型有数值型、字符型、逻辑型、日期型、对象型、可变数据类型。其中，数值型变量的数据类型有：整型、长整型、单精度浮点型、双精度浮点型、货币型和字节类型。字符型变量的数据类型有变长字符串和定长字符串。常量的数据类型有：字符串常量、数值常量、逻辑常量、日期常量。3.18 下列数据哪些是变量？哪些是常量？是什么类型的常量？（1）name（2） name（3）false（4）ff（5）11/16/99（6）cj（7）120（8）n（9）#11/16/1999# （10）12.345【答】变量有（1），（4），（6），（8）。常量有（2），（3），（5），（7），（9），（10）。其中：（2），（5），（7）为字符型常量，（3）为逻辑型常量，（9）为日期型常量，（10）为数值型常量。3.19 在vb中，对于没有赋值的变量，系统默认值是什么？【答】使用声明语句建立一个变量后，vb自动将数值类型的变量赋初值0，变长的字符串被初始化为一个零长度的字符串（），而定长的字符串则用空格填充。variant变量被初始化为empty，逻辑型的变量则初始化为false。3.20 将下列数学表达式改写为等价的vb算术表达式。（1）（2）（3）【答】vb中的算术表达式与数学中的表达式写法有所区别，主要表现在：vb中每个符号占1格，所有符号都必须一个一个并排写在同一横线上，不能在右上角或右下角写方次或下标；在数学表达式中省略的内容必须重新写上；所有括号都要使用小括号“（ ）”，而且括号必须配对；数学表达式中的有些符号，需要改成vb中可以表示的符号。（1）(1 + y / x) / (1 y / x)（2）(abs( a * b c3)0.5 或 (abs(a * b c3)(1 / 2) 或 sqr(abs(a * b c3)（3）(s * (s a) * (s b) * (s c)0.5 或 (s * (s a) * (s b) * (s c) )(1 / 2) 或 sqr(s * (s a) * (s b) * (s c)3.21 写出下列表达式的值。（1）( 2 + 8 * 3 ) / 2（2）32 + 8（3）#11/22/99# 10 （4）zyx & 123 & abc【答】题中各表达式的值分别为：（1）13（2）17（3）#11/12/99#（4）zyx123abc3.22 设a = 7, b = 3, c = 4，求下列表达式的值：（1）a + 3 * c（2）a2 / 6（3）a / 2 * 3 / 2（4）a mod 3 +b3 / c 5【答】题中各表达式的值分别为：（1）19（2）8.16666666666667（3）5.25（4）23.23 写出下列表达式的值。（1）visual+basic（2）xyz & 1234 & abcd【答】题中各表达式的值分别为：（1）visualbasic（2）xyz1234abcd3.24 写出下列函数的值。（1）int(3.14159) （2）sqr(sqr(64)（3）int(abs(99100)/2) （4）sgn(7*3+2) 【答】函数的值为：（1） 4 （2）2.828427（3） 3 （4）1习题4答案一、选择题4.1 要将名为myform的窗体显示出来，正确的使用方法是a）myform.showb）show.myformc）myform loadd）myform show【答】a。4.2 如果要将窗体中的某个命令按钮设置成无效状态，应设置命令按钮的( )属性。a）valueb）visiblec）enabledd）default【答】c。4.3 输入代码时，vb可以自动检测( )错误。a）语法错误b）编译错误c）运行错误d）逻辑错误【答】a。4.4 在vb中，要将一个窗体加载到内存进行预处理但不显示，应使用的语句是a）loadb）showc）hided）unload【答】a。4.5 以下能在窗体form1的标题栏中显示visualbasic窗体的语句是a）form1.name=visualbasic窗体b）form1.title=visualbasic窗体c）form1.caption=visualbasic窗体d）form1.text=visualbasic窗体【答】c。4.6 对下列程序段，说法正确的是( ) text1.top=2000 : text1.left=800a）text对象的左边界距窗体的左边界是800twip，上边界距窗体的上边界为2000twipb）text1的左边界距屏幕的左边界为800twip，上边界距屏幕的上边界为2000twipc）text1对象的宽度为2000twip，高度为800twipd）text1对象的高度为800点，宽度为2000点【答】a。4.7 单击窗体上的关闭按钮时，触发的事件是a）form_initialize()b）form_load()c）form_unload()d）form_click()【答】c。4.8 用于将屏幕上的对象分组的控件是a）列表框b）组合框c）标签d）框架【答】d。4.9 能够获得一个文本框中被选取文本的内容的属性是a）textb）lengthc）seltextd）selstart【答】c。4.10 用inputbox函数设计的对话框，其功能是a）只能接收用户输入的数据，但不会返回任何信息b）能接收用户输入的数据，并能返回用户输入的信息c）既能用于接收用户输入的信息，又能用于输出信息d）专门用于输出信息【答】b。二、填空题4.11 下列语句的输出结果为_。print format(5689.36,000,000.000)【答】005,689.360。4.12 为了使一个窗体从屏幕消失但仍在内存中，所使用的方法或语句为_。【答】hide方法。4.13 当对象得到焦点时，会触发_事件，当对象失去焦点时将触发_事件。【答】gotfocus；lostfocus。4.14 新建一个工程，内有两个窗体，窗体form1上有一个命令按钮command1，单击该按钮，form1窗体消失，显示form2窗体，试补充程序。private sub command1_click() _ form2._end sub【答】me.hide或者forml.hide或者unload me；show。4.15 在文本框中要使键入的所有字符显示为*号，应设置_属性为*。【答】passwordchar。三、编程题4.16 设计工程，已知圆的半径r，求圆面积s。【解答】 设圆半径为r，圆面积为s。根据数学知识，已知圆半径r，求圆面积s的公式为：。设计步骤如下。（1）建立应用程序用户界面，如图4-1所示。（2）设置对象属性：label1的caption属性为“已知圆半径r=”；text1的text属性为空；command1的caption属性为“圆面积为：”；label2的caption属性为空；label2的borderstyle属性为1-fixed single。各控件的属性设置如图4-2所示。 图4-1 建立用户界面 图4-2 设置各控件的属性（3）编写程序代码。写出“圆面积为：”命令按钮command1的click事件代码为：private sub command1_click( ) const pi = 3.14 dim r as single, s as single r = val(text1.text) s = pi * r 2 label2.caption = send sub运行程序时，在文本框输入圆半径的值，单击“圆面积为：”按钮后，输出结果如图4-3所示。也可以不用文本框接收输入值，改用inputbox函数接收圆的半径r，求圆面积s，代码如下。图4-3 程序运行结果private sub form_load( ) show const pi = 3.1415926 dim r as single, s as single r = val(inputbox(输入半径：, 计算圆面积, 10) fontsize = 18 s = pi * r 2 print 圆面积：; send sub程序运行时，首先显示如图4-4所示的对话框，在该对话框的文本框中输入数字，按enter键或单击“确定”按钮后，才能显示窗体。图4-4 输入对话框用inputbox函数输入文本虽然很方便，但是由于输入框弹出后将暂停程序的运行，直到用户响应，因此输入框不符合vb自由环境的精神。输入框适合于像要求用户输入口令等这样不常见的输入方式。还可以用更好的用户输入方式，如文本框、选项按钮等。4.17 已知平面坐标系中两点的坐标，求两点间的距离。【解答】 由数学知识可知，已知两点坐标（xa, ya）、（xb, yb），求两点间距离的计算公式为建立用户界面如图4-5所示。在该界面中用textbox控件输入数据，用label控件输出数据。为了形象地表示两点之间的距离，可用picture控件插入一幅图，该图用画图软件绘制。命令按钮command1的click事件代码为：private sub command1_click( ) dim xa as single, xb as single dim ya as single, yb as single dim s as single xa = val(text1.text) ya = val(text2.text) xb = val(text3.text) yb = val(text4.text) s = sqr(xb - xa) 2 + (yb - ya) 2) label6.caption = send sub程序运行结果如图4-6所示。 图4-5 设计用户界面 图4-6 程序运行结果4.18 在文本框中输入三种商品的单价、购买数量，计算并输出所用的总金额。【解答】 假设第一种商品的单价和购买数量分别是a1和a2，第二种商品的单价和购买数量分别是b1和b2，第三种商品的单价和购买数量分别是c1和c2，所用总金额为x。通过textbox控件输入这三种商品的单价、购买数量，然后利用公式x = a1*a2+b1*b2+c1*c2进行计算，最后输出x的值。设计步骤如下。（1）建立应用程序用户界面，并设置对象属性，如图4-7所示。图4-7 计算商品总金额（2）编写程序代码。写出command1_click( )的事件代码为：private sub command1_click( ) dim a1 as single, b1 as single, c1 as single dim a2 as integer, b2 as integer, c2 as integer dim x as single a1 = val(text1.text) a2 = val(text2.text) b1 = val(text3.text) b2 = val(text4.text) c1 = val(text5.text) c2 = val(text6.text) x = a1 * a2 + b1 * b2 + c1 * c2 text7.text = xend sub4.19 设计工程，输出在指定范围内的三个随机数，范围在文本框中输入。【解答】 随机函数rnd( )可以返回一个（0,1）区间中的随机小数，那么，rnd * a语句可以返回（0, a）区间中的随机实数（带小数）。若n, m均为整数，则表达式：int(m + 1 n) * rnd) + n的值是闭区间 n, m 中的一个随机整数。设计步骤如下。（1）设计程序界面及设置控件属性。新建一个工程，进入窗体设计器，在窗体中增加一个框架控件frame1，一个命令按钮command1和三个标签label1label3。选定frame1，在其中增加两个文本框text1和text2以及一些标签。修改对象属性参见表4-1。设置属性后的窗体如图4-8所示。表4-1 属性设置对 象属 性属 性 值说 明frame1caption请指定随机整数的范围：框架的标题command1caption生成随机数按钮的标题label1label3caption0text1, text2text0, 1（2）编写程序代码。private sub command1_click( ) randomize n = val(text1.text) m = val(text2.text) label4.caption = int(m + 1 n) * rnd) + n label5.caption = int(m + 1 n) * rnd) + n label6.caption = int(m + 1 n) * rnd) + nend sub运行程序，在文本框中输入范围值后，单击“生成随机数”按钮，可以不断生成指定范围之内的随机整数，如图4-9所示。 图4-8 设计用户界面 图4-9 生成随机数4.20 使用大小写转换函数设计程序，实现在文本框中输入英文字母，按“转大写”按钮，文本变为大写；按“转小写”按钮，文本变为小写。【解答】 本题主要使用大小写转换函数ucase( )和lcase( )，另外还用到了keyup（键抬起）事件。设计步骤如下。（1）建立应用程序用户界面，并设置对象属性。新建一个工程，进入窗体设计器，在窗体中增加一个标签label1，一个文本框text1和三个命令按钮command1command3，参照图4-10设置各个对象的属性。（a） （b） （c）图4-10 大小写转换（2）设计代码。首先设计文本框的keyup事件代码，使得输入的字符存入文本框的tag属性中：private sub text1_keyup(keycode as integer, shift as integer) text1.tag = text1.textend sub编写命令按钮command1的click事件代码：private sub command1_click( ) text1.text = ucase(text1.tag)end sub编写命令按钮command2的click事件代码：private sub command2_click( ) text1.text = lcase(text1.tag)end sub编写命令按钮command3的click事件代码：private sub command3_click( ) text1.text = text1.tagend sub4.21 设某职工应发工资x元，试求各种票额钞票总张数最少的付款方案。【解答】 可以从最大的票额（100元）开始，算出所需的张数，然后在剩下的部分算出较小票额的张数，直到最小票额（1元）。设计步骤如下。（1）建立应用程序用户界面。新建一个工程，进入窗体设计器，增加一个命令按钮command1，14个标签label1label14，七个文本框text1text7。用户界面如图4-11（a）所示。 （a） （b）图4-11 建立程序界面与程序运行结果（2）设置对象属性，参见表4-2。其中标签的标题属性参见图4-11（a）。表4-2 属性设置对 象属 性属 性 值说 明text1text0文本框的内容text2text7text文本框的内容alignment1-right justify文本内容右对齐lockedtrue文本内容只读command1caption应付按钮标题defaulttrue窗体的默认按钮（3）编写程序代码。编写命令按钮command1的click事件代码：private sub command1_click( ) x = val(text1.text) x为实发工资数 y = x 100 : text2.text = y 求100元票张数并显示 x = x 100 * y 求剩余款项 y = x 50 : text3.text = y 求50元票张数并显示 x = x 50 * y 求剩余款项 y = x 10 : text4.text = y 求10元票张数并显示 x = x 10 * y 求剩余款项 y = x 5 : text5.text = y 求5元票张数并显示 x = x 5 * y 求剩余款项 y = x 2 : text6.text = y 求2元票张数并显示 x = x 2 * y : text7.text = x 求1元票张数并显示end sub编写文本框text1的change事件代码：private sub text1_change( ) 当在text1中输入新数时，清空其他文本框中的内容 text2.text = text3.text = text4.text = text5.text = text6.text = text7.text = end sub运行结果如图4-11（b）所示。【说明】 文本框的change事件当文本框中的内容被改变时发生。下面用信息对话框来输出各种票额钞票张数的付款方案，如图4-12所示。图4-12 信息对话框只需将图4-11中多余的文本框和标签删去，并改写命令按钮的click事件代码如下：private sub command1_click( ) x = val(text1.text) x为实发工资数 y1 = x 100 求100元票张数 x = x mod 100 求剩余款项 y2 = x 50 求50元票张数 x = x mod 50 求剩余款项 y3 = x 10 求10元票张数 x = x mod 10 求剩余款项 y4 = x 5 求5元票张数 x = x mod 5 求剩余款项 y5 = x 2 求2元票张数 x = x mod 2 求1元票张数 text1.selstart = 0 text1.sellength = len(text1.text) text1.setfocus a = = & chr(13) a = a & format(y1 & 张 百元票, ) & _ format(y2 & 张 50元票, ) & chr(13) a = a & format(y3 & 张 10元票, ) & _ format(y4 & 张 5元票, ) & chr(13) a = a & format(y5 & 张 2元票, ) & _ format(x & 张 1元票, ) & chr(13) a = a & = & chr(13) a = a & 共计 & text1.text & 元 c = msgbox(a, 0, 应发工资)end sub【说明】 文本框的selstart属性用来设置（或返回）所选择的文本的起始点，如果没有文本被选中，则指出插入点的位置。sellength属性用来设置（或返回）所选择的字符数。函数len( )返回字符串数据的长度。在命令按钮的click事件代码中调用setfocus方法，可使光标重新回到输入框text1。使用mod运算可以得到相除的余数。习题5答案一、选择题5.1 下面语句正确的是a）if xy then y=x3b）if xy then y=3xc）if xy then y=x3d）if xy then y=x*3【答】a。5.2 下列语句正确的是a）if a b then print a不等于bb）if a b then printf a不等于bc）if a b then print a不等于bd）if a b print a不等于b【答】c。5.3 计算z的值，当x大于y时，z=x；否则z=y。下列语句错误的是a）if x=y then z=x : z=yb）if x=y then z=x else z=yc）z=y : if x=y then z=xd）if x=y then z=y else z=x【答】a。5.4 下列程序段的执行结果为x=2y=5if x * y 0a）trueb）falsec）-1d）1【答】b。5.5 下列程序段执行结果为x=5y=-6if not x0 then x=y-3 else y=x+3print x-y;y-xa）-3 3b）5 -9c）3 -3d）-6 5【答】a。5.6 下列程序段的执行结果为a=95if a60 then i=1if a70 then i=2if a80 then i=3if a90 then i=4print i=; ia）i=1b）i=2c）i=3d）i=4【答】d。5.7 下面程序段执行结果为x=int(rnd()+4)select case x case 5 print excellent case 4 print good case 3 print pass case else print failend selecta）excellentb）goodc）passd）fail【答】b。5.8 在窗体上画一个名称为timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是a）timer1.interval=0.5b）timer1.interval=5c）timer1.interval=50d）timer1.interval=500【答】d。二、填空题5.9 闰年的条件是：年号（year）能被4整除，但不能被100整除；或者能被400整除。闰年的vb布尔表达式是_。【答】设y表示年份，判断闰年的布尔表达式为：(y mod 4 = 0 and y mod 100 0) or (y mod 400 = 0)或表示为：(int(y / 4) = y / 4 and int(y / 100) y / 100) or (int(y / 400) = y / 400)5.10 一元二次方程ax2 + bx + c = 0有实根的条件为：a 0，并且b2 - 4ac 0，其相应的vb布尔表达式为_。【答】a 0 and b2 4 * a * c = 05.11 有下面一个程序段，从文本框中输入数据，如果该数据满足条件，除以4余1，除以5余2，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。private sub command1_click() x=val(text1.text) if _ then print x else text1.text= _ end ifend sub【答】x mod 4 = 1 and x mod 5 = 2； text1.setfoucs。5.12 下列程序的功能是