搜索
新编VisualBasic程序设计教程习题解答陈斌著南京师范大学生命科学学院2010年8月第一章VisualBasic概述1．VB是用于开发________环境下应用程序的工具。（B）A.DOSB.WindowsC.DOS和WindowsD.UNIX2．VB6.0是________位操作系统下的应用程序开发工具。（A）A.32B.16C.32或16D.643．一个对象可执行的动作与可被一个对象所识别的动作分别称为________（B）A.事件、方法B.方法、事件C.属性、方法D.过程、事件4．有一个红色、充满氢气的气球，如果人不小心松开手抓的引线，就会飞走；如果用针刺它，则会爆破。请问，对于气球对象，哪些是属性、哪些是事件、哪些是方法？答：属性是红色、氢气；事件是松开、针刺；方法是飞走、爆破。5．简述事件驱动过程程序的设计原理？答：使用VB不仅可以非常便捷地设计出Windows应用程序的窗口界面，设置界面中各种对象的属性，而且可以通过编写程序代码段，为对象规定在被某个―事件‖激活时应发生的各种动作以及所要进行的信息处理的具体内容，这样的代码段称为―过程‖。为各个对象编写的过程集合在一起，就构成一个完整的应用程序。6．VB的集成开发环境都有哪些元素些组成？答：VB的集成开发环境由标题条、菜单条、弹出式菜单（上下文菜单）、工具栏、控件工具箱、初始窗体、工程资源管理器子窗口、属性子窗口、窗体布局子窗口、代码编辑器窗口、立即、本地和监视窗口等。7．简述用VB开发应用程序的一般步骤？答：VB开发应用程序的一般步骤是：①创建程序的用户界面；②设置界面上各个对象的属性；③编写对象响应事件的程序代码；④保存工程；⑤测试和调试应用程序，检查并排除程序中的错误；⑥创建可执行程序。1第二章程序设计与算法（问题求解）1.设X与Y是同一类型的变量，试设计一个算法，把X与Y中的数据相互交换。答：S1：输入X与YS2：X=AS3：Y=XS4：A=YS5：输出X与Y程序代码如下：OptionExplicitDimAAsString,BAsString,tempAsStringPrivateSubCommand1_Click()A=Text1.TextB=Text2.Texttemp=AA=BB=tempText1.Text=AText2.Text=BEndSubPrivateSubCommand2_Click()Text1.Text=Text2.Text=Text1.SetFocusEndSubPrivateSubCommand3_Click()UnloadMeEndSub2.设A、B、C是同一类型的变量，并分别被赋予不同大小的数据，设计一个算法，使得执行的结果为ABC答：S1：输入A、B、CS2：如果AB，则A与B交换S3：如果AC，则A与C交换S4：如果BC，则B与C交换S5：输出A、B、C程序代码如下：OptionExplicitPrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsIntegerDimtAsIntegera=Text1.Text:b=Text2.Text:c=Text3.TextIfabThen:t=a:a=b:b=t:EndIfacThen:t=a:a=c:c=t:End2IfbcThen:t=b:b=c:c=t:EndText4.Text=aText5.Text=bText6.Text=cEndSubPrivateSubCommand2_Click()Text1.Text=Text2.Text=Text3.Text=Text4.Text=Text5.Text=Text6.Text=Text1.SetFocusEndSubPrivateSubCommand3_Click()UnloadMeEndSub3.设计一个可以判断某数是否是素数的算法。答：S1：输入一个正整数NS2：I=2S3：如果N能被I整数，则转S7S4：I=I+1S5：如果I小于等于N-1则转S3S6：输出N是素数，程序结束S7：输出N不是素数，程序结束程序代码如下：OptionExplicitDimxAsLongPrivateSubCommand1_Click()DimiAsIntegerFori=2Tox-1IfxModi=0ThenExitForNextiIfi=xThenText2.Text=是素数ElseText2.Text=不是素数EndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSub3PrivateSubText1_Change()x=Val(Text1.Text)EndSub4.设计一个判断某正整数是一个回文数的算法。所谓回文数是指左右数字完全对称的自然数。答：S1：输入一个数字字符串SS2：I=1S3：如果第I个数字与倒数第I个数字不同，则转S7S4：I=I+1S5：如果I小于等于字符串长度的一半，则返回S3S6：输出S是回文数，程序结束S7：输出S不是回文数，程序结束。程序代码如下：OptionExplicitPrivateSubCommand1_Click()DimxAsString,iAsIntegerx=Text1.TextFori=1ToLen(x)/2IfMid(x,i,1)Mid(x,Len(x)-i+1,1)ThenExitForNextiIfiLen(x)/2ThenLabel1.Caption=是回文数ElseLabel1.Caption=不是回文数EndIfEndSubPrivateSubCommand2_Click()Label1.Caption=Text1.Text=EndSubPrivateSubCommand3_Click()UnloadMeEndSub5.设计一个算法，求出给定的自然数的所有因子。答：S1：输入一个正整数NS2：I=1S3：如果N能被I整数，则输出IS4：I=I+1S5：如果I小于等于N则转S3S6：程序结束程序代码如下：OptionExplicitPrivateSubForm_Click()DimxAsLong,iAsLong,jAsLong4x=InputBox(请输入一个自然数：)Printx&的所有因子如下：Fori=1ToxIfxModi=0ThenPrinti;j=j+1IfjMod10=0ThenPrintEndIfNextiPrintPrint共有;j;个。EndSub5第三章常用控件与界面设计1．窗体的属性主要可分为几类？Caption属性和Name属性有何不同？答：窗体的属性主要可分为：杂项、外观、行为、字体、位置等五类。Caption：窗体标题，是出现在窗体标题栏上的文本内容；Name：窗体名称，在程序代码中被作为对象的标识名。2．以下窗体名中哪些是非法的窗体名？（ABDE）A.aformB.3frmC.f_1D.frm5E.f_1*3．VB为什么要提供多种窗体边框风格？试从已学习过的各种Windows应用程序的窗口中举例说明？答：VB中提供了六种窗体的边框风格，如设定值为1和3，它表示Windows应用程序中的对话框，其大小不可改变；设定值为2表示Windows应用程序中的窗口，其大小可以改变。4．在桌面上存在多个窗口时，改变窗口的工作状态会引发何种事件？改变窗口大小呢？答：改变窗口的工作状态会引发激活事件和失去激活事件；改变窗口大小会引发Resize事件。5．(略)6．有程序代码如下：Form2.Caption=‖Help‖，试问：Form2、Caption和Help分别代表___（C）A.对象、值、属性B.值、属性、对象C.对象、属性、值D.属性、对象、值7．VB的常用控件中，哪些控件具有Caption属性，而没有Text属性？哪些控件具有Text属性，却没有Caption属性？答：具有Caption属性而没有Text属性的控件有：标签、命令按钮、复选框、选项按钮、框架；具有Text属性而没有Caption属性的控件有：文本框、组合框、列表框。8．对象的属性是否只能在设计界面时在属性窗口中进行设置？属性窗口中的属性列表是否包括了一个对象的所有属性？答：属性的设置既可以在属性窗口中进行设置，也可以在程序代码中进行设置，但有些对象的有些属性只能在属性窗口中进行设置，如文本框的多行属性，有些对象的有些属性只能在程序代码中进行设置，如列表框的列表项数目属性；属性窗口中的属性列表中不包括一个对象的所有属性，如列表框的ListIndex属性、ListCount属性就不在属性列表中。9．除窗体之外，还有哪些控件可作为其他控件的容器使用？答：还有：框架、图片框10．常用控件中具有Value属性的控件有哪些？它们的取值及类型有何异同？答：常用控件中具有Value属性的控件有：选项按钮、复选框、滚动条：(1)选项按钮的取值为逻辑型，选中该选项按钮时，其值为True，未选中该选项按钮时，其值为False；(2)复选框的取值为数值型，选中该复选框时，其值为1，未选中该复选框是，其值为0，复选框变灰时，其值为2；(3)滚动条的取值为数值型，其值为滚动块在滚条中的位置。11．哪些控件对象可以获得焦点？某程序的界面上有多个文本框，还有命令按钮，如果没有特别设置，在程序启动时，哪个控件将具有焦点？答：可以获得焦点的控件对象：文本框、命令按钮、选项按钮、复选框、列表框、组合框、滚动条（水平滚动条、垂直滚动条）如果没有特别设置，在程序启动时，首先设置具有焦点的控件将具有焦点。12．以下使用方法的代码中，正确的是________（C）A.Label1.SetFocusB.Form1.ClearC.Text1.SetFocusD.Combo1.Cls将复选框的Value属性设为2，其效果与把它的Enabled属性设置为False有何异同？若把一个控件的Visible属性设为False，意味着什么？答：将复选框的Value属性设为2，表示该复选框暂时变灰，启动后仍然可以对其操作，而将复选框的Enabled属性设置为False，表示该复选框灰化，启动后不可以对其操作，直到将Enabled属性设置6为True，才能对其操作。若把一个控件的Visible属性设为False，表示该控件不可见。14．如何给一个列表框或组合框控件增添列表项？已有的列表项如何删除？答：给列表框或组合框控件增添列表项，可用属性窗口中的List属性，或在程序代码中使用AddItem方法。如果删除所有的列表项可用Clear方法，如果删除某一列表项可用RemoveItem方法。附：显示、清除、删除方法1.显示方法：(1)窗体[窗体名.]Print内容例：[Form1.]Print学习VisualBasic(2)文本框文本框名.Text=内容例：Text1.Text=学习VisualBasic(3)标签标签名.Caption=内容例：Label1.Caption=学习VisualBasic(4)图片框图片框名.Print内容例：Picture1.Print学习VisualBasic(5)列表框列表框名.AddItem内容[,位置号]例：List1.AddItem学习VisualBasicList1.AddItem学习VisualBasic,6(6)组合框组合框名.AddItem内容[,位置号]例：Combo1.AddItem学习VisualBasicCombo1.AddItem学习VisualBasic,62.清除方法(1)窗体[窗体名.]Cls例：[Form1.]Cls(2)文本框文本框名.Text=例：Text1.Text=(3)标签标签名.Caption=例：Label1.Caption=(4)图片框图片框名.Print内容例：Picture1.Cls(5)列表框列表框名.Clear例：List1.Clear(6)组合框组合框名.Clear例：Combo1.Clear3.删除方法(1)列表框列表框名.Rem