VB第6章-复习资料
- 格式：doc
- 大小：51.50 KB
- 文档页数：15
下载文档原格式
合集下载
VB第6章课后练习答案
第6章过程与函数一、填空题1．数组名作为过程或函数实参，相应的形参传递方式为____按地址传递____。
2．一维长整型数组a作过程形参写作：a() As Long，二维长整型数组b作过程形参写作：____b() As Long ____。
3．过程形参为整型，对应实参为5.64，传递给形参的值为____6____。
4．调用过程时对形参的改变不会导致相应实参变量的改变，则该形参采用____按值传递____方式。
5．调用过程时对形参的改变就是对相应实参变量的改变，则该形参采用____按地址传递____方式。
6．声明Single类型全局变量x，写作____Public x As Single（或 Publicx!）____；声明Integer类型静态变量x，写作____Static x As Integer （或Static x%）____。
7．在窗体Form1的过程中引用窗体Form2中的全局变量y，写作____Form2.y____。
8．阅读如下代码，单击窗体后，窗体上的显示结果为____s = 2 s = 5 s = 9____。
Dim i As Integer, n As IntegerPrivate Sub Form_Click()Dim i As IntegerFor i = 1 To 3s = sum(i): Print "s ="; s;Next iEnd SubPrivate Function sum(n As Integer)Static j As Integerj = j + n + 1: sum = jEnd Function二、选择题1.VB程序设计语言中，函数过程与子过程必须分别用关键字（ C）声明。
(A)Private，Public (B)Public，Private(C)Function, Sub (D)Sub, Function2.要调用一个已经定义好的函数myfunction( )，用语句的方式调用函数，下列写法哪个是正确的（ D）(A)Call myfunction (B)myFunction(C)myFunction ( ) (D)CallmyFunction( )3.定义过程时，如果在过程名前加关键字Private，则该过程为（ A）。
VB教程 第六章 过程、模块与类
2.按地址传递参数 按地址传递参数使过程用变量的内存地址去访问实际变量 的内容。结果，将变量传递给过程时，通过过程可永远改 变变量值。按地址传递参数在 Visual Basic 中是缺省的。 例如： Sub PostAccounts (intAcctNum as Integer) . '这里放语句。 End Sub 3.使用可选的参数 4.提供可选参数的缺省值 5.使用不定数量的参数
下面分别对被调用过程在窗体模块、类模块和标准模块三种 情况说明: ① 窗体中的过程 ② 类模块中的过程 ③ 标准模块中的过程
一个很好的例子: 交通信号灯控制的例子
一个重要的思想(递归 一个重要的思想 递归) 递归
递归就是一个过程调用自己来完成某个特定的 任务。在递归过程中，一个过程的某一步要用 到其自身的上一步或几步的结果。递归分为两 种类型：直接递归和间接递归。Visual Basic的 过程具有递归调用功能。 递归可能会导致堆栈上溢。通常 Static 关键字 和递归过程不在一起使用。使用递归过程要特 别小心，不加控制的递归通常会引起溢出堆栈 空间错误信息。如下例:
作用域不同([Private | Public | Friend]) 生命期不同([Static]) 但是arglist语法较简单：可选的。代表在调用时要传递给 Function 过程的参数变量列表。多个变量应用逗号隔开。 一点注意:若 Function 过程会改变某个数学表达式中变 量的值，则应避免在此表达式中使用该函数。例如： I=2 J=3 X=(Sum (I,J)+1)/Sum(I,J) Function Sum (A As Integer, B As Integer) As String A=A+2 Sum=A+B End Function 结果如何？怎么修改？
VB程序设计教程 第四版 第6章
10 a 执行过程体 ByVal 传值 x a 20 a 的地址 10 20
a
10
执行过程体
x a
20 10
返回
返回
20 Integer a = = : y b10 的地址 b 10 = 20 : b 10 aCall = Swap 10 : y b 的地址 2(a, b 10 = b) 20 : 10 b Call a = Text Swap b
汉字的机内码最高位为1，Asc函数码值为小于0（补码）
西文字符的最高位为0，Asc函数求其码值为大于0
Function CountC%(ByVal s$) Dim i%, k% Dim c As Char For i = 1 To Len(s) c = Mid(s, i, 1) If Asc(c) < 0 Then k = k + 1 Next CountC = k End Function Sub Command1_Click() Dim c1% c1 = CountC(Text1.Text) 显示 Text1.Text 和 C 1 End Sub
Functioc Count%(st$) Dim i% Count = 0 i = InStr(st, “ the ") Do While (i > 0) Count = Count + 1 st = Mid(st, i + 1) i = InStr(st, “ the ") Loop VB 程序设计教程 End Function
Z←gcd
例6.2 设断点演示过程
调用形式：函数过程名([参数列表])
参数列表(称为实参或实元)：必须与形参个数相同，位置与 类型一一对应。可以是同类型的常量、变量、表达式。
a
10
执行过程体
x a
20 10
返回
返回
20 Integer a = = : y b10 的地址 b 10 = 20 : b 10 aCall = Swap 10 : y b 的地址 2(a, b 10 = b) 20 : 10 b Call a = Text Swap b
汉字的机内码最高位为1，Asc函数码值为小于0（补码）
西文字符的最高位为0，Asc函数求其码值为大于0
Function CountC%(ByVal s$) Dim i%, k% Dim c As Char For i = 1 To Len(s) c = Mid(s, i, 1) If Asc(c) < 0 Then k = k + 1 Next CountC = k End Function Sub Command1_Click() Dim c1% c1 = CountC(Text1.Text) 显示 Text1.Text 和 C 1 End Sub
Functioc Count%(st$) Dim i% Count = 0 i = InStr(st, “ the ") Do While (i > 0) Count = Count + 1 st = Mid(st, i + 1) i = InStr(st, “ the ") Loop VB 程序设计教程 End Function
Z←gcd
例6.2 设断点演示过程
调用形式：函数过程名([参数列表])
参数列表(称为实参或实元)：必须与形参个数相同，位置与 类型一一对应。可以是同类型的常量、变量、表达式。
VB课件第6章Visual Basic 循环结构
End Sub
Do Until i = 100
例6-3：求 1+22+32+……n2大于1000的最小值。
选Do … Loop语句： 不知道要加到第几项，但知道累加和大于 1000，并且，第一次超过1000时就不再累 加了，所以选Do … Loop语句。
求项数（计数i）: i=0(初值) ，i=i+1(重复执行)
例: 利用随机函数10个产生[20,90]的整数, 求其平均值.
界面设计: 单击窗体, 显
示结果如图.
例: 利用随机函数10个产生[20,90]的整数, 求其平均值.
分析: 产生数X 求和s
求平均a
产生一个X: X=Int(Rnd*71+20)
显示产生的值: Print x
计算和: s=s+x
重复10次 求得这10 个数的和s
Private Sub Form_Click( ) Dim i As Integer i=0 Do While i < 100 i=i+1 Print i； If i Mod 10 = 0 Then Print Loop
End Sub
用Do Until … Loop循环来编制 例6-2的程序
Private Sub Form_Click() Dim i As Integer i=0 Do While i < 100 i=i+1 Print i; If i Mod 10 = 0 Then Print Loop
If Max <= x Then Max = x Next i Print Print “最大值为:”; Max End Sub
6.4 循环嵌套
循环嵌套：在一个循环语句的循环体中又包含有另一 循环语句。 VB的三种循环可以自身嵌套与相互嵌套 要求：内层结构一定包含在外层结构中，不能交叉
Do Until i = 100
例6-3：求 1+22+32+……n2大于1000的最小值。
选Do … Loop语句： 不知道要加到第几项，但知道累加和大于 1000，并且，第一次超过1000时就不再累 加了，所以选Do … Loop语句。
求项数（计数i）: i=0(初值) ，i=i+1(重复执行)
例: 利用随机函数10个产生[20,90]的整数, 求其平均值.
界面设计: 单击窗体, 显
示结果如图.
例: 利用随机函数10个产生[20,90]的整数, 求其平均值.
分析: 产生数X 求和s
求平均a
产生一个X: X=Int(Rnd*71+20)
显示产生的值: Print x
计算和: s=s+x
重复10次 求得这10 个数的和s
Private Sub Form_Click( ) Dim i As Integer i=0 Do While i < 100 i=i+1 Print i； If i Mod 10 = 0 Then Print Loop
End Sub
用Do Until … Loop循环来编制 例6-2的程序
Private Sub Form_Click() Dim i As Integer i=0 Do While i < 100 i=i+1 Print i; If i Mod 10 = 0 Then Print Loop
If Max <= x Then Max = x Next i Print Print “最大值为:”; Max End Sub
6.4 循环嵌套
循环嵌套：在一个循环语句的循环体中又包含有另一 循环语句。 VB的三种循环可以自身嵌套与相互嵌套 要求：内层结构一定包含在外层结构中，不能交叉
Visual Basic6
第6章 VB控制结构6.1 选择结构6.2 循环结构6.3综合实例6.1选择结构6.1.1 If条件语句6.1.2 Select Case6.1.3 条件函数6.1.1 If条件语句 条件语句1．单分支条件结构（If...Then语句）2．双分支结构（If...Then...Else语句）3．多分支结构（If…Then…ElseIf语句）4．If语句的嵌套1．单分支条件结构（If...Then语句） ．单分支条件结构（ 语句） 语句用 If...Then 结构有条件地执行一个或多个语句。
单行语法和多行块 语法都可以使用： （1）If < 表达式> Then <语句块> （2）If < 表达式> Then <语句块> End If 下面两个例子等价： （1）If todayDate < Now Then todayDate = Now （2）If todayDate < Now Then todayDate = Now End If 注意：If...Then 的单行格式不用 End If 语句。
如果 <表达式>为 True 时要执行多行代码，则必须使用多行块 If...Then...End If 语法。
例如： If todayDate < Now Then todayDate = Now Timer1.Enabled = False ' 定时器控制失效。
End If2. 双分支结构（If...Then...Else语句） 双分支结构（ 语句） 语句可以用 If...Then...Else 块定义几个语句块，执 行其中一个语句。
其语法格式也有两种形式： （1）If <表达式> Then <语句块1> Else <语句块2> End If （2）If <表达式> Then<语句1>Else<语句2> 当<表达式>的值为真时，执行Then后面的语句块1（ 或语句1），否则执行Else后面的语句块2（或语句2）。
vb第6章
9
第 六 章 Visual Basic 控 制 结 构
Private Sub Command1_Click() C = 5 / 9 * (Val(Text1.Text) - 32) Text2.Text = Format(C, "0.00") If C > 40 Then Label2.Caption = "HOT" ElseIf C >30 Then Label2.Caption = "WARM" ElseIf C >20 Then Label2.Caption = "ROOM TEMPERATURE" ElseIf C >10 Then Label2.Caption = "COOL" ElseIf C >0 Then Label2.Caption = "COLD" Else Label2.Caption = "FREEZING" End If End Sub
【例6-4】求函数Y的值 第 六 章 Visual Basic 控 制 结 构
Y=
ex+e-x x<0 1.25 x=0 lgx x>0
X = Val(Text1.Text) Select Case X Case X < 0 Y = Exp(X) + Exp(-X) Case X =0 Y = 1.25 Case X > 0 Y = Log(X) / Log(10) End Select Print "Y="; Y
19
第 六 章 Visual Basic 控 制 结 构
Delta = B ^ 2 - 4 * A * C Select Case Delta Case 0 Print "X1=X2="; Format(-B / (2 * A), "0.000") Case Is > 0 X1 = (-B + Sqr(Delta)) / (2 * A) X2 = (-B - Sqr(Delta)) / (2 * A) Print "X1="; Format(X1, "0.000") CurrentX = 600: CurrentY = 1300 Print "X2="; Format(X2, "0.000") Case Is < 0 A1 = -B / (2 * A) A2 = Sqr(Abs(Delta)) / (2 * A)
第 六 章 Visual Basic 控 制 结 构
Private Sub Command1_Click() C = 5 / 9 * (Val(Text1.Text) - 32) Text2.Text = Format(C, "0.00") If C > 40 Then Label2.Caption = "HOT" ElseIf C >30 Then Label2.Caption = "WARM" ElseIf C >20 Then Label2.Caption = "ROOM TEMPERATURE" ElseIf C >10 Then Label2.Caption = "COOL" ElseIf C >0 Then Label2.Caption = "COLD" Else Label2.Caption = "FREEZING" End If End Sub
【例6-4】求函数Y的值 第 六 章 Visual Basic 控 制 结 构
Y=
ex+e-x x<0 1.25 x=0 lgx x>0
X = Val(Text1.Text) Select Case X Case X < 0 Y = Exp(X) + Exp(-X) Case X =0 Y = 1.25 Case X > 0 Y = Log(X) / Log(10) End Select Print "Y="; Y
19
第 六 章 Visual Basic 控 制 结 构
Delta = B ^ 2 - 4 * A * C Select Case Delta Case 0 Print "X1=X2="; Format(-B / (2 * A), "0.000") Case Is > 0 X1 = (-B + Sqr(Delta)) / (2 * A) X2 = (-B - Sqr(Delta)) / (2 * A) Print "X1="; Format(X1, "0.000") CurrentX = 600: CurrentY = 1300 Print "X2="; Format(X2, "0.000") Case Is < 0 A1 = -B / (2 * A) A2 = Sqr(Abs(Delta)) / (2 * A)
VB教程第6章
第6章 菜单,状态栏和工具栏 章 菜单,
6.1 菜单 6.2 状态栏 6.3 工具栏
前 言
一个典型的Windows应用程序,例如Word,Access等 一个典型的Windows应用程序,例如Word,Access等,通常 Windows应用程序 Word 都有菜单,工具栏和状态栏.如图6 所示. 都有菜单,工具栏和状态栏.如图6-1所示.这是所有 Windows应用程序的最主要的特征 应用程序的最主要的特征. Windows应用程序的最主要的特征.用户可以通过菜单控制操 也可以通过工具栏中的选项(或按钮)操作, 作,也可以通过工具栏中的选项(或按钮)操作,还可以通 过状态栏读取提示信息. 过状态栏读取提示信息. 本章主要介绍VB 2005中菜单,工具栏和状态栏的设置以及 本章主要介绍VB 2005中菜单, 中菜单 使用. 使用.
6.1.2 计时器(Timer)组件 计时器( )
2005提供了计时器 Timer)组件来通过时间计时 提供了计时器( 时间计时控制 VB 2005提供了计时器(Timer)组件来通过时间计时控制 程序的执行.计时器控件是一个非常重要, 程序的执行.计时器控件是一个非常重要,也是一个比较特 殊的控件. 殊的控件. 该控件在应用中以设定的时间间隔引发同一个事件. 设定的时间间隔引发同一个事件 该控件在应用中以设定的时间间隔引发同一个事件.在动 画制作或定期执行某种操作等方面比较有用. 画制作或定期执行某种操作等方面比较有用. 计时器控件在设计时显示为一个小时钟图标,而在运行时 计时器控件在设计时显示为一个小时钟图标, 则看不到,所以常用来做一些后台的处理. 后台的处理 则看不到,所以常用来做一些后台的处理.
【例6-1】编写一个下拉菜单,该菜单包含2个菜单标题,即 编写一个下拉菜单,该菜单包含2个菜单标题, 操作,控制,以及一些菜单项和子菜单项, 操作,控制,以及一些菜单项和子菜单项,通过子菜单选项 操作窗体上标签的移动. 操作窗体上标签的移动.
6.1 菜单 6.2 状态栏 6.3 工具栏
前 言
一个典型的Windows应用程序,例如Word,Access等 一个典型的Windows应用程序,例如Word,Access等,通常 Windows应用程序 Word 都有菜单,工具栏和状态栏.如图6 所示. 都有菜单,工具栏和状态栏.如图6-1所示.这是所有 Windows应用程序的最主要的特征 应用程序的最主要的特征. Windows应用程序的最主要的特征.用户可以通过菜单控制操 也可以通过工具栏中的选项(或按钮)操作, 作,也可以通过工具栏中的选项(或按钮)操作,还可以通 过状态栏读取提示信息. 过状态栏读取提示信息. 本章主要介绍VB 2005中菜单,工具栏和状态栏的设置以及 本章主要介绍VB 2005中菜单, 中菜单 使用. 使用.
6.1.2 计时器(Timer)组件 计时器( )
2005提供了计时器 Timer)组件来通过时间计时 提供了计时器( 时间计时控制 VB 2005提供了计时器(Timer)组件来通过时间计时控制 程序的执行.计时器控件是一个非常重要, 程序的执行.计时器控件是一个非常重要,也是一个比较特 殊的控件. 殊的控件. 该控件在应用中以设定的时间间隔引发同一个事件. 设定的时间间隔引发同一个事件 该控件在应用中以设定的时间间隔引发同一个事件.在动 画制作或定期执行某种操作等方面比较有用. 画制作或定期执行某种操作等方面比较有用. 计时器控件在设计时显示为一个小时钟图标,而在运行时 计时器控件在设计时显示为一个小时钟图标, 则看不到,所以常用来做一些后台的处理. 后台的处理 则看不到,所以常用来做一些后台的处理.
【例6-1】编写一个下拉菜单,该菜单包含2个菜单标题,即 编写一个下拉菜单,该菜单包含2个菜单标题, 操作,控制,以及一些菜单项和子菜单项, 操作,控制,以及一些菜单项和子菜单项,通过子菜单选项 操作窗体上标签的移动. 操作窗体上标签的移动.
VB第6章
• 传地址[ ByRef ]
– 当调用一个过程时，它将实参的地址传给形参。是 默认的参数传递方法 • 传值ByVal – 当调用一个过程时，系统将实参的值复制给形参， 实参与形参断开了联系
VB 程序设计教程
20
a = 1: b = 2: c = 3: d = 4 Call test1(a, b, c, d) Print a; b; c; d ‘ 1 2 3 6 … Private Sub test1(b%, c%, d%, e%) e=b+c+d End Sub d
VB 程序设计教程
22
6.6 鼠标和键盘
6.6.1 鼠 标 • 鼠标事件 – MouseDown: 当按下鼠标的任意一个键时被触发
– MouseUp: 当鼠标的任意一个键释放时被触发
– MouseMove: 当鼠标指针移动时被触发
VB 程序设计教程
23
Sub Form_MouseMove(Button As Integer, _ Shift As Integer, X As Single, Y As Single)
VB 程序设计教程
13
6.3 过程的嵌套调用
【思路】利用过程嵌套调用 【例6-4】
Private Function fact(n As Integer)
Dim i As Integer, f
f=1 For i = 2 To n
Private Sub Command1_Click() Dim m As Integer, n As Integer m = Val(Text1) n = Val(Text2) Text3.Text = comb(n, m) End Sub
Call test(n, 10) test n, 10
– 当调用一个过程时，它将实参的地址传给形参。是 默认的参数传递方法 • 传值ByVal – 当调用一个过程时，系统将实参的值复制给形参， 实参与形参断开了联系
VB 程序设计教程
20
a = 1: b = 2: c = 3: d = 4 Call test1(a, b, c, d) Print a; b; c; d ‘ 1 2 3 6 … Private Sub test1(b%, c%, d%, e%) e=b+c+d End Sub d
VB 程序设计教程
22
6.6 鼠标和键盘
6.6.1 鼠 标 • 鼠标事件 – MouseDown: 当按下鼠标的任意一个键时被触发
– MouseUp: 当鼠标的任意一个键释放时被触发
– MouseMove: 当鼠标指针移动时被触发
VB 程序设计教程
23
Sub Form_MouseMove(Button As Integer, _ Shift As Integer, X As Single, Y As Single)
VB 程序设计教程
13
6.3 过程的嵌套调用
【思路】利用过程嵌套调用 【例6-4】
Private Function fact(n As Integer)
Dim i As Integer, f
f=1 For i = 2 To n
Private Sub Command1_Click() Dim m As Integer, n As Integer m = Val(Text1) n = Val(Text2) Text3.Text = comb(n, m) End Sub
Call test(n, 10) test n, 10
VB程序设计第6章对话框的设计
• Title是可选参数。该字符串表达式 作为标题显示在消息框的标题栏中。
• MsgBox函数返回值为1~6之间的 一个整数，表示用户按下了“确定”、 “取消”、“终止”、“重试”、“忽略”或 “是”按钮。
VB程序设计第6章对话框的设计
2、通用对话框 （1）通用对话框的使用 把“通用对话框（Common
VB程序设计第6章对话框的设计
（3）“保存”对话框 • “保存”对话框也是在Windows应用
程序中经常用到的。用ShowSave 方法显示对话框，它同样能指定文件 的驱动器、目录、文件扩展名和文件 名，其使用方法和“打开”对话框的使 用方法基本相同。
VB程序设计第6章对话框的设计
（4）“颜色”对话框 • “颜色”对话框用来在调色板中选择颜
对出现，指出对话框左上角的屏幕坐标。 • InputBox函数返回文本框中输入的内容，
为字符串类型。
VB程序设计第6章对话框的设计
（2）消息框 • 创建消息框的标准函数是MsgBox
函数，该函数在对话框中显示消息， 等待用户按下按钮，并返回一个整数 来表示用户按下了哪一个按钮。 • MsgBox函数的语法格式为：
VB程序设计第6章对话框的设计
其中： • Prompt为必需的字符串表达式参数，提
供显示在对话框中的提示文本。 • Title为可选字符串表达式参数，提供标题
显示在对话框的标题栏中。 • Default为可选字符串表达式参数，提供
输入框的缺省输入文本。 • Xpos和Ypos都是可选的数值表达式，成
VB程序设计第6章对话框的设计
• ⑧过滤器索引（FilterIndex属性）： 用索引值来指定对话框使用哪一个过 滤器。
• ⑨取消引发错误（CancelError属 性）：决定当用户单击对话框上的 “取消”按钮时，是否会显示一个报错 信息的消息框。
• MsgBox函数返回值为1~6之间的 一个整数，表示用户按下了“确定”、 “取消”、“终止”、“重试”、“忽略”或 “是”按钮。
VB程序设计第6章对话框的设计
2、通用对话框 （1）通用对话框的使用 把“通用对话框（Common
VB程序设计第6章对话框的设计
（3）“保存”对话框 • “保存”对话框也是在Windows应用
程序中经常用到的。用ShowSave 方法显示对话框，它同样能指定文件 的驱动器、目录、文件扩展名和文件 名，其使用方法和“打开”对话框的使 用方法基本相同。
VB程序设计第6章对话框的设计
（4）“颜色”对话框 • “颜色”对话框用来在调色板中选择颜
对出现，指出对话框左上角的屏幕坐标。 • InputBox函数返回文本框中输入的内容，
为字符串类型。
VB程序设计第6章对话框的设计
（2）消息框 • 创建消息框的标准函数是MsgBox
函数，该函数在对话框中显示消息， 等待用户按下按钮，并返回一个整数 来表示用户按下了哪一个按钮。 • MsgBox函数的语法格式为：
VB程序设计第6章对话框的设计
其中： • Prompt为必需的字符串表达式参数，提
供显示在对话框中的提示文本。 • Title为可选字符串表达式参数，提供标题
显示在对话框的标题栏中。 • Default为可选字符串表达式参数，提供
输入框的缺省输入文本。 • Xpos和Ypos都是可选的数值表达式，成
VB程序设计第6章对话框的设计
• ⑧过滤器索引（FilterIndex属性）： 用索引值来指定对话框使用哪一个过 滤器。
• ⑨取消引发错误（CancelError属 性）：决定当用户单击对话框上的 “取消”按钮时，是否会显示一个报错 信息的消息框。
vb教学第6章
[As 数据类型 数据类型]
静态数组说明
数组名的命名规则与变量命名相同。 一维数组的元素个数பைடு நூலகம்上界 下界 上界-下界 上界 下界+1。多维数组的元素个数等于各 各 维元素个数相乘。 维元素个数相乘 缺省下界为0 缺省下界为 。若要将缺省下界设为1，可在模块的通用部分使用 语句： Option Base 1 定义数组时，下界和上界 上界不能使用变量，必须是常量（整型常量） 定义数组时，下界 上界 数组定义后自动获得默认值：数值为0，字符为“”，逻辑为False
For each … Next语句 Next语句
For Each … Next 语句与 For … Next 语句类似，都是实现循环结 构的语句，只是 For Each … Next 语句只能用于数组和对象集合。 语法格式： 示例： For Each 成员 In 数组 Dim A(1 To 4) For Each x In A … Print x ; [ Exit For ] Next x …
二、动态数组的定义
动态数组定义时不指定维数和大小，使用时才指定维数和大小。 动态数组的定义
格式：Dim Dim 数组名( 数组名( ) [As 数据类型 数据类型]
指定动态数组的大小
格式：Redim [preserve] 数组名( [下界 To] 上界 [,…] ) Redim [preserve] 数组名( [,… Redim语句可以多次使用，但只能改变数组的维数和大小。不能改变 数组的类型。 Preserve ：选择Preserve参数时，保留数组中原来的数据，但此时 只允许ReDim 语句改变动态数组最后一维的上界，其他的都不能改。
动态数组定义示例
Option Base 1 Dim A() AS integer Redim A(4) Redim Preserve A(UBound(A)+1 UBound(A)+1)
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
第6章补充资料习题解答1.简述子过程和函数过程的共同点和不同之处.解答:子过程和函数过程的共同点:函数过程和子过程都是功能相对独立的一种子程序结构,它们有各自的过程头、变量声明和过程体。
在程序中使用它们不但可以避免书写重复的程序语句，缩短代码，而且可以使程序条理清晰，容易阅读。
子过程和函数过程的不同点：（1）过程声明的关键字不同，子过程用的是Sub，函数过程用的是Function。
（2）子过程名无值就无类型声明，函数过程名有值就有类型声明。
（3）函数过程名兼作结果变量，因此在函数过程体内至少对函数过程名赋值；而子过程名在过程体内不能赋值。
（4）调用方式不同，子过程是一条独立的语句，可用Call子过程名或省略Call直接以子过程名调用；函数过程不是一条独立的语句，是一个函数值，必须参与表达式的运算。
（５）一般来说，一个函数过程可以被一个子过程代替，代替时只要改变函数过程定义的形式，并在子过程的形参表中增加一个地址传递的形参来传递结果。
２．什么是形参，什么是实参？什么是值引用？什么是地址引用？地址引用时，对应的实参有什么限制？解答：形参是在定义过程时的一种形式虚设的参数，只代表了该过程参数的个数、类型、位置、形参的名字并不重要，也没有任何值，只表示在过程体内进行某种运算或处理。
实参是调用子过程时提供给过程形参的初始值或通过过程体处理后获得的结果。
调用时用实参代替形参，实参与形参在个数、类型、位置一一对应，实参与形参名相同与否无关。
实参与形参的结合有两种方法，即传地址（ByRef）和传值（ByVal），或称地址引用和值引用，缺省为地址引用。
值引用时，系统将实参的值传递给对应的形参，实参与形参断开了联系。
如果在过程体中改变形参的值，不会影响到实参。
地址引用时，实参与形参变量共用同一个存储单元，如果在过程中改变了形参的值，对应的实参也将发生改变。
地址引用时，实参只能是变量，不能是常量或表达式。
3.指出下面过程语句说明中的错误：（1）Sub f1（n%）As Integer（2）Function f1 % （f1%）（3）Sub f1（ByVal n%（））（4）Sub f1（x（i）as Integer）解答：（1）错误为Sub子过程名无返回值，也就没有类型。
（2）函数名与形参名相同。
（3）形参n为数组，不允许声明为ByVal值传递。
（4）形参x（i）不允许为数组元素。
4.已知有如下求两个平方数和的fsum子过程：Public Sub fsum（sum%，ByVal m%，ByVal n%）sum = a * a + b * bEnd Sub在事件过程中若有如下变量声明：Private Sub Command1_Click()Dim a%,b%,c!a = 10:b = 20则指出如下过程调用语句的错误所在:(1)fsum 3,4,5(2)fsum c,a,b(3)fusm a + b,a,b(4)Call fsum(Sqr(c),Sqr(a),Sqr(b))(5)Call fsum c,a,b解答:(1)fsum子过程的第一个形参是地址传递,因此对应的实参3不应该是常量。
(2)fsum子过程的第一个形参是整形而且是地址传递，对应的实参c是单精度，类型不匹配。
(3)fsum子过程的第一个形参是地址传递，因此对应的实参a+b不应该是表达式。
(4)fsum子过程的第一个形参是地址传递，因此对应的实参Sqr（c）不应该是表达式。
(5)用Call语句调用fsum子过程，必须加圆括号括起实参。
5.利用迭代法求方程x^2 - a = 0的近似根,要求精度为10^-5,迭代公式为Xi+1 =1/2(Xi + a/Xi)。
编制三个过程：迭代函数过程、迭代子过程和递归法函数过程。
解答:假定a为10，三种过程的执行效果如图6.6所示，程序代码如下：Private Sub Command1_Click()Print"函数过程"；f1（10）Call s1（x！，10）Print"子过程"；x！Print"递柜调用"；dgf（x，10）End SubPublic Function f1！（a！）'函数过程Dim X!,X1!x1 = aDox = (x + a/x)/2If Abs(x - x1) < 0.00001 Then Exit Dox1 = xLoopEnd SubPublic Function dgf!(x,a!) '递归调用x1 = （x + a/x）/2If Abs（x - x1）< 0.00001 Thendgf = xElsedgf = dgf(x1,a)End IfEnd Function6.要使变量在某事件过程中保留值,有哪几种变量声明的方法?解答:声明变量为全局(Public)、通用声明段或标准模块声明的模块级变量、局部过程声明的静态变量（Static）。
7.为了使某变量在所有的窗体中都能使用，应在何处声明该变量？解答：在标准模块声明为全局变量。
8.在同一模块、不同过程中声明的相同变量名，两者是否表示同一个变量？两者间有没有联系？解答：表示不同的变量，没有任何关系。
常见错误和难点分析１.程序设计算法的问题该章程序编写难度较大，主要是算法的构思有困难，这也是程序设计中最难学习的阶段。
但是对每一位程序设计的初学者，没有捷径可走，一定要多看、多练、知难而进。
上机前一定要先编写好程序，仔细分析、检查，才能提高上机调试的效率。
２.确定自定义的过程是子过程还是函数过程实际上过程是一个具有某种功能的独立程序单位，可供多次调用。
子过程与函数过程的区别是前者子过程名无值；后者函数过程名有值。
若过程有一个返回值，则习惯使用函数过程；若过程无返回值，则使用子过程；若过程返回多个值，一般使用子过程，通过实参与形参的结合返回结果，当然也可通过函数过程名返回一个，其余结果通过实参与形参的结合返回。
３.过程中确定形参的个数和传递方式对初学者，在定义过程时较难确定形参的个数和传递方式。
过程中参数的作用是实现过程与调用者的数据传递。
一方面，调用者为子过程或函数过程提供初值，这是通过实参传递给形参实现的；另一方面，子过程或函数过程将结果传递给调用者，这是通过地址传递方式实现的。
因此，决定形参的个数就是由上述两方面决定的。
对初学者，往往喜欢把过程体中用到的所有变量全作为形参，这样就增加了调拥者的负担和出错概率；也有的初学者全部省略了形参，因此无法实现数据的传递，既不能从调用者得到初值，也无法将计算结果传递给调用者。
VB中形参与实参的结合有传值和传地址两种方式。
区别如下：（1）在定义形式上前者在形参前加ByVal关键字，后者在形参前加ByRef关键字或缺省。
（2）在作用上值传递只能从外界向过程传入初值，但不能将结果传出；而地址传递既可传入又可传出。
（3）如果实参是数组、自定义类型、对象变量等，形参只能是地址传递。
4.实参与形参类型对应的问题在地址传递方式时，调用过程实参与形参类型要一致。
例如：函数过程定义如下：Public Function f！（x！）f = x + xEnd Function主调程序如下：Private Sub Command1_Click()Dim y%y = 3Print f(y)End Sub上例形参x是单精度型、实参y是整形，程序运行时会显示"ByRef参数类型不符"的编译提示信息。
在值传递时，若是数值型，则实参按形参的类型将值传递给形参，例如：函数过程定义如下：Public Function f！（x！）f = x + xEnd Function主调程序如下：Private Sub Command1_Click()Dim y%y = 3.4Print f(y)End Sub程序运行后显示的结果是6。
5.变量的作用域问题局部变量，在对该过程调用时，分配该变量的存储空间，当过程调用结束时，回收分配的存储空间，也就是调用一次，初始化一次，变量值不保留；窗体级变量，当窗体装入时，分配该变量的存储空间，直到该窗体从内存卸掉，才回收该变量分配的存储空间。
例如，要通过文本框输入若干个值，每输入一个按Enter键，直到输入的值为9999，输入结束，求输入数的平均值。
Private Sub Text1_KeyPress(KeyAscii As Integer)Dim sum!,n%If KeyAscii = 13 ThenIf Val(Text1) = 9999 Thensum = sum / nPrint sumElsesum = sum + Val(Text1)n = n + 1Text1 = ""End IfEnd IfEnd Sub该过程没有语法错,运行程序可输入若干个数,但当输入9999时,程序显示“溢出”的错误。
因为sum和n是局部变量，每按一个键，局部变量初始化为0，所以会有上述错误产生。
改进方法：将要保值的局部变量声明为Static静态变量，也可将要保值的变量在通用声明段进行声明为窗体级变量。
6.递归调用出现“栈溢出”如下求阶乘的递归函数过程：Public Function fac（n As Integer）As Integer]If n = 1 Thenfac = 1Elsefac = n * fac（n - 1）End IfEnd FunctionPrivate Sub Command1_Click() '调用递归函数,显示出fac(5)=120 Print "fac(5)="；fac（5）End Sub当主调程序调用时，n的值为5时，显示结果为120；当n的值为-5时，显示“溢出堆栈空间”的提示信息。
实际上每递归调用一次，系统将当前状态信息（形参、局部变量、调用结束时的返回地址）压栈，直到到达递归结束条件。
上例中当n = 5 时，每递归调用一次，参数n - 1，直到n = 1 时递归调用结束，然后不断从栈中弹出当前参数，直到栈空。
而当n = -5 时，参数n - 1 为-6，压栈，再递归调用n - 1 永远到不了n = 1 的终止条件，直到栈满，产生栈溢出的提示信息。
所以设计递归过程时，一定要考虑过程中有终止的条件和终止时的值或某种操作，而且每递归调用一次，其中的参数就要向终止方向收敛，否则就会产生栈溢出。
测试题一、选择题1.设有如下程序段：Public Sub F1（n%）...n = 3 * n + 4...End SubPrivate Sub Command1_Click()Dim n% , m%n = 3m = 4...'调用F1语句...End Sub则在Command1_Click事件中有效的调用语句是______。