VB复习(医科)

1、卷面卷面100100分，共分，共4 4道大题：道大题： p 单项选择题，单项选择题，2828小题，每题小题，每题1.51.5分，共分，共4242分分p 程序填空题，程序填空题，1111个空，每空个空，每空2 2分，共分，共2222分分p 看程序写结果，看程序写结果，4 4小题，每题小题，每题2 2分，共分，共8 8分分p 程序设计题，程序设计题，3 3小题，共小题，共2828分分 选择结构选择结构 循环结构循环结构 数组数组 函数的定义与调用函数的定义与调用p 冯冯诺依曼原理诺依曼原理p 计算机的硬件组成计算机的硬件组成p 计算机软件计算机软件基本概念基本概念p Internet Intern

2、et上网配置上网配置p 计算机安全计算机安全防护防护1 1）计算机应包括计算机应包括运算器运算器、控制器控制器、存储器存储器、输入、输入和输出设备和输出设备五大基本部件五大基本部件。2 2）计算机内部应采用计算机内部应采用二进制二进制来表示指令和数据。来表示指令和数据。3 3）存储程序）存储程序，让程序来指挥计算机自动完成各种，让程序来指挥计算机自动完成各种工作。工作。“存储程序存储程序”是关键！是关键！运算器存储器控制器输入/输出设备完成算术运算和逻辑运算。运算的中间结果可暂存在运算器内。存放数据和程序，由存储单元组成。分为内存、外存和缓存。控制、指挥程序和数据的输入、运行以及处理运算结果。

3、转换人们熟悉的信息形式和机器能识别的信息形式。 中央处理器（CPU）是一块超大规模的集成电路，是一台计算机的运算核心和控制核心。中央处理器（CPU）=运算器（ALU）+控制器（CU）附加：寄存器、高速缓冲存储器和内部总线容量容量速度速度* 正在运行的程序和正在使用的数据放在哪里？正在运行的程序和正在使用的数据放在哪里？* CPUCPU不能直接存取的存储设备是哪种？不能直接存取的存储设备是哪种？* 哪些存储设备断电后数据会丢失？哪些存储设备断电后数据会丢失？p 内存储器的分类内存储器的分类* 只读存储器只读存储器（ROMROM，Read Only MemoryRead Only Memory）

4、所存数据是装入整机前事先写好的所存数据是装入整机前事先写好的，数据在断电后不会消失数据在断电后不会消失。* 随机存储器随机存储器（RAMRAM，Random Access MemoryRandom Access Memory）：）： 计算机工作的存储区，一切要执行的程序和数据都要先装入该存计算机工作的存储区，一切要执行的程序和数据都要先装入该存储器内。储器内。RAMRAM中的信息会随着计算机的断电自然消失中的信息会随着计算机的断电自然消失。 一般所说的主存容量是指一般所说的主存容量是指RAMRAM的容量。的容量。p 信息存储单位信息存储单位* “位位”（BitBit）：是计算机中最小的信息单位

5、。）：是计算机中最小的信息单位。* “字节字节”（ByteByte）：是由相连）：是由相连8 8个位组成的信息存储单位。个位组成的信息存储单位。 * “字字”（WordWord）：对于）：对于CPUCPU字长为字长为3232的计算机（以下同），的计算机（以下同），是由相连是由相连4 4个字节（即个字节（即3232位）构成的信息存储单位。位）构成的信息存储单位。信息存储的基本单位是字节信息存储的基本单位是字节p 存储容量的单位换算存储容量的单位换算1 1KBKB (Kilobyte (Kilobyte千字节千字节)=1024B)=1024B，1 1MBMB (Megabyte (Megabyte

6、兆字节，简称兆字节，简称“兆兆”)=1024KB)=1024KB，1 1GBGB (Gigabyte (Gigabyte吉字节，又称吉字节，又称“千兆千兆”)=1024MB)=1024MB，1 1TBTB(Trillionbyte(Trillionbyte万亿字节，太字节万亿字节，太字节)=1024GB)=1024GB，其中其中1024=2101024=210 (2 (2的的1010次方次方) )其他输入输出设备其他输入输出设备p字长字长*计算机的运算部件一次能直接处理的二进制数据的位数计算机的运算部件一次能直接处理的二进制数据的位数p内存容量内存容量*内存储器中能存储信息的总字节数内存储器中

