VB考试系统模拟试题及笔试题

电子发烧友 电子技术论坛 Visual Basic实验指导书软件技术基础（Visual Basic 程序设计）实验指导书院系：_班级：_学号：_姓名：_燕山大学计算机教学实验中心2005年3月说 明目前，面向对象程序设计语言VB已成为我校信息基础教学的主要内容。本实验手册包含三方面内容：实验指导、实验报告和实验作业，成为我校VB课程上机实验指导的主要依据。实验报告部分由课内实验完成，实验作业部分由学生课下完成。本手册由燕山大学计算机基础教研室娄凤伟老师执笔，李阳明老师审核。由于编写仓促，难免有错误和不足之处，请各位老师和同学指正。 目 录实验一 VB集成环境及简单应用程序的建立 .4实验二 Visual Basic语言基础.9实验三 顺序结构程序设计.12实验四 选择结构程序设计14实验五 循环结构程序设计17实验六 数组的使用.19实验七 过程.21实验八 函数 .23实验九 文件的基本操作 .24实验十 VB的窗体 . 27实验十一 VB的常用控件（一）.29实验十二 VB的常用控件（二）.31附录 考试系统模拟试题及笔试题 33实验一 VB集成环境及简单应用程序的建立一、实验目的(1)掌握VB60的启动与退出。(2)了解VB60的集成开发环境，熟悉各主要窗口的作用。(3)了解VB60应用程序的开发过程。(4)理解VB中对象的概念。(5)掌握在VB60中使用帮助的方法。二、相关知识1VisualBasic60的启动与退出 VisualBasic60的启动与退出与一般的Windows应用程序的启动与退出一样，可以通过“开始”菜单启动VisualBasic60，也可以将VisualBasic60程序以快捷方式放在桌面上，然后双击该图标将其启动；退出可以在“文件”中选择“退出”、或双击窗口控制菜单图标、或单击窗口关闭按钮。2VisualBasic60的集成开发环境 VB60的集成开发环境在一个公共环境中集成了设计、编辑、编译和调试等许多不同的功能，它由菜单、工具栏、工具箱、浏览器及完成各种特定功能的窗口组成。3VB应用程序的开发过程 VB采用的是一种“可视化”的编程方法，可以先设计应用程序的外观，然后再编写不同部件的程序代码。4VB中对象的概念 对象是基本的运行时的实体，它既包括了数据(对象属性)，也包括作用于对象的操作(方法)和对象的响应(事件)。对象的属性用来表示对象的状态，对象的方法决定了对象可以进行的操作。不同的对象具有不同的属性和方法，VB中最主要的两种对象是窗体和控件，程序设计中，基本的设计机制就是改变对象的属性、使用对象的方法和为对象编写事件过程。5VB60的帮助功能VB60是VisualStudi060的套件之一，VB60本身并不带帮助，微软公司为VisualStudio60提供了一套MSDN Library帮助系统。MSDN(Microsoft Developer Network)是使用Microsoft开发工具或是以Windows或Internet为开发平台的开发人员的基本参考，它是一本集程序设计指南、用户使用手册以及库函数于一体的电子词典，使用MSDN Library的帮助功能，不仅可以引导初学者入门，还可帮助各种层次的用户完成应用程序的设计。三、实验举例(实例1) VB的启动与退出。(1)启动VB60通过“开始”菜单启动VisualBasic60，操作步骤为： 单击Windows桌面任务栏的“开始”按钮，弹出“开始”菜单，将鼠标指针指向“程序”选项，在“程序”项的级联菜单中选中“MicrosoftVisualBasic60中文版”，然后在其打开的下级级联菜单中将光标条定位在“MicrosoftVisualBasic60中文版”命令上。 单击鼠标左键，屏幕出现如图1-1所示的VisualBasic60启动画面。 要建立一个新的工程，选择“新建”选项卡，从中选择“标准EXE”项(默认)，然后单击“打开”按钮，进入如图1-2所示的VB6.0应用程序集成开发环境。图1-1 启动VB6.0(2)退出VB 在图1-2所示的VisualBasic 60应用程序集成开发环境窗口中，从“文件”菜单中选择“退出”命令、或双击窗口控制菜单图标、或单击窗口关闭按钮均可退出VisualBasic 60。在退出时，系统可能会提示用户保存工程文件和窗体文件，有关保存文件的操作在实例3中进行详细说明。VB主窗口 工程资源 管理器窗口工具箱窗体窗口 属性窗口 窗体布局立即窗口 窗口 图1-2 VB60应用程序集成开发环境(实例2) 进入VB集成开发环境。1VB的三种工作模式(1) 设计模式：启动VB，选择新建一个新的工程，进入如图1-2所示的VisualBasic60集成环境。此时，标题栏中的标题为“工程1MicrosoftVisualBasic设计”，表明集成开发环境处于设计模式。(2)运行模式：用鼠标单击工具栏中的“!”按钮(启动)，或在“运行”菜单中选择“启动”命令，此时，标题栏中的标题为“工程1-Microsoft Visual Basic运行，表明集成开发环境处于运行模式。(3)中断模式：在“运行”菜单中选择“中断”命令，或按(Ctrl+Break)键，此时，标题栏中的标题为“工程1-Microsoft Visual Basicbreak”，表明集成开发环境处于中断模式。2VB集成开发环境中的各种窗口（如1-2所示）(1)窗体窗口(2) 属性窗口(3) 工程资源管理器窗口(4) 代码窗口(5) 工具箱3打开VB集成开发环境中的工具栏(1)在“视图”菜单中选择“工具栏”，在它的级联菜单中列出VB提供的工具栏及当前工具栏的状态。(2)选择“编辑”命令，打开编辑工具栏。(3)选择“窗体编辑器”命令，打开窗体编辑器工具栏。(4)选择“调试”命令，打开调试工具栏。(实例3) 建立一个简单的VB应用程序 首先建立一个自己的文件夹，以便将练习中生成的各种文件保存在该文件夹中，这里在E盘建立一个VBSY文件夹。1建立一个新的工程 启动VB 60，选择新建一个新的工程，此时进入到VB60集成开发环境，屏幕上出现一个默认的“Forml”窗体。2设置窗体属性 选中窗体窗口中的窗体，在属性窗口中选中(名称)属性，将其属性值改为“Frmexp”；再选中Caption属性，然后在右边列中输入“窗体”，此时窗体的标题栏变为“窗体”，窗体窗口的标题栏为“工程1Frmexp (Form)”。3在窗体上绘制控件（1）用鼠标单击工具箱中的标有“A”的按钮（标签），在窗体的合适位置画出一个矩形区域，在窗体上出现一个标签控件，用鼠标选中该控件，然后在属性窗口中将其(名称)属性设为“LblDisp”；Caption属性设为“VB集成开发环境”。（2）用鼠标单击工具箱中的命令按钮，在窗体的合适位置画出一个命令按钮，用鼠标选中该命令按钮，然后在属性窗口中将其(名称)属性设为“cmdDisp”；Caption属性设为“显示”。(3) 在窗体中再添加一个命令按钮，然后将其(名称)属性设为“cmdClear；Caption属性设为“清除”。窗体如图1-3所示。 图1-3窗体设计画面 图1-4 代码窗口4编写程序代码 (1)双击“显示”按钮，打开代码窗口，如图1-4 所示，然后输入如下代码：Private Sub cmdDisp_CliCk() LblDiSpViSible = TrueEnd Sub (2)在代码窗口的对象列表框中选择对象“cmdClear”；在过程列表框中选择事件Click(如图1-4)，然后输入如下代码： Private Sub cmdClear_Click() LblDispVisible = False End Sub5运行程序关闭代码窗口，用鼠标单击工具栏中启动按钮。此时，程序开始运行，并出现图1-5画面，单击“清除”按钮，窗口上的文字消失；单击“显示”按钮，又使文字显示出来。 图1-5 运行程序窗口6保存文件 在选择“文件”“保存工程”菜单命令，或单击工具栏中的“保存工程”按钮。由于是第一次保存文件，因此在弹出的文件另存为对话框中提示保存窗体文件，将窗体文件保存在E盘的VBSY文件夹下并起名为Vbsy1_1frm，此时，系统会继续提示保存工程文件，将工程文件也保存在E盘的VBSY文件夹下并起名为Vbsyl_1vbp。7生成可执行文件选择“文件”“生成Vbsyl_1exe”菜单命令，弹出“生成工程”对话框，此时可执行文件名已默认为Vblsy_1exe，如图1-6所示。在该对话框中单击“选项”按钮，打开“工程属性”对话框，如图1-7所示，在该对话框中可以设置版本号、版本信息、编译选项等。最后单击“确定”按钮进行编译。图1-6 “生成工程”对话框 图1-7 “工程属性”对话框8运行可执行文件 在E盘的VBSY文件夹下双击Vbsyl1exe文件，运行该可执行文件。启动该程序后的窗口如图1-5所示。 (实例4)使用VB的帮助。 选择“帮助”“内容”菜单命令，弹出“MSDN library Visual Studi060”窗口。1利用目录浏览主题 选择“目录”标签，在左侧主题窗口中依次单击“sual Bask文档”“使用sualBaSic”“程序员指南”“SualBaSiC基础”“窗体、控件和菜单”，最后选择“设计窗体”主题，此时右侧窗口中显示出相应内容。2利用索引查找信息 选择“索引”标签，在“键入要查找的关键字”输入框中输入“SelectCase”，此时光标定位在索引项的列表的“SelectCase块”项目上，单击“显示”按钮，右侧窗口中即显示出相应内容。实验二 Visual Basic语言基础一、实验目的(1)掌握Visual Basic的数据类型和变量定义方法。(2)正确使用Visual Basic的运算符和表达式。(3)掌握Visual Basic中数据输入、输出的方法。(4)掌握Visual Basic常用函数的使用方法。(5)学会用赋值语句构造简单的顺序结构程序。二、相关知识1VB的数据类型 VB提供了丰富的数据类型，所有的数据都具有数据类型，如果数据的数值和数据类型不匹配，就会出现错误或者造成内存空间的浪费。VB将数据类型分为标准数据类型和自定义类型。 标准数据类型包括数值型数据类型、非数值型数据类型和变体数据类型。其中数值型数据类型包括整型、长整型、单精度型、双精度型、货币型和字节型；非数值类型包括日期型、逻辑型、字符型和对象数据类型。 除了以上标准数据类型外，用户还可以根据自己的需要自定义数据类型，称为自定义类型，形式如下： Public|PrivateType 自定义类型名 元素名(下标)As类型名元素名(下标)As类型名End Type2VB变量的声明 变量是用来在程序运行期间临时存储数值的。声明变量包括名称和数据类型。3VB的表达式 表达式是指用运算符或圆括号将运算元素连接起来的一个有意义的式子。VB的表达式有下列形式： 算术表达式：由算术运算符连接。其运算符的含义、优先级和数学中的相同，只是 整除运算符()和取模运算符(mod)是新概念，读者应倍加注意。 关系表达式：由关系运算符连接，其运算结果是一个逻辑量。运算符两边的操作数如果是数值型，则按其大小比较；如果是字符型，则按其字符编码的码值从左到右一一比较。逻辑表达式：由逻辑运算符连接，运算结果为逻辑值。字符串表达式：由字符串运算符“+”和“&”连接。它们的功能都是将两个字符串拼接起来。 “+”运算符两边的操作数应均为字符型；“&”运算符两边的操作数可以是字符型或者是数值型。4VB的内部函数VB提供了大量的内部函数供用户编程时使用。内部函数按功能分为数学函数、转换函数、字符串函数、日期函数和格式输出函数。用户可以通过VB的“帮助”菜单获得所有内部函数的使用方法。三、实验举例(实例1) 逻辑型数据的使用。 Private Sub Form_cliCk() Dim a AS Boolean， b AS Boolean Dim X AS Integer， y AS IntegerX = 0y = -2a = Xb = yPrint a,b,x,ya = Trueb = FalSeX = aY=bPrint x,y,a,bEnd Sub(实例2) 日期型数据。 Private Sub Form_cliCk() Dim a AS Date， S AS Date， d AS Date Dim f AS Date， S1 AS Date， S2 AS Date a = #592002# s = #5121999 12：30：15 PM# d = 200112 f = -200112 S1 = 05 S2 = 0 Print a， S Print d， f Print Sl， S2 End Sub (实例3)关系运算符。 Private Sub Form_cliCk() Print ”abcde” = ”abd” Print ”abcde， ”aba” Print ”BC” = ”ABCFF” Print 31 3 Print ”34” ”3” Print ”abc” ”ABC” End Sub 在比较时注意以下原则：(1)如果两个操作数是数值型，则按其大小进行比较。(2)如果两个操作数是字符型，则按字符的ASC码值从左到右一一比较，也就是说，先比较两个字符串中的第一个字符，其ASC码值大的字符串大，如果第一个字符相同，则比较第二个字符，依此类推，直到比出结果为止。 (实例4) 算术运算函数的使用。 Private Sub Form_cliCk() Print Abs(-1.7)， Log(12)， Sqr(9) Print Exp(3)， Sin(30 * 3.1415926/180) Print Int(-3.5)， Fix(-3.5), Round(1.5)， Round(1.512,2) End Sub(实例5) 求余数(模)运算符的使用。Private Sub Form_cliCk()Print 20 Mod 3Print 20 Mod -3Print -20 Mod 3Print -20 Mod 3End Sub观察运行结果。实验三 顺序结构程序设计一、实验目的(1)掌握Visual Basic语言中数据输入方法。(2)掌握Visual Basic语言中数据输出方法。(3)正确使用Visual Basic赋值语句。(4)学会设计简单的顺序结构程序。二、相关知识1赋值语句赋值语句是VB中使用频率最高的语句，这个语句的含义就是将等号右边表达式的值传送给等号左边的对象属性或变量，使其可以在程序运行中改变。使用赋值语句应注意以下几点：(1)只有当表达式是一种与变量兼容的数据类型时，该表达式的值才可以赋给变量或属性。不能将字符串表达式的值赋给数值变量，也不能将数值表达式的值赋给字符串变量。如果这样做，就会在解释时出现错误。(2)可以把字符串或数值表达式赋给Variant变量，但反过来就必须分析：任何除Null之外的Variant都可以赋给字符串变量，但只有当Variant的值可以解释为一个数时才能赋给数值变量。(3)将一种数据类型的表达式赋给另一种数值类型的变量时，系统会强制将该表达式的值转换为变量的数据类型。2InputBoxO函数 该函数产生一个对话框，在对话框中显示提示信息，等待用户输入正文或按下按钮，此时返回包含文本框内容的字符串。作为对话框消息出现的字符串表达式，最大长度是1024个字符，由所用字符的宽度决定。如果该消息包含多个行，则可在各行之间用回车符vbCr、换行符vbLf或回车换行符的组合vbCrLf来分隔。3MsgBox0函数 MsgBox()函数也产生一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个Integer数， 告诉用户单击了哪一个按钮。函数中显示在对话框中的消息是一个字符串表达式，其规则与InputBox函数相同。MsgBox()函数根据所选定参数的不同，可以弹出不同形式的消息框供用户使用。4Print语句Print实质是一种方法，在这里我们称它为语句是因为在窗体上Print方法的对象名可以省略，省略后的形式和原Basic中的Print语句相同。该语句最常用的两个参数是Spc(n)和Tab(n)，其中Spc(n)用来在输出中插入空白字符，n为要插入的空白字符数。Tab(n)用来将插入点定位在绝对列号上，n为列号。三、实验举例(实例1) MsgBox函数的使用。 Private Sub Commandl_C1iCk() Dim r AS Integer MsgBox”最简单的MsgBox”R = MsgBox(“复杂的MsgBox”， vbYesNo+vbCritical + vbDefaultButton2，-”你看到了么?“） Print”你按的值为”；r End Sub 观察运行结果。(实例2) 已知圆的半径R，求圆的周长和面积。(1)选择“文件”菜单上的“新建工程”命令，新建个工程。(2)在窗体上创建两个标签(Label)，调整位置和大小，设置标签Labell的Caption属性为“圆的周长是：”、标签Label2的Caption属性为“圆的面积是：”。(3)打开代码窗口，输入下面程序代码。Private Sub Form_Click()Dim r as Integer， S as Single，area as Single r = 3S = 2 * 3.14159 * rArea = 3.14159 * r 2Label1Caption=“圆的周长是：”+Format(s)Label2Caption=“圆的面积是：”，+Format(area)End Sub运行程序,求圆的周长和面积。(实例3) InputBOx函数的不同用法。Private Sub Form_CliCk() Dim StrName AS String ， Title AS String Dim Default AS String， MyValue AS String ，设置提示信息 StrName = ”请输入数据”，设置标题Title = ”InputBox函数使用举例”设置缺省值Default = ”2”第一种：显示提示信息、标题及缺省值MyValue = InputBox(StrName， Title， Default)，第二种：指定坐标：在1000，1000的位置显示对话框MyValue = InputBox(StrName， Title， Default，1000,1000)，第三种：显示“帮助”按钮，使用帮助文件MyValue = InputBox(StrName，Title， ， ， ，”DEMO.HLP”， 10)End Sub观察结果。实验四 选择结构程序设计一、实验目的(1)掌握逻辑表达式的正确书写形式。(2)学会单分支和双分支结构程序的使用。(3)学会多分支条件语句的使用。(4)掌握情况语句的使用，弄清楚情况语句和多分支条件语句的区别。二、相关知识 选择结构也叫做条件分支结构，即根据条件选择要执行的分支。Visual Basic中常用的条件执行语句有：IfThenElseEndlf语句；Select Case语句。1IfThenElseEndlf语句 语句中的判断条件是数值表达式或字符串表达式，其运算结果为True或False。 可以使用单行形式来做短小简单的程序。在单行形式中，按照IfThen判断的结果也可以执行多条语句。所有语句必须在同一行上并且以冒号分开，如： If A10 Then A=A+1：B二B+A：C=C+B 但使用块形式的情况更多，块形式具有更强的结构化与适应性，并且通常比较容易阅读、维护及调试。Else和Elself子句都是可选项。在If块中，可以放置任意多个Elself子句，但是都必须在Else子句之前。If块也可以嵌套。当程序运行到一个If块时，条件表达式将被测试，如果结果为True，则在Then之后的语句会被执行。反之，则每个ElseIf部分的条件表达式会依次计算并加以测试。如果找到某个为Tme的条件时，则其紧接在相关的Then之后的语句会被执行。如果没有一个ElseIf条件表达式为True(或是根本就没有Elself子句)，则程序会执行Else部分的语句。而在执行完Then或Else之后的语句后，会从End If之后的语句继续执行。2Select CaseEnd Select语句 Select CaseEnd Select语句是多分支语句，其中的判断条件是任何数值表达式或字符串表达式。根据表达式的值，来决定执行几组语句中的其中之一。判断条件有以下几种形式： 一个或多个表达式，表达式之间用“，”隔开。 为某个数值范围，格式是：表达式1 To 表达式2 为某个关系表达式，格式是：IS三，实验举例(实例1) 输入一个数，判断这个数的奇偶性。Private Sub command1_click()Dim a As IntegerA = InputBox(”输入一个数“)If a mod 2 = 1 Then MsgBox a & ”是奇数” Else MsgBox a & ”是偶数” End lf 图4-1例1运行结果 End Sub 程序运行时，单击Commandl按钮，在弹出的对话框中输入66，单击“确定”按钮，消息框提示66是偶数，如图4-1所示。 (实例2) 判断你输入的字符的种类。 若是数字，则提示为数字；若是小写字母，则提示此字母为小写字母，并将该字母转换为大写字母；若为大写字母，则提示此字母为大写字母，并将该字母转换为小写字母；否则输出其他字符。 Private Sub Form_click() Dim a As String*1 Dim b As String*1 A = InputBox(”请输入一个字符”)If a = ”0“ Then Print a； ”是一个数字”Elseif a = ”A” And a = ”a” And a = ”Z” Then B = UCase(a) 也可以写为b二Chr(Asc(a) - 32) Print a； ”是一个小写字母，将“；a； ”变为大写的字母为”；b ElSe Print a； ”是其他字符” End ifEnd Sub分析：通过上面的示例我们知道函数LCase()和UCase()，它们的作用是将字符串中的大写字符变为小写字符或将小写字符变为大写字符；函数Chr()和Asc()函数，它们是将ASC码值转换为对应的字符和求字符串中首字符的ASC码值函数。另外我们也知道了a的ASC码值比A的ASC码值大32。观察运行结果。(实例3)有A，B，C三个数，要求按由大到小的顺序把它们打印出来。分析：把一组任意数按大小进行排列是日常工作中经常遇到的问题。当碰到的是少量的数据要排序时，可以按最基本的方法考虑，将它们一一进行比较。此时，要用到If结构的嵌套形式，嵌套必须完全嵌套，也就是内层条件语句必须完全包含在外层条件语句之中。格式为： If Then IfThen ElseEnd If ElseIf ThenElse End IfEnd If程序如下：Private Sub Form_click() Dim a As single, b As Single, c As Single a = InputBox(”输入A的值：”,”输入A”)b = InputBox(”输入B的值：”,”输入B”)c = InputBox(”输入C的值：”,”输入C”)If a b Then If b C Then Print a， b，CElse if a C Then Print a,c,b ElsePrint c,a,b End if End ifElseif a C Then Print b,a,cElse if bC ThenPrint b,c,aElsePrint c,b,a End if End if End ifEnd Sub实验五 循环结构程序设计一、实验目的 (1)掌握For语句的使用。 (2)掌握Do WhileUntilLoop与Doloop WhileUntil两种循环语句的使用。 (3)加深理解循环的概念，掌握循环的规则及其执行过程。 (4)掌握多重循环的规则和程序设计方法。(6) 学会如何控制循环条件，防止死循环或不循环。二、相关知识 如果在指定的条件下多次重复执行一组相同的语句可以通过循环来实现，VB提供了下面几种形式的循环语句：1DoLoop循环语句 Do WhileUntil Do 语句块 语句块 Exit Do 或 Exit Do 语句块 语句块 Loop Loop WhileUntil2FOR循环语句 For循环变量=初值To终值Step步长 语句块 Exit For 语句块Next循环变量3循环嵌套应注意的事项内循环和外循环的变量不能同名；外循环必须完全包含内循环，不能交叉；循环的转移遵循“允许循环内转移，允许转出，禁止转入”的原则。三、实验举例(实例1) 求自然数N的阶乘。 Private Sub Form_Click() Dim s As Single，n As Integer，i As Integer N = InputBox(“输入自然数N”， “求N的阶乘”) S = l i = 1 Do While i=n S = S * i i = i + 1 Loop Print ”n = ”；n,n;”!=”;sEnd Sub分别输入5,15,观察结果.(实例2) 求e = 1+11!+12!+13!+14!+使精度达到10-5。 PriVate Sub Command1_CliCk() Dim Sum AS Double Dim t AS Double Dim i AS integer Sum = 1 t = 1For i = 1 TO 100t = t isum = sum + tif t 0.000001Print sumEnd Sub 结果为：_。实验六 数组的使用一、实验目的 (1)掌握数组的声明和数组元素的引用。 (2)掌握固定数组和动态数组的使用方法。 (3)学会利用数组解决一些较为复杂的问题。二、相关知识数组概念 数组是一组相同类型的变量的集合，在程序中可以用一个数组名代表逻辑上相关的一组数据。在Visual Basic中有两种类型的数组：固定大小的数组以及在运行时大小可变的动态数组，有时也称这两种数组为定长数组和可变长数组。数组必须先声明后使用。2. 固定数组固定大小数组的声明形式为： Dim数组名(下标 ，下标2)As类型其中下标必须是常数，格式为：下界to上界，省略下界时，默认值为0；省略As系统认为是变体数组。3动态数组 动态数组的声明形式为： Dim数组名()As类型 此时定义的数组的大小是不确定的。在使用时，随时用 ReDim数组名(下标，下标2) 语句指定数组的大小。 在定义动态数组时首先在过程外使用Dim、Private、Public语句声明下标为空的数组，然后在过程中用ReDim语句指明该数组的大小。4数组元素数组声明时用数组名表示该数组的整体，但在具体操作时是针对每个数组元素进行的，因此，数组的引用单位是数组元素。三、实验举例(实例1) 打印并输出5*5方阵中的下三角和上三角元素。 Private Sub Form_click() Dim i， j， sc(4， 4) For i = 0 TO 4For j=0 TO i sc(i， j) = i * 1 + j Print sc(i，j)； “ ”;Next j PrintNext iPrintPrintFor i = 0 TO 4Print Tab(5 *I+1);For j=i TO 4 sc(i， j) =I*1+j Print sc(i，j); “ “;Next jPrint Next iEnd sub观察输出结果。(实例2) 编一个程序，打印符合杨辉三角形的数据列。分析：解决此题所用方法的要点是：定义一个二维数组A，在该数组中，每行的第一个元素和最后一个元素都为1，其余各元素等于它上面一行的同一列和前列数据之和。Private Sub Form_CliCk()Dim a(9， 9) AS integerFor i = 0 To 9 a(i， i) = 1 a(i， 0) = 1Next iFor I =2 to 9 M=I-1For j = 1 To mA(I,j) = a(m，j-1) +a(m,j)Next jNext iFor i = 0 TO 9For j = 0 to i Print a(I,j);Next jPrint Next iend Sub实验七 过程一、实验目的(1)掌握子过程的定义和调用方法。(2)分清子过程和函数过程的异同。(3)掌握递归概念和使用方法。(4)掌握变量、函数和过程的作用域。二、相关知识(1) 子过程是在响应事件时执行的代码块。将模块中的代码分成子过程后，在应用程序中查找和修改代码会变得更容易。子过程的语法是：Private|PublicStaticSub 子过程名（形式参数）语句End Sub 每次调用过程都会执行Sub和End Sub之间的语句。可以将子过程放入标准模块、类模块和窗体模块中。按照缺省规定，所有模块中的子过程为Public(公用的)，这意味着在应用程序中可随处调用它们。在Visual Basic中子过程分为通用过程和事件过程两类。 通用过程 如果几个不同的事件过程要执行同样的动作。应将这组公共语句放入一分离开的过程(通用过程)中，该通用过程告诉应用程序如何完成一项指定的任务。一旦确定了通用过程，就必须由事件过程来调用它。 事件过程 当Visual Basic中的对象对一个事件的发生作出认定时，便自动用相应的事件名字调用该事件的过程。因为名字在对象和代码之间建立了联系，所以说事件过程是附加在窗体和控件上的。(2)子过程的定义可以在“代码”窗口输入过程头并按下回车键，系统自动添加End Sub语句；也可以通过“添加过程”对话框完成。(3)过程的调用与过程的类型、位置以及在应用程序中的使用方式有关。调用Sub过程有两种方法：用Call语句调用或直接调用。当使用Call语句时，参数必须在括号内。若直接调用，则也必须省略参数两边的括号。函数过程的调用与VB内部函数的调用方法相同，可以在表达式中直接使用；也可以像调用Sub过程一样，但此时VB将放弃函数返回值。(4)向过程传递参数有按数值传递和按地址传递两种方法。按地址传递参数使过程用变量的内存地址去访问实际变量的内容，这是VB默认的参数传递方式。按值(ByVal)传递参数比按地址(ByRef)快，如果过程中不需改变参数的值，尽量采用按值(ByVal)来传递。一般来说，过程调用中的参数个数应等于过程说明的参数个数，但也可以是不确定的。VB允许过程接受可选参数和不定量参数。三、实验举例(实例1)静态变量与一般变量对比。Private Sub Command1_click() Dim i As integerPrint ”a”，”b”For I=1 to 10 Call f()Next iEnd SubSub f() Static a as integerDim b As integera = a + 1b = b + 1Print a，bEnd Sub观察输出结果。（实例2）通过点击窗体事件，来循环改变窗体标题名字练习。Private Sub Form1_CliCk()Static index As integerindex = index + lSelect case indexCase l Form1.caption= ”单项测试题“Case 2 Formlcaption = ”Windows操作题”Case 3 Forml.caption = “Word操作题”Case 4 FormlCaption = “Excel操作题”Case 5 Form1Caption= ”网络操作题”Case ElseIndex = 0 End SelectEnd Sub观察结果。实验八 函数一、实验目的 (1)掌握自定义函数的定义和调用方法。 (2)掌握形参和实参的对应关系，分清值传递和地址传递的区别。 (3)掌握VB窗体模块、标准模块的创建和使用。二、相关知识 Visual Basic包含内置的或内部的函数，还可用Function语句编写自己的Function过程。 函数过程的语法格式是： Private|Public)StaticFunction函数名(形式参数) As函数类型 语句 End Function Function过程的特点是： 一般来说，语句或表达式的右边包含函数过程名和参数(returnvalue = function)，这就调用了函数。 与变量完全一样，函数过程有数据类型，其决定了返回值的类型。如果没有As子句，缺省的数据类型为Variant。 给函数名自身赋一个值，就可返回这个值。例如，下面是己知