VB教材章习题答案2011
(完整版)VB习题册答案()最终版
第一章二、1。
文件/退出2.Alt+Q3.文件/打开工程/打开工程4.vbp/frm5。
Esc第二章二、1。
对象框、属性显示方式、属性列表和属性解释2。
Text1。
text=”Hellor!”3.标准控件/ActiveX控件/可插入对象4。
Top和Left，Width和Height5。
用鼠标单击属性窗口的任何部分；执行“视图”菜单中的“属性窗口”命令；按F4键；单击工具栏上的“属性窗口”按钮;按组合键Ctrl+PgDn或Ctrl+PgUp6.Ctrl/Shift第三章二、1．答案：、ABCD，VB Programming2．答案：建立界面，设置属性、编写代码3．答案：属性窗口,运行4．答案:对象,过程5．答案:工具、选项、选项、自动语法检查6．答案：Frm，Vbp7．答案:工程8．答案：窗体模块，标准模块和类模块第四章二、1．答案：CONTT。
DE+COS（28＊3.14/180）2．答案：—3/8 +8＊INT（24。
8）3．答案：(8+6）^（4/-2)+SIN（2＊3。
14）4．答案:((x+y)+z)*80—5＊(C+D）5.答案： A6.答案:17.答案：Good Morning 、 Good Morning8.答案: ABCD 、 HIJK 。
9.答案：CDEF、1110.答案：0、abcdefghijk11.答案：25、8、2001、7、6第五章二、1．答案：Label2.Caption,Text1.Text，Text2。
Text=y2．答案：MsgBox “输入的密码为”＆Text2.Text , vbOKOnly， "登录”3．答案：25+32=574．答案：Country ＆“ “ ＆City &” “ ＆ CStr（Year(Date)）5．答案 Year(Date） &“年“ & Month(Date） &“月" & Day（Date） _ &“日，星期“＆ WeekDay （Date，vbMonday)第六章二、1．答案：AutoSize2．答案：ScrollBar MultiLine True3．答案：Text1.SetFocus4．答案：0 05．答案:Picture1.Picture=LoadPicture(“pic2.gif”）6．答案：True7．答案：Picture8．答案：Interval9．答案：Enabled10．答案：下拉组合框，简单组合框，下拉列表框 Style 0 1 2 11．答案:下拉列表框12．答案：ItemA和ItemC13．答案：VB14．答案：VB程序设计 VB Programming第七章二、1． __21 38 54__2． sum=14 sum=14 sum=10。
学生复习题VB-2011
第一章1)与传统的程序设计语言相比，Visual Basic最突出的特点是事件驱动编程机制2)Visual Basic 6.0集成环境的主窗口中含有标题栏、菜单栏、工具栏3)关于Visual Basic"方法"的概念错误的是:方法是对事件的响应4)在Visual Basic中，称对象的数据为属性5)设置控件的Visible属性是使控件是否可见，设置控件的Enabled属性是使控件是否有效6)ListBox、ComboBox、TextBox控件包含滚动条，Label控件不包含滚动条7）对象事件的名称只能由系统指定8）在设计状态，当双击窗体上的某个控件时，所打开的窗口是代码窗口9）如果要改变窗体的标题，则需要设置的属性是Caption;标签框所显示的内容，由Caption属性值决定10) 在V isual Basic中，窗体文件的扩展名为FRM11) 窗体的Name属性指定窗体的名称，用来标识一个窗体12) 对象的基本特征的是属性、事件、方法13）在Visual Basic中，称对象的数据为属性14）能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是Form1.Caption="VisualBasic窗体" 15）任何控件都有的属性是Name16) 在调用方法时，对象名是可以缺少的（如form1.print可以省略form1）17）能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是Form1.Caption="VisualBasic窗体" 18）在KeyPress事件过程中，KeyAscii是所按键的ASCII码值，KeyPress事件中可以识别键盘上某个键的按下和释放19) 确定一个控件在窗体上左右位置的属性是Left，上下位置的属性是Top20）Visual Basic 窗体设计器的主要功能是建立用户界面。
VB第1章习题与答案
第1章习题与答案一、选择题1. 在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体窗口、属性窗口外，必不可少的窗口是:（A）窗体布局窗口（B）立即窗口（C）代码窗口（D）监视窗口2. 保存新建的工程时，默认的路径是:（A）My Documents （B）VB98 （C）\ （D）Windows3. 将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件转到其他机器上不能运行的主要原因是:（A）运行的机器上无VB系统所需的动态连接库（B）缺少.frm窗体文件（C）该可执行文件有病毒（D）以上原因都不对4.当需要上下文帮助时，选择要帮助的“难题”，希望出现MSDN窗口及显示所需“难题”的帮助信息。
应按的键的（A）Help （B）F10 （C）Esc （D）F15.Visual Basic中提供的On Error Resume Next错误陷阱语句的功能是:（A）当发生错误时，使程序跳转到语句标号为0的程序块（B）当发生错误时，不使用错误处理程序块（C）当发生错误时，忽略错误行，继续执行下一语句（D）当发生错误时，终止本过程程序执行，继续执行下一过程6.在VB环境中，工程文件的扩展名是:（A）.frm （B）.bas （C）.vbp （D）.frx7.将一个VB程序保存在磁盘上，至少会产生的文件是:（A）.doc、.txt （B）aaa、.exe （C）.vbp、.frm （D）.bat、.sys8.下面关于对象的描述中，错误的是:（A）对象就是自定义结构变量（B）对象代表正在创建的系统中的一个实体（C）对象是一个状态和操作（或方法）的封装体（D）对象之间的信息传递是通过消息进行的9.下面4项中不属于面向对象系统三要素的是(A)变量（B）事件（C）属性（D）方法10.下面各种高级语言中，不是面向对象程序设计语言的是（A）Visual Basic （B）C++ （C）Pascal （D）Java二、填空题1．当进入VB集成环境后，发现没有显示“工具箱”窗口，应选择【1】菜单的【2】选项，使“工具箱”窗口显示。
《Visual Basic程序设计教程》习题参考答案
第1章习题一、选择题1. B2. A3. B4. A二、填空题1. 事件驱动或消息驱动2. 工程资源管理器、窗体三、问答题1. 11个菜单项。
文件菜单包括新建工程、打开工程、添加工程、移除工程、保存工程、工程另存为、保存窗体文件、窗体文件另存为、打印、打印设置、生成可执行文件等命令项；编辑菜单（命令项略，以下同）、视图菜单、工程菜单、格式菜单、调试菜单、运行菜单、查询菜单、图表菜单、工具菜单、外接程序菜单、窗口菜单、帮助菜单。
2. 可以自行定义。
标准工具栏中有添加工程、添加窗体、菜单编辑器、打开工程、保存工程、剪切、复制、粘贴、查找、撤销、恢复、启动、中断、结束、工程资源管理器、属性窗口、窗体布局窗口、对象浏览器、工具箱、数据视图窗口等按钮。
四、编程题（略）第2章习题一、选择题1. A二、练习题1. S1. 把x赋值给同类型变量t；S2. 把y赋值给x；S3. 把t赋值给y。
2. S1. 输入a、b、c；S2. 如果a<b，则交换a与b的数据；S3. 如果a<c，则交换a与c的数据；S4. 如果b<c，则交换b与c的数据；S5. 输出a、b、c。
3. S1. 输入整数N；S2. 给整数K赋值2；S3. 如果K大于N-1，则转S6；S4.如果N除以K 的余数为0，则转S7；S5. K加1再赋值给K，转S3.；S6. 如果K大于N-1，则N为素数；否则N不是素数。
4. S1. 输入整数N；S2. 将N赋值给K；S3. 给整数nx赋值0；S4. 计算nx乘以10加K除以10的余数，再赋值给nx；S5. 计算K除以10的整数商，赋值给K；S6. 如果K>0，则转S4；否则，转S7；S7. 如果N=nx，则N为回文数，否则N不是回文数。
5.6.第3章习题一、选择题1. D2. C3. A4. B5. D6. A7. B8. D9. B 10. D 11. A . 12. C 13. C 14. C二、填空题1. 标题、引用2. ②④⑤3. 64. GotFocus、Resize5. AddItem、Clear6. Label，CommandButton，OptionButton，CheckBox，Frame、TextBox，ListBox，ComboBox7. PictureBox，Frame8. OptionButton，CheckBox，HScrollBar，VScrollBar、OptionButton、CheckBox，HScrollBar，VScrollBar三、问答题1. 答：对象的只读属性的属性值（如名称属性）只能在设计界面时在属性窗口进行设置；非运行属性的属性值则既可在设计界面时在属性窗口进行设置，也可通过程序代码进行设置与修改。
VB第2版习题与解答
If a < b Then sMin = a Else sMin = b
If c < sMin Then sMin = c
Label1.Caption = "最大数为：" & sMax & "，最小数为：" & sMin
4. 编制程序，通过文本框输入年份和月份，显示该月的天数。注意判断年份是否为闰年：年号能被4整除，但不能被100整除，或者年号能被400整除的年份为闰年。
⑽Month(#5/4/2007#)
⑾Year(#05-08-07#)
解答：
⑴12；⑵"765"；⑶"6982"；⑷"GGG"；⑸5；⑹"L"；⑺15；⑻"3721efda"；⑼"23.45678"；⑽5；⑾2007
5．对于没有赋初值的变量，系统默认的值是什么？
解答：
对于没有赋初值的变量，数值型变量默认值为0；变长字符串型变量默认值为零长度的字符串("")；定长字符串型变量中的每个字符均被填充为ASCII码值为0的字符(即Chr(0)，等价于vbNullChar)；逻辑型变量默认值为False；变体型变量默认值为Empty；对象型变量默认值为Nothing。
解答：
在窗体上放置两个文本框、三个标签和一个命令按钮，均采用默认名称。标签Label1和Label2的标题分别为【年份：】和【月份：】，Label3标题为空。按钮标题为【显示】，为其单击事件编写如下代码：
Dim y As Integer, m As Integer, d As Integer, blnY As Boolean
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 。
visual_Basic程序设计教程_课后习题答案及练习
《VB程序设计》综合复习资料第一章Visual Basic程序设计概述一、填空题1、Visual Basic是一种面向__________的可视化程序设计语言，采取了__________的编程机制。
2、在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名是____________。
3、执行“工程”菜单下的__________命令，可选择并添加ActiveX控件。
4、Visual Basic 6.0用于开发__________环境下的应用程序。
二、选择题1、下面不是VB工作模式的是（）A．设计模式B．运行模式C．汇编模式D．中断模式2、可视化编程的最大优点是（）A．具有标准工具箱B．一个工程文件由若干个窗体文件组成C．不需要编写大量代码来描述图形对象D．所见即所得3、下列不能打开属性窗口的操作是（）A．执行“视图”菜单中的“属性窗口”命令B．按F4键C．按Ctrl+TD．单击工具栏上的“属性窗口”按钮4、下列可以打开立即窗口的操作是（）A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G5、Visual Basic的编程机制是（）A．可视化B．面向对象C．面向图形D．事件驱动三、简答题1、代码窗口主要包括哪几部分？2、在工程资源管理器窗口中，主要列出了哪三类文件？3、窗体布局窗口的主要用途是什么？4、VB的基本特点是什么？5、怎样理解可视化设计？6、怎要理解事件驱动编程？第二章简单的VB程序设计一、填空题1、设置是否可以用Tab键来选取命令按钮，应该用______________属性。
2、一个控件在窗体的位置由_______和________属性决定，其大小由__________和_________属性决定。
3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和____________属性为true，才能接受焦点。
VB程序设计教程(第四版)龚沛曾习题答案
VB程序设计教程（第四版）龚沛曾课后习题答案目录：第1章Visual Basic程序设计入门第2章面向对象的可视化编程基础第3章VB程序设计基础第4章基本控制结构第5章数组第6章过程第7章用户界面设计第8章数据文件第9章图形操作第10章ADO数据库编程基础第3章1、合法的有：（1）单精度（3）单精度（4）双精度（6）整形（7）字符型（9）日期型（10）双精度（12）八进制表示（14）十六进制表示（15）逻辑型（18）单精度数2、合法变量有：（1），（2），（6），（9），（10），（11）3、算术表达式写成VB表达式（1）abs(x+y) +z^5（2）（1 + x * y ）^ 6（3）(10*x + sqr(3*y) ) / (x * y )（4）( -b+sqr(b^2-4*a*c) )/2/a（5）1 / (1/r1+1/r2+1/r3)（6）sin(45*3.14/180)+ ( exp(10)+ log(10) )/ sqr( x+y+1)4、根据条件写出相应的VB表达式(1) chr( int ( Rnd * 10 +67 )(2) int ( Rnd * 101 +100 )(3) x * y >0(4) x/5=0 or x /7 =0(5) (x mod 10) 10 + x /10(6)Round(123.2389*100)/100(7) Ucase (c ) >=‖A‖and Ucase(c )<=‖Z‖or Lcase (c ) >=‖a‖and Lcase(c )<=‖z‖(8) Mid ( s, 5, 6 )(9) x >=10 and x <20(10) ( x < z and y >z ) or ( x >z and y < z)(11) x>z and y > z5、下出下列表达式的值:（1）123+23 mod 10 \ 7 +Asc(―A‖)【188】（2）100+‖100‖& 100 【200100】（3）Int ( 68.555*100+0.5)/100 【68.56】（4）已知A$=“87654321‖，求表达式Val(Left$(A$,4)+ Mid(A,4,2))的值【876554】（5）DateAdd(―m‖,1,#1/30/2000#) 【2000-2-29】（6）Len（‖VB程序设计‖）【6】6、利用shell函数在VB程序中分别指向画图word程序。
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 属性来装入图形。 不
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、执行下面的程序，单击窗体，则在窗体上显示的是（）。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
教材课后习题答案 第1章 一、选择题 1 2 3 4 5 6 7 B D B C B B D 第2章 一、选择题 1 2 3 4 5 6 7 8 9 10 B C B C B C A A B B 11 12 13 14 B C A A 二、填空题 1. rem或’ _ ： 2. “” # # 3. 5x2-3x-2sinA/3 4. 321456 5. 300 三、操作题 1、程序段： Private Sub Command1_Click() Dim x As Integer, y As Integer Dim s As Long, c As Long x = Text1.Text y = Text2.Text s = x * y c = (x + y) * 2 Label3.Caption = "长方形的面积为" + Str(s) Label4.Caption = "长方形的周长为" + Str(c) End Sub 2、Dim x As String, t As TextBox Private Sub CmdCopy_Click() x = t.SelText End Sub Private Sub CmdCut_Click() x = t.SelText t.SelText = "" End Sub Private Sub CmdPaste_Click() t.SelText = x End Sub Private Sub Text1_GotFocus() Set t = Text1 End Sub Private Sub Text2_GotFocus() Set t = Text2 End Sub 3、程序段： Private Sub Command1_Click() Text1.Text = "第一" End Sub Private Sub Command2_Click() Text1.Text = "第二" End Sub 4、程序代码： Private Sub Text1_Change() Text1.MaxLength = 10 End Sub 5、程序代码： Private Sub Text1_Click() Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Sub 第3章 一、选择题 1 2 3 4 5 6 7 D A D B A D B 二、填空题 1. False 2. B^2-4*a*c else 三、操作题 1．从键盘输入三个值，判断它们能否构成三角形的三个边。如果能构成一个三角形，则计算三角形的面积。 Dim a As Integer, b As Long, c As Long, s As Single, p As Single a = Val(InputBox("请输入一个值：")) b = Val(InputBox("请输入一个值：")) c = Val(InputBox("请输入一个值：")) If (a + b > c And a + c > b And b + c > a) Then p = (a + b + c) / 2 s = Sqr(p * (p - a) * (p - b) * (p - c)) Print a & "," & b & "," & c & "能构成一个三角形,它的面积为:" & s End If 2．编写程序，任意输入一个整数，判定该整数奇偶性。 Dim n As Integer n = Val(InputBox("请输入一个整数：")) If n Mod 2 = 0 Then Print n & "是偶数" Else Print n & "是奇数" End If 3．求一元二次方程的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 Single a = Val(InputBox("请输入一个整数：")) b = Val(InputBox("请输入一个整数：")) c = Val(InputBox("请输入一个整数：")) delta = b ^ 2 - 4 * a * c If delta = 0 Then x1 = -b / (2 * a) Print "一元二次方程有两个相等的实根x1=x2=" & x1 Else If delta > 0 Then x1 = (-b + Sqr(delta)) / (2 * a) x2 = (-b - Sqr(delta)) / (2 * a) Print "一元二次方程有两个不等的实根x1=" & x1 & ",x2=" & x2 Else x1 = (-b) / (2 * a) x2 = Sqr(-delta) / (2 * a) Print "一元二次方程有两个不等的虚根x1=" & x1 & "+" & x2 & "i,x2=" & x1 & "-" & x2 & "i" End If End If 4. 任意输入三个数，输出最大数。 Dim a As Integer, b As Integer, c As Integer, max As Integer a = Val(InputBox("请输入一个整数：")) b = Val(InputBox("请输入一个整数：")) c = Val(InputBox("请输入一个整数：")) max = a If max < b Then max = b If max < c Then max = c Print "最大数是" & max 5．任意输入三个数，由大到小排序输出。 Dim a As Integer, b As Integer, c As Integer, temp As Integer a = Val(InputBox("请输入一个整数：")) b = Val(InputBox("请输入一个整数：")) c = Val(InputBox("请输入一个整数：")) If a < b Then temp = a a = b b = temp End If If b > c Then Print a, b, c Else If a > c Then Print a, c, b Else Print c, a, b End If End If 第4章 一、选择题 1 2 3 4 5 6 7 8 9 10 A B A C D B A D B B 11 12 13 14 15 16 D C D C B B 二、填空题 1. 9 2. 1 2 3 ( 此3个数纵向排列) 3. x=Int(Rnd*100)+100 (此处修改语句)；x mod 5=0 4. 6 5. 5 三、 编程题 1．键盘输入几个不同的数，将它们从大到小排序。 （1）冒泡法排序： Private Sub Command1_Click() Dim a() As Integer n = InputBox(" 输入数据个数n:") ReDim a(n) As Integer Randomize For k = 1 To n a(k) = Int(100 * Rnd) Print a(k); Next Print For i = 1 To n - 1 For j = 1 To n - i If a(j) < a(j + 1) Then w = a(j): a(j) = a(j + 1): a(j + 1) = w End If Next For q = 1 To n Print a(q); Next Print Next End Sub （2）选择法排序： Private Sub Command2_Click() Dim a() As Integer n = InputBox(" 输入数据个数n:") ReDim a(n) As Integer Randomize For k = 1 To n a(k) = Int(100 * Rnd) Print a(k); Next Print For i = 1 To n - 1 p = i For j = i + 1 To n If a(p) < a(j) Then p = j Next If p <> i Then w = a(p): a(p) = a(i): a(i) = w End If For q = 1 To n Print a(q); Next Print Next End Sub 2．设计程序，求出S=1+（1+2）+（1+2+3）+„+（1+2+3+4+„+N）的值。 Dim i As Integer, sn As Long, s As Long, n As Integer sn = 0 s = 0 n = InputBox("输入N的值：") For i = 1 To n sn = sn + i s = s + sn Next Print 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 Double x = InputBox("输入X值：") s = x For i = 1 To 19 p = 1 For j = 1 To 2 * i + 1 p = p * j