《《Visual-Basic程序设计教程》自学指导书(共8页).doc》由会员分享，可在线阅读，更多相关《《Visual-Basic程序设计教程》自学指导书(共8页).doc（8页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、精选优质文档-倾情为你奉上Visual Basic程序设计教程自学指导书作业及答案：一、选择题 1为了使文本框显示滚动条，必须首先设置的属性是（） AAutoSizeBAlignmentCMultilineDScrollBars 2改变控件在窗体中的上下位置应修改控件的（）属性。 ATopBLeftCWidthDHeight 3在form1窗体启动时，为使form1.text1文本框首先获得焦点，可以在窗体的form1_Load事件过程中加入（）语句。 Atext1.Index=0Btext1.TabIndex=0Ctext1.AppearanceDtext1.tag=0 4将命令按纽Comm
2、and1设置为不可见，应修改该命令按纽的（）属性。 AVisibleBValueCCaptionDEnabled 5摇改变Label控件中文字的颜色，可以设置Label控件的（）属性。 AFontColorBFillColorCForeColorDBackColor 6执行后将会删除文本框Text1中选中的文本的语句是（）。 AText1.Text=”BText1.SelText=”CText1.Clear=DText1.SelText.Clear= 7以下控件中没有Caption属性的是（）。 A标签框B文本框C框架D命令按纽 8复选框对象是否被选中，是由其（）属性决定的。 AChecked
3、BValueCEnabledDSelected 9要使ListBox可以单击或按空格键来实现复选，则属性MultSelect的值应设为（） A1B2C3 10以下不允许用户在程序运行时输入文字的控件是（）。 A文本框B下拉式组合框C简单组合框D下拉式列表框 11不能通过（）来删除列表框中的选择项。 AList属性BRemoveItem方法CClear方法DText属性 12组合框的3中不同风格：下拉组合框、简单组合框和下拉列表框由（）属性决定。 AStyleBBoderStyleCFillStyleDDrawStyle 13单击滚动条两端的任意一个滚动箭头，将触发该滚动条的（）事件。 AScr
4、ollBKeyDownCChangeDDragOver 14要将定时器控件的宽度设置增大一些，以下叙述正确的是（）。 A设置定时器的Width属性B设置定时器的Left属性 C设置定时器的Height属性D无法对定时器的宽度进行设置 15设计动画时通常使用时钟控件（）来控制动画速度。 AEnabledBIntervalCTimerDMove 16可以使用SetFocus方法的控件是（） AFrameBLabelCFormDTimer 17不能响应Click事件的控件是（） A列表框B图片框C窗体D计时器 18定时器的Interval属性以（）为单位指定Timer事件之间的时间间隔。 A分B秒C
5、毫秒D微秒二、问答题 二、填空题 1函数过程（FunctionPocedure）用来完成特定的功能并_。 2子过程是_的函数。又常被称为Sub过程。在事件过程或其它子过程中可以_调用过程。 3在事件过程或其它过程中可以_调用函数过程。 4函数过程_返回一个值。 5VB的代码存储在模块中。在VB中提供了三种类型的模块：_、_和_。 6菜单控件只包一个事件_，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 7使用菜单编辑器创建弹出菜单时，_为不可见，“Visible属性设置为False。 8Sub过程与Function过程最根本的区别是_。 9通用过程
6、可以通过执行“工具”菜单中的_命令来建立。 10使用PublicConst语句声明一个全局的符号常量时，该语句应放在_。 三、问答题 1什么是多文挡界面？（MDI） 2什么是文件？ 3文件管理系统有什么作用？ 4文件系统有哪些控件？ 5磁盘驱动器列表发生变动后，如何通知目录列表？ 6目录列表发生变动后，如何通知文件列表？ 7文件按照其数据存放的方式，分为几种类型？ 8如何打开顺序文件？ 9如何关闭顺序文件？ 10如何向磁盘中读写数据？ 11讨论一下PathName属性。 12顺序文件、随机文件和二进制文件各有什么特点和用途？13什么是工程？ 14什么是过程？ 15选中一个窗体，启动菜单编辑器的
7、方法有哪三种？ 16什么是动态菜单？ 17已知弹出菜单的名是aa，填补弹出菜单的代码。 18现使用菜单编辑器设计弹出菜单。菜单第一项（使顶级菜单项目）的Caption为“弹出菜单”，Name：“aa”，Visible没有选中，填补弹出菜单的代码。 四、编程题 1编写程序，计算1+2+3+4+100。 2我国现有人口为12亿，设年增长率为1%，编写程序，计算多少年后增加到16亿。 3给定三角形的三条边长，计算三角形的面积。编写程序，首先判断给出的三条边能否构成三角形，如可以构成，则计算并输出该三角形的面积，否则要求重新输入。当输入-1时结束程序。 4税务部门征收所得税，规定如下： （1）收入在2
8、00元以内，免征； （2）收入在200400内，超过200元的部分纳税3%； （3）收入超过400元的部分，纳税4%； （4）当收入达到5000元或超过时，将4%税金改为5%。 编程序实现上述操作。 5编写程序，打印如下所示的“数字金字塔”： 1 121 12321 1234321 12345678987654321 6从键盘上输入两个正整数M和N，求最大公因子。 7从键盘上输入一个学生的学号和考试成绩，然后输出该学生的学号、成绩，并根据成绩按下面的规定输出对该学生的评语： 成绩80100607950594049039 评语VerygoodGoodFairPoorFail 一、选择题 1C2A
9、3B4A5C6B7B8B91 10D11D12A13C14D15B16C17D18C 一、填空题 1返回相应的结果2没有返回值按名称3按名称4以该函数名 5窗体模块标准模块类模块6Click7顶级菜单项目 8Sub过程的过程名不能返回值，而Function过程能通过过程名返回值9添加过程 10标准模块的通用声明段 1什么是多文挡界面？（MDI） 解答：多文挡界面（Mu1tipleDocumentInterface）是指在一个父窗口下面可以同时打开多个子窗口。子窗口归属于父窗口，如果父窗口关闭，则所有子窗口全部关闭。 2什么是文件？ 解答：所谓文件是指存放在外部存储介质上的数据和程序等。 3文件
10、管理系统有什么作用？ 解答：为了方便用户存取，在现代的计算机系统中，都包含有文件管理系统。用户可以对文件进行各种各样的处理和操作，如选择、打开和删除等。 4文件系统有哪些控件？ 解答：在VB6.0中包括四个文件类控件，它们分别是DriveListSox控件、DirListBox控件、FileListBox控件和CommDialog控件。 5磁盘驱动器列表发生变动后，如何通知目录列表？ 解答： PrivateSubDrive1_Change（） Dir1.Path=Drive1.Drive设置DirListBox控件的路径与DriveListBox控件同步。 EndSub 6目录列表发生变动后，
11、如何通知文件列表？ 解答： PrivateSubDir1_Change（） File1.Path=Dir1.Path EndSub 7文件按照其数据存放的方式，分为几种类型？ 解答：按照文件的存取方式及其组成结构可以分为两种类型：顺序文件和随机文件。 8如何打开顺序文件？ 解答：打开顺序文件的语法结构如下： OpenpathnameFormodeAccessaccesslockAs#filenumberLen=reclength Open语句的语法参数及其说明如下所示： 参数说明 Pathname指定文件路径和文件名 Mode指定文件方式，有Append，Binary，Input,Output
12、或Random方式。 Access说明打开的文件可以进行的操作，有Read，Write或ReadWrite操作 Lock说明其它进程能够对打开的文件进行的操作，有Shared，LockRead，LockWrite和LockReadWrite操作。 Filenumber一个有效的文件号，范围在1到511之间 Reclength小于或等于32767（字节）的一个数，对于用随机访问方式打开的文件， 该值就是记录长度，对于顺序文件，该值就是缓冲字符数。 9如何关闭顺序文件？ 解答：Close， 10如何向磁盘中读写数据？ 解答：从顺序文件中读取数据的语法结构如下： Input#filenumber,v
13、arlist Input#语句的语法参数及其说明如下： Filenumber有效的文件号 Varlist用逗号分界的变量表，将文件中读出的值分配给这些变量。 向顺序文件中写入数据的语法结构如下： Write#filenumber，output1ist Write#语句的语法具有以下几个部分，它的参数及说明如下： Filenumber一个有效的文件号 Outputlist要写入文件的表达式，用逗号将这些表达式分界。 11讨论一下PathName属性。 解答：pathname为所要执行的应用程序的名称及其路径和必要的参数。 12顺序文件、随机文件和二进制文件各有什么特点和用途？ 解答：所谓顺序文件
14、，通常指的是普通的文本文件，文件中的字符包括文本字符及控制字符，如“，”，Chr（14）”，换行符“GR，LF”，“Chr（13）”，“Chr（10）”等。 由于这类文件的信息是按照顺序从头到尾按顺序排列，而且只提供第一条记录的存储位置，所以对其中的数据信息进行处理是相当困难的。 随机文件由记录组成，能够随机存取其相同长度的数据记录，每一数据记录内可以设计各种栏位以容纳不同的数据。此种文件数据是以二进制的位的形式保存在磁盘上。随机文件比顺序文件占用内存多。 二进制文件的数据是以二进制格式保存的,能用来存储任何数据。这种文件的灵活性最大，但程序的工作量大。二进制访问能够提供对文件的完全控制，因为
15、文件中的字节可以代表任何东西。13什么是工程？ 解答：工程是构成应用程序文件的集合。工程文件是与工程相关联的所有文件和对象以及所设置的环境信息的一个简单的列表，所有文件和对象也可以被其它的工程所共享。 14什么是过程？ 解答：一个应用程序是由若干个模块组成的，而每个模块又是由若干个更小的代码片段组成，将组成这些模块的代码片段称为过程。通过过程，可以将整个程序按功能进行分块，每个过程用来完成一项特定的功能。 15选中一个窗体，启动菜单编辑器的方法有哪三种？ 解答：（1）使用菜单“工具”/（菜单编辑器） （2）使用工具栏按钮工具栏快捷键；（3）键盘快捷键CTRL+E 16什么是动态菜单？ 解答：动
16、态菜单，就是菜单中列出了最近使用过的文件名，这部分内容是随着应用程序的运行而不断改变着的，在运行时使菜单可以增长。 17已知弹出菜单的名是aa，填补弹出菜单的代码。 解答：PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger，XAsSingle，YAsSingle） 在窗体上按下鼠标。 IfBtton=2Then如果是右键。 PopupMenuaa弹出菜单。 EndIf EndSub 18现使用菜单编辑器设计弹出菜单。菜单第一项（使顶级菜单项目）的Caption为“弹出菜单”，Name：“aa”，Visible没有选中，填补弹出菜单的代
17、码。 解答：PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger，XAsSingle，YAsSingle） 在窗体上按下鼠标。 IfBtton=2Then如果是右键。 PopupMenuaa弹出菜单。 EndIf EndSub 四、程序题1编写程序，计算1+2+3+4+100。 解答：使用For循环语句，程序如下： PrivateSubForm_Click() StaticSumAsInteger ForI=1To100 Sum=Sum+I NextI PrintSum EndSub 程序运行后，单击窗体，输出结果为：5050。 如果使
18、用当循环语句，则程序如下： PrivateSubForm_Click() StaticSumAsInteger I=1 Whilei=100 Sum=Sum+I I=I+1 Wend PrintSum EndSub 2我国现有人口为12亿，设年增长率为1%，编写程序，计算多少年后增加到16亿。 解答：程序如下： PrivateSubForm_Click() DimpAsDouble DimrAsSingle DimnAsInteger P= r=0.01 Whilep P=P+P*r N=N+1 Wend P=Int(P) PrintN;年后，全国人口为：；P EndSub 运行程序，单击窗体
19、，输出结果为： 29年后，全国人口为：。 3给定三角形的三条边长，计算三角形的面积。编写程序，首先判断给出的三条边能否构成三角形，如可以构成，则计算并输出该三角形的面积，否则要求重新输入。当输入-1时结束程序。 解答：从几何学可知，三角形的两边之和大于第三边。因此，如果输入的三角形的三条边中两边之和小于或等于另一边长，则不能构成三角形。在这种情况下，给出适当的信息，并要求重新输入。如果能构成三角形，则输出该三角形的面积。 程序如下： PrivateSubForm_Click() Dima,b,c,s,tAsSingle Start: A=InputBox(请输入A边的边长) A=Val(a)
20、Ifa=-1ThenEnd B=InputBox(请输入B边的边长) B=Val(b) C=InputBox(请输入C边的边长) C=Val(c) Ifa+b=cOrb+c=aOrc+a=bThen MsgBox所输入的值不能构成三角形，请重新输入 GoToStart EndIf S=(a+b+c)/2 T=Spr(s*(sa)*(sb)*(sc) Print三角形的面积为：；T EndSub 程序运行后，单击窗体，先后显示三个输入对话框，在三个对话框中分别输入三角形的三条边长，程序先判断输入的边长是否能构成三角形，然后决定之后的操作，用信息框显示信息或者输出三角形的面积。当输入1，2，3时，
21、将显示信息框，要求重新输入；如果输入8，7，6，则输出结果为： 三角形的面积为：20.33316 4税务部门征收所得税，规定如下： （1）收入在200元以内，免征； （2）收入在200400内，超过200元的部分纳税3%； （3）收入超过400元的部分，纳税4%； （4）当收入达到5000元或超过时，将4%税金改为5%。 编程序实现上述操作。 解答：程序如下： PrivateSubForm_Click() R=InputBox(请输入您的收入) R=Val(r) Ifr200Andr400Andr=5000Then tax=(r400)*0.05 EndIf Print收入；r;应纳税；tax
22、 EndSub 程序运行后，单击窗体，在输入对话框中输入收入数，程序将输出纳税金额。 5编写程序，打印如下所示的“数字金字塔”： 1 121 12321 1234321 . . . 12345678987654321 解答：程序如下： PrivateSubForm_Click() ForI=1To9 Forj=1To30-3*I Print; Nextj Fork=1ToI Printk; Nextk Fork=I1To1Step1 Printk; Nextk Print NextI EndSub 6从键盘上输入两个正整数M和N，求最大公因子。 解答：程序如下： PrivateSubForm_
23、Click() Dimm,nAsInteger m=InputBox(请输入M的值) m=Val(m) m1=m n=InputBox(请输入N的值) n=Val(n) n1=n DoWhilen0 remin=mModn m=n n=remin Loop Printm1;和;n1;的最大公因子是：;m EndSub 该程序通过辗转相除法求两个正整数的最大公因子。程序运行后，在输入对话框中分别输入96和64，输出结果为：96和64的最大公因子是：32 7从键盘上输入一个学生的学号和考试成绩，然后输出该学生的学号、成绩，并根据成绩按下面的规定输出对该学生的评语： 成绩80100607950594049039 评语VerygoodGoodFairPoorFail 答案：程序如下： PrivateSubForm_Click() n=InputBox(请输入学号) s=InputBox(请输入分数) Ifs=80Then MsgBox学号&n&,分数为&s&,VerygoodElseIfs=60Ands=50Ands=40Ands=0Ands=39Then MsgBox学号&n&,分数为&s&,Fail EndIf EndSub 程序运行后，单击窗体，在输入对话框中分别输入学号和分数，程序将在输出对话框中输出适当评语。专心-专注-专业