7、能存储信息的总字节数p主频主频*CPUCPU的时钟频率，是指的时钟频率，是指CPUCPU在单位时间内发出的脉冲数在单位时间内发出的脉冲数p存取周期存取周期*存储器存储器连续两次读（或写）所需的最短时间连续两次读（或写）所需的最短时间p外设配置外设配置*计算机的输入、输出设备以及外存储器等计算机的输入、输出设备以及外存储器等软件软件指的就是人们通过程序设计语言设计得到的计指的就是人们通过程序设计语言设计得到的计算机程序（指令序列）和程序所操作的数据。算机程序（指令序列）和程序所操作的数据。系统软件系统软件是指控制和协调计算机及系统软件是指控制和协调计算机及外部设备外部设备，支持支持应用软件开发应

8、用软件开发和运行的系统和运行的系统。应用软件应用软件是为满足用户不同领域、不同问题应用软件是为满足用户不同领域、不同问题的应用需求而提供的软件的应用需求而提供的软件。* 操作系统是计算机系统中的一个操作系统是计算机系统中的一个系统软件系统软件。* 操作系统的主要任务是操作系统的主要任务是管理计算机系统的软硬件资源管理计算机系统的软硬件资源。 处理器管理处理器管理 存储管理存储管理 设备管理设备管理 软件资源管理软件资源管理* 操作系统操作系统为用户提供使用计算机的接口为用户提供使用计算机的接口，方便用户使用计算，方便用户使用计算机。机。* 协议协议* IPIP地址地址* 子网掩码子网掩码* 网

9、关网关* 域名系统域名系统* DNSDNS服务器服务器InternetInternet上网配置上网配置p安装杀病毒软件，预防计算机感染病毒安装杀病毒软件，预防计算机感染病毒p安装设置防火墙，防范黑客入侵安装设置防火墙，防范黑客入侵p及时安装最新的系统漏洞补丁及时安装最新的系统漏洞补丁p对重要资料的保护对重要资料的保护p 计算机中的数据表示计算机中的数据表示p 算法基本概念算法基本概念p 程序的基本概念程序的基本概念p 十进制整数转换为二进制整数十进制整数转换为二进制整数: * 除除2 2倒取余法倒取余法p 二进制整数转换为十进制整数二进制整数转换为十进制整数: * 加权系数法加权系数法 计算机

10、中使用最多的字符包括：计算机中使用最多的字符包括：* 十进制数字十进制数字 09* 大、小写英文字母大、小写英文字母AZ和和az* 常用的运算符和标点符号常用的运算符和标点符号 ASCII码：码：美国信息交换标准码美国信息交换标准码 用低用低7位二进制数对一种字符编码，位二进制数对一种字符编码，最高位为最高位为0。 一共可对一共可对128种字符进行编码。种字符进行编码。0 1 2 3 4 5 6 789ABCDEF0 1 2 3 4 5 6 7p 输入码输入码p 交换码（国标码）交换码（国标码）p 处理码（机内码）处理码（机内码）p 输出码输出码* 交换码交换码：用：用2个字节个字节表表示一个

