VB程序设计题型示例答案

VisualBasic6.0程序设计题型示例参考答案、选择题（每小题中只有一个选项是正确的）1．A9．A2．C10．A3．C11．C4．C12．B5．D13．D6．B14．D7．D15．A8．B16．C17．B18．A19．A20．D21．A22．A23．C24．C25．A26．C27．D28．D29．C30．C31．C32．B33．B34．C35．B36．C37．D38．D39．C40．C41．C42．D43．B44．A45．C46．C47．B48．D49．D50．D51．B52．C53．B54．D55．D56．C57．A58．D59．A60．A61．D62．C63．A64．C65．A66．D67．D68．A69．C70．A71．A72．D73．C74．A75．D76．B77．D78．B79．A80．B81．C82．A83．B84．D85．B86．B87．B88．B89．B90．C91．C92．A93．A94．D95．C96．C97．D98．C99．D100．D101．A102．D103．D104．C105．C106．C107．A108．A109．D110．A111．A112．D113．B114．B115．C116．B117．B118．B119．B120．D121．C122．B123．D124．C125．C126．D127．D128．D129．D130．C131．D132．B133．C134．A135．D136．C137．A138．A139．C140．A141．B142．B143．C144．B145．A146．A147．B148．D149．D150．B151．D152．C153．D154．A155．B156．D157．B158．D159．C160．A161．B162．A163．A164．C165．A166．D167．D168．A169．D170．A171．B172．D173．A174．C175．D176．B177．B178．B179．C180．A181．B182．B183．D184．D185．B186．A187．A188．A189．D190．D191．B192．B193．B194．A195．B196．D197．C198．B199．C200．D

