VB程序设计基础教程第8章

Call n(Val(Text1.Text))
Public Sub n(a As Integer) Dim i As Integer Dim f As Double f=1 For i = 1 To a f=f*i Next bel1.Caption = Str(a) & "!的阶乘的值为：" & Str(f)
End Sub
2020/2/7
8.1 过程的定义与调用
8.1.1 Sub过程的定义与调用
2、子过程调用 ⑴Call 过程名[(实参列表)]；如：call text(12,”abc”) ⑵过程名[实参列表]；如：test 12,”abc”
例[8-2]给出矩形的长和宽，求矩形的面积。 解题思路：定义一个过程area，计算矩形的面积。
定义过程的方式： ⑴手工方式：在过程、事件代码窗口中，编写事件程序： sub 过程名([参数列表]) … End Sub ⑵系统方式 ① 进入模块代码窗口：系统菜单”工程“－>”添加” －>“新建”，则
新建一 个模块，在标准模块中填写子过程代码；
② 系统菜单”工具“－>”添加过程“，确定子过程的名称以及类型后， 即回
2020/2/7
8.1 过程的定义与调用
8.1.2 Function过程的定义与调用
函数过程(Function)与子过程一样，可将一组完成特定功能的程序代码组织 起来，作为一个相对独立的过程使用；但子过程没有值的返回，函数过程有值 的返回。
1、函数过程的定义 [Static] [Public] [Private] Function 函数过程名[(参数列表)][As 类型]
8.2 函数和过程的参数传递
8.2.3 数组及对象作为过程的参数

所有控件都有一个这样的属性：只需引用该控件对象名而无需使用
属性名就可以设置该属性的值，称此属性为控件的默认属性值。如Text
（文本框）控件的默认属性为Text属性、Label（标签）控件的默认属性
为Caption属性。
Text1.Text=“Visual Basic ” 等价于 Text1=“Visual Basic ”
第一节 Visual Basic简介
一、 Visual Basic的发展
BASIC是20世纪60年代由美国达特茅斯大 学的两位教授共同设计的计算机程序设计 语言，是国际上广泛使用的一种计算机高 级语言。
Basic语言简单易学、人机交互容易、程序 调试简便，目前仍是计算机程序设计初学 者入门学习的主要语言之一。
窗体的构成
2.3 基本控件
一、窗体的属性 对象表现出来的特征是由对象的各种属性决定的。对窗体
的属性进行设置可以在界面设计时通过属性窗口设置窗体 的各种属性值，也可以在运行时由代码段给窗体的属性赋 值来实现。 决定窗体特性的属性在属性窗口内可以查看和设置。
2.3 基本控件
下面介绍几个常用的属性： (1)Name属性
Visual Basic 6.0中文版包括3种版本 Visual Basic学习版(Learning) Visual Basic专业版(Professional) Visual Basic企业版(Enterprise)
一、Visual Basic的安装 二、Visual Basic的运行
第三节 Visual Basic的集成开发环境
2.1 控件概述
2.1.2 使用标准 ActiveX 控件

VB 包含部分 ActiveX 控件，即标准 ActiveX 控件），

读一行到变量中，但读出的数据不包含回车换行符，主要 用来读取文本文件。 INPUT$(读取字符数,#文件号) 随意读取指定数目字符。
5. 函数 LOF(文件号)：返回文件的长度(总字节数)。
EOF(文件号)：返回文件指针是否到末尾的值。指针在文 件尾时，EOF函数为True，否则为False。
2013年7月17日星期三 长春师范学院城市与环境科学学院
2. 写入命令 （1）Print #文件号，[输出列表] 其中，输出列表的格式与Print方法完全一样。 例如：保存文本框的内容
假定文本框的名称为Text1，文件名为TEST.Doc。
方法1：把整个文本框的内容一次性地写入文件。
Open “c:\TEST.doc" For Output As #1 Print #1, Text1 Close #1
Visual Basic程序设计
第八章 数据文件
8.1 文件系统控件 8.2 文件概述
8.3 顺序文件
8.4 随机文件
8.5 二进制文件
8.6 常用文件操作语句和函数
2013年7月17日星期三
长春师范学院城市与环境科学学院
Visual Basic程序设计
8.1 驱动器、目录和文件列表框
1. 驱动器列表框 Drive属性：包含当前选定的驱动器名，只能在运行时设置。 [对象.]Drive [= drive] Change事件：选择一个新的驱动器或通过代码重新设置Drive属性 引发Change事件。
2013年7月17日星期三 长春师范学院城市与环境科学学院
Visual Basic程序设计
8.3.3 应用举例
例8.3 设计一个文件加密程序。
例8.4 编写顺序文件读写程序。 单击“添加数据”，则将一个学生的学号、姓名和成绩添加 到Score.txt文件中 单击“读取数据”，则从文件读取数据并计算总分和平均成 绩，最后送入文本框。

8.2.5 程序运行时向窗体添加控件
窗体是Windows应用程序的基本控件,Windows应用程序 应用程序的基本控件, 窗体是 应用程序的基本控件 应用程序 的运行本质上就是窗体的显示.窗体上可以添加各种控件. 的运行本质上就是窗体的显示.窗体上可以添加各种控件. 窗体上的控件通常都是在程序设计时,通过工具箱添加的. 窗体上的控件通常都是在程序设计时,通过工具箱添加的. 但也可以在窗体运行时添加控件. 但也可以在窗体运行时添加控件. 在窗体运行时添加控件,其实是创建一个新的对象, 在窗体运行时添加控件,其实是创建一个新的对象,在窗体 指定位置显示,并将其添加到窗体中.指定位置使用Point 指定位置显示,并将其添加到窗体中.指定位置使用 对象数组,向窗体添加对象调用Controls属性的 属性的Add方法. 方法. 对象数组,向窗体添加对象调用 属性的 方法
编写事件代码: 编写事件代码: ' 窗体Load事件代码 窗体 事件代码 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles MyBase.Load Me.BackColor = Color.Blue End Sub ' 窗体 窗体Click事件代码 事件代码 Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) _ Handles Me.Click Me.BackColor = Color.Red End Sub ' 窗体 窗体DoubleClick事件代码 事件代码 Private Sub Form1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) _ Handles Me.DoubleClick Me.BackColor = Color.Yellow End Sub