《大学VB期末考试试题.pdf》由会员分享，可在线阅读，更多相关《大学VB期末考试试题.pdf（14页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、VB 期末考试试题 A卷一、填空题1、VB 程序设计的主要特点是可视化设计和事件编程。2、在 VB 中，最主要的两种对象是 窗体(form）和 控件。3、工程是构成应用程序文件的集合 .4、方法是 VB 提供的一种 特殊子程序，用来完成一定的操作。5、浮点类型数据包括单精度型和_双精度_数据.6、事件是窗体或控件对象识别的_动作_。7、可用窗体的_print_ 方法在窗体中显示文字。8、复选框控件 Value属性指示复选框处于_选中_或禁止状态(暗淡的）中的某一种.9、在VB 中，修改窗体的 高度（height）和 宽度（width）属性值，可改变窗体的大小。10、双击工具箱中的控件图标，可在
2、窗体的中央 出现一个尺寸为缺省值的控件。11、在 MsgBox 函数中，如果缺省 title 参数,则使用 工程 1 作为消息框的标题。12、设 x34。58，语句 Print Format(x，“000.0”)的输出结果是 34.6。13、在 VB 中，数值型变量的初值为 0，Varant 型变量的初值为 空，布尔型变量的初值为 FALSE。14、设置窗体的 picture 属性，可在窗体上显示图片.15、程序运行工程中,清除 MP 图片框中的图片应使用语句 cls。二、选择题1、菜单控件只包括一个事件，即 C，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能
3、识别该事件。A、GotFocus B、Load C、Click D、KeyDown2、滚动条控件(如图所示)的 Max 属性所设置的是 A。A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值B、单击滚动条和滚动箭头之间的区域时,滚动条中滚动块的最大移动量C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量D、滚动条控件无该属性3、SQL 语句 Select Form student 中的*表示 B。A、所有记录 B、所有字段 C、所有表 D、都不对4、以下选项中，不属于标签的属性是 C .A、Enabled B、Caption C、Default D、Font5、要求改命令按
4、钮显示的文本,应当在属性窗口中改变的属性是 A。A、Caption B、Name C、Text D、Label6、设置一个单选按钮（OptionButton）所代表选项的选中状态，应当在属性窗口中改变的属性是 D。A、Caption B、Name C、Text D、Value7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的？D。A、在标题项中输入&，然后打勾 B、在索引项中打勾C、在有效项中打勾 D、在复选项中打勾8、当执行以下过程时，在窗体上将显示 A .Private Sub Command1_Click()Print VB”；Print”Hello!；Print”VB”End S
5、ubA、VBHello!VB B、VBC、VB D、VBHello！VBHello！VBHello！VB9、语句 Print”The answer is:”；20/42 的结果为 B。A、The answer is 20/42 B、The answer is 3 C、The answer is”20/42 D、非法语句10、下列哪个控件是容器控件 B。A、Image B、Picture C、ComboBox D、FileListBox11、若要将窗体从内存中卸载出去，其实现的方法是 D。A.Show B.Hide C。Load D。UnLoad12、以下选项中，不是 Visual Basic控
6、件的是 A。A.窗体 B。定时器 C。单选框 D.命令按钮13、双击窗体中的对象后，Visual Basic将显示的窗口是 A。A。代码窗口 B工具箱 C项目(工程）窗口 D属性窗口14、可决定窗体的左上角是否有控制菜单的属性是A。A.ControlBox B.MinButton C。MaxButton D。BorderStyle15、设有如下语句：StrlInputBox（输人”,”，练习”)从键盘上输人字符“示例”后,Strl 的值是 D。A“输入”B“”C“练习 D“示例”16、窗体 Form1 的 Name 属性是 Frm1，它的单击事件过程名是 C。A.Form1_Click B。F
7、orm_Click C.Frm1_Click D。Me_Click17、窗体的 hide 属性的含义是 A。A.隐藏 B。展现 C。装入 D。卸载18、若要设置定时器控件的定时时间，需设置的属性是 C .AEnabled BValue CInterval DText19、能够改变复选框中背景颜色的属性是 C。AValue BFontColor CBackColor DFont20、窗体能响应的事件是 B .AActiveForm BLoad CDrive DChange三、判断题（判断下列正确与否，正确的打，错误的打.）1、三种方式的组合框都允许用户输入哪些不在列表框中的选项。X2、图象框中的
8、 Stretch 属性为 true 时，其作用是图形自动调整大小以适应图象控件。X3、在菜单编辑器中使用“索引”时,可有一组菜单项具有相同的“名字”。X4、通过改变属性窗口中的Name 属性，来改变窗体的标题。5、创建 VB 应用程序的三个主要步骤是:(1）创建应用程序界面（2)设置控件(3）编写代码。X6、变量是指在程序运行过程中其值可以改变的那些量,而值不能改变的是常量。7、已知 PMsgBox(“Howareyou?，VbYesNo+VbQuestion，“Hello!），变量 P 是 Integer数据类型。8、工程文件的扩展名是.vbg。9、VB 允许设计和使用用户自己设计的控件。1
9、0、OptionButton 控件没有 DblCliek 事件.X11、同一条记录中的各数据具有相同的类型.12、使用 Data 控件可以直接显示数据库中的数据。X13、ImageList 是一个图像容器控件，可用作工具栏的图像库。14、当用户单击工具栏按钮时，将触发工具栏按钮的ButtonClick 事件。15、在 VB 的工程资源管理器中,如果从工程中移除已经保存过的文件，该文件仍然被物理删除（真正删除）。X16、如果列表框的 ListConut 的属性为 10,则列表框最后一项的 ListIndex 值为 10。X17、要是某个命令按钮不起作用，应将该按钮的Enabeld 属性设置为 F
10、alse。18、使用数组定义语句：Dim D（10）,则数组 D 中各元素的值为空。X19、如果在一行中输入多条语句，各语句之间用使用；分隔。X20、在代码窗口中输入某行代码并按回车键之后，如果代码变成红色,说明该行代码有语法错误。四、读程序题，写出程序运行结果1、Private Sub Form_Click（）Static SUM As IntegerI=1Do While I=10SUM=SUM+II=I+1LoopPrint SUMEnd Sub运行程序,第一次单击窗体：55第二次单击窗体：1102、Private Sub Form_Click（)Print”；Tab（6)；2,Tab（
11、15)；5PrintFor I=15 To 16Print I；For j=2 To 6 Step 3Print Tab（3*j);j I;Next jPrintNext IEnd Sub程序运行结果：2 515 30 75 16 32 80五、编程题（一）窗体中有图片框（Picture1）和计时器(Timer1)两个控件，运行程序时,将图片加载到图片框中,然后图片框以每 2 秒钟一次的速度向窗体的右下脚移动，每次向左、向右移动100twip（20 分之一像素)。请填空:Private Sub Form_load（)Picture1.picture =loadPicture（“c:picbal
12、l。ico)Timer1。Interval=200 End Sub Private Sub Timer1_Timer(）Static x,y As Integerx=x+100 y=y+100 Picture1.Move x,yEnd Sub（二）有一个单击按钮过程，其作用是产生50 个 60100 的随机数，统计其中被6 整除余2 的个数，并将这些数输出。请填空：Private Sub Command1_Click()Dim x As Integer，N Dim Counter As Integer randomize Timer For N=1 To 50X=Rnd()rnd（)*41+6
13、0If x Mod 6 =2 ThenPrint x Counter=Counter+1 End if Next N Print Counter End Sub大学 VB 期末考试试题 B 卷一、填空题1.中若要产生一消息框，可用（1）MsgBox 函数来实现。2常量是指在程序运行过程中，（2)其值不能改变的的量。3整数类型数据分别包括整型和(3）长整型 数据.4、在集成开发环境中，运行应用程序的方法有三种：一是（4）（单击“运行”菜单下的启动；二是（5）单击工具栏上的启动按钮_;三是（6)按 F5 键5、在中若要让某对对象获取焦点，则可通过（7）Setfocus 方法来实现。6列表框(Lis
14、tBox 控件)显示（8)项目列表 ,用户可从中选择一个或多个项目。7框架（Frame 控件)可以用来 (9)对其它控件进行分组，以便于用户识别,主要用于为单选按钮分组.8、在中,用来描述对象外部特征的量称之为对象的（10)属性.9、为使某窗口中的命令按钮“取消（C）”具有如下特性：按“Alt C”键或按“ESC 键，均可代替用鼠标单击该按钮的操作，应设置该按钮的 Caption属性值为（11)取消(C），并且设置其（12)Cancel 属性值为（13)True。10、在过程内用（14）Static 声明的变量为静态变量，在执行一个过程结束时，过程中所用到的 Static 变量的值会保留，下次
15、再调用此过程时，变量的初值是上次调用结束时被保留的值。11、在模块文件中的声明部分用Global或（15）public 关键字声明的变量为全局变量.12、在模块文件中的声明部分用（16）Dim 或（17）private 定义的变量为模块级变量。13计时器控件通过定期激活 Timer事件,使得 Timer控件（18)可以每隔一段时间 就执行一次 Timer事件中的代码。14要获得滚动条的当前位置，可以访问通过（19）value属性来实现。15关闭正在运行的 VB 窗口将自动触发的事件是（20）Unload。二、选择题1工程文件的扩展名是（B）。A vbg B。vbp C。vbw D.vbl2.在
16、以下窗体中没有采用的控件是（B）。A。文本框 B垂直滚动条 C 框架 D命令按钮3滚动条控件(如图所示）的 Largechange属性所设置的是（A）A 单击滚动条和滚动箭头之间的区域时，滚动条控件Value属性值的改变量B 滚动条中滚动块的最大移动位置 C 滚动条中滚动块的最大移动范围 D 滚动条控件无该属性4、用于从字符串左边截取字符的函数是（C）、Ltrim（）、Trim()、Left（）、Instr()5、可获得当前系统日期的函数是（A）、Date（）、Time(）、IsDate（）、Year（）6、退出 For循环可使用的语句为(A）、Exit For、Exit Do、End For
17、、End Do7、窗体的标题栏显示内容由窗体对象的(D）属性决定.、BackColor、BackStyle、Text、Caption8、程序运行时，若要通过回车键调用某命令按钮的 Click事件过程，则可设置该命令按钮的（C）属性值为 True来实现.、Value、Enabled、Default、Cancel9、当用户在窗体上单击鼠标时，不会触发的事件是（D）、Click、MouseDown、MouseUp、DblClick10、在设计阶段,当双击窗体上的某个控件时，所打开的窗口是(C）、工程资源管理器窗口、工具箱窗口、代码窗口、属性窗口11、设 a=“Visual Basic”，下面使 b=
18、“Visual 的语句是（D）、b=Left(a，8,12）、b=Mid(a,8，5）C、b=Rigth（a，6）D、b=Left（a，6)12、若要使命令按钮不可用，则可设置其（C）属性为 False来实现。、Value、Cancel、Enabled、Default13允许在菜单项的左边设置打勾标记,下面哪种论述是正确的？（C）A 在标题项中输入&然后打勾 B在索引项中输入“”C 在复选项中输入“”D在有效项中输入“14当执行以下过程时,在窗体上将显示（B）。Private Sub Commandl_Click（)Print“VB”Print“Hello！”;Print“VB”End Sub
19、A.VB Hello!VB B。VBC.VBD。VBHello!VBHello!VBHello！VB15、以下不属于键盘事件的是(C）、KeyDown、KeyUp、Unload、KeyPress16、以下叙述中正确的是(A)A、窗体的Name 属性指定窗体的名称，用来标识一个窗体 B、窗体的Name 属性的值是显示在窗体标题栏中的文本 C、可以在运行期间改变对象的Name 属性的值 D、对象的 Name属性值可以为空17、图像框或图片框中显示的图形文件,由它们的（B）属性值决定。、DownPicture、Picture、Image、Icon18、文本框的(A）属性用于设置或返回文本框中的文本内
20、容。、Text、(名称)、Caption、Name19、复选框或单选钮的当前状态可通过（B)属性来返回或设置。、Checked、Value、Selected、Caption20、VB 提供(C)属性用于控制对象是否可用.、Default、Cancel、Enabled、Visible三、判断题（判断下列正确与否，正确的打，错误的打。）、设置属性的语句格式为：“对象名属性名属性值”（）、若用户在键盘上按下一个键，则会产生一个单击事件（）、的赋值语句只能给变量赋值（)、在中,字符型常量应使用号将其括起来()、窗体大小只能通过鼠标拖动窗体边框来设置（）6在定义了一个函数后,可以象调用任何一个 VB 内
21、部函数一样使用它，即可以在任何表达式、语句或函数中引用它.（)7Visual Basic表达式为：1284+COS（28)（)8Visual Basic表达式为：3cos(c+d）2 或 3*cos（c+d）*cos(c+d）(）9。VB 程序语言两个基本特点是：结构化和事件驱动编程。()10工程资源管理器用于查看和管理工程类的文件，不能删除文件。(）四、读程序题，写出程序运行结果1.Private Sub Form_Click（)Static Sum As IntegerFor I=1 To 10Sum=Sum+INext IPrint SumEnd Sub 552.Private Sub
22、Form_Click()Print*；Tab(9)；3,Tab(18)；6PrintFor I=15 to 16 Print I;For j=3 To 6 Step 3 Print Tab(3*j）;jI；Next jPrintNext IEnd Sub3.Private Function Fac（n As Integer)As IntegerDim f As Integerf=f+nFac=fEnd FunctionPrivate Sub Form_Click（)Dim I As IntegerFor I=1 To 5 Print”；I&”=&Fac（I）Next IEnd Sub4.Pri
23、vate Sub Command1_Click()Text1。Text=努力End SubPrivate Sub Command2_Click（）Text1。Text=”学习 End Sub单击 Command2 按钮，又单击 Command1 按钮，在文本框中显示什么？五、编程题 1、在窗体上有一个文本框控件，名称为 TxtTime;一个计时器控件,名称为 Timer1。要求每一秒钟在文本框中显示一次当前的时间.程序如下，请在下划线上填入恰当的内容.Private Sub Timer1_ _()TxtTime。text=_ End Sub2、在窗体上画一个命令按钮，名称为Command1。然
24、后编写如下程序:Private Sub Command1_Click()For a=1 To 4 For b=0 To a Print Chr（65+a)Next bPrintNext aEnd Sub程序运行后,如果单击命令按钮,则在窗体上显示的内容是什么？3、在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程:Private Sub Form_Load（）Text1.Text=”计算机”End Sub Private Sub Text1_Change()Picture1.Print“等级考试End Sub程序运行后，在文本框中显示的内容是而在图片框中显示的内容是参考答案:一、填空题
25、（)MsgBox 函数（)其值不能改变（）长整型（）单击“运行”菜单下的启动（）单击工具栏上的启动按钮（）按5 键（）Setfocus（）项目列表（）对其它控件（10）属性(11）取消（C)（12）Cancel(13)True(14）Static（15）Public（16）Dim（17）private（18）可以每隔一个时间段（19）Value (20）Unload二、选择题1.B2。B3。A4。A5.A6.A7。D8.C9.D10.C11.D12。C13.C 14。B 15.C 16。A 17。B 18。A 19。B 20.C 三、判断题 1 2。3.4.X 在中，字符型常量应使用号将其括起
26、来 5。X 6.7.X 正确的形式是:128/4+COS（283。14159/180）8。9.X VB 的两个基本特点是：可视化设计和事件驱动编程。10.X四、读程序题,写出程序运行结果1 结果为:552 结果为:3 615 45 90 16 48 963 结果为:1=12=23=34=45=54.结果为：努力五、综合题 1 Timer time2 B BC C C D D D D E E E E E3.在文本框中显示的内容是计算机而在图片框中显示的内容是等级考试一、单选题1.计算机程序的三种结构是顺序结构、B、选择结构。A模块结构 B循环结构 C多重循环结构 DIF 块结构2.B 是指用户操
27、作引发或由系统引发,能被对象所识别并做出响应的动作。A任务 B事件 C控件 D过程3。在 VB 系统中，一个对象内部的函数或过程,称为对象的 C。A代码 B属性 C方法 D事件4。在 VB 中，窗口坐标系的原点在 A，x 轴向右为正,y 轴向下为正。A窗口左上角 B窗口右下角 C窗口正中间 D窗口右上角5.在 VB 应用程序设计中，通常应对 D 编写程序代码.A所有对象 B窗体CTimer D有事件的对象6.在面向对象程序设计中，D 用来描述对象的特征信息。A事件 B方法 C代码 D属性7.在 VB 编程中，如果需要返回鼠标的当前位置,应该使用 C 事件。AClick BChange CMou
28、seDown DKeyPress8。在 VB 应用程序设计中,如果想让 Timer 控件每秒钟响应一次,应该将其 Inerval 属性设置为 D。A1 B60 C100 D10009.下 列 过 程 中，A 是 程 序 开 始 运 行 时,窗 体 一 加 载 就 运 行 的 程 序段。AForm_Load BForm_Click CForm_MouseDown DForm_KeyPress10.正确的 Visual Basic表达式是 B.A（b+b24ac）/2a B（b+sqr（b24*ac）/（2a)C(-b+sqr(b2-4ac）)/(2a）D（b+sqr（b24ac）)/2a11.在
29、 VB 系统中,A 代表内存单元，是命了名的存储空间。A变量 B常量 C函数 D字节12。B 语句用于声明变量，并定义变量的数据类型，给变量分配存储空间。ASub BDim CCall DEnd13。在 VB 程序设计语言中，C 语句的功能是使系统产生的随机数真正随机化。ARnd BCircle CRandomize DDim14。关系表达式的值为 C。A 数值 B字符串 C逻辑值 D逻辑表达式15.下列控件中“单选按钮”是 C。A。Label B.TextBox C。OptionButton D。CommandButton16.若改变一文本框中所显示文本的颜色,需改变此文本框的哪个属性?BA
30、。Caption B.Forecolor C.Backcolor D。Text17.在 VB 环境中，如果设计时将命令按钮的 C 属性设置为 False，则运行时该按钮从窗体上消失.ADefault BEnabled CVisible DDisabledPicture18、在 VB 环境中,修改对象的 BackColor 的属性值，则对象的 B 将发生改变。A.文字颜色 B。背景色 C。前景色 D。边框颜色19、。用 VB 工具箱中的哪个控件可以建立命令控制按钮 B。20、在VB 应用程序中，修改控制代码，使Command1 按钮显示“end”,正确的设置是 B.A.Command1。Text
31、=“end”B。Command1.Caption=“end”C。Command1.Nameend D.Command1。Caption=end21、在 VB 程序中，当变量H 的值等于 8 时，执行“IF H8 then R=10 else R=20”语句后，R 值为 C。A5 B10 C20 D10 或 2022Dim a As Integer，当 a=123：b=Str(a），则 CAa 和 b 均是字符型变量 Ba 是字符型变量，b 是数值型变量 Ca 是数值型变量，b是字符型变量 Da 和 b 均是数值型变量23、用循环结构解决问题时，如果循环的次数已知,通常采用；当循环的次数未知，需
32、要靠判断条件是否成立来决定循环的执行和退出时,通常采用。AAForNext 循环、DoLoop 循环 BDoLoop 循环、ForNext 循环 CDoNext 循环、ForLoop 循环24、A 函数的作用是建立一个弹出窗口。AMsgBox（）BInputBox()CRGB(）DPrint25A=5，B=8，则（B-A)*Rnd+A 的结果是介于_C_之间的实数。A。5，8 B。(5，8）C。5,8）D.（3，5）26 For i=1 to 10 Step 2 循环体中循环变量的值保持不变.Next i在程序运行时循环体将被执行_C_几次。A。3 次 B.4 次 C.5 次 D.6 次27执
33、行后将会清空文本框Text1中文本的语句是_C_。A.Text1。Clear B.Text1.SelText=”C。Text1。text=”D。Text1。SelText。Clear28在机场托运行李，每人免费 25 千克，超过 25 千克不到 50 千克,则超出部分按每千克 10元收费，如果超过 50 千克，则超过部分按每千克 20 元收费。这种计费程序最适合用到的程序结构是 C A。循环 B。赋值 C.分支 D.顺序29下面是一段循环结构的程序段：Ds=0 x=2Do s=s+1 x=x+3Loop Until（x12）该程序段运行后，循环体的执行次数是 A.1 B。2 C。3 D.430
34、.算法是 C .A计算方法 B计算公式 C对解决问题的方法和步骤的描述31下列句子中，D 不是赋值语句.A A=”123+”456 B Label1。Captin=”你好！”C r=Val（Text1.Text）D x+1=y32 D 函数的作用是建立一个输入对话框。AMsgBox(）BPrint CRGB（）DInputBox（）33下列数学表达式写成VB 表达式，正确的是：B A数学表达式 0 x10 对应的 VB 表达式为 x0 or x=10B数学表达式 x2-（x+2）+5 对应的 VB 表达式为 x2(x+2)+5C数学表达式 b2-4ac0 对应的 VB 表达式为 b24ac=0
35、D 数学表达式 对应的 VB 表达式为 Sqr（x21)34 B 的思想是依据题目的部分条件确定答案的大致范围，在此范围内不重复、不遗漏地列出所有可能情况，从中找出满足条件的结果.A求最值法 B穷举法 C累加法 D递归法二、多选题1 在 VB 应用程序设计中，以下说法正确的是：ABCA对象包括窗体和控件B属性用来描述和确定对象的特征信息C事件是指用户操作引发或由系统引发，能被对象所识别并做出响应的动作D方法是指程序设计的方法2在 VB 应用程序设计中，以下说法正确的是：ABA要显示不想让用户修改的文本时，应该使用Label 控件B要显示可以让用户编辑的文本时,应该使用 TextBox控件C要显
36、示图片，只能使用PictureBox 控件D要想画图形，只能在窗体中实现3下列字符串中，不能作为变量名使用的有：ADAEnd Ba1 Cxx DSub4在 VB 应用程序设计中，以下说法正确的是：BCDAAbs()是转换英文大小写的函数 BMsgBox（)是消息函数 CRGB(）是颜色函数DSqr（）是求平方根函数5VB 简单应用程序的设计步骤为：ABCDA设计图形用户界面 B设置对象属性C编写对象事件过程及通用过程代码 D运行调试程序并保存工程三、读程序运行结果1。下列程序运行后，变量s=C。Dim a,b，c,s As Integera=9b=41c=2*（a+b）s=acA100 B50
37、 C900 D3002.下列程序运行后，变量 x=D .Dim n，x As Integern=5Private Sub Form_Load（）x=1 For i=1 To n x=x*i Next i End SubA5 B15 C24 D1203.阅读以下程序Private Sub Command1_Click()Print“*Hi，”Print“how are you*”End Sub当程序执行时，单击 command1 后,输出结果是 Hi，how are you 4。阅读以下程序段Private Sub Command1_Click（）For R=100 to 520 step 10
38、0b1=255*Rnd()b2=255 Rnd（）b3=255 Rnd()Picture2。Circle（1000,1000)，R，RGB(b1,b2,b3）Next REnd Sub当程序执行时，单击 command1 后,将在（何处）_1000，1000_显示_5_个颜色_不同_(填相同或不同）的同心圆。5.以下是求任意圆面积的程序Private Sub Command1_Click(）R=Val(InputBox(“请输入圆的半径”,“数据输入”）print“S=”；3.14*R*REnd Sub在程序执行过程中单击 command1 时，出现了右图所示的窗口，请根据如图所示信息，在空白
39、处补充对应的程序语句.6.阅读程序代码并填空。Private Sub Command1_Click()Dim a,b As Integera=InputBox（”a=,输入）b=InputBox(”b=”,输入”)If a b ThenPrint aElse：Print bEnd IfEnd Sub（1）程序的基本结构包括顺序结构、分支结构和循环结构,本程序主要使用的是_分支_ 结构。（2）本程序的主要作用是_打印 a，b 两个数中的最大数_。（3)假如输入的两个数分别是 7 和 9,程序执行后，输出的结果是_9_。7请填写以下流程图编写一元二次方程 ax2+bx+c=0 的求解程序，要求能够
40、判断方程是否有根,如果没有根则给出相应的提示信息。直接用的 4 个 command 控件Dim a As Integer，b As Integer，c As IntegerPrivate Sub Command1_Click（）a=InputBox（请输入二次项系数,”输入）End SubPrivate Sub Command2_Click()b=InputBox（请输入一次项系数”,输入”)End SubPrivate Sub Command3_Click（)c=InputBox（请输入常数项,”输入”)End SubPrivate Sub Command4_Click（)If b 2 4*
41、a c=0 ThenIf b 2-4*a*c 0 ThenX1=(-b+Sqr(b 2 4 a*c)）/(2*a）X2=(-b Sqr(b 2 4*a c)/（2 a)MsgBox x1=&Format(X1,”#0.00”)vbCrLf ”x2=Format（X2，#0.00）End IfIf b 2-4 a c=0 ThenX1=(b+Sqr（b 2-4 a c)）/(2*a)MsgBox”x1=”Format（X1,0。00”）End IfElsed=（-b/(2 a)）s=Sqr(b 2+4 a*c）MsgBox”x1=”&Format（d,”0。00”）&”+&Format（s,#0.0”）&i Chr（13）&x2=&Format（d,#0。00”)”&Format（s,”0.0”)i”End IfEnd Sub