VB教材课后习题答案
vb第三章课后习题答案
习题一、单项选择题1、设x=4，y=6，则以下不能在窗体上显示出“A=10”的语句是（）A.PrintA=x+yB. Print"A="；x+yC. Print"A="+Str(x+y)D. Print"A="&x+y2、假定有如下的命令按钮(名称为Command1)事件过程：PrivateSubCommand1_Click()x=InputBox("输入："，"输入整数")MsgBox"输入的数据是：”，，”输入数据："+xEndSub程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是（）A. x的值是数值10B. 输入对话框的标题是“输入整数”C. 信息框的标题是“输入数据：10”D. 信息框中显示的是“输入的数据是：”3、有如下程序a=3;b=4PRINT b＜aEND运行后，输出的结果是( )A.4＞3B.-1C.0D.显示出错信息4、在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。
程序运行以后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。
以下能实现上述操作的事件过程是（）A. Private Sub Text1_Change()B. Private Sub Command1_Click()Command1.Caption=”计算机等级考试”Caption=”计算机等级考试”End Sub End SubC. Private Sub Form1_Click()D. Private Sub Command1_Click()Text1.Caption=”计算机等级考试”Text1.Text=”计算机等级考试”End Sub End Sub5、假定有如下的窗体事件过程：Private Sub Form_Click()a$ = "Microsoft Visual Basic"b$ = Right(a$, 5)c = Mid(a$, 1, 9)MsgBox a$, 34, b$, c$, 5End Sub程序运行后单击窗体，则在弹出的信息框中的标题栏中显示的信息是（）A. Microsoft VisualB. MicrosoftC. BasicD. 56、窗体上放置了三个文本框，若在Text1中输入456，在Text2中输入78，在程序中执行了语句Text3=Text1+Text2后，则在Text3中显示（）A. 434B. 45678C. 溢出D. 语法错误7、执行下面的程序，单击窗体，则在窗体上显示的是（）。
VB课后题
※<习题一>1．计算机硬件系统和软件系统各由哪些部分组成？分别说明其功能与作用。
2．信息在计算机内如何表示，存储容量如何计算？3．Windows系统中有哪些常见的操作对象？4．操作系统的功能、作用与地位如何？5．Windows系统中文件是如何进行管理的？6．如何获取和运行应用程序？5※<习题二>1．叙述建立一个完整的VB应用程序的过程。
2．当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。
问该工程涉及到多少文件要保存？3．解释什么是类、对象、对象属性、事件与事件过程、方法。
4．VB开发环境中有哪些窗体，各有哪些用途？5．使用VB开发环境牵涉到哪几种模式，并描述各自的作用？6．VB中的错误种类有哪些？如何调试程序？如何使用帮助系统？5※<习题三>习题（一）判断题：1、VB的Byte类型数据的数值范围，在-255到255之间。
(F)2、VB的Double类型数据，可以精确表示其数值范围内的所有实数。
(F)3、Variant是一种特殊的数据类型，该类型变量可以存储除了定长字符串数据及自定义类型外的所有系统定义类型的数据。
Variant类型变量还具有Empty、Error和Null等特殊值。
（T）4、函数MsgBox的前三个参数，分别为图标样式、按钮样式以及默认按钮。
（F）5、在自定义函数过程中，函数名必须被赋值。
（F）6、在Open语句中用Append方式所打开的文件若不存在，则创建该文件。
（T）7、在Open语句中用Input方式所打开的文件必须已经存在，否则会运行错误。
（T）8、“A=B=C”是一个合法的Visual Basic语句。
（T）9、在窗体或模块文件中声明为Private的过程，只能被本窗体或模块中的过程所调用。
（T）10、静态变量是局部变量，当过程再次被执行时，静态变量的初值是上一次过程调用后的值。
（T）11、在VB中，用Dim定义数组时数组元素也自动赋初值0。
vb教科书答案(中国农业出版社)
二、教科书中的练习题参考答案习题三，参考答案一、VB定义了哪几种数据类型？各自有什么特点？变量有哪几种类型？常量有哪几种类型？答：在Visual Basic中，数据类型分为三大类：基本数据类型、用户自定义数据类型、枚举类型。
基本数据类型是系统定义的一些类型，用户自定义数据类型和枚举类型时用户根据实际情况可以自己定义的类型，并且类型中可以混合基本数据类型。
变量有整型、长整型、单精度浮点型、双精度浮点型、货币型、字节型、字符串型、布尔型、日期型、对象型、变体型数据，还可以使用户自定义类型和枚举类型。
常量有整型、长整型、单精度浮点型、双精度浮点型、货币型、字符串型、布尔型、日期型。
二、说明下列哪些是Visual Basic合法的直接常量，并分别指出它们的类型。
100.0 %100 123D3 0100 “ASDF””1234.5” #2006/6/1# 100# &H123 True答：合法的直接常量有：100.0、123D3、0100、“ASDF”、”1234.5”、 #2006/6/1#、100#、&H123、True、其中整型数据有：0100、&H123单精度数据有： 100.0双精度数据有：123D3、100#字符型数据有：“ASDF”、”1234.5”日期型数据有：#2006/6/1#布尔型数据有：True三、下列数据哪些是变量，哪些是常量？是什么类型的常量？Name ”name” False ff ”11/16/99”答：变量有：Name、ff、常量有：”name”、 False、”11/16/99”其中”name”、”11/16/99”是字符串型，False是布尔型四、下列符号中，哪些可以是Visual Basic的合法变量名？Sum33 x45_0 450_x Single XYZ False 答：上面合法的变量名有：Sum33、x45_0、XYZ。
五、把下列数学表达式写成Visual Basic表达式：（1）5||zyx++（2）6)1(xy+（3）xy yx310+答：（1）Abs(x+y)+z^5 (2) (1+x*y)^6 （3）（10*x+Sqr(3*y)）/(x*y)六、计算下列函数的值：(1) Int(-3.14159) (2) Sqr(Sqr(81))(3) Int(Abs(99-100)/2) (4) Sgn(7*3+2-10)答：(1) -4 (2) 3 (3) 0 (4) 1七、写出下列表达式的值：(1) (2^4+8*3 Mod 5)/2 (2) 4^3\7+8-(6>3 or 5<34 and 8<>7)答：(1) 10 (2) 18八、设X=8，Y=4，Z=5，求下列表达式的值(实数保留三位小数)：(1) X+4*Z (2) X^3/7答：(1) 28 (2) 73.143习题四，参考答案4.1 略。
VB程序设计课后习题答案
VB课后习题解答第一、二章：1、简述VB6.0的主要特点答：方便、直观的可视化设计工具；面向对象程序设计方法；事件驱动的编程机制；易学易用的应用程序集成开发环境；结构化程序设计语言；完备的联机帮助功能；强大的多媒体、数据库和网络功能。
2、当正常安装VB6.0后，误把Windows子目录删除。
当重新安装Windows后，是否需要再次安装VB6.0？答：要重新安装的。
因为安装VB6.0时，有些VB程序被系统自动安装在Windows目录下，所以一旦删除Windows子目录，就必须重新安装VB6.0。
3、Visual Basic 6.0分为学习版、专业版和企业版，如何知道所安装的是哪个版本？答：在VB6.0的启动界面上，能显示对应的版本。
4、叙述建立一个完整应用程序的过程答：首先建立用户界面的控件对象（简称控件）；然后对控件属性进行设置；再对控件事件过程及编程；保存应用程序；程序调试和运行。
5、Visual Basic 6.0有多种类型窗口，若要在设计时看到代码窗口，应怎样操作？答：选择“视图”—>“代码窗口”命令或单击“工程资源管理器”窗口中的“查看代码”按钮。
6、当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。
试问该工程涉及多少个要保存的文件？若要保存该工程的所有文件，应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？答：涉及两个文件要保存。
先保存窗体文件（.frm），再保存工程文件（.vbp）。
若先保存工程文件，系统也会先弹出“文件另存为”对话框，要求先保存窗体文件。
7、保存文件时，若不改变目录名，则系统默认的目录是什么？答：系统默认的目录是VB988、安装Visual Basic 6.0后，帮助系统是否也已安装？答：没有。
VB6.0的帮助系统在两张光盘上，即MSDN Library，其中还包含了VC、VFP等其他语言的帮助系统。
9、如何使用Visual Basic 6.0的帮助系统？答：最方便的方法是选定要帮助的内容，然后按F1功能键，这时系统打开MSDN Library查阅器，直接显示与选定内容有关的帮助信息。
VB教材课后习题答案
<大学程序设计基础-Visual Basic>教材课后习题答案第1章一、选择题1 2 3 4 5 6 7B D BC B B D第2章一、选择题1 2 3 4 5 6 7 8 9 10B C B C B C A A A A11 12 13 14A B A A二、填空题1.rem或’ _ ：2.“” # #3.5x2-3x-2sinA/34.3214565.300三、操作题1、程序段：Private Sub Command1_Click()Dim x As Integer, y As IntegerDim s As Long, c As Longx = Text1.Texty = Text2.Texts = x * yc = (x + y) * 2Label3.Caption = "长方形的面积为" + Str(s)Label4.Caption = "长方形的周长为" + Str(c)End Sub3、程序段：Private Sub Command1_Click()Text1.Text = "第一"End SubPrivate Sub Command2_Click()Text1.Text = "第二"End Sub4、程序代码：Private Sub Text1_Change()Text1.MaxLength = 10End Sub5、程序代码：Private Sub Text1_Click()Text1.SelStart = 0Text1.SelLength = Len(Text1.Text)End Sub第3章一、选择题1 2 3 4 5 6 7D A D B A D B二、填空题1. False2.B^2-4*a*c else三、操作题1．从键盘输入三个值，判断它们能否构成三角形的三个边。
如果能构成一个三角形，则计算三角形的面积。
VB部分课后习题答案
1. 选择题(1) 假定窗体的名称（Name属性）为Form1，则把窗体的标题设置为“VB Test”的语句为（B）。
A. Form1="VB Test"B. Caption="VB Test"C. Form1.Text="VB Test"D. ="VB Test"(2) 下列不能打开代码窗口的操作是（D）。
A．双击窗体上的某个控件B．双击窗体C．按F7键D．单击窗体或控件(3) 为了保存一个Visual Basic应用程序，应当（D）。
A．只保存窗体文件（.frm）B．分别保存工程文件和标准模块文件（.bas）C．只保存工程文件（.vbp）D．分别保存工程文件、窗体文件和标准模块文件(4) 为了装入一个Visual Basic应用程序，应当（C）。
A．只装入窗体文件（.frm）B．分别装入工程文件和标准模块文件（.bas）C．只装入工程文件（.vbp）．D分别装入工程文件、窗体文件和标准模块文件(5) 不为了使窗体的大小可以改变，必须把它的BorderStyle属性设置为（A）。
A．1 B．2 C．3 D．42. 填空题(1) 在用Visual Basic开发应用程序时，通常首先需要新建工程、其次还要经过、、、和5步。
(2) 控件和窗体的Name属性只能通过属性窗口设置，不能在运行期间设置。
(3) 代码窗口分为左右两栏，左边一栏称为对象，右边一栏称为事件。
(4) 为了在输入程序时能自动进行语法检查，必须执行菜单中的命令，打开对话框，然后选择“编辑器”选项卡中的选项。
(5) 在保存VB应用程序中，窗体文件和工程文件的扩展名分别为 .frm 和.vbp 。
(6) 为了把一个Visual Basic应用程序装入内存，只要装入工程文件即可。
(7) Visual Basic应用程序通常由3类模块组成，即、和。
(8) 在窗体上画两个文本框和一个命令按钮，然后在命令按钮的代码窗口中编写如下事件过程：Private Sub Command1_Click( )Text1.Text=“VB Programming”Text2.Text=Text1.TextText1.Text=“ABCD”End Sub程序运行后，单击命令按钮，两个文本框中显示的内容分别为ABCD 和VB Programming 。
VB1-3章_习题答案(课本习题)
VB习题答案（1-3章）习题一一、选择题1．C 2.C 3.A 4.C 5.C 6.C 7.B二、填空题1.学习版、专业版、企业版2.窗体界面3.Alt+F4三、简答题1．简述Visual Basic语言的特点。
Visual Basic是Windows操作平台下的可视化编程语言，它继承和发展了BASIC语言的基本功能，具有简单易学、功能强大等特点。
Visual Basic提供了可视化设计工具，以图形用户界面（GUI）为PC机用户提供了一个直观的工作环境。
支持面向对象的程序设计（OOP），采用事件驱动方式，提供对象的链接与嵌入（OLE）和访问数据库等功能。
2. Visual Basic 6.0的集成开发环境由哪些部分组成，各部分的主要功能是什么？1. 标题栏：用来显示打开的工程名称和系统的工作状态。
2. 菜单栏：菜单栏中包括“文件”、“编辑”、“视图”、“工程”、“格式”、“调试”、“运行”、“查询”、“图表”、“工具”、“外接程序”、“窗口”和“帮助”共有13个菜单项。
这是一组下拉式菜单，提供了设计、编辑、编译和调试应用程序所需要的绝大部分功能和命令。
3. 工具栏： Visual Basic 6.0提供了“编辑”、“标准”、“窗体编辑器”和“调试”4种工具栏。
工具栏上形象直观的排列着一些最常用的命令按钮，对应特定的常用操作命令。
4. 控件箱：控件箱提供了一组控件。
设计界面时，用户可以用鼠标双击控件箱中的控件，在窗体中画出该控件，或用鼠标单击控件箱中的控件，然后在窗体中拖动鼠标画出所需的控件。
5. 窗体设计器：窗体设计器是应用程序最终面向用户的窗口。
各种控件、图形、数据以及程序的运行结果都在窗体设计器窗体中显示出来。
6. 工程资源管理器：在工程资源管理器窗口中（图1-2），列出了应用程序的工程以及工程中的窗体和模块。
7. 属性窗口：属性窗口主要用来设置Visual Basic窗体及各控件的属性特征，属性窗口的主体部分分为左右两列，左边是控件的属性名列表，右边是控件的属性值列表。
VB程序设计教程课后答案
1、 简述 VB6.0的主要特点 答：方便、直观的可视化设计工具；面向对象程序设计方法；事件驱动的编程机制；易学易用的应用程 序集成开发环境；结构化程序设计语言；完备的联机帮助功能；强大的多媒体、数据库和网络功能。 2、 当正常安装 VB6.0后，误把 Windows 子目录删除。当重新安装 Windows 后，是否需要再次安装 VB6.0？ 答：要重新安装的。因为安装 VB6.0时，有些 VB 程序被系统自动安装在 Windows 目录下，所以一旦删 除 Windows 子目录，就必须重新安装 VB6.0。 3、 Visual Basic 6.0分为学习版、专业版和企业版，如何知道所安装的是哪个版本？ 答：在 VB6.0的启动界面上，能显示对应的版本。 4、 叙述建立一个完整应用程序的过程 答：首先建立用户界面的控件对象（简称控件） ；然后对控件属性进行设置；再对控件事件过程及编程； 保存应用程序；程序调试和运行。 5、 Visual Basic 6.0有多种类型窗口，若要在设计时看到代码窗口，应怎样操作？ 答：选择“视图”—>“代码窗口”命令或单击“工程资源管理器”窗口中的“查看代码”按钮。 6、 当建立好一个简单的应用程序后， 假定该工程仅有一个窗体模块。 试问该工程涉及多少个要保存的文件？ 若要保存该工程的所有文件， 应先保存什么文件？再保存什么文件？若不这样做， 系统会出现什么信息？ 答：涉及两个文件要保存。先保存窗体文件（.frm） ，再保存工程文件（.vbp） 。若先保存工程文件，系统 也会先弹出“文件另存为”对话框，要求先保存窗体文件。 7、 保存文件时，若不改变目录名，则系统默认的目录是什么？ 答：系统默认的目录是 VB98 8、 安装 Visual Basic 6.0后，帮助系统是否也已安装？ 答：没有。VB6.0的帮助系统在两张光盘上，即 MSDN Library，其中还包含了 VC、VFP 等其他语言的帮 助系统。 9、 如何使用 Visual Basic 6.0的帮助系统？ 答：最方便的方法是选定要帮助的内容，然后按 F1功能键，这时系统打开 MSDN Library 查阅器，直接 显示与选定内容有关的帮助信息。 10、 什么是类？什么是对象？什么是事件过程？ 答：类是同类对象集合的抽象，它规定了这些对象的公共属性和方法； 对象是类的一个实例，对象包含三个要素：属性、方法和事件。 当在对象上发生了事件后，应用程序就要处理这个事件，而处理的步骤就是事件过程。 11、 属性和方法的区别是什么？ 答：属性是对象的特征，方法是对象的行为。前者有值，可以被赋值或引用；后者没有值，表示能够执 行的操作。 12、 当标签边框的大小由 Caption 属性的值进行扩展或缩小时，应对该控件的什么属性进行何种设置？ 答：将该控件的 Autosize 属性值设置为 true。 13、 在 VB6.0中，命令按钮的显示形式可以有标准的和图形的两种选择，它们通过什么属性来设置？若选 择图形的，则通过什么属性来装入图形？若已在规定的属性里装入了某个图形文件，但该命令按钮还是 不能显示该图形，而显示的是 Caption 属性设置的文字，应怎样修改？ 答： 命令按钮的显示形式通过将 Style 属性值设置为 Graphical 来实现。 通过 Picture 属性来装入图形。 不
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
<大学程序设计基础-Visual Basic>教材课后习题答案第1章一、选择题1 2 3 4 5 6 7B D BC B B D第2章一、选择题1 2 3 4 5 6 7 8 9 10B C B C B C A A A A11 12 13 14A B A A二、填空题1.rem或’ _ ：2.“” # #3.5x2-3x-2sinA/34.3214565.300三、操作题1、程序段：Private Sub Command1_Click()Dim x As Integer, y As IntegerDim s As Long, c As Longx = Text1.Texty = Text2.Texts = x * yc = (x + y) * 2Label3.Caption = "长方形的面积为" + Str(s)Label4.Caption = "长方形的周长为" + Str(c)End Sub3、程序段：Private Sub Command1_Click()Text1.Text = "第一"End SubPrivate Sub Command2_Click()Text1.Text = "第二"End Sub4、程序代码：Private Sub Text1_Change()Text1.MaxLength = 10End Sub5、程序代码：Private Sub Text1_Click()Text1.SelStart = 0Text1.SelLength = Len(Text1.Text)End Sub第3章一、选择题1 2 3 4 5 6 7D A D B A D B二、填空题1. False2.B^2-4*a*c else三、操作题1．从键盘输入三个值，判断它们能否构成三角形的三个边。
如果能构成一个三角形，则计算三角形的面积。
Dim a As Integer, b As Long, c As Long, s As Single, p As Singlea = Val(InputBox("请输入一个值："))b = Val(InputBox("请输入一个值："))c = Val(InputBox("请输入一个值："))If (a + b > c And a + c > b And b + c > a) Thenp = (a + b + c) / 2s = Sqr(p * (p - a) * (p - b) * (p - c))Print a & "," & b & "," & c & "能构成一个三角形,它的面积为:" & sEnd If2．编写程序，任意输入一个整数，判定该整数奇偶性。
Dim n As Integern = Val(InputBox("请输入一个整数："))If n Mod 2 = 0 ThenPrint n & "是偶数"ElsePrint n & "是奇数"End If3．求一元二次方程的a*x^2+b*x+c=0的根。
Dim a As Integer, b As Integer, c As Integer, delta As Single, x1 As Single, x2 As Singlea = Val(InputBox("请输入一个整数："))b = Val(InputBox("请输入一个整数："))c = Val(InputBox("请输入一个整数："))delta = b ^ 2 - 4 * a * cIf delta = 0 Thenx1 = -b / (2 * a)Print "一元二次方程有两个相等的实根x1=x2=" & x1ElseIf delta > 0 Thenx1 = (-b + Sqr(delta)) / (2 * a)x2 = (-b - Sqr(delta)) / (2 * a)Print "一元二次方程有两个不等的实根x1=" & x1 & ",x2=" & x2Elsex1 = (-b) / (2 * a)x2 = Sqr(-delta) / (2 * a)Print "一元二次方程有两个不等的虚根x1=" & x1 & "+" & x2 & "i,x2=" & x1 & "-" & x2 & "i"End IfEnd If4. 任意输入三个数，输出最大数。
Dim a As Integer, b As Integer, c As Integer, max As Integera = Val(InputBox("请输入一个整数："))b = Val(InputBox("请输入一个整数："))c = Val(InputBox("请输入一个整数："))max = aIf max < b Thenmax = bEnd IfIf max < c Thenmax = cEnd IfPrint "最大数是" & max5．任意输入三个数，由大到小排序输出。
Dim a As Integer, b As Integer, c As Integer, temp As Integera = Val(InputBox("请输入一个整数："))b = Val(InputBox("请输入一个整数："))c = Val(InputBox("请输入一个整数："))If a < b Thentemp = aa = bb = tempEnd IfIf b > c ThenPrint a, b, cElseIf a > c ThenPrint a, c, bElsePrint c, a, bEnd IfEnd If第4章一、选择题1 2 3 4 5 6 7 8 9 10A B A C D B A D B B11 12 13 14 15 16D C D C B B二、填空题1. 92. 1 2 33. 74. 100+100；x mod 5=05. 66. 57. * 2 515 30 7516 32 80三、编程题1．键盘输入几个不同的数，将它们从大到小排序。
2．设计程序，求出S=11+（1+2）+（1+2+3）+…+（1+2+3+4+…+N）的值。
Dim i As Integer, sn As Long, s As Long, n As Integersn = 0s = 0n = InputBox("")For i = 1 To nsn = sn + is = s + snNextPrint s运行结果：若n为10，S为220。
3．输入X的值，求S=x-x^3/3!+x^5/5!- …的前20项的和值。
Dim x As Single, i As Integer, s As Doublex = InputBox("输入X值：")s = xFor i = 1 To 19p = 1For j = 1 To 2 * i + 1p = p * jNexts = s + (-1) ^ (i) * x ^ (2 * i + 1) / pNextPrint s运行结果：当X为2时，S为0.91(精确到小数点后两位)4．勾股定理中3个数的关系是：a2+b2=c2。
编写程序，输出30以内满足上述关系的整数组合，例如3、4、5就是一个整数组合。
Dim a As Integer, b As Integer, c As Integer, k As IntegerFor a = 1 To 30For b = 1 To 30For c = 1 To 30If a ^ 2 + b ^ 2 = c ^ 2 Then k = k + 1: Print a, b, cNextNextNextPrint k运行结果：225．输出1000以内的完全数。
完全数就是它的各个约数之和等于该数本身（如：6=1+2+3，6是完全数）。
Dim i As Integer, j As Integer, a As IntegerFor i = 2 To 1000a = 0For j = 1 To i - 1If i Mod j = 0 Then a = a + j '判断j是否能整除i，如果能，则a增加j Next jIf a = i Then Print i '判断i是否是完全数，如果是，则输出iNext i运行结果：6284966．编程求出所有的水仙花数。
水仙花数就是一个三位数，其各位数字立方和等于该数。
（如153=13+53+33）。
Dim i As Integer, s As IntegerDim a As Integer, b As Integer, c As IntegerPrint "100到999所有水仙花数：";For i = 100 To 999a = i \ 100 '取百位数b = i \ 10 Mod 10 '或 b = i Mod 100 \10 取十位数c = i Mod 10 '取个位数s = a ^ 3 + b ^ 3 + c ^ 3 '水仙花数的判断依据If s = i Then Print i;Next i运行结果：100到999所有水仙花数：153 370 371 4077．编写程序，输出100～300间的所有素数。
Dim i As Integer, j As Integer, c As Integer, k As IntegerFor i = 100 To 300For j = 2 To i - 1If i Mod j = 0 Then Exit ForNextIf i = j ThenPrint i;k = k + 1s = s + iIf k Mod 10 = 0 Then PrintEnd IfNextPrintPrint "100～300间总共有" + Str(k) + "个素数，" + "和值为" + Str(s)运行结果：8．我国现有人口为13亿。