201.B202.D203.D204.A205.B206.C207.A208.C209•B210.B211.B212.C213.D214.D215.B216.D217.B218.A219.D220.D221.B222.C223.D224.D225.C226.D227.C228.B229.C230.B231.A232.C233.A234.B235.D236.C237.A238.B239.C240.B241.C242.B243.C244.B245.D246.B247.C248.B249.C250.C251.D252.D253.D254.C255.D256.B257.B258.A259.B260.B261.C262.A263.B264.B265.B266.C267.D268.B269.A270.A271.A272.B273.D274.B275.A276.A277.C278.C279.D280.D281.B282.A283.C284.A285.D286.B287.C288.A289.A290.B291.D292.A293.C294.B295.D296.D297.B298.D299.D300.D301.B302.C303.B304.B305.D306.B307.C308.B309.A310.A311.B312.D313.D314.C315.D316.D317.B318.C319.B320.A321.B322.D323.D324.A325.B326.A327.A328.C329.C330.B331.A332.C333.B334.D335.B336.D337.A338.B339.C340.A341.C342.A343.B344.A345.D346.C347.D348.B349.C350.C351.D352.D353.B354.C355.A356.D357.A358.D359.D360.C二、判断题1.V2.X3.V4.V5.V6.V7.X8.X9.V10.V11.V12.V13.V14.X15.V16.V17.V18.X19.X20.V21.X22.V23.X24.V25.V26.V27.V28.X29.V30.V31.V32.V33.V34.V35.V36.X37.X38.X39.X40.V41.V42.X43.V44.V45.X46.V47.X48.X49.X50.V51.V52.V53.V54.X55.V56.V57.V58.X59.X60.X61.V62.V63.X64.X65.V66.X67.V68.X69.V70.V71.V72.X73.X74.X75.X76.X77.X78.X79.V80.X81.X82.V83.X84.V85.V86.X87.V88.V89.X90.V91.V92.V93.X94.V95.X96.X97.V98.X99.X100.V三、名词解释题1．对象是系统中的基本运行实体。用户用来构筑用户图形界面的每一个可视的控件均为对象。创建用户界面时用到的对象可分为窗体对象和控件对象。整个应用程序也是一个对象，还有一些对象不可视。2．属性是对对象特征的描述，不同的对象有不同的属性，属性可以属性窗口中设置也可以用代码设置。3•事件是由VisualBasic6.0预先设置好的，能够被对象识别的动作。不同的对象能够识别的事件也不同。当事件由用户触发或系统触发时，对象就会做出响应。4．方法是指控制对象动作行为的方式，是对象包含的函数或过程。方法的调用语法格式为：对象名.方法名。工程是VisualBasic应用程序开发过程中使用的文件集。VisualBasic工程主要由窗体模块、标准模块和类模块三部分组成。VisualBasic6.0采用事件驱动编程机制。当发生某个事件时，就会“驱动”预先设置的一系列动作，称为“事件驱动”。针对窗体或控件的事件编写的代码。8•在程序执行期间数值始终不变的量，称为常量。在VisualBasic中，常量分为两种：一般常量和符号常量。符号常量是在程序中用标识符表示的一些永远不变的常数或字符串。程序执行过程中其值可以变化的量，称为变量。在程序运行中，系统为程序中的每一个变量分配一个存储单元，变量名实质上就是计算机内存单元的命名。变量名用于识别变量在内存中的位置，变量的类型指定其占用内存空间的大小。在VisualBasic中，把一组具有同一名字、不同下标的变量，称为数组。定长数组是指元素个数保持不变的数组。动态数组是指计算机在执行过程中才给数组开辟存储空间的数组。可以用ReDim语句再次分配动态数组占据的存储空间，也可以用Erase语句删除它，收回分配给所占存储空间，也可以改变数组元素的个数。系统功能设计是程序设计的起始部分，也是最为重要的部分，它是程序设计的骨架，直接决定后期程序的好坏。编译错误也称为语法错误，这种错误是由于程序中的语句违反了VisualBasic的语法规则而引起的。16•实时错误是指程序输入或编译时并未出现任何语法错误，但在程序运行过程中发生错误，导致应用程序中断。该类错误在设计阶段较难发现，通常在程序运行时发现。逻辑错误是最难以处理的一种错误。程序可以正常执行，但得不到所希望的结果。这不是程序语句的错误，而是由于程序设计时本身存在的逻辑缺陷导致的。为了简化程序设计，通常将程序分割成较小的逻辑部件，这些部件称为过程。过程分为:Sub过程（没有返回值）和Function过程（具有返回'直）。为了完成某个特定任务，通常会编写一段相对独立的程序。VisualBasic中允许变量不经过声明就直接使用的，默认为变体型局部变量，称为隐式声明。一个表达式可能含有多种运算，系统会按预先确定的顺序进行计算，此顺序称为运算符的优先顺序。22•所谓窗体就是窗口，在VisualBasic中，窗体是用户界面最基本的模块，也是创建应用程序所使用的主要对象之一。就是给数组的各个元素赋初值。包含在程序代码中的常量，可分为字符串常量、数值常量、布尔型常量、日期型常量。文件扩展名为.els，这类模块是面向对象编程的基础。在类模块中可以通过编写代码来建立新对象，这些新对象可以包含自定义的属性和方法。26.窗体模块的文件扩展名为.frm。这类模块是VisualBasic应用程序的基础。窗体模块可以包含事件过程、通用过程，以及变量、常数、类型和外部过程的窗体级声明。27•标准模块的扩展名为.bas。这类模块是应用程序内其他模块访问的过程和声明的容器。28．注释语句是为了方便程序阅读对程序进行的说明，对程序运行没有影响。29•赋值语句的功能是把右边的表达式的值赋给左边的变量或某个带有属性的对象。快速显示窗体一般作为程序的封面使用，这种窗口一般没有命令按钮、没有标题栏。图像框控件，可以显示位图、图标或者元文件，以及来自增强的元文件、JPEG或GIF文件的图形。通用对话框控件提供一组标准的操作对话框，包括打开和保存文件，设置打印选项，选择颜色和字体，帮助等对话框。图像列表控件，包含Listimage对象的集合，该集合中的每个对象都可以通过其索引或关键字被引用。为其它控件提供图像资料的中心，不能独立使用。目录列表框控件，在运行时显示目录和路径，这个控件可以用于显示分层的目录列表。文件列表框控件，在运行时把Path属性指定的目录中的文件显示出来，该控件用来显示所选择文件类型的文件列表。ODBC即开放数据库互连，是Microsoft公司开放服务结构中有关数据库的一个组成部分。在继续使用应用程序的其他部分之前，必须关闭、隐藏或卸载的对话框。API：应用程序编程接口。SQL:结构化查询语言。图形控件：可以用于显示矩形、正方形、椭圆、圆形、圆角矩形或者圆角正方形。FSO对象模型：提供了一个基于对象的用来管理驱动器、文件夹和文件，以及文本文件的工具。对话框是一种用来实现用户与应用程序之间提供数据、获取信息的特殊类型的窗体对象。MDI：多文档界面应用程序。框架控件：框架控件为其他控件提供可标识的分组，可以在功能上进一步分割一个窗体。驱动器列表框控件：用来显示用户系统中所有有效驱动器的列表。46•列表框控件：用于显示项目列表，从中可以选择一项或多项。单选框控件：显示一个可以打开或关闭的选项。MsgBox函数：在对话框中显示消息。等待用户单击按钮并返回一个数，表明用户单击了那一个键。数据控件：数据控件是数据库与VB窗体之间的桥梁。菜单控件：用于显示应用程序的自定义菜单。InputBox函数：在对话框中显示提示，等待用户输入文本或按下按钮并返回文本框内的字符串。工具栏控件：用来创建与应用程序相关联的工具栏。Circle方法：用于在图像框上画圆、椭圆和扇形。line方法：用于在窗体或图像框上画直线和矩形。PSet方法：将图像上的点设置为指定颜色。SDI：单文档界面。Erase语句：用来重新初始化定长数组的元素，或者释放动态数据的存储空间。命令按钮控件：可以开始、中断或者结束一个进程。59•步长：步长是循环变量的增量，其值可以是正数或负数，如果没有设置ep，则步长默认值为1。60.计时器控件：计时器控件用于背景进程中，它是不可见的。通过引发Timer事件，计时器控件可以有规律地隔一段时间执行一次代码。计算机类专业（上册）VisualBasic6.0程序设计计算机组装与维修四、简答题1•答：（1）按F7键（2）双击窗体或者控件（3）单击“工程资源管理器”窗口的“查看代码”按钮（4）“视图”菜单中的“代码窗口”选项•答：（1）按F4键（2）单击“视图”菜单中的“属性窗口”选项（3）单击工具栏上的“属性窗口”按钮（4）Ctrl+W•答：（1）按F5键（2）单击“运行”菜单中的“启动”选项（3）单击工具栏上的“启动”按钮4.答：工具箱中会出现的有Label标签控件、PictureBox图片框控件、TextBox文本框控件、Frame框架控件、CommandButton按钮控件、CheckBox复选框控件、OptionButton单选框控件、ListBox列表框控件、ComboBox组合框控件、HScrollBar水平滚动条控件、VScrollBar垂直滚动条控件、Timer计时器控件、DriveListBox驱动器列表控件、DirListBox目录列表控件、FileListBox文件列表控件、Shape形状控件、Line直线控件、Image图像控件、Data数据控件、OLE控件。5•答：整型、长整型、单精度型、双精度型、货币型、字节型、字符型、日期型、布尔型、变体型、对象型。6.答：分为算术表达式、字符串表达式、关系表达式、布尔表达式、日期表达式。7•答：动态数组可以用REDIM多次声明，而静态数组只能用DIM声明一次；动态数组的元素个数可以改变，而静态数组的元素个数保持不变；动态数组的在声明时下标可以变量，而静态数组的下标只能是常量；动态数组可以用ERASE收回内存空间，而只能用ERASE删除静态数组的内容。8•答：按地址方式传递和按值方式传递。按地址方式传递的是变量的在内存中的地址，实参传递给形参后，经过改变，形参又返回给了实参；而按值方式传递的是变量的副本，实参传递给形参后，经过改变后，不再返回给实参。9•答：VisualBasic程序中的错误分为三类，分别是编译错误（语法错误）实时错误和逻辑错误。答：（1）单击“工程”菜单，选择“添加MDI窗体”，添加MDI窗体（2） 将已存在的窗体或添加一个窗体，将其MDIChild属性设置为true，即将窗体设置为MDI窗体的子窗体。（3） 在子窗体上添加控件，设置属性，编写代码答：（1）所有子窗体均在MDI窗体的工作空间内活动，不能移出MDI窗体。（2） 子窗体最小化时，图标显示在MDI窗体的底部，而不是任务栏上。（3） 子窗体最大化时，子窗体的标题与MDI窗体的标题合并，显示在MDI窗体的标题栏上。12•答：（1）添加一个窗体（2） 将窗体的标题caption属性设置为空字符串，borderstyle设置为3，controlbox设置为False，让窗体没有标题栏，没有边框，没有控制菜单（3） 在窗体上添加一些需要的文字和图片（4） 选择“工程”菜单“属性”选项，在启动对象下拉列表框中将该窗体设置为启动对象。13.答：控件操作包括：添加控件、选取控件、移动控件、调整控件大小、复制控件、删除控件、设置控件格式、设置控件间距。14．答：(1)在工具箱中单击表示控件的图标，然后在窗体上拖动鼠标以绘制一个控件(2；)在工具箱中双击表示某个控件的图标。15．答：有两种方法：在窗体上选择要复制的一个或多个控件，选择“编辑”菜单中的“复制”选项，从“编辑”菜单中选择“粘贴”选项出现提示已经有某控件，是否要创建控件数组时，单击“是”按钮；在窗体上添加多个相同的控件，把它们的Index属性设置为连续的值。16．向框架中添加控件：如果希望将已经存在的若干控件放在某个框架中，可以先选择所有控件，将它们剪贴到剪贴板上，然后选定框架控件并把它们粘贴到框架上(不能直接拖动到框架中；)也可以先添加框架，然后选中框架，再在框架中添加其它控件，这样在框架中建立的控件和框架形成一个整体，可以同时被移动、删除。17．答：选取要设置对齐方式的一组控件，单击窗体编辑器左边的向下箭头，并从弹出的菜单中选择所需要的对齐方式。18．答：选取一组控件，单击窗体编辑器中间的向下箭头，并从弹出的菜单中选择“水平对齐”或“垂直对齐”选项。19．答：选取一组控件，单击窗体编辑器左边的向下箭头，并从弹出的菜单中选择“宽度相同”、“高度相同”或“两者都相同”选项。答：利用Additem方法，其格式为：List.Additemitem,index。答：利用Pset方法，格式为Object.Pset(x,y),color，将Backcolor属性设置为Color参数。22•答：Shape控件用于显示矩形、正方形、椭圆、圆形、圆角矩形、圆角正方形6种图形。答：Clipboard对象提供对系统剪贴板的访问，用于操作剪贴板上的文本和图形；要想返回或设置Clipboard对象中的文本字符串需要用Clipboard.Gettext()。答：(1)在窗体上单击控^Toolbar!在属性窗口中单击自定义旁边的按钮2(在工具栏控件“属性页”对话框中切换到“通用”选项卡;(3)在“图像列表“列表框中选择ImageListl，并单击“应用”按钮。答：当从驱动器列表框中选择一个新的驱动器时将发生Change事件答：利用文件列表框的Listcount属性答：顺序文件有Output、Input、Append三种访问方式。答：(1)定义记录类型和记录变量；(2)使用Open以随机方式打开文件；(3)对记录进行读/写操作；(4)关闭随机文件。答：(1)当数组较小或者只需对数组中的指定元素操作时，可以通过直接引用数组来实现对数组指定元素的遍历。对于元素较多的一维数组，通常采用一重循环来实现对数组各个元素的遍历。对于元素较多的二维数组，通常采用二重循环来实现对数组各个元素的遍历。对于多维数组，通常采用多重循环来实现对数组各个元素的遍历答：(1)打开文本文件(2)向打开的文本文件中写入数据(3)关闭文本文件答：建立应用程序界面、设置界面对象属性、编写事件驱动代码答：if条件Then[语句1][Else语句2]答：循环语句有3种语句：For、While和Do,For用于执行指定次数，While为先测试型循环语句，Do为后测试型循环语句。答：算术运算符、字符串连接运算符、关系运算符、布尔运算符答：For循环变量=初值To终值[Step步长][循环体][ExitFor][循环体]Next[循环变量]答：算术运算符、字符串连接运算符、关系运算符、布尔运算符37•答：创建动态数组通常可分为两步。首先在窗体级别、标准模块或过程中，用Dim语句（模块级数组）、Public语句（公用数组）、Private或Static（局部数组）声明一个没有下标的数组（括号不能省略），然后再过程中用ReDim语句定义带下标的数组。38.答：While＜条件＞[循环体]Wend39•答:If＜条件1＞Then[语句块1][ElseIf＜条件2＞Then[语句块2][ElseIf＜条件3＞Then[语句块3][Else[语句块n]]EndIf答：设置对象的属性、调用对象的方法、为对象事件编写事件过程。答：（1）标识符必须以字母开头。最大长度为255。（2） 标识符不能使用VisualBasic的保留字（关键字）。在VisualBasic中不能包含有特殊含义的字符。（3） VisualBasic的标识符不区分大小写。（4） 标识符在标识符的同一范围内必须是唯一的。答：（1）不区分大小写。（2） 标点符号，如逗号、分号需要在英文状态下输入。（3） 语句以回车键结束。一般要求“一句一行”，也可以使用复合语句，即把多句写在一行上，必须用冒号（：）连接。当一行代码很长时可以用“空格+_”来续行。。答：EndUnload＜对象名称＞End语句的功能是结束正在运行的程序；Unload语句的功能是从内存中卸载窗体或控件。44.答：引用数组元素时的注意事项。1）引用数组元素是在数组名后的括号内指定下标。2）在引用数组元素时，数组名、类型和维数必须与声明数组时一致。（3）如果建立的是二维或多维数组，则在引用时必须给出两个或多个下标。（4）引用数组元素时，要注意下标值要在声明的范围之内。（5）一般可以出现常数或变量的地方都可以引用数组元素。简述将MSFlexGrid控件添加到工具箱中的操作步骤。答：要将MSFlexGrid控件添加到工具箱中，选择“工程”菜单下的“部件”命令，在“部件”对话框选择“控件”选项卡，从控件列表中选择MicrosoftFlexGridControl6.0（SP6）”选项，然后单击"确定”按钮。创建对话框有哪几种方法。答：（1）使用MsbBox或InputBox函数的代码创建预定义对话框。（2） 使用标准窗体或自定义已存在的对话框创建自定义对话框。（3） 使用CommonDialog控件创建标准对话框。简述Select Case语句执行的流程。答：SelectCase语句执行的流程是：对测试表达式进行测试并检查表达式列表1,若为真，则执行语句块1并结束选择；若为假，继续检查下一个条件，如果都不为真，则执行语句块n,如果没有语句块n,则什么也不做就结束选择。建立事件过程有哪几种方法。答：（1）双击窗体或控件，即可打开代码编辑器窗口，并且会出现该窗体或控件的默认过程代码。（2） 单击工程资源管理器窗口的“查看代码”按钮，然后从“对象”列表框中选择一个对象，从“过程”列表框中选择一个过程。（3） 自己编写事件过程，在代码编辑器窗口中直接编写事件过程。简述窗体的Load事件和Activate事件的区别。答：当程序载入（Load）一个窗体的Visible属性为False的窗体时不发生Activate事件，只有当使用Show方法将该窗体的Visible属性设置为True时才产生Activate事件。Load事件在Activate事件之前发生，Load事件在看不到窗体的时候就已经发生了，一般是对窗体进行初始化，而Activate事件是看到窗体的时候才发生。简述调用Sub过程有哪几种方式。答:（1）用Call语句调用过程：Call过程名［（实际参数）］（2）把过程名作为一个语句使用：过程名［实际参数］建立通用过程的操作步骤。答：打开代码编辑器窗口，从“对象”列表框中选择“通用”选项，然后在代码编辑区的空白处输入“Sub＜过程名〉"，按Enter"键后即会出现EndSub语句。图像框控件的功能：答：（1）接受和输出一般图形；（2）还可用于创建动态画图；（3） 支持Print方法，在对象中输出文本；（4） 图像框是容器对象，可以在此控件中放置其他控件。答：启动VisualBasic6.0。（1） 执行“开始”一“程序"一“MicrosoftVisualBasic6.0中文版”命令，出现VisualBasic版权画面，然后弹出“新建工程”对话框；（2） 在“新建”选项卡中选择“标准EXE"选项，然后单击“打开”按钮，进入VisualBasic6.0集成开发环境。

