VB第7章(过程)

VB程序设计教程
沈美莉 马银晓 陈孟建 编著
10
Function过程 第二节 Function过程
二、调用Function过程 调用 过程
Function过程的调用比较简单，可以象一个函数一样调用，其调用格式为： <过程名> = （[<实参表列>]） 【例题5.16】 编写一个求最大公约数（GCD）的函数过程，并调用该函数。 【程序代码】 （1）创建GCD函数 Function gcd(ByVal x As Integer, ByVal y As Integer) As Integer Dim reminder As Integer Do While y <> 0 reminder = x Mod y x = y y = reminder Loop gcd = x End Function
VB程序设计教程
沈美莉 马银晓 陈孟建 编著
5
Sub过程 第一节 Sub过程
二、调用sub过程 调用 过程 调用Sub过程有两种方法，一种方法是使用Call调用过程语句来调 用过程，另一种方法是将过程名作为一个语句来使用。 call调用语句 1．用call调用语句 （1）格式 Call 过程名 [（<实参表>）] （2）功能 Call语句把程序控制传递到一个Visual Basic语言的Sub过程。 Call语句调用一个过程时，如果过程本身没有参数，则<实参表> 和括号可以省略；否则，应给出相应的实际参数，并把参数放在 括号中。实际参数是传递给sub过程的变量或常数的。 例如： Call ppa(a,b)
VB程序设计教程
沈美莉 马银晓 陈孟建 编著
18
第三节 参数的传递
例如： Function fac(a,b) …… …… fac = fa End Function 调用fac函数时，可以使用以下语句来完成： Private Sub Command1_Click() …… …… Call fac(x,y) End sub 以上程序中的a和b是两个形式参数，而 x和y是两个实际参数。这样就完成了形参 与实参的结合，其关系如下图所示。

2011-3-18
4
7.1
过程的概念
中主要有以下4种类型的过程。 (1)Sub过程：被调用时执行操作，但没有 返回值传递给调用者。 (2)事件过程：为响应由用户操作或程序中 的事件触发的事件而执行的Sub过程。 (3)Function过程：被调用时执行操作，并 且将返回值传递给调用者。 (4)Property过程：返回和分配对象或模块 上的属性值。 本章只介绍Sub过程和Function过程。
2011-3-18
17
步骤： （1）界面设计。 （2）属性设置如下表所示：
对象 txtBox1 txtBox2 属性 Text Text ReadOnly btn1 lbl1 Text Text 属性设置
34;" "" True 转换 请输入要转换的年份：
代码：
Function change（By Val y As Integer）As String Dim tiangan，dizhi As String tiangan=Microsoft．VisualBasic．Right(CStr(y)，1) Select Case tiangan Case"4" … Case3 dizhi="亥" End Select Change=tiangan& dizhi&"年" End Function Private Sub btn1_Click(By Val sender As System. Object,By Val e As System.EventArgs) Handles btn1. Click txtBox2.Text=txtBox1.Text&"年为"&Change（Val （txtBox1.Text）) End Sub

第7章过程7．1 编写程序,利用Sub过程计算下式的值:s=a!+b!+c!a,b,c的值由键盘输入【参考答案】程序代码设计Private Sub Form_Click()Dim s As Integer, n As IntegerFor i = 1 To 3n = InputBox("n=")Call fact(n, f)s = s + fNext iPrint "s="; sEnd SubPrivate Sub fact(n, f)f = 1For i = 1 To nf = f * i图7-1程序运行结果Next iEnd Sub运行结果：如a、b、c的值分别输入为4、5、6则程序运行结果如图7-1所示：7．2 编写程序,打印100～200之间的所有素数。

要求:(1) 每行输出5个素数。

(2) 利用Function过程判断每个数是否为素数,是返回1,否则返回0。

【参考答案】程序代码设计Private Sub Form_Click()Print 2;k = 1For i = 3 To 100f = prime(i)If f = 1 Thenk = k + 1If k Mod 5 = 0 Then Print i Else Print i;End IfNext iEnd SubPrivate Function prime(n)prime = 1For i = 2 To n - 1 If n Mod i = 0 Then prime = 0: Exit ForNext iEnd Function程序运行结果如图7-2所示：7．3 编写程序,利用Function 过程计算下式的值: (1+2+3+…+m)+(1+2+3+…+n) y = ─────────────── (1+2+3+…+p)【参考答案】程序代码设计Private Sub Form_Click()m = Val(InputBox("输入m:"))n = Val(InputBox("输入n:"))p = Val(InputBox("输入p:"))y = (sum(m) + sum(n)) / sum(p)Print "sum="; yEnd SubPrivate Function sum(n)s = 0For i = 1 To ns = s + iNext isum = sEnd Function运行结果：如输入m 值为：20，n 值为：15，p 值为：10则程序运行结果如图7-3所示：7．4 编写Function 过程计算n!,调用该函数过程计算下式的值:S=1+1/(1+4!)+1/(1+4!+7!)+…+1/(1+4!+…+19!)【参考答案】程序代码设计Private Sub Form_Click()s = 0t = 0For i = 1 To 19 Step 3图7-2程序运行结果图7-3程序运行结果t = t + fact(i)s = s + 1 / tNext iPrint "s="; sEnd SubPrivate Function fact(n)f = 1For i = 1 To nf = f * iNext ifact = fEnd Function程序运行结果如图7-4所示。

教案讲稿第七章常用控件[旧课复习]：复习内容：1. 一维数组求和，求平均等2. 复习列表框组合框，为控件做准备复习目的：巩固一维数组，二维数组的应用复习时长：大约5分钟[新课导入]：导入方式：通过复习列表框引入本章节的常用控件，列举常用控件在日常软件中的使用方法。

导入目的：增强学生的学习积极性导入时长：大约5分钟[新课讲授]：重点：各种常用控件（单选按钮、复选框、滚动条、计时器）难点：计时器的应用（Interval属性,Timer事件）方法：运用多媒体辅助教学，采用案例教学和任务驱动等教学法。

7.1单选按钮单选按钮又称为选项按钮（OptionButton），单选按钮一般总是作为一个按钮组来完成工作的。

单选按钮组是一组相互排斥的选项按钮，在一般情况下，在单选按钮组中一次只能选择一个选项，如果一次要选择多个单选按钮，可以使用框架控件把单选按钮分组。

单选按钮的主要属性有：1．Caption属性：单选按钮的文本内容。

2．Value属性：单选按钮是否被选中的属性。

如果将该值为True或-1，单选按钮被选中，如果将该值为False或0，单选按钮未被选中。

3．Style属性：单选按钮的外观。

该值取0时，是标准的Windows风格；取1时，是图形风格。

单选按钮的事件：Click事件：单击单选按钮时触发该事件。

1．使用单选按钮控件【例7.1】设计一个简易血型选择器，用户界面如图7-1所示，由四个单选按钮和一个命令按钮以及一个文本框组成。

选中血型后单击“选择”按钮，结果显示在文本框中。

图7-1 简易血型选择器设计步骤如下：（1）建立应用程序用户界面。

（2）编写代码编写命令按钮Commandl的Click事件代码：Private Sub Command1_Click()If Option1.Value = True Then Text1.Text = "您是O型血"If Option2.Value = True Then Text1.Text = "您是A型血"If Option3.Value = True Then Text1.Text = "您是B型血"If Option4.Value = True Then Text1.Text = "您是AB型血"End Sub7.2 复选框复选框（CheckBox）可以从多个选择中选择一个或多个选项。