11、汉字，每个字节示一个汉字，每个字节都只使用低都只使用低7位。位。* 处理码处理码：计算机内部用于信息处理的汉字代码。：计算机内部用于信息处理的汉字代码。一个机内码占一个机内码占2个字节。在汉字国标码的基础个字节。在汉字国标码的基础上把每个字节的最高位由上把每个字节的最高位由0变变1，其他位不变。，其他位不变。*算法算法是在有限步骤内求解某一问题所使用的一组定义是在有限步骤内求解某一问题所使用的一组定义明确的规则。明确的规则。*算法算法的的特性：特性：输入输入输出输出有穷性有穷性确定性确定性可行性可行性*算法算法的表示方法：的表示方法：自然语言自然语言流程图流程图伪代码伪代码* 程序程序是为了用

12、计算机解决某个问题而采用程序设是为了用计算机解决某个问题而采用程序设计语言编写的一个指令序列。计语言编写的一个指令序列。* 程序设计语言的分类程序设计语言的分类： 机器语言机器语言 汇编语言汇编语言 高级语言高级语言* 高级语言的翻译：高级语言的翻译： 编译编译 解释解释p面向对象基本概念面向对象基本概念pVB.NET应用程序编码规则应用程序编码规则p窗体与基本控件窗体与基本控件p 类类*创建对象实例的模板，是同种对象的集合和抽象。创建对象实例的模板，是同种对象的集合和抽象。p 对象对象*某个实体。对象是类的实例，具有类的属性和方法。某个实体。对象是类的实例，具有类的属性和方法。p 对象的三要

13、素对象的三要素*属性属性如何设置属性值如何设置属性值? ?*方法方法如何调用方法？如何调用方法？*事件事件如何编写事件过程？如何编写事件过程？p程序代码程序代码不区分大小写不区分大小写p一行可书写若干语句，语句之间用一行可书写若干语句，语句之间用“：”隔开隔开p续行：续行：空格空格+ +“_ _”p注释语句：注释语句： “ “RemRem”或或“”。可单独成行，也可在语句后。可单独成行，也可在语句后 必须以字母、汉字、下划线开头；必须以字母、汉字、下划线开头； 后面跟字母、汉字、数字或下划线，不能是其他字符或空格；后面跟字母、汉字、数字或下划线，不能是其他字符或空格； 如果以下划线开头，则须包

14、含至少一个字母或数字；如果以下划线开头，则须包含至少一个字母或数字； 不能使用关键字。不能使用关键字。下面属于合法的变量名的是下面属于合法的变量名的是_。A5worker Bzhong guo CA#5 Dxy_z 练习练习p对象的通用属性对象的通用属性*Name、Textp窗体的常用事件窗体的常用事件*Loadp文本框的常用事件文本框的常用事件*KeyPress、TextChangedp命令按钮的常用事件命令按钮的常用事件*Clickp数据类型数据类型p变量的声明及使用变量的声明及使用p运算符与表达式运算符与表达式p常用函数的使用常用函数的使用数据类型关键字类型符字节范围字节型Byte102

15、55短整型Short2-3276832767整型Integer%4-2,147,483,6482,147,483,647长整型Long&8-9,223,372,036,854,775,8089,223,372,036,854,775,807单精度型Single！4负数：-3.402823E38 -1.401298E-45正数：1.401298E-45 3.402823E38双精度型Double#8负数：-1.79769313486231D308 -4.94065645841247D-324正数：4.94065645841247D-324 1.79769313486231D308十进制型

16、Decimal16没有小数位：+/-79228162514264337593543950335小数位数有28位：+/-7.9228162514264337593543950335最小的非零数字为：+/-10-28字符型Char2065535字符串型String$不定0231个字符逻辑型Boolean2True和False日期型Date81/1/000112/31/9999对象型Object4可存放任何数据类型的变量有效数字位最多7位有效数字位最多15位逻辑型数据逻辑型数据（Boolean） 逻辑型数据只有两个值：逻辑型数据只有两个值： 真（真（True）和和假（假（False），默认值为），默

