大学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程序设计教程课后参考答案概要
VB程序设计教程课后参考答案习题一一、填空题1．对象、事件驱动2．窗体、控件3．属性4．属性窗口、编程设置5．事件过程6．对象名、下划线、事件名7．Form_click8．Print form1.print “我的VB”9．主窗口、属性、工具箱、代码、窗体、工程资源管理10．菜单、快捷键二、选择题1．C 2. A 3. B 4. B 5. D 6. B C 7. A 三、简答题（略）习题二一、选择题1. D2. C3. C4. B5. C6. B7. C8. B 9. A 10. B 11. B 12. C 13. D 14. B15. A 16. A 17. A 18. A 19. B 20. C 21. A22. B 23. B 24. A 25. C 26. A 27. B 28. B29. C 30. B 31. D 32. D 33. C二、填空题1．Controlbox、Maxbutton、Minbutton2．Multiline TRUE3．******4．单文档界面（SDI）多文档界面（MDI）5．窗体显示6．Passwordchar7．_change()三、编程题（略）习题三一、基础知识题（略）二、填空题1．整型、长整型、单精度、双精度2．(x mod 10)*10+x\103．Sin(3.14*15/180)+sqr(x+exp(3))/abs(x-y)-log(3*x)4．(a+b)/(1/(c+5)-c*d/2)5．X mod 5=0 or x mod 9=06．False7．-4、3、－3、3、－4、48．CDEF10．TRUE11．变量、属性12．‘_ :13．(略)14．“”＃15．Public、通用/模块、Dim、static、private16．+ 、&、+17．Now() 、time()、日期18．Inputbox()、字符串、val()19．Msgbox()三、选择题1．B 2. C 3. A 4. B D此题有误 5. B 6. A7. D 8. B 9. B 10. C 11. D 12. B13. C 14. B 15. A 16. C 17.A 18. D19. A 20. D 21. A 22. C 23. C 24. D25. A 26. D 27. D 28. B 29. C 30. B31. C 32. B 33. C D此题有误34. C 35. A36. D 37. C 38. A 39. B 40. A 41. C42. C 43. D 44. C 45. D 46. A四、编程题1.Option ExplicitPrivate Sub Command1_Click()Dim a%, b%, c%, delta%Dim x1#, x2#, x#a = Val(InputBox("please input data to a:", "info", 1))b = Val(InputBox("please input data to b:", "info", 1))c = Val(InputBox("please input data to c:", "info", 1))If a = 0 And b <> 0 Thenx = -c / bPrint "所构成的方程是：" & b & "x" & "+" & c & "=0"Print "该一元一次方程的根是：", xEnd IfIf a = 0 And b = 0 ThenPrint "很抱歉，不能构成合法的方程！"End IfIf a <> 0 Thendelta = b * b - 4 * a * cIf delta >= 0 Thenx1 = (-b + Sqr(delta)) / (2 * a)x2 = (-b - Sqr(delta)) / (2 * a)Print "所构成的方程是：" & a & "x2" & "+" & b & "x" & "+" & c & "=0"Print "该方程的根是："Print "第一个根是：", x1Print "第二个根是：", x2Else2Print "该方程有两个虚根："Print "第一个虚根是：" & -b / (2 * a) & "+" & Sqr(Abs(delta)) / (2 * a) & "i"Print "第二个虚根是：" & -b / (2 * a) & "－" & Sqr(Abs(delta)) / (2 * a) & "i" End IfEnd IfEnd Sub2.Option ExplicitPrivate Sub Command1_Click()Dim i%, s%s = 0For i = 1 To 99 Step 2s = s + iNextPrint sEnd Sub3.Option ExplicitPrivate Sub Command1_Click()Dim i%Dim s#s = 0For i = 1 To 100s = s + 1 / i * (-1) ^ (i + 1)NextPrint sEnd Sub4.Option ExplicitPrivate Sub Command1_Click()Dim i%, n%Dim t#, s#n = Val(InputBox("please input data:", "info", 5))s = 0t = 1For i = 1 To nt = t * is = s + tNextPrint sEnd Sub5.Option ExplicitPrivate Sub Command1_Click()Dim a%, b%, c%Dim p#, s#a = Val(InputBox("please input data to a:", "info", 3))b = Val(InputBox("please input data to b:", "info", 4))c = Val(InputBox("please input data to c:", "info", 5))If (a + b > c And Abs(a - b) < c) Or (a + c > b And Abs(a - c) < b) Or ((b + c) > a And Abs(b - c) < a) Thenp = (a + b + c) / 2s = Sqr(p * (p - a) * (p - b) * (p - c))Print "三角形的面积是：" & sElsePrint "很抱歉，不能构成合法的△三角形！"End IfEnd Sub6.Option ExplicitPrivate Sub Command1_Click()Dim ji%, tu%For ji = 1 To 27For tu = 1 To 27If ji * 2 + tu * 4 = 78 And ji + tu = 27 ThenPrint "鸡的个数是：" & jiPrint "兔的个数是：" & tuEnd IfNextNextEnd Sub7.Option ExplicitPrivate Sub Command1_Click()Dim i%Dim s#, t#s = 10t = 10For i = 1 To 7t = t * 0.4s = s + t * 2NextEnd Sub8.Option ExplicitPrivate Sub Command1_Click()Dim i%, fs%, max%, min%, s%Dim ave#fs = Val(InputBox("please input score:", "info", 90))s = fsmax = fsmin = fsFor i = 2 To 7fs = Val(InputBox("please input score:", "info", 90))If max < fs Thenmax = fsEnd IfIf min > fs Thenmin = fsEnd Ifs = s + fsNextave = (s - max - min) / 5Print "该运动员的平均成绩是：" & aveEnd Sub9. ‘同学们，这道题方法很多，主要考察你对选择结构的理解，我给出其中一种方法。
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课后习题解答第一、二章：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 。
vb课后练习答案习题解答 (5).
第5章数组与记录5.1 填空题1.若要定义一个包含10个字符串元素,且下界为1的一维数组s,则数组说明语句为(。
答案:Dim s(1 To 10 As String2.若要定义一个元素为整型数据的二维数组a,且第一维的下标从0到5,第二维下标从-3到6,则数组说明语句为(。
答案:Dim a(0 To 5,-3 To 6 As Integer3.如果数组元素的下标值为实数,则VB系统会按(进行处理。
答案:四舍五入原则4.数组元素个数可以改变的数组称为(;数组元素可以存放不同类型数据的数组称为(。
答案:可调数组、可变类型数组5.数组刷新语句用于(。
若被刷新的数组是数值数组,则把所有元素置(;若被刷新的数组为字符串数组,则把所有元素置(。
答案:清除指定数组内容、0、空字符串10.控件数组是由一组类型和(相同的控件组成,共享(。
答案:名字、同一个事件过程11.控件数组中的每一个控件都有唯一的下标,下标值由(属性指定。
答案:Index12.建立控件数组有两种方法:(和(。
答案:在设计阶段通过相同Name属性值来建立、在程序代码中使用Load方法5.2 选择题1.下列一维数组说明语句错误的是(。
a Dim b(100 AS Doubleb Dim b(-5 To 0 AS Bytec Dim b(-10 To –20 AS Integerd Dim b(5 To 5 AS String答案:c2.若有数组说明语句为:Dim a(-3 To 8,则数组a包含元素的个数是(。
a 5b 8c 11d 12答案:d3.设有数组说明语句:Dim c(1 To 10,则下面表示数组c的元素选项中(是错误的。
a c(i-1b c(5+0.5c c(0d c(10答案:c4.下列数组说明语句中正确的是(。
a Dim a(-1 To 5,8AS Stringb Dim a(n,nAS Integerc Dim a(0 To 8,5 To –1AS Singled Dim a(10,-10AS Double答案:a5.设有数组说明语句:Dim b(-1To2,-2To2,则数组b中元素的个数是(。
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窗体及各控件的属性特征，属性窗口的主体部分分为左右两列，左边是控件的属性名列表，右边是控件的属性值列表。
visual basic 程序设计课后习题参考答案
Visual basic 程序设计习题参考答案第一章Visual basic 程序设计一、选择题二、填空题三、简答题1、简述visual basic 的特点。
（1）具有可视化的设计平台（2）面向对象的设计方法（3）事件驱动的编程机制（4）结构化程序设计语言（5）开放的数据库功能与网络支持2、什么是对象、类、属性、事件和方法？在可视化编程语言中，对象是代码和数据的集合，它可以是窗体和控件，也可以是菜单和数据库等。
描述一个对象有三个基本要素：属性、方法和事件。
类是一组用来定义对象的相关过程和数据的集合，即同类对象的集合和抽象。
属性是描述对象的一组特性。
方法是对象能够执行的动作，它是对象本身内含的函数或过程，用于完成某种特定的功能。
事件是发生在对象上并且能够被对象识别的动作，即由系统预先设置好的、能被对象识别的动作，如Click(单击)、DblClick(双击)、Load(窗体的装载)、KeyPress(按键)、Change(改变)、MouseMove (鼠标的移动)等，每一种对象能识别的事件是不同的5、什么是事件驱动的编程机制？当某个事件(一般由用户操作来触发) 发生时，系统就会自动执行此事件的事件过程。
由事件控制整个程序的执行流程。
事件过程要经过事件的触发才能被执行，这种工作模式称为事件驱动方式。
第二章Visual basic 程序设计基础一、选择题二、填空题第三章数据输入输出一、选择题二、填空题3第四章选择结构和循环结构程序设计一、选择题二、填空题第五章数组一、选择题二、填空题第六章过程一、选择题二、填空题三、简答题1、简述事件过程和通用过程的含义和联系。
5VB应用程序是由过程组成的，过程是完成某种特殊功能的一组独立的程序代码。
VB中的过程有两大类：事件过程和通用过程事件过程是当发生某个事件时，对该事件作出响应的程序段。
事件过程由VB自行声明，用户不能增加或删除。
事件过程是VB 应用程序的主体。
VB课后习题答案---选择题
1、下面不是VB工作模式的是（C ）A．设计模式B．运行模式C．编模汇式D．中断模式2、可视化编程的最大优点是（C ）A．具有标准工具箱B．一个工程文件由若干个窗体文件组成C．不需要编写大量代码来描述图形对象D．所见即所得3、下列不能打开属性窗口的操作是（C ）A．执行“视图”菜单中的“属性窗口”命令B．按F4键C．按Ctrl+TD．单击工具栏上的“属性窗口”按钮4、下列可以打开立即窗口的操作是（D ）A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G5、Visual Basic的编程机制是（D ）A．可视化B．面向对象C．面向图形D．事件驱动1、以下能够触发文本框Change事件的操作是（D ）A．文本框失去焦点B．文本框获得焦点C．设置文本框的焦点D．改变文本框的内容2、应用程序设计完成后，应将程序保存，保存的过程是（D ）A．只保存窗体文件即可B．只保存工程文件即可C．先保存工程文件，之后保存窗体文件D．先保存窗体文件（或标准模块文件），之后还要保存工程文件3、VB应用程序的运行模式是（C）A．解释运行模式B．编译运行模式C．两者都有D．汇编模式4、任何控件都具有的属性是（C ）A．TEXT B．CAPTION C．NAME D．FORECOLOR5、决定控件上文字的字体、字形、大小及效果的属性是（D ）A．TEXT B．CAPTION C．NAME D．FONT6、在窗体上建立了多个控件，如TEXT、LABEL1、COMMAND1，若要使程序一运行焦点就定位在COMMAND1控件上，应将COMMAND1控件的（B ）设置为0 A．INDEX B．TABINDEX C．TABSTOP D．ENABLED7、运行时，当用户向文本框输入新的内容，或在程序代码中对文本框的TEXT属性进行赋值从而改变了文本框的TEXT属性值时，将触发文本框的（D）事件A．CLICK B．DBLCLICK C．GOTFOCUS D．CHANGE8、在运行时，按TAB键跳过了一个可以获得焦点的控件（如文本框），则可能是因为（D ）A．该控件的TABSTOP属性值为TRUE B．该控件的TABINDEX属性值为FALSE C．该控件的ENABLED属性值为TRUE D．该控件的ENABLED属性值为FALSE9、为了防止用户随意将光标置于控件上，应（D）A．将控件的TABINDEX属性设置为0B．将控件的TABSTOP属性设置为TRUEC．将控件的TABSTOP属性设置为FALSED．将控件的ENABLED属性设置为FALSE10、若要使标签控件显示时，不覆盖其背景内容，应设置标签控件的（D ）属性A．BACKCOLOR B．BORDERSTYLEC．FORECOLOR D．BACKSTYLE11、如果要在文本框中输入字符时，只显示某个字符，如星号（*），运行时，在文本框中输入的字符仍然显示出来，而不显示星号，原因可能是（B ）A．文本框的MULTILINE属性值为TRUEB．文本框的LOCKED属性值为TRUEC．文本框的MULTILINE属性值为FALSED．文本框的LOCKED属性为FALSE12、在运行阶段，要在文本框TEXT1获得焦点时选中文本框中所有内容，对应的事件过程是（A）A．Private Sub Text1_GotFocus( )Text1.SelStart=0Text1.Sellength=Len(Text1.Text)End SubB．Private Sub Text1_LostFocus( )Text1.SelStart=0Text1.Sellength=Len(Text1.Text)End SubC．Private Sub Text1_Change( )Text1.SelStart=0Text1.Sellength=Len(Text1.Text)End SubD．Private Sub Text1_SetFocus( )Text1.SelStart=0Text1.Sellength=Len(Text1.Text)End Sub13、Visual Basic继承了Basic语言简单易用的语法特点，同时支持面向对象的编程机制，其中构成其控件（对象）的三要素是（D）A．属性、事件、事件过程B．控件、窗体、事件C．属性、过程、方法D．属性、事件、方法14、决定标签（Label）显示的属性是（C ）A．Text B．Name C．Caption D．Alignment15、命令按钮的标题文字由（B ）属性来设置。
VB程序设计课后习题答案(科学出版社)(1)
同步练习1二、选择题01——05 CADAB06——10 ACDAB11——15 CBDBB同步练习2二、选择题01——05 ABDCA06——10 CACBC11——15 DADAD16——20 BDBBB三、填空题1．可视2．LEFT、TOP、WIDTH、HEIGHT3．按字母顺序4．查看代码5．工具、编辑器6．FORM窗体、FONT7．MULTILINE8．在运行时设计是无效的9．工程、工程属性、通用、FORM1.SHOW 10．TABINDEX、0同步练习3二、选择题01——05 BCADB06——10 ADBBC11——15 DBCBA16——20 BAABB三、填空题1．整型、长整型、单精度型、双精度型2．SIN(30*3.14/180)+SQR(X+EXP(3))/ABS(X-Y)-LOG(3*X) 3．164、今天是：3-194．FALSE5．-4、3、-3、3、-4、46．CDEF7．(X MOD 10)*10+X\108．(35\20)*20=20( 35 \ 20 )* 20 = 209．X MOD 3=0 OR X MOD 5=010．27.6、8.2、8、1、100、397、TRUE、FALSE同步练习4一、选择题01——05 DBCAD06——10 CBBAB11——15 D25BAC16——20 CBACB21——25 DAABC二、填空题1．正确性、有穷性、可行性、有0个或多个输入、有1个或多个输出2．1 2 33．X>=74．X<AMIN5．10246．117．128．6、I、”*”;9．0、100、I+110．2*I、6、”*”;三、编程题1．编程求n！，n从键盘输入。
Private Sub Form_Click()Dim n%, s%, i%n = Val(InputBox("请输入n的值："))s = 1For i = 1 To ns = s * iNext iPrint n; "!="; sEnd Sub2．编程求100以内的全部质数。
VB课本习题答案第三章
第3章程序流程控制3．1 填空题1．设变量r 表示圆的半径,则计算圆的面积并赋给变量s使用的赋值语句为（ s=3.14159＊r＊r )。
2．给命令按钮Command2的Caption属性赋予字符串“退出”使用的赋值语句为（ Command2.Caption=＂退出＂）.3．为了求n的阶乘，要求用户输入n的值。
程序使用InputBox函数输入，要求对话框提示信息为“请输入一个求阶乘的数:”,标题为“求数的阶乘”,并且正确地把输入的信息转换为数值存放到变量n中，则使用的赋值语句为（ n=val（InputBox(＂请输入一个求阶乘的数：＂，＂求数的阶乘＂））。
４．如果使用MsgBox对话框显示提示信息“退出本系统?”，并显示“是（Yes)"和“否（No）”两个按钮,显示图标“？"号，指定第一个按钮为默认值以及标题为“提示信息",则调用MsgBox 函数的形式为( MsgBox（＂退出本系统？＂,4+32+0，＂提示信息＂））.５．如果使用MsgBox对话框显示提示信息“文件未找到！”,并显示“确定”按钮、图标“！"号和标题“文件查找"，则使用的MsgBox语句为（ MsgBox＂文件未找到＂,0+48+0,＂文件查找＂）。
６．要在当前窗体Form和立即窗口输出字符串“Visual BASIC 6。
0”使用的Print方法分别是（ Print “Visual BASIC 6.0”）和（ Debug。
Print “Visual BASIC 6。
0” ).７．使用Print方法时,若用逗号分隔, 则按( 标准）格式输出各表达式的值，若用分号分隔，则按( 紧凑 )格式输出各表达式的值.８．注释语句是一个( 非执行）语句，VB不对它们进行编译，对程序的执行结果没有任何影响。
９．判别变量i是否为偶数，若为偶数就把它显示出来。
使用单行结构条件语句为（ If i Mod 2=0 Then print x ）。
VB教材习题_参考答案1-6章
Visual Basic程序设计教程（李杰主编清华大学出版社 2011.2）习题答案习题2参考答案2.2 单选题1、B2、C3、A4、D5、A6、B7、D8、C9、B 10、D2.3 填空题1、事件驱动2、Cancel3、Name4、Private Sub Form1_Click()5、运行程序6、代码窗口7、Text1.Text = "我是一个学生"8、LostFocus()事件9、Label1.Caption = "请输入用户名"Label1.ForeColor = vbGreen10、(Text1.Text)*22.4 事件练习题1、①该事件的对象是标签Label1，单击标签触发该事件。
②缺省Label1对象的代码是针对窗体，其余有Label1对象的代码是针对标签的。
③Label1.AutoSize = True语句使标签的大小自动随文字的多少而改变。
2、程序运行后，单击命令按钮，在Text1文本框显示"知音海外版"，在Text2文本框显示"计算机世界"。
3、单击“显示文本框”命令按钮触发的事件过程Private Sub Command1_Click()Text1.Visible = TrueText1.ForeColor = vbRedText1.Text = "VB程序设计"End Sub单击“隐藏文本框”命令按钮触发的事件过程Private Sub Command2_Click()Text1.Visible = FalseEnd Sub习题3参考答案3.2 单选题1 C2 C3 D4 B5 B6 B7 B8 C9 D3.3填空题1.REM(或‘) _ ：2 双引号（“”）#3 $ %4 UCASE()5.(log(1+d*d)-exp(2))^(5/2) [ 还有一种理解方式：(log(1+d*d)-e*e)^(5/2)]6. &O113 &H4B习题4参考答案4.2 单选题BDCBD4.3 填空题1.MsgBox("是否删除？ ", vbOkCancel + vbQuestion, "删除")2.The Length of 12345=53. 变量或表达式4. 15. loop4.4 程序设计题1.Private Sub Command1_Click()If Text1.Text = "asdf" ThenMsgBox "密码正确！"ElseMsgBox "密码错误", vbRetryCancel, "错误"End IfEnd Sub2. < 题目中的“连续产生n*n个字母”应该改为“连续产生n个字母”> Private Sub Command1_Click()Dim n%, y%, i%n = Val(Text1.Text)If n > 10 Or n<=0 ThenMsgBox "数据超界！"Text1.Text=””Text1.SetFocusElsey = Int((90 - 65 + 1) * Rnd) + 65For i = 1 To nPrint Chr(y + i)Next iEnd IfEnd Sub3．Private Sub Form_Click()Dim a!, b!, c!, x1!, x21, d!a = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)d = b * b - 4 * a * cIf d >= 0 Thenx1 = (-b + Sqr(d)) / (2 * a)X2 = (-b - Sqr(d)) / (2 * a)Print x1; X2ElsePrint "没有实根"End IfEnd Sub4.Private Sub Form_Click()Dim i%, j%, s%, n%,q%n = InputBox("enter n:")q = 0For i = 1 To ns = 0For j = 1 To is = s + jNext jq = q + sNext iPrint qEnd Sub5.Private Sub Form_Click()Dim i%, j%, n%, k%n = 0For i = 1 To 3For j = 1 To 3For k = 1 To 3Print i & j & k,n = n + 1If n Mod 5 = 0 Then PrintNext kNext jNext iPrintPrint "n="; nEnd Sub6.Private Sub Form_Click()Dim i%, j%, n%, k%For i = 1 To 9For j = 0 To 9For k = 0 To 9n = i * 100 + j * 10 + kIf n = i ^ 3 + j ^ 3 + k ^ 3 Then Print n,Next kNext jNext iEnd Sub习题5参考答案5.2 单选题1 A2 B3 C4 C5 D6 D7 A8 C9 D 10 A 11 A 12 B 5.3 填空题1．False2．Caption3．0 ListCount-14．Print List1.List(3)5．Combo1.ReMoveItem 36．LargeChange7．Timer8．5009．Shape10．Borderstyle5.4 程序设计题1．Dim op1, op2, result As SingleDim operator As IntegerPrivate Sub Command1_Click(Index As Integer)If Index >= 0 And Index <= 10 ThenIf txt1.Text = "" Thentxt1.Text = CStr(Index + 1)Elsetxt1.Text = txt1.Text + CStr(Index + 1) End IfEnd IfIf Index >= 12 And Index <= 15 Thenop1 = CDbl(txt1.Text)operator = Indextxt1.Text = ""End IfIf Index = 11 Thenop2 = CDbl(txt1.Text)Select Case operatorCase 12result = op1 + op2Case 13result = op1 - op2Case 14result = op1 * op2Case 15result = op1 / op2End Selecttxt1.Text = CStr(result)End IfEnd SubPrivate Sub Command2_Click()op1 = 0op2 = 0result = 0txt1.Text = ""End SubPrivate Sub Command3_Click()EndEnd Sub2．Private Sub chkBold_Click()If chkBold.Value = vbChecked ThenTxt1.FontBold = TrueElseTxt1.FontBold = FalseEnd IfEnd SubPrivate Sub chkUnderline_Click()If chkUnderline.Value = vbChecked Then Txt1.FontUnderline = TrueElseTxt1.FontUnderline = FalseEnd IfEnd SubPrivate Sub Opt18_Click()Txt1.FontSize = 18End SubPrivate Sub Opt22_Click()Txt1.FontSize = 22End Sub3．Private Sub Form_Load()List1.AddItem "上海"List1.AddItem "北京"List1.AddItem "天津"List1.AddItem "广东"List1.AddItem "辽宁"List1.AddItem "陕西"List1.AddItem "河南"List1.AddItem "深圳"List1.AddItem "四川"List1.AddItem "重庆"End SubPrivate Sub List1_DblClick()For i = 0 To 9If List1.ListIndex = i ThenList2.AddItem List1.List(i)List1.RemoveItem iEnd IfNext iEnd Sub4．Private Sub Command1_Click（）Timer1.Enabled=TrueTimer1.Tag=Text1.Text*60Frame1.Caption=“现在开始倒计时”End SubPrivate Sub Timer1_ Timer（）Timer1.Tag=Timer1.Tag-1If m<0 ThenTimer1.Enabler=FalseMsgBox“预定的时间到了！”，0，“倒计时”Frame1.Caption=“请输入计时的分钟数：”Text1.Text=0Exit SubEnd Ifn1=Format（m Mod 60,“00”）n2=Format（m \ 60）Mod 60,“00：”）n3=Format（m \ 3600）,“00：”）Text1.Text=n3&n2&n1End Sub习题6参考答案6.1单选题1.C2.C3.B4.B5.B6.D7.B8.B9.A 10.A6.2 填空题1.Option Base 12.变体类型3.preserve (注意：教材上面写成perserve, 教材错误)4.Variant变体类型5.96.相同，索引号7.1）.通过复制粘贴的方式创建控件数组2）.在设计时候添加多个同类型的类型控件，然后通过“属性”窗口将这些控件的名称改为相同，并把Index属性设为不同的下标值。
vb大一选择程序结构习题答案答案
4.2习题一、选择题1. 以下不正确的单行结构条件语句是（ D）。
（A）If x>y Then Print ＂x>y＂（B）If x Then t=t*x（C）If x Mod 3=2 Then Print x（D）If x<0 Then y=2*x-1: Print x End If2. 给定程序段Dim a As Integer, b As Integer, c As Integera=1：b=2：c=3If a=c-b Then Print ＂#####＂ Else Print ＂*****＂以上程序（ C ）。
（A）没有输出（B）有语法错（C）输出#####（D）输出***** 3. 运行下面程序后，在弹出的消息窗口中显示的是（ D）。
Private Sub Form_Click()score=Int(Rnd)+5Select Case scoreCase 5a$="Good"Case 4a$="Ok"Case 3a$="Pass"Case Elsea$="Bad"End SelectMsgBox a$End SubA、BadB、PassC、OkD、Good4. 下面语句书写正确的是（D）。
(A) If a>max Then max=a Else max=b End If(B) If a>max Then max=aElse max=bEnd If(C) If a>max Thenmax=aElsemax=6( D) If a>max Thenmax=aElsemax=6End If5. 执行下列程序段输出的结果为（ C ）。
a=3IF a>0 ThenPrint ＂###＂ElsePrint ＂$$$＂End IfA) ###$$$B) $$$###C) ###D) $$$6. 下面程序段运行后,显示的结果是( B )dim xif x then print x else print x+1(A) 1 (B) 0 (C) -1 (D) 显示出错信息7: 语句IF x=1 THEN y=1, 下列说法正确的是( C )(A) X=1和Y=1均为赋值语句 (B) X=1和Y=1均为关系表达式(C) X=1为关系表达式,Y=1为赋值语句 (D) X=1为赋值语句,Y=1为关系表达式8. 用IF 语句表示分段函数，⎩⎨⎧<+≥+=1311)(2x x x x x f 下列程序段不正确的是( A )(A) If x>=1 then f=sqr(x+1) (B) If x>=1 then f=sqr(x+1)F=x*x+3 if x<1 then f=x*x+3(C) F=x*x+3 (D) f=sqr(x+1)If x>=1 then f=sqr(x+1) If x<1 then f=x*x+39. 下面IF 语句统计满足性别（sex ）为男，职称（duty ）为副教授以上，年龄（age ）小于40岁条件的人数，不正确的语句是( D )(A) If sex=”男” and age<40 and instr(duty,”教授”)>0 then n=n+1(B) If sex=“男” and age<40 and (duty=“教授” or duty=“副教授”) then n=n+1(C) If sex=“男” and age<40 and right(duty,2)=“教授” then n=n+1(D) If sex=“男” and age<40 and duty=“教授” and duty=“副教授” then n=n+110. 下面程序段求两个数中的大数，( D )不正确。
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课后练习答案习题解答(4)
第4章常用控件4．1 填空题1．在图片框上放置的控件称为图片框的（）对象，而窗体是图片框的（）对象。
答案：子对象、父对象2．窗体的“名称”（Name）属性只能在（）设置。
答案：属性窗口中3．在程序中设置窗体Forml的Caption属性为“主窗体”，使用的赋值语句是（）。
答案：Forml.Caption=“主窗体”4．当窗体的Enabled属性为（）时，指定窗体响应事件。
答案：True5．窗体的Unload事件是在QueryUnload事件发生之（）发生。
答案：之后6．程序中，把当前窗体移动到屏幕左上角使用的方法为（）。
答案：Move 0,07．在窗体Form1中坐标为（1600，800）的位置上输出字符串“Visual BASIC 6.0”使用的语句为（）、（）、和（）。
答案：Form1.Currrentx=1600、Form1.Currenty=800、Form1.Print “Visual BASIC 6.0”8．若使文本框有边框，需设置BorderStyle属性的值为（）。
答案：19．在程序运行期间，用户可以用文本框显示信息。
文本框接受输入的内容的属性是（）。
答案：Text10．若使文本框内能够接受多行文本，则要设置Multiline属性的值为（）。
答案：True11．要把图形文件“c:\sample\diannt.jpg”装载到图片框Picture1上，使用的语句为（）。
答案：Picture1. Picture=LoadPicture(“c:\sample\diannt.jpg”)12．若使图片框自动调整大小以适应装入的图形，则要设置Autosize属性的值为（）。
答案：True13．除了在程序使用LoadPicture函数装载图形外，还可以在设计阶段通过修改（）属性装载图形。
答案：Picture14．若程序中要把一些文本内容输出到图片框PictureBox，应使用（）方法。
答案：Print15．当单选按钮OptionButton的Value属性为（）时，表示该单选按钮处于未选中状态。
vb课后习题参考答案
vb课后习题参考答案第一章习题参考答案一、填空题1、对象事件驱动2、编译运行模式解释运行模式二、简答题1、简述VB的特点。
答：①可视化的程序设计方法②面向对象的程序设计思想③事件驱动的编程机制④结构化的程序设计语言⑤高度的可扩充性⑥强大的数据库访问能力⑦支持动态数据交换⑧支持对象链接与嵌入2、简述VB的安装过程。
答：①向光驱中放入VB安装光盘；②计算机将运行自动安装程序，若没有，执行VB目录下的Setup.exe；③根据提示逐一回答问题，并点击“下一步”；④点击“完成”；2、如何启动VB。
答：三种方法：①单击“开始”按钮，选择“程序”菜单下的“Microsoft Visual Basic 6.0 中文版”菜单项并单击；②双击桌面上的VB6.0快捷图标；③在“开始”菜单的运行对话框中输入命令来启动VB；第二章习题参考答案一、选择题：1-10、DCACD BCBBC11-20、BADCA BBAAB21-29、AACBB CDDC二、填空题1．窗体、控件2．属性值3．属性窗口设置、代码窗口设置4．事件过程5．对象名、下划线、事件名6．Form_Click第三章习题参考答案一、选择题1、B2、C3、A4、B5、A6、C7、C二、填空题1、11字符型、字节型、整型、长整型、单精度型、双精度型、货币型、逻辑型、日期型、对象型、变体型。
String、Byte、Integer、Long、Single、Double、Currency、Boolean、Date、Object、Variant2、双引号(英文)、#3、ASCII、1、25、&、+、+6、Now()、Time、日期型三、解答题1、(3)2、(1 )3、（1）常量（关键字）（2）字符型常量（3）逻辑型常量（4）变量（5）字符串常量（6）变量（7）字符串常量（8）变量（9）日期型常量（题目应是#11/16/1999#）（10）数值型常量（单精度）4、315、（1）(1+y/x)/(1-y/x) （2）x^3+3*x*y/(2-y)（3）sqr(abs(a*b-c^3)) （4）sqr(s*(s-a)*(s-b)*(s-c))6、7、（1）13 （2）17（3）#1999-11-12# （4）zxy123ABC8、（1）19 （2）8.16666666666667（3）5．25 （4）29、（1）-4 （2）2 . 82842712474619 （3）-3 （4）49 （5）”hello” （6）He7）16 （8）“-459.65” （9）510、（4）11、（2）12、（4）第四章习题参考答案一、选择题：1—7: DAABBCD二、填空题1．500.00%2．将字号扩大为原来的二倍3． B三、编程题（略）1．文本框、标签和命令按钮的名称分别为text1、label1、command1Private Sub Command1_Click()Label1.caption=text1.textCommand1.caption=text1.textEnd Sub2．单价、数量、折扣和应付款对应的文本框的名称分别为：text1、text2、text3和text4，计算和清除命令按钮的名称分别为：command1和command2。
vb课后练习答案习题解答（2）
vb课后练习答案习题解答（2）第2章基本数据类型与表达式2．1 填空题1．程序设计语言中（）是语言的最基本符号，（）是具有语法意义的最小语法单位。
答案：字符、单词2．（）用于标记用户自定义的常量、类型、变量、控件、过程、函数等名字。
答案：标识符3．整型数据占（）字节的内存空间。
长整型数据占（）个字节的内存空间。
单精度浮点型数据占（）个字节的内存空间。
双精度浮点型数据占（）个字节的内存空间。
日期型数据占（）个字节的内存空间。
答案：2、4、4、8、84．100% 表示100为（）型数据；100！表示100为（）型数据；100＠表示100为( )型数据.答案：整、单精度浮点、货币5．符号常量在某一过程中说明，则该符号常量只能在（）内有效。
答案：该过程内6．若一个整型变量说明了之后没有给它赋值，则它的值为（）。
答案：07．在VB中可以把类型说明符放在变量名的（）来说明变量的类型。
答案：末尾8．为了使VB的编译程序自动检查变量声明，遇到未经说明的标识符发出错误警告信息，在程序中要加上（）语句。
答案：Option Explicit9．对含有多种运算的表达式，各种运算之间的顺序为（）→（）→（）→（）。
答案：函数运算、算术运算、关系运算、逻辑运算10．把1234.567的小数部份四舍五入转换为整数，可使用函数（）。
答案：Cint(1234.567)11．将x四舍五入到百位（例如，若x=23874.52应舍入成23900），可使用表达式（）。
答案：Int(x / 100 + 0.5) * 10012．将x从十位截断（例如，x=23874.52应截成23800）可使用表达式（）。
答案：Fix(x / 100) * 100或者Int(x/100)*100或者Cint(x\100-0.5)*10013．设X为数值变量，求X的常用对数可使用的表达式是（）。
答案：Log(X)/Log(10)14．要从字符串“Visual BASIC 6.0”中截取子字符串“BASIC”可使用函数（）。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
习题1一.单项选择题（要求在四个备选答案中选出一个正确答案）1．Visual Basic是一种（ D ）的可视化程序设计语言。
A．面向机器 B．面向过程 C．面向问题 D．面向对象2.在VB中，下面被称为对象的是（ C ）A. 窗体B.控件C. 窗体和控件D. 窗体、控件、属性3．以下说法正确的是（ A ）A.对象的可见性可设为1或0B.标题的属性值可设为任何文本C.如果属性的值不设置，默认为空D.属性窗口中属性只能按字母顺序排列4．为了在属性窗口中设置窗体的属性，预先要执行的操作是（ A ）。
A．单击窗体上没有控件对象的地方 B．单击任一个控件对象C．双击任一个控件对象 D．双击窗体上没有控件对象的地方5．要设置窗体上各控件的属性，可在（ C ）中进行。
A．窗体布局窗口 B．工程资源管理器窗口C．属性窗口 D．窗体窗口6．在代码窗口中，当从对象框中选定了某一对象后，在（ A ）中会列出适用该对象的事件。
A．过程框 B．属性窗口 C．工具箱 D．工具栏7．创建一个简单的应用程序，该程序只有一个窗体，则该工程至少有（ B ）个文件需要保存。
A．1 B．2 C．3 D．48．程序运行中用鼠标双击当前窗体时，会触发窗体的（ C ）事件。
A．Load B．Unload C．DblClick D．KeyPress9．在Visual Basic 6.0集成开发环境中，可以（ D ）。
A．编辑、调试、运行程序，但不能生成可执行程序B．编辑、运行程序，生成可执行程序，但不能调试程序C．编辑、调试程序，生成可执行程序，但不能运行程序D．编辑、调试、运行程序，并能生成可执行程序10．以下叙述正确的是（ C ）。
A．用属性窗口只能设置窗体的属性B．用属性窗口只能设置工具箱中标准控件的属性C．用属性窗口可以设置窗体和控件的属性D．用属性窗口可以设置任何对象的属性11.在VB程序运行期间，若改变窗体大小，则自动触发的窗体事件是（ B ）A. ClickB. ResizeC. LoadD. Unload12.以下为窗体文件扩展名的是（ C ）A. .basB. .clsC. .frmD. .ers13.能确定控件尺寸的是（ A ）A.Width和HeightB.Top和LeftC. Width或HeightD.Top或Left二. 多项选择题（要求在五个备选答案中选出多个正确答案）1．下列论述中，正确的是（ ACDE ）。
A．Visual Basic用于开发Windows环境下的应用程序B．Visual Basic只能采用解释方式执行程序C．Visual Basic中的窗体是对象D．事件就是在对象上所发生的事情，Visual Basic中的事件有Click，DblClick 等E．一个对象可以响应的事件可以有多个，用户不能建立新的事件2．在设计阶段，从窗体窗口切换到代码窗口，可以采用的操作是（ BCDE ）。
A．单击窗体B．双击窗体C．单击工程资源管理器窗口中的“查看代码”按钮D．单击代码窗口中任何可见部位E．选择“视图”菜单中的“代码窗口”命令3. 能使窗体Form1不可见的语句有（ ACE ）A. Form1.Height = 0B. Form1. Width = 0C. Form1. Visible = 0D. Form1.BorderStyle = 0E. Form1.Hide4.确定一个窗体或控件大小及位置的属性是（ ABCD ）A．Width B． Height C．Top D．Left E．Enable三. 填空题1． Visual Basic采用事件驱动编程机制。
2．Visual Basic提供两种运行程序的方式，一种是解释方式，另一种是编译方式。
3．对象的三要素是属性、方法和事件。
4．如果要在单击窗体时执行一段代码，则应将这段代码写在窗体的 Click 事件过程中。
5．在设计阶段，当双击窗体上某个控件时，所打开的是代码窗口。
习题2参考答案一．单选题（要求在四个备选答案中选择一个正确答案）1．下列①各项中，只有（D）才是常量；②各项中，（D）不是常量。
① A. E-3 B. E+03 C. 10^3 D. 1.E03② A. 1E-3 B. 13 C. "abc" D. Xl*32. 下列①各项中，可以作为变量名的是（A ）；②各项中，（ C）不能作为变量名。
① A. a1_0 B. Dim C. K6/600 D. CD[1]② A. ABCabc B. A12345 C. 18AB D. Namel3. 空字符串是指（A ）。
A. 长度为0的字符串B. 只包含空格字符的字符串C. 长度为1的字符串D. 不定长的字符串4. 使用变量x存放数据12345678.987654，应该将x声明为（B ）类型。
A. 单精度(Single)B. 双精度(Double)C. 长整型(Long)D. 货币型(Currency)5. 表达式3^2*12-4^(2/4)的值为（B ）。
A. 104B. 106C. 108D. 出错6. 函数表达式String(2, "ChongQing")的返回值是（C ）A．CQ B．ChongQing C．CC D．ChongQingChongQing7. 表达式Int(-20.9) + Int(20.9 + 0.5) - Fix(-17.9)的值为（C ）A. -17B. 16C. 17D. 188.设a=3,b=2,c=-3,则表达式Abs(b + c) + a * Int(Rnd + 3) + Asc(Chr(65 + a))的值是（D）。
A.10B.68C.69D.789. 设m="morning"，取值为"mor"的表达式是（B）。
A. Mid(m,5,3)B. Left(m,3)C. Right(m,4,3)D. Mid(m,3,1)10. 表达式Sin(a + b) ^ 6所表示的代数式是（ B）。
A.sin(a+b)6B.sin6(a+b)C.sin6(a+b)D.6sin(a+b)11. 如果x是一个正实数，对x的第3位小数四舍五入的表达式是（A）。
A. 0.01 * Int(100 * x + 0.5)B. 0.01 * Int(10 * x + 0.5)C. 0.01 * Int(x + 0.5)D. 0.01 * Int(x + 5)12. 能够从字符串A="Visual Basic" 中取出子串"Basic"的函数表达式是（B）A.Left(A,5)B.Right(A,5)C. Mid(A,7,5)D. Instr(A,"Basic")13．设A="12345678"，则表达式Val(Left(A,4)+Mid(A,4,2))的值是（B ）。
A．123456 B．123445 C．8 D．614．要使Int(x+2)=16成立，x应取（A）。
A．14≤x<15 B．14<x≤15 C．14<x<15 D．14≤x≤1515．在下列函数中，（B）函数的执行结果与其他三个不一样。
A．String(3,"5") B．Str(555)C．Right("5555",3) D．Left("55555",3)16．设A=-2，则（A ）函数的执行结果与其他三个不一样。
A．Val("A") B．Int(A) C．Fix(A) D．-Abs(A)17．要在窗体Forml的标题栏上显示"统计程序"，可用的语句是（B ）。
A．="统计程序" B．Form1.Caption="统计程序"C. Form1.Caption=统计程序 D．=统计程序18．函数String(n, "str")的功能是（B）。
A．把数值型数据转换为字符串B．返回由n个字符组成的字符串C．从字符串中取出n个字符D．从字符串中第n个字符的位置开始取子字符串19．设x=1，以下函数返回值最大的是（B）A.Sin(x)B.Exp(x)C.Sqr(x)D.Log(x)20. 将代数式cos2（c+d）写成VB表达式的正确形式是（B）A．Cos^2(c+d) B．Cos(c+d)^2 C．Cos((c+d) ^2) D．Cos(c^2+d^2)21. 函数表达式Val("16 Hour")的值为（B）A．1 B．16 C．160 D．96022.在VB中，可以使用未经声明的变量，在未赋值前，该变量的数据类型为（ D）A．Integer B．Long C．String D．Variant23．在VB中，对于没有赋值的数值变量，系统默认的值是（ A）A．0 B．1 C．”0” D．-124．在VB中，对于没有赋值的字符串变量，系统默认的值是（B ）A．0 B．“” (长度为0) C．”0” D．“” (空格,长度为1)25. 下列表达式中数值最大的是（ A ）A. 10 / 3B. 10 \ 3C. Int (10/3)D. Fix (10/3)26. 要声明一个长度为64个字符的定长字符串变量String1，以下正确的语句是（D）A. Dim String1 As StringB. Dim String1 As String(64)C. Dim String1 As String[64]D. Dim String1 As String*64二. 多项选择题（要求在五个备选答案中选择多个正确答案）1．能够产生一个三位随机正整数的函数表达式是（AB）A．Int(Rnd * 900 + 100) B．Int(Rnd * 900) + 100 C．Int(Rnd * 1000) D．Int(Rnd * 1100 - 100) E．Int(Rnd * 1100) – 1002．能产生一个大于等于1且小于等于10的随机整数的表达式有（AD ）A． Int(Rnd * 10 + 1) B. Int ((10-1)*Rnd) C. 1+Int ((10-1)*Rnd+1)D. 1+Int (10*Rnd)E. Int ((10+1)*Rnd+1)3．下列表达式中具有相同结果的是（AD）A. 19 Mod 5B. 19 / 5C. 19 \ 5D.Round(19 / 5)E. Sqr(19 \5)4．在下列标识符中，可以作为合法变量名的有（CDE）A. Michael JordanB. Su-30C. BeckhamD.class_01E. B525．以下函数表达式中，返回值为数值类型的有（ABCDE ）A. Year(Now)B. Month(Now)C. Day(Now)D. Weekday(Now)E. Hour(Now)6．已知字符串变量S1的值为一个小写字母，以下表达式能将小写字母变成大写字母的有（ABD）A. Chr(Asc(S1) + Asc("A") - Asc("a"))B. Chr(Asc(S1) – 32)C.LCase(S1)D. UCase(S1)E. Val(S1)7．已知字符串变量 A= "computer data transmit"，能得到子字符串“data”的表达式有（ACDE ）A. Mid(A, 10, 4)B. Mid(Left(A, 13), 4)C.Left(Mid(A, 10), 4)D. Left(Right(A, 13), 4)E. Right(Left(A, 13), 4)8．下列函数表达式中，返回值相等的是（BC）A ．Abs (15.6256)B ．Fix (15.625)C ．Int (15.625)D ．Round (15.625)E ．Sqr (15.625)9．已知a>b ，c>d ，下列表达式中值为0的有（ AC ）A ．Sgn(b-a)+Sgn(c-d)B ．Sgn(a-b)-Sgn(d-c)C ．Sgn(b-a)-Sgn(d-c)D ．Sgn(a-b)+Sgn(c-d)E ．Sgn(b-a)+Sgn(d-c) 10．设变量 x 的值是一个小数，下列函数表达式能将其四舍五入处理的是（BDE ） A ．Int(x) B ．Int(x + 0.5) C ．Fix(x) D ．Fix(x + 0.5)E ． Round(x) 11．下列VB 函数表达式中，返回值为数值型数据的有（ADE ）A.Len(“BASIC”)B.Str(-26.3)C.Left(“1234”,2)D.Va l(“16 Year”)E.Val(Mid(“34565”,2,2) 12．为了求一个正整数n 除以8所得的余数，可以采用的表达式是（ AD ）A ．n Mod 8B ．n - Int(n / 8)C ．n \ 8D ．n - Int(n ／ 8) *8E ．n - Iht(n \ 8) 13．能从字符串 A = "THIS IS BOOK" 中得到子字符串 "IS" 的函数有（ABDE ） A. Right (Left (A,7) ,2) B. Mid (A,6,2) C. Mid (A,6)D. Left(Right (A,7),2)E. Mid(Left (A,7),6)14．从字符串变量S 中取出最后(右边)2个字符，可以采用的函数是（BD ）A ．Instr(1,S,2)B ．Mid(S,Len(S)-1)C ．Mid(S,2,2)D ．Right(S,2)E ．Right(S,Len(S)-2)15．已知A=Space(1)，要产生3个空格，可以采用的函数是（ CD ）A ．Right(A,3)B ．Space(3 * A)C ．String(3,A)D ．A & A & AE ．3 * A三. 填空题1．把下列数学式写成等价的Visual Basic 表达式。