54.VisualBasic6.0集成开发环境的组成。答：VisualBasic窗口由标题栏、菜单栏、工具栏、工具箱、窗体设计窗口、工程窗口、属性窗口、窗体布局窗口组成。54.VisualBasic6.0集成开发环境的组成。答：VisualBasic窗口由标题栏、菜单栏、工具栏、工具箱、窗体设计窗口、工程窗口、属性窗口、窗体布局窗口组成。55•简述VisualBasic的三种工作模式是如何切换的。答：启动VisualBasic自动进入设计模式；从“运行”菜单中选择“启动”命令将进入运行模式；从“运行”菜单中选择“结束”命令将返回设计模式；从“运行”菜单中选择“中断”命令将进入中断模式答：清除随机访问文件中记录的步骤。（1）创建一个新文件。（2）把有用的所有记录从原文件复制到新文件。（3） 关闭原文件并用Kill语句删除它。（4） 使用Name语句把新文件以原文件的名字重新命名。文件访问的类型？答：顺序型、随机型、二进制型。为文本框设置访问键的方法？答：首先添加一个标签并在其Caption属性中通过&字符制定一个访问键，然后添加一个文本框，这样标签的Tabindex属性比文本框的该属性小1,而标签不能接受焦点，使用访问键即可把焦点置于文FSO对象模型包括哪些对象？Driver对象、Folder对象、Files对象、FileSystemObject对象、TextStream对象。Do/loop语句前测试型do/loop本框中。59.答：60.答：1)Dowhile/until<条件>语句块loopg2）后测试型do/loopDo语句块Loopwhile/until<条件>五、综合题1.Dimxassingle,yassinglex=inputbox（"请输入一个数","输入"）Ifx<0thenY=xElseifx<10thenY=x+1Elseifx<20thenY=x八2Elseifx<50thenY=2*x+3ElseY=x1EndifPrintY2．DimIasInteger,sAssingleS=0Fori=3to100step2PrintIS=s+iNextiPrint"3~100之间的奇数之和是"&s3．DimIasInteger,sasintegerS=0Fori=1to10S=s+iA2NextiPrint“1+4+9++100=”s4．Dimiasinteger,jasinteger,casintegerFori=200to300Forj=1toi1IfImodj=0thenExitforEndifNextjIfi=jthenprintIc=c+1ifcmod5=0thenprintendifnexti5．DimiasInteger,jasInteger,sasinteger,masintegerS=0ForI=1to99step2M=1Forj=1toiM=M*jNextS=s+mNextPrint“1!+3!+5!+……+99!=“；s6．Dimx(1to10)asInteger,iasinteger,minasinteger,kasintegerPrint"产生的10个数是"Fori=1to10X(i)=int(rnd*101+100)Printx(i)NextK=1Min=x(1)Fori=2to10Ifmin>x(i)thenMin=x(i)K=iEndifNextiPrint"最小值是"；min,"位置是"；Kasinteger,casinteger7．Dimx(1to10)asInteger,Iasinteger,jasinteger,casintegerPrintPrint"产生的10个数是"ForI=1to10X(i)=int(rnd*101+100)Printx(i)NextFori=1to9Forj=i+1to10Ifx(i)<x(j)thenC=x(I)X(i)=x(j)X(j)=cEndifNextjNextiPrintPrint"由大到小排序后的数据序列是"Fori=1to10Printx(i)Next8・编写一个SUB过程，求N!PrivateSubJc(n,m)m=1ForI=1Tonm=m*InextEndSubPrivatesubcommand_click()Fori=1to10Calljc(I,m)S=s+mNextPrintsEndsub9．PrivateFunctionymj(r)assingleYmj=3.1415926*rA2EndfunctionPrivatesubcommand_click()Printymj(10)Endsub10．Privatesubform_load()Dima(1to10)asintegerDimI,j,sasintegerFori=1to10A(i)=int(rnd*271+230)NextiFori=1to9Forj=Ito10Ifa(i)<a(j)S=a(i)A(i)=a(j)A(j)=sEndifNextjNextiFori=1to10Printa(i)NextiEndsub11．Privatesubcommand1_click()dimaasinteger,basinteger,casinteger,rasintegera=inputbox("请输入一个整数"，"输入")b=inputbox("请输入一个整数"，"输入")ifa<bthenc=aa=bb=cendifr=amodbdowhiler<>0a=bb=rr=amodbloopprint"公约数是"bEndsub12．DimiAsInteger,nAsInteger,sumAsDoublen=Val(InputBox("请输入一个数"))sum=0Fori=1Tonsum=sum+i*(i+1)NextiPrintsum13．Dimi%,a%,s%,n%n=Val(InputBox("请输入项数"))a=1s=0Fori=1Tons=s+i*aa=aNextiPrintS14．DimiAsInteger,jAsInteger,sAsLong,nAsInteger,aAsIntegern=Val(InputBox("请输入一个数"))s=0Fori=1Tona=0Forj=1Toia=a+jNextjs=s+aNextiPrints15．DimnAsInteger,sAsSingle,iAsIntegern=Val(InputBox("请输入一个数"))s=0Fori=1Tons=s+1/(i*(i+1))NextiPrints16．DimaAsInteger,bAsInteger,cAsInteger,dAsInteger,sAsDoublea=0:b=1Ford=1To18c=a+ba=bb=cs=s+cNextdPrints17．Dima(1To11)AsInteger,Iasinteger,jasinteger,xasintegerFori=1to10A(i)=int(rnd*101+100)NextFori=1to9Forj=i+1to10Ifa(i)>a(j)thenN=A(i)A(i)=a(j)A(j)=nEndifNextNextX=inputbox（"请输入一个整数"，"输入"）K=1Fori=1to10Ifx<a(i)thenk=I：exitforNextFori=10tokstep1A(i+1)=a(i)NextA(i)=xFori=1to11Printa(i):Next18．Dima(1to10)AsInteger,iAsInteger,jAsInteger,sAsIntegerDimpasinteger,maxasinteger,minasintegerS=0Fori=1to10A(i)=int(rnd*10)Printa(i)S=s+a(i)NextMax=a(1)Min=a(1)Fori=2to10Ifmax<a(i)thenmax=a(i)Ifmin>a(i)thenmin=a(i)NextS=smaxminP=s/8Print"最后得分"&p19．DimxAsInteger,iAsIntegerx=Int(Rnd*91+10)Fori=2Tox1IfxModi=0ThenPrint"No"ExitForEndIfNextiIfi=xThenPrint"Yes"20．Dima(1To20)AsIntegerDimmaxAsInteger,minAsInteger,sAsSingle,pjzAsSingles=0Fori=1To20a(i)=Int(Rnd*49+51)Printa(i)s=s+a(i)Nextimax=a(1):min=a(1)Fori=2To20Ifa(i)>maxThenmax=a(i)Ifa(i)<minThenmin=a(i)Nextipjz=s/20Print"最大值是："max"最小值是："min"平均值是："pjz21．DimyAsInteger,rAsInteger,casintegerY=Val(InputBox("请输入出生月"))R=Val(InputBox("请输入出生日"))Selectcasey*100+rCase120to218Print"水瓶座"Case219to320Print"双鱼座"Case321to419Print"白羊座"Case420to520Print"金牛座"Case521to621Print"双子座"Case622to722Print"巨蟹座"Case723to822Print"狮子座"Case823to922Print"处女座"Case923to1023Print"天秤座"Case1024to1122Print"天蝎座"Case1123to1221Print"射手座"Caseis〉1221,is<120Print"摩羯座"Endselect22．DimxAsInteger,yAsIntegerForx=0To200To33x+3*y+(100 xy)/30To33x+3*y+(100 xy)/3