17、认值为 Falsep 其他类型数据转换为布尔型其他类型数据转换为布尔型*0 转换为转换为 False*非非 0 转换为转换为 Truep布尔型数据转换为整数型布尔型数据转换为整数型 *True 转换为转换为 -1*False 转换为转换为 0p变量是指在程序运行中，取值可以改变的数据。变量是指在程序运行中，取值可以改变的数据。p变量三要素：变量三要素：变量名变量名、变量类型变量类型、变量值变量值p变量的声明变量的声明p变量的初始化变量的初始化*显式初始化显式初始化*隐式初始化隐式初始化p变量的赋值变量的赋值优先级优先级运算符运算符含义含义举例举例结果结果1乘方2382-负号-24-163*、/

18、乘、除5*3/27.54整除15275Mod取余数7 Mod 216+、-加、减10 - 3 + (-2)5 Dim x%, a%, b%, c% x = 4582 c = x Mod 10 分离出个位分离出个位 b = x 10 Mod 10 分离出十位分离出十位 或或 (x Mod 100) 10 a = x 100 Mod 10 分离出百位分离出百位 或或 (x Mod 1000) 100 Label1.text = 该数字的个位、十位、百位分别为：该数字的个位、十位、百位分别为： & c & b & a例例5.6 对于一个任意的整数对于一个任意的整数x，分离其百

19、位、十位，分离其百位、十位和个位。和个位。p&：字符串连接运算。无论：字符串连接运算。无论操作数类型，先转换成为字符操作数类型，先转换成为字符串型后串型后再再进行连接。进行连接。ab & 123 结果为结果为ab12312 & True 结果为结果为12Truep+：既可作加法运算，又可用于字符串连接。既可作加法运算，又可用于字符串连接。* 两操作数均为字符串型两操作数均为字符串型字符串连接运算字符串连接运算* 否则将进行加法运算否则将进行加法运算ab+ 123 加法运算，类型不匹配出错加法运算，类型不匹配出错12+ 456 加法运算，结果为加法运算，结果为46812

20、+ True 加法运算，结果为加法运算，结果为1112 + 456 字符串运算，结果为字符串运算，结果为12456对象的对象的Text属性直接做加法属性直接做加法运算为字符串连接，必须用运算为字符串连接，必须用Val()函数转换。函数转换。非加法运算可以直接运算，非加法运算可以直接运算，无需转换！无需转换！* TextBox1.Text + TextBox2.Text = ?* Val(TextBox1.Text) + Val(TextBox2.Text) = ?* TextBox1.Text TextBox2.Text = ?说明：说明： 数值型数据按其大小比较；数值型数据按其大小比较； 字

21、符串比较按照字符的字符串比较按照字符的ASCIIASCII码值码值比较比较； 关系运算符优先级相同。关系运算符优先级相同。运算符运算符含义含义举例举例结果结果=等于ABCDE = ABRFalse大于ABCDE ABRFalse=大于等于bc = abcdeTrue小于23 3False=小于等于23 3True不等于abc abcdeTrue优先级优先级运算符运算符含义含义说明说明1Not非对操作数取反2And与当两个操作数均为真时，结果为真；否则为假3Or或当两个操作数均为假时，结果为假；否则为真高高低低对于相同类型的多个运算符，按各自的优先级进行运算。对于相同类型的多个运算符，按各自的优

22、先级进行运算。函数功能示例结果Abs(x)绝对值Math.Abs(-22.7)22.7Sqrt(x)平方根Math.Sqrt(16)4Round(x, n)四舍五入，n为小数点左边的位数，如省略为0Math.Round(4.56789)Math.Round(4.5678, 2)54.57pInt函数：向下取整 Int(8.9)=8 Int(-8.9)=-9pMath.Rnd(x)格式：格式： a, b a=x=b 公式：公式： Int( Rnd( ) * (b a + 1) + a ) a, b) a=xb 公式：公式： Int( Rnd( ) * (b - a) + a )功能：产生一个功能

