VB函数与过程
- 格式:doc
- 大小:80.50 KB
- 文档页数:8
VB过程及其调用VB(Visual Basic,简称VB)是一种基于事件驱动编程的程序设计语言,是Microsoft公司开发的一种高级程序设计语言,常被用于Windows操作系统的应用程序开发。
VB中的过程指的是一系列语句的集合,用于完成特定的任务。
本文将介绍VB中的过程及其调用。
1.过程的定义在VB中,过程可以分为两种类型:Sub过程和Function过程。
Sub过程用于执行一系列操作,没有返回值;而Function过程则返回一个值。
Sub过程的定义格式如下:Sub 过程名(参数列表)'过程主体End SubFunction过程的定义格式如下:Function 过程名(参数列表) As 返回值类型'过程主体End Function其中,参数列表可以包含零个或多个参数,每个参数包含两部分:参数名和参数类型。
返回值类型指的是Function过程的返回值类型,可以是任意VB数据类型。
2.过程的调用在VB中,可以通过过程的名称和参数列表来调用过程。
调用过程时,可以传递参数给过程,如果过程需要返回值,可以将结果保存到一个变量中。
调用Sub过程的语法格式如下:过程名参数列表调用Function过程的语法格式如下:变量名=过程名(参数列表)以下是一个使用Sub过程和Function过程的示例:Sub SayHello(name As String)MsgBox("Hello, " & name & "!")End SubFunction Multiply(a As Integer, b As Integer) As IntegerMultiply = a * bEnd Function调用上述过程的示例代码如下:SayHello("John") '调用Sub过程,显示对话框,输出"Hello,John!"result = Multiply(5, 6) '调用Function过程,将结果保存到变量result中,result的值为303.过程的参数传递在调用过程时,可以传递参数给过程。
vb知识点总结VB(Visual Basic)是一种常用的小型、基于对象的编程语言,被广泛应用于Windows应用程序的开发当中。
无论是初学者还是有一定开发经验的程序员,掌握VB的基本知识点是非常重要的。
本文将对VB的一些重要知识点进行总结,旨在帮助读者加深对VB的了解。
1. 数据类型在VB中,常见的数据类型包括整数型(Integer)、浮点型(Single、Double)、字符型(Char)、字符串型(String)等。
了解和正确使用各种数据类型,可以确保程序的正确性和执行效率。
2. 变量和常量定义变量是编程的基础,同样也适用于VB。
通过使用Dim语句,我们可以声明一个变量并指定其数据类型。
VB还支持常量的定义,通过使用Const关键字,我们可以创建一个不可更改的常量。
3. 运算符在VB中,我们可以使用各种算术运算符(如+、-、*、/)和逻辑运算符(如And、Or、Not)对变量进行计算和比较。
掌握这些运算符的优先级和使用方法,可以提升程序的效率和可读性。
4. 条件语句使用条件语句可以使程序根据不同的条件执行不同的操作。
VB提供了If-Then、If-Then-Else和Select Case等条件语句结构。
通过合理运用条件语句,我们可以实现程序的灵活性和可控性。
5. 循环语句循环语句允许程序重复执行相同的操作,直到满足特定条件为止。
VB提供了For、Do-While和Do-Until等常见的循环结构。
合理使用循环语句,可以减少代码量,提高开发效率。
6. 数组数组是在VB中存储多个相关数据项的有效方式。
在声明数组时,我们需要指定数组的大小和数据类型。
利用数组,我们可以更方便地处理大量的数据。
7. 函数和过程VB支持函数和过程的定义和使用。
函数是一个计算和返回值的子程序,而过程则是执行特定操作而无需返回值的子程序。
了解函数和过程的创建和使用方式,可以使程序更加模块化和可维护。
8. 对象和类VB是一种基于对象的编程语言,对象是程序中的核心。
vb基础知识问答题及答案VB基础知识问答题及答案一、数据类型1. VB中常用的数据类型有哪些?答:VB中常用的数据类型有整型、长整型、单精度浮点型、双精度浮点型、字符型、字符串型、布尔型等。
2. 整型变量在VB中占几个字节?答:整型变量在VB中默认占用2个字节,范围为-32768~32767。
3. 如何定义单精度浮点型变量?答:可以使用Dim语句定义,例如:Dim num As Single。
二、变量和常量1. VB中变量和常量有什么区别?答:变量是值会随程序执行而发生变化的标识符,而常量则是指值在程序执行时不会改变的标识符,常量通常用来表示数学常量或程序中不可变的值。
2. 如何定义常量?答:使用Const语句定义常量,例如:Const PI = 3.14159。
3. 如何声明并初始化一个变量?答:使用Dim语句声明变量,并在后面加上赋值符号和初始值,例如:Dim num As Integer = 10。
三、运算符和表达式1. VB中有哪些运算符?答:VB中有加、减、乘、除等基本运算符以及逻辑运算符、关系运算符等扩展运算符。
2. 如何求一个数的平方?答:使用指数运算符(^),例如:num ^ 2。
3. 如何进行字符串连接?答:使用&符号进行字符串连接,例如:str1 & str2。
四、控制语句1. VB中有哪些常用的控制语句?答:VB中常用的控制语句有if-else语句、switch-case语句、for循环语句、while循环语句、do-while循环语句等。
2. 如何使用if-else语句?答:if-else语句的格式为:If 条件 Then 语句1 Else 语句2。
例如:If num > 10 Then MsgBox("num大于10") Else MsgBox("num小于等于10")。
3. 如何使用for循环语句?答:for循环语句的格式为:For 变量名 = 起始值 To 终止值 Step 步长语句。
vb函数求和VB函数求和在VB中,求和是一项常见的操作,可以通过使用函数来完成。
VB中有多种方式来实现求和,其中包括使用循环语句、数组、递归等方法,但最常见的方法是使用函数来完成。
根据不同的需求,VB中有多种求和函数,本文将主要介绍其中的三种:For循环求和函数、数组求和函数和递归求和函数。
For循环求和函数For循环求和函数是一种常见的方法,它的基本思路是通过循环语句来遍历需要进行求和的数值,然后将这些数值相加得到结果。
具体的实现步骤如下:1.声明函数,函数名为SumFor。
2.定义参数,参数为一个整数数组。
3.定义变量sum,初始值为0。
4.使用For循环语句对数组进行遍历,每次将数组元素累加到sum变量中。
5.返回sum变量中的结果。
以下是一个示例代码:Private Function SumFor(ByVal arr() As Integer) As IntegerDim sum As Integersum = 0For i = 0 To UBound(arr)sum = sum + arr(i)Next iSumFor = sumEnd Function数组求和函数数组求和函数是另一种常见的方法,它的基本思路是将需要进行求和的数值存储在一个数组中,然后通过遍历数组,将数组元素相加得到结果。
具体的实现步骤如下:1.声明函数,函数名为SumArray。
2.定义参数,参数为一个整数数组。
3.定义变量sum,初始值为0。
4.使用For Each循环语句对数组进行遍历,每次将数组元素累加到sum变量中。
5.返回sum变量中的结果。
以下是一个示例代码:Private Function SumArray(ByVal arr() As Integer) As Integer Dim sum As Integersum = 0For Each i In arrsum = sum + iNext iSumArray = sumEnd Function递归求和函数递归求和函数是一种较为复杂的方法,在实现时需要注意函数的正确性和效率。
VB函数说明及使用方法VB(Visual Basic)是一种基于事件驱动的编程语言,由微软公司开发。
它具有易学、易用的特点,是一种适用于Windows操作系统的高级编程语言。
VB函数是VB语言中常用的一种函数,用于进行数据处理和逻辑控制等操作。
VB函数的语法形式为:```[访问类型] Function 函数名(参数列表) As 返回值类型函数体[Exit Function]函数名=返回值[End Function]```其中- 访问类型:指定函数在程序中的可见性,可以包括Public(公共的)、Private(私有的)、Protected(受保护的)等。
-函数名:为函数定义的标识符,用于调用函数。
-参数列表:函数的输入参数,在括号内列出各个参数的名称和数据类型。
-返回值类型:函数的返回值类型,用于指定函数返回的数据类型。
-函数体:函数的具体实现逻辑。
- Exit Function:可选项,用于提前退出函数。
-返回值:函数的返回结果。
下面是一个示例函数的定义:```Public Function AddNumbers(ByVal num1 As Double, ByVal num2 As Double) As DoubleDim sum As Doublesum = num1 + num2AddNumbers = sumEnd Function```这个函数名为AddNumbers,接受两个Double类型的参数,返回值也是Double类型。
函数体中将两个参数相加,并将结果赋值给变量sum,最后将sum作为返回值。
使用VB函数的方法包括以下几个步骤:1.引入函数所在的模块或类库。
如果函数不是在当前模块或类库中定义的,需要通过引入来告知编译器。
2.调用函数。
在程序中通过函数名加括号的形式来调用函数,并传递相应的参数。
函数可以在赋值语句、逻辑判断语句、循环语句等各种场景下进行调用。
3.使用函数的返回值。
vb随机函数用法和实例
[日期:2011-11-02] 来源:IT部落窝作者:IT部落窝阅读:1631次[字体:大中小]
内容提要:本文介绍vb随机函数中的Rnd函数,并配合取整函数int来介绍vb随机函数的使用过程。
不重复randomize
第一,vb随机函数介绍
Rnd 函数是vb随机函数。
Rnd 函数的作用是返回小于1 但大于或等于0 的值。
比如0.871445835、0.056236863这样的随机小数。
第二,vb随机函数实例介绍
1.比如要在A1单元格生成一个这样的随机小数,可以这样写代码:
Sub 随机数()
[A1] = Rnd
End Sub
2.又比如要生成20以内的随机数,可以这样写:
Sub 随机数()
[A1] = Int(Rnd * 20)
End Sub
总结:RND是vb随机函数,可以取到的数在0~1之间不包括1,=INT(RND*10)可以是0~9的整数。
3. 如何使用vb随机函数产生两个数字之间的任意数字?比如生成28到95之间的随机整数。
可以这样写:
Sub 随机数()
[A1] = Int(67 * Rnd + 28)
End Sub
或者是:
Sub 随机数()
[A1] = Int(Rnd * (67 + 1) + 28)
End Sub
vb随机函数产生两个数字之间的任意数字可以套用这样的格式来写:
rnd *(大数-小数+1)+小数或(大数-小数)* rnd+小数。
文章介绍的是最基础的vb随机函数知识,希望对初学者有所帮助。
VB中Sub⼦过程与函数的调⽤在做学⽣管理系统中,遇到了太多太多的问题,发现了VB的学习是多么的不牢固,即使当初耗费了⼤量的时间。
从现在开始,将把⾃⼰遇到的那些模糊或者不懂的知识总结出来,查漏补缺,欢迎⼤家提出批评指正!VB中的调⽤主要针对Sub⼦过程和⾃定义函数的调⽤。
不论是Sub⼦过程还是函数过程,都是将⼀段完整的功能独⽴出来,建⽴⼀个过程。
在主调程序中通过调⽤过程,将需要计算的参数(实参)传递给过程;在过程中求得结果后再讲结果返回到主调程序,从⽽实现程序的功能,并使程序结构更为清晰、简洁。
⼀、Sub⼦过程的调⽤在程序中要调⽤Sub⼦过程的⽅法有如下两种:Call 过程名(实参列表)或过程名 [实参列表]调⽤Sub⼦程序的程序段称为主调程序。
在主调程序中调⽤Sub⼦过程时,将使程序流程⾃动转向被调⽤的Sub⼦过程。
在过程执⾏完最后⼀⾏语句 End Sub 之后,程序流程将⾃动返回到主调程序语句的下⼀⾏继续进⾏,如下图所⽰:在调⽤过程的的语句中,不仅要求实参个数与被调⽤过程形参个数⼀致,⽽且要求实参表的参数类型、参数顺序与被调⽤过程形参表的参数完全⼀致。
⼆、⾃定义函数的调⽤形式如下:函数名(实参列表)实参列表有变量名、数组名、数组元素名、常熟或表达式组成,在调⽤时,实参和形参的数据类型、顺序、个数必须⼀⼀对应。
如下图所⽰:函数调⽤只能出现在表达式中,其功能是求得到函数的返回值。
从上⾯两张图中可以看出,Sub⼦过程和函数过程在传递需要计算的参数时(实参a、b传递给形参x、y),两者并没有什么不同。
但在返回结果⽅⾯,因为函数过程可以通过函数名返回结果,因此,在函数过程中⼀般只需要设置接收计算参数的形参即可(图2的形参为x、y);Sub⼦过程却有所不同,由于Sub⼦过程名只代表名字,没有返回值,所以必须另外设置专门的形参⽤于返回结果(图1的形参为z1、z2)。
那么,在解决⼀个问题时,是使⽤Sub⼦过程还是使⽤函数过程呢?从原则上来说,解决⼀个问题,既可以使⽤Sub⼦过程,也可以使⽤函数过程。
vb中的方法的名词解释VB中的方法:更深入理解函数和子过程在VB(Visual Basic)编程语言中,方法是一种特殊的程序结构,用于执行特定的任务或操作。
方法可以包含一系列的语句和运算符,根据需要接收参数并返回值。
通过使用方法,程序员能够将复杂的问题分解为更小的可管理单元,并实现代码的重用性。
本文将深入解释VB中的方法,包括函数和子过程,并讨论它们在实际编程中的应用。
1. 概述方法是一种封装了一系列语句和操作的代码块。
在VB中,方法分为两种类型:函数和子过程。
函数是一种可以返回值的方法,而子过程则是不返回任何值的方法。
方法通常用于执行特定的任务或计算并返回结果。
通过调用方法,程序可以简化复杂的操作,提高代码的可读性和可维护性。
2. 函数函数是一种在VB中常见的方法类型。
它具有以下特点:返回值:函数可以返回一个值作为结果。
这个结果可以是数值、字符串、对象或其他类型的数据。
语法示例:```Function AddNumbers(ByVal num1 As Integer, ByVal num2 As Integer) As Integer Return num1 + num2End Function```调用示例:```Dim result As Integer = AddNumbers(5, 10)Console.WriteLine(result) ' Output: 15```函数定义以关键字"Function"开头,接着是函数的名称和参数列表。
参数列表指定了在调用函数时需要提供的值,并且以逗号分隔。
在函数体内部,可以使用关键字"Return"返回函数的结果。
3. 子过程子过程是另一种在VB中常见的方法类型。
与函数不同,子过程并不返回任何值。
它只是执行一系列的语句和操作,通常用于修改状态、执行循环或输出信息。
语法示例:```Sub SayHello(ByVal name As String)Console.WriteLine("Hello, " & name & "!")End Sub```调用示例:```SayHello("John") ' Output: Hello, John!```子过程定义以关键字"Sub"开头,接着是子过程的名称和参数列表。
VB函数过程解读作为一种编程语言,VB中的函数过程(Function Procedure)是一种重要的概念,用于实现代码的功能和逻辑。
在VB中,函数过程由一组可执行的语句组成,用来执行特定的任务并返回相应的结果。
函数过程在VB中有以下几个要点和特点:1. 函数定义和语法:函数过程的定义以关键字"Function"开头,后面是函数的名称和参数列表。
参数列表可以为空或包含一个或多个参数,每个参数由参数名和数据类型组成,参数之间用逗号分隔。
函数过程以"End Function"结束。
2. 函数的返回值:函数过程必须指定返回值的数据类型。
通过使用关键字"Function"后面的冒号加上返回值的数据类型来指定。
例如,"Function MyFunction( As Integer"表示这个函数返回一个整数。
3. 函数的执行:函数过程可以被其他代码调用执行。
当调用函数时,函数将执行其中的语句,并根据需要返回一个结果给调用者。
在函数过程内,通过使用关键字"Return"加上要返回的值来返回结果。
例如,"Return 10"表示这个函数返回值为10。
4.函数的参数传递:函数过程可以接受传递给它的参数,并基于这些参数执行相应的功能。
参数可以是值类型或引用类型。
在函数的参数列表中,可以指定参数的名称和数据类型。
在调用函数时,可以传递一个或多个参数给函数。
参数可以通过值传递或引用传递。
5.函数的局部变量:函数过程中可以定义局部变量,这些变量的作用范围仅限于函数内部。
局部变量用于存储函数执行过程中需要的临时数据。
6.函数的递归调用:函数过程可以递归调用自身。
递归是一种重要的编程技巧,在一些情况下,使用递归可以简化代码实现。
7. 函数的访问权限:在VB中,函数过程可以被设置为公共的(Public)或私有的(Private)。
function是函数,sub是子程序,都可以传递参数,但函数有返回值,子程序没有function 可以用自身名字返回一个值,sub 需定义别的变量,用传址方式传回值。
Sub 过程与Function 过程的区别:1.Sub 过程定义时无需定义返回值类型,而Function 过程一般需要用“As 数据类型”定义函数返回值类型。
2.Sub 过程中没有对过程名赋值的语句,而Function 过程中一定有对函数名赋值的语句。
3.调用过程:调用Sub 过程与Function 过程不同。
调用Sub 过程的是一个独立的语句,而调用函数过程只是表达式的一部分。
Sub 过程还有一点与函数不一样,它不会用名字返回一个值。
但是,与Function过程一样,Sub 过程也可以修改传递给它们的任何变量的值。
4.调用Sub 过程有两种方法:以下两个语句都调用了名为MyProc 的Sub 过程。
Call MyProc (FirstArgument, SecondArgument)MyProc FirstArgument, SecondArgument注意当使用Call 语法时,参数必须在括号内。
若省略Call 关键字,则也必须省略参数两边的括号。
在VB中,子过程与函数过程只有一处区别(要学好VB一定要记住),区别就是:子过程没有返回值,函数过程有返回值。
子过程用于编写一些代码的集合,函数过程用于建立函数。
我兴个例吧。
例如,我要做多处要做如下事件,我只要编写一个子过程,在其它事件下,我只要把子过程的名称写下就行了。
Private Sub ABC(A As Integer, B As Integer, C As Integer)A = 1B = 1C = 1End SubPrivate Sub Command1_Click()ABC '按扭一就调用了该子过程了,而不用再写子过程的代码。
End SubPrivate Sub Command2_Click()ABC '按扭二就调用了该子过程了,而不用再写子过程的代码。
VB_API_函数教程VB是一种面向对象的编程语言,它支持使用API函数来完成各种任务。
API函数是由操作系统提供的函数,可以让开发人员访问底层功能。
在VB中,我们可以使用API函数来扩展程序的功能,例如访问文件系统、网络连接、窗口管理等。
本教程将介绍VB中常用的API函数以及如何使用它们。
一、API函数的声明在VB中使用API函数,首先需要声明该函数。
声明函数的方法如下:Declare Function functionName Lib "libraryName" (parameterList) As returnType其中,functionName是函数的名称,libraryName是包含API函数的动态链接库的名称。
parameterList是函数的参数列表,returnType是函数的返回类型。
例如,要声明一个名为MessageBox的API函数,可以使用以下代码:Declare Function MessageBox Lib "user32.dll" Alias "MessageBoxA" (ByVal hWnd As IntPtr, ByVal text As String, ByVal caption As String, ByVal type As Integer) As Integer在上述代码中,函数名为MessageBox,函数库为user32.dll,函数别名为MessageBoxA,参数列表包含hWnd、text、caption和type四个参数,返回值为整数类型。
二、使用API函数在声明好API函数之后,可以使用它来完成相应的任务。
使用API函数的方法如下:returnValue = functionName(argumentList)其中,functionName是API函数的名称,argumentList是函数的参数列表,returnValue是函数的返回值。
实验九Function 过程的使用
【实验目的】
1、掌握 Function 过程的定义;
2、掌握 Function 过程的调用;
【实验内容】
例 1、编写程序,利用Function 过程计算下式的值:
提示:建立一个带参数X的的 Function 过程,在过程中利用FOR循环计算出1+2+3+……+X;然后在主程序中调用 Function 过程计算出1+2+3+……+M、1+2+3+……+N、1+2+3+……+P的值,主要界面如下:
例 2、利用Function 过程计算下式的值:
调用该Function 过程计算“f(f(f(a)))+f(f(2+f(b)))”的值,a和b的值由键盘输入。
【上机参考练习题】
1.根据公式编写函数求的值
2.编写 Function 过程计算n!,调用该函数过程计算下式的值:
S=1+1/(1+4!)+1/(1+4!+7!)+……+1/(1+4!+……+19!)
3.设计一个简单的打字程序,如图所示。
其中:按“开始”按钮调用一个子过程letter,能够随机产生一串大写字母。
在keypress事件过程中判断打字的正确率。
4.(程序存盘文件名TEST22.VBP、TEST22.FRM)
程序界面如图所示:
程序的功能是:当单击“产生随机数”按钮时,随机产生10个1—100的自然数,显示在文本框test1中;当单击“排序”按钮后,则在text2中显示按降序排序后的结果。
其中,在排序时交换数据的功能要求用子程序实现。
VB函数与过程教学目的:1、熟悉VB中函数的含义及函数的分类。
2、掌握VB中用户函数的定义及应用。
3、掌握VB中通用过程的含义及使用方法。
教学重点:1、VB中函数基本概念的理解。
2、VB中用户函数定义方法。
3、VB中变量的作用范围。
4、VB中通用过程的应用。
课时安排:理论教学安排6课时,上机练习8课时一、VB通用过程1、重复使用的程序段独立定义为过程。
2、过程的分类(1)事件过程(例如click,dblclick,……)(2)通用过程(由用户定义,可供VB过程来调用;用户定义的过程称为“子过程”)3、通用调用流程:程序过程:(1)调用过程可以事件过程或者用户定义过程。
调用过程按顺序执行时,遇到CALL命令则转向指定的子过程。
(2)子过程按顺序执行,遇到子过程的结束语句时,返回到调用过程的断点后一条语句(CALL的下一条语句)。
(3)调用过程接着执行,遇CALL命令重复(2);否则执行到程序结束。
4、VB中的通用过程:(1)SUB(过程)------无返值(2)FUNCTION(函数)-------有返值二、SUB过程上机练习:P165例7.1Private Sub Form_Load()ShowCall sub1(30)Call sub2Call sub2Call sub2Call sub2Call sub2Call sub2Call sub1(30)End SubPrivate Sub sub1(n)Print String(n, "*") 'string函数用来重复出现n次"*"End SubPrivate Sub sub2()Print "*"; T ab(30); "*"End Sub1、Sub过程的定义Private|public|static sub 过程名(形式参数列表)过程语句块(可以含有Exit sub)End sub(1)Private表示过程只在当前模块有效,public则表示在整个程序范围都有效。
(2)Static表示过程的局部变量静态分配空间(局部变量保持到整个程序结束才释放,而动态变量则是过程退出就释放变量。
)2、Sub过程的建立(1)窗体中打开代码窗口(.frm),选择通用过程,直接编写sub过程。
(2)在标准模块(.bas)中来创建sub过程。
第一步,在“工程”菜单或工程面板的快捷菜单中选择“添加模块”。
第二步,在“工具”菜单中选择“添加过程”,弹出“过程对话框”,输入过程名,录入过程代码;也可以直接在通用代码框中录入过程。
注意:在标准模块书写通用过程时,单独保存.bas的模块文件。
如果过程中使用窗体等对象,不能省缺对象名。
3、Sub过程的调用Call 过程名(实参数表)过程名实参表上机练习:1、P168例7.22、P169例7.33、P195上机调试1Private Sub ifnum(str1 As S tring, n As Integer)Dim k As IntegerFor k = 1 T o Len(str1) ‘逐个字符判断是否为数字If Asc(Mid(str1, k, 1)) < 48 Or Asc(Mid(str1, k, 1)) > 57 Thenn = 0: Exit SubEnd IfNext kn = 1End SubPrivate Sub Command1_Click()Dim a As String, b As String, c As StringDim y1 As Integer, y2 As Integer, y3 As Integera = T ext1.T ext ‘a,b,c用来取得三个文本框的字符串b = T ext2.T extc = T ext3.T extCall ifnum(a, y1) '用来判断a,b,c是否为数字串,为数字串时y1,y2,y3都为1 Call ifnum(b, y2)Call ifnum(c, y3)If y1 = 1 And y2 = 1 And y3 = 1 ThenT ext4.T ext = Val(a) + Val(b) + Val(c)ElseT ext4.T ext = "三个文本框内有非数字串"End IfEnd Sub4、P186例7.145、P186例7.15(变化可以产生变幻线的效果。
)作业:1、什么是通用过程?它是否依赖于对象?试简述通用过程的调用执行过程。
2、在VB中如何加入标准模块。
通用过程可以书写在标准模块中吗?3、简述VB通用过程定义中private,public与static的区别。
三、Function过程(直接返回主调用程序一个值)1、function的定义[Private|public|static] function 函数名(参数表)[as 数据类型]语句块函数名=表达式(需要向外传送的结果)[Exit function]End function2、fuction的编辑同sub的编辑上机练习:P170例7.43、函数调用(与系统函数相同)(1)用表达式调用,与系统函数一样。
(2)可以使用call调用,但此时返值无效。
上机练习:(1)P170例7.5(2)P196 上机调试题2Private Sub Command1_Click()Dim a1 As Single, a2 As Single, a3 As SingleDim a4 As Single, a5 As Single, a6 As SingleDim s1 As Single, s2 As Singlea1 = Val(T ext1.T ext) ‘取得6个数a2 = Val(T ext2.T ext)a3 = Val(T ext3.T ext)a4 = Val(T ext4.T ext)a5 = Val(T ext5.T ext)a6 = Val(T ext6.T ext)s1 = max(a1, a2, a3) ‘调用max函数求最大值s2 = max(a4, a5, a6)If s1 > s2 ThenT ext7.T ext = "最大数为" & s1ElseT ext7.T ext = "最大数为" & s2End IfEnd Sub公共模块:Public Function max(m As Single, n As Single, k As Single) As SingleDim max1 As SingleIf m > n Thenmax1 = mElsemax1 = nEnd IfIf max1 < k Then max1 = kmax = max1 ‘将要传出的结果送给函数名End Function(3)P196 上机调试题3Private Sub Command1_Click()Dim s As Strings = T rim(T ext1.T ext)n = getword(s)T ext2.T ext = nEnd SubFunction getword(s As String) As Integern = 0Do While s <> ""p = InStr(s, Space(1)) ‘求空格在串中出现的位置n = n + 1If p = 0 ThenList1.AddItem ss = ""ElseList1.AddItem Left(s, p - 1)s = T rim(Mid(s, p)) ‘剩下的s去掉左边的单词End IfLoopgetword = nEnd Function(3)P188 例7.16四、多窗体与Sub main过程一般一个VB工程文件只包含一个窗体。
工程文件包含多个窗体。
1、窗体的添加(工程管理器实现,工程菜单实现)2、窗体的删除(工程管理器中移除)3、窗体的保存(VB工程中,每个窗体都独立保存------保存工程时,最好使用独立文件夹)4、启动窗体的设置(工程菜单实现)VB程序设计中,启动窗体只能有一个,或者是由sub main过程来选择启动。
5、多窗体的应用:Load:载入窗体到内存Unload:卸载窗体,将窗体中清除(如果是正在显示的窗体,将先执行hid e方法)Show方法:用来显示窗体(如果是未载入的窗体,将先执行load载入窗体操作)Hide方法:用来隐藏窗体例:将窗体载入内存或从内存中移出:(1)Load 窗体名(2)Unload 窗体名/unload me窗体在内存中,只隐藏或者显示:(3)窗体名.show(4)窗体名.hide上机练习:P182例7.12多个窗体之间的参数传递使用公共模块。
6、Sub main过程1)添加公共模块2)编写Sub main过程3)在“工程”属性设置启动对象为“Sub main”上机练习:1、P182例7.132、P189 例7.172、P196 上机调试5窗体一界面如上,代码:Public i As Integer ‘公共代码,定义的i是一个在form1中可用的全程变量Private Sub Command1_Click()If i > 3 ThenForm1.HideForm3.ShowEnd If ‘试三次以后转向错误提示窗体form3If T ext1.T ext = "username" And T ext2.T ext = "password" ThenForm1.HideForm2.ShowEnd If ‘用户与密码均正确时转向成功登录窗体form2i = i + 1T ext1.T ext = ""T ext2.T ext = ""End SubPrivate Sub Form_Load()i = 0End Sub窗体二界面如上,代码:Private Sub Command1_Click()Unload MeForm1.Show ‘卸载自己并返回登录界面End SubPrivate Sub Form_Load()ShowT ext1.T ext = "欢迎你使用本系统!"End Sub窗体三界面如上,代码:Private Sub Command1_Click()EndEnd SubPrivate Sub Form_Load()ShowT ext1.T ext = "对不起,请向管理员查询" End Sub读P177-181,完成下列作业:1、VB中有几种模块,如何划分。