23、：产生一个 0, 1) 范围内的单精度数范围内的单精度数产生任意范围内的整数：产生任意范围内的整数：函数功能示例结果Left(s,n)从s左边取n个字符Left(abcdef, 4)abcdRight(s,n)从s右边取n个字符Right(abcdef, 4)cdefMid(s,n,m)从s第n个字符起取m个字符Mid(abcdef, 2, 3)Mid(abcdef, 2)bcdbcdefLen(s)返回字符串长度Len(VB.NET学习)8Space(n)返回n个空格Space(5) LCase(s)将s中所有字母转换为小写字母LCase(VB.NET)UCase(s)将s中所有字母转换为大

24、写字母UCase(VB.net)VB.NET函数功能示例结果Asc(s)字符转换为ASCII码值Asc(A)65Chr(n)ASCII码值转换为字符Chr(97)aStr(n)数值转换为字符串Str(12.345)Str(-12.345) 12.345-12.345Val(s)数字字符串转换为数值Val(12abc.345)12注意注意：Str函数在将函数在将正数转换为字符串时，字符串的第一个正数转换为字符串时，字符串的第一个字符是空格。字符是空格。程序基本控制结构（三种）程序基本控制结构（三种）p 语法格式：语法格式： 变量名变量名 | 对象名对象名.属性名属性名 = 表达式表达式p 功能功

25、能: 计算赋值号计算赋值号“=”右边表达式的值，然后右边表达式的值，然后赋给赋值号赋给赋值号“=”左边的量。左边的量。注意：注意：（1）“=”是赋值号不是数学中的等于号。是赋值号不是数学中的等于号。（2） 赋值号赋值号左边只能是变量名左边只能是变量名，不能是函数或表达式。，不能是函数或表达式。 （3）一条赋值语句只能为一个变量（或控件对象属性）赋值。）一条赋值语句只能为一个变量（或控件对象属性）赋值。（4）赋值要注意数据类型。）赋值要注意数据类型。p 复合赋值运算符：复合赋值运算符：+= ，-=，*=，/=，&=（1）累加：）累加： sum += s 等价于等价于 sum = sum

26、+ s（2）连乘：）连乘： t *= i 等价于等价于 t = t * i （3）计数：）计数： n += 1 等价于等价于 n = n + 1 （4）字符串连接：）字符串连接： Label1.Text &= “*” 等价于等价于 Label1.Text = Label1.Text & “*” MsgBox函数用于函数用于打开一个消息框，打开一个消息框，在在对话框中显示提示信息，对话框中显示提示信息，等待用户等待用户单击一个单击一个按钮，按钮，并并返回返回相应的相应的整数型数值，整数型数值，作为程序继作为程序继续执行的依据。续执行的依据。语法格式：语法格式： MsgBox(Pr

27、ompt ，Buttons ，Title)功能：在屏幕上显示一个消息框，根据选择确定其后的操作。功能：在屏幕上显示一个消息框，根据选择确定其后的操作。说明：说明： Prompt：在在消息框中显示的消息。字符串表达式消息框中显示的消息。字符串表达式Buttons ：消息框的样式，由三个部分组成消息框的样式，由三个部分组成 按钮数目按钮数目+ 图标类型图标类型 + 默认按钮默认按钮 Title：消息框的标题消息框的标题多行形式多行形式 If 表达式表达式 Then 语句块语句块 End If单行形式单行形式 If 表达式表达式 Then 语句块语句块表达表达式式语句块语句块TF 当表达式的值为当表

28、达式的值为True，执行，执行Then后面的语句块，否则不做后面的语句块，否则不做任何操作。任何操作。多行形式多行形式 If 表达式表达式 Then 语句块语句块1 Else 语句块语句块2 End If单行形式单行形式 If 表达式表达式 Then 语句块语句块1 Else 语句块语句块2表达式表达式语句块语句块1语句块语句块2TFIfThenElse 当表达式的值为当表达式的值为True时，执行时，执行Then后面的语句块后面的语句块1，否，否则执行则执行Else后面的语句块后面的语句块2表达式表达式1语句块语句块1语句块语句块2表达式表达式2表达式表达式n语句块语句块n语句块语句块n+1

29、TFTFTF 不管有几个分支，依次判断，当某条件满足，执行相应的不管有几个分支，依次判断，当某条件满足，执行相应的语句，其余分支不再执行；语句，其余分支不再执行；若条件都不满足若条件都不满足，且有，且有Else子句，子句，则执行该语句块，否则什么也不执行。则执行该语句块，否则什么也不执行。elseElseifElseifThenIfp 语法格式：语法格式： If 表达式表达式1 Then 语句块语句块1 ElseIf 表达式表达式2 Then 语句块语句块2 ElseIf 表达式表达式n Then 语句块语句块n Else 语句块语句块n+1 End If注意注意: ElseIf 不能写成不能

30、写成Else If例例：编写程序：编写程序, ,当输入当输入X X的值的值后计算输出后计算输出Y Y的值。的值。Private Sub Button1_Click() Handles Button1.Click Dim x, y As Single x = Val(TextBox1.Text) If x 0 Then y = x ElseIf x = 10 Then y = x * x ElseIf x = x Then Label2.Text = x & 是素数是素数 Else Label2.Text = x & 不是素数不是素数 End If 素数指仅能被素数指仅能被1和和

31、此整数自身整除的大于此整数自身整除的大于或等于或等于2的整数。判别的整数。判别方法是方法是: 对于数对于数x 从从 i=2，3，x-1判别判别x能否能否被被i整除，只要有一个整除，只要有一个能整除，能整除，x就不是素数，就不是素数，否则否则x是素数。是素数。写成函数写成函数Private Function IsPrime(ByVal N As Integer) As Boolean Dim blnTag As Boolean Dim i As Integer blnTag = True 假设假设N是是素数素数 For i = 2 To N - 1 If N Mod i = 0 Then bln

32、Tag = False Exit For End If Next Return blnTagEnd Function格式格式1： Do While | Until 条件条件 语句块语句块 Exit Do 语句块语句块 Loop格式格式2： Do 语句块语句块 Exit Do 语句块语句块 Loop While | Until 条件条件 特点：特点：1. 先执行后判断先执行后判断，循环体，循环体至少执行一次至少执行一次2. 循环次数循环次数 1特点：特点：1. 先判断后执行先判断后执行，循环体，循环体可能一次可能一次都不执行都不执行2. 循环次数循环次数 0。While条件条件： 条件结果为条件

33、结果为True（或（或 非非0）时执行循环体；为）时执行循环体；为False(或或0)时结束循环时结束循环Until条件条件： 条件结果为条件结果为False(或或0)时执行循环；为时执行循环；为True（或（或 非非0）时结束循环体）时结束循环体例例：假设我国现有人口为：假设我国现有人口为13亿，设年增长率为亿，设年增长率为1%，计算多，计算多少年后我国人口达到或超过少年后我国人口达到或超过15亿。亿。Private Sub Form_Click(.) Handles Me.click Dim P As Double, R As Single, N As Integer P = 130000

34、0000 R = 0.01 N = 0 Do While P 8848 n = 2 * n num = num + 1 LoopMsgbox(折叠次数为折叠次数为 & num)Dim Day% Day表示第几天表示第几天Dim Peach% Peach表示桃子的数量表示桃子的数量Day = 10Peach = 1 Do Peach = ( Peach + 1 ) * 2 Day = Day - 1Loop Until Day = 1 MsgBox(第第1天的桃子数为天的桃子数为 & Peach)猴子第一天摘下若干个桃子，当即吃了一半，还不过瘾，又多吃猴子第一天摘下若干个桃子，当

35、即吃了一半，还不过瘾，又多吃了一个。第二天早上又将剩下的桃子吃掉一半，又多吃了一个。了一个。第二天早上又将剩下的桃子吃掉一半，又多吃了一个。以后每天早上都吃了前一天剩下的一半零一个。到第以后每天早上都吃了前一天剩下的一半零一个。到第10天早上天早上想再吃时，见只剩下一个桃子了。求第一天共摘了多少个桃子？想再吃时，见只剩下一个桃子了。求第一天共摘了多少个桃子？例例6.17 利用格里高利公式计算利用格里高利公式计算的近似值，直到最后一项的的近似值，直到最后一项的绝对值小于绝对值小于0.0000001。111111.( 1).435721nn Private Sub Button1_Click()

36、Handles Button1.Click Dim n%, Sum#, ValueN# n = 0 Sum = 0 Do n += 1 ValueN = (-1) (n + 1) / (2 * n - 1) Sum = Sum + ValueN Loop Until Math.Abs(ValueN) Max Then Max = A(i) End IfNext iLabel1.Text = 最高身高为：最高身高为： & Max 求平均值求平均值Dim Score (29) As SingleDim Avg As SingleDim i As IntegerAvg = 0For i =

37、0 To 29 Avg = Avg + Score(i) Next iLabel1.Text = 平均分为：平均分为： & Avg / 30 Dim mark(6) As Single mark中放置了一名参赛者的中放置了一名参赛者的7个分数个分数 Dim aver!, max!, min!aver = 0 For i = 0 To 6 If i = 0 Then max = mark(i) min = mark(i) Else If mark(i) max Then max = mark(i) End If End If aver = aver + mark(i) Next iave

38、r = ( aver - max - min ) /5 MsgBox(aver)例例：随机产生随机产生100个个数学考试的成绩数学考试的成绩，放入整型数组放入整型数组A中。中。（1）将成绩）将成绩5个一个一行显示在标签中行显示在标签中。（2）求最高分、最）求最高分、最低分、平均分。低分、平均分。 Dim A%(99) Dim i% For i = 0 To 99 A(i) = Int(Rnd() * 101) Next For i = 0 To 99 Label1.Text = Label1.Text & A(i) & If (i + 1) Mod 5 = 0 Then Lab

39、el1.Text = Label1.Text & vbCrLf End If Next MsgBox(最高分：最高分： & A.Max() MsgBox(最低分：最低分： & A.Min() MsgBox(平均分：平均分： & A.Average()p函数过程函数过程*函数过程的声明函数过程的声明*函数过程的调用函数过程的调用*函数的返回值函数的返回值p参数传递的机制参数传递的机制*值传递值传递*地址传递地址传递Public|Private Function 函数过程名函数过程名类型符类型符(形参列表形参列表) As 类型类型 局部变量或常数定义局部变量或常数定

40、义 语句块语句块1 Exit Function 语句块语句块2 函数名函数名 = 表达式表达式 | Return 表达式表达式 End Function函数函数过程体过程体函数过程的调用和内部函数相同，格式如下：函数过程的调用和内部函数相同，格式如下： 函数过程名函数过程名 ( 实参列表实参列表 ) 说明：说明：（1）与内部函数一样，）与内部函数一样，函数过程一般不作为单独的语句使用函数过程一般不作为单独的语句使用，只能作为表达式或表达式中的一部分。，只能作为表达式或表达式中的一部分。（2）在调用时，形参和实参的个数必须相同。）在调用时，形参和实参的个数必须相同。Public Function

41、 IsPrime (ByVal m%) As Boolean Dim btnTag As Boolean, i As Integer btnFlag = True For i = 2 To m - 1 If m Mod i = 0 then btnTag = False ：Exit For Next i Return btnTagEnd FunctionSub Button1_Click() Handles Button1.Click Dim i% For i = 3 To 100 Step 2 If IsPrime(i) And IsPrime(i+2) Then Label1.Text &= i & & i + 2 & vbCrL