内容发布更新时间 : 2024/5/11 22:42:47星期一 下面是文章的全部内容请认真阅读。

Dim s As Integer ’存放上次按的运算符 Dim x As Double ’存放第1个操作数 Dim y As Double ’存放第2个操作数

编写数字类命令按钮组Command1 ( )的Click事件代码： Private Sub Command1 Click(Index As Integer)

If Form1.Tag =\ ’向显示中的数追加新数 If Index ＝10 Then Text1 .Text＝”0” Else

Textl.Text = Command1 (Index).Caption End If

Form1.Tag＝” ” Else

Textl.Text＝Textl.Text ＆Command 1 (Index).Caption End If End Sub

编写运算符类命令按钮组Command2( )的Click事件代码： Private Sub Command2 Click(Index As Integer) Form1.Tag＝\

If v Then ’第1次按运算符 x =Val(Text1.Text） ’将键入的数存入、 v＝Not v Else

y＝Val(Text1.Text) Select Case s Case 0

Textl.Text＝x＋y Case 1

Text1.Text＝x一y Case 2

Textl.Text＝x * y Case 3

If y<>0 Then Textl.Text =x／y Else

MsgBox (\不能以0为除数”：） Textl.Text＝x v＝False End If Case 4

11

Y＝0 v＝False End Select x=Val(Text1.Text) End If s＝Index End Sub

2.3.3编程计算sum=1!+2!+3!+… … +10!

代码提示：

Dim t As Single

Sub nf(ByVal n As Integer) t = 1

For i = 1 To n t = t * i Next i End Sub

Private Sub Form_Click()

Dim nSum As Single nSum = 1

For i = 2 To 10 Call nf(i)

nSum = nSum + t Next i

Print nSum End Sub

2.3.4使用递归过程编写程序

在窗体上添加一个标签Label1和command1，将其caption属性设置成如下图所示。

Private Sub Command1_Click() Dim x!, n%

x = InputBox(\ n = InputBox(\ Print Print Print Print Print

Print Tab(5); \End Sub

Private Function s(ByVal x!, ByVal n%) If n = 1 Then

12

s = x Else

s = x * (1 - s(x, n - 1)) End If End Function

2.4 思考题

1.如何声明固定大小的数组，有几种方法？ 2.应如何使用动态数组？

3.向过程传递参数有几种方法？区别是什么?

实验3 文件管理

3.1 实验目的

掌握数据文件的概念与使用(访问顺序文件、访问随机文件、访问二进制文件)；熟悉并运用文件系统控件(驱动器列表框、目录列表框、文件列表框)。

3.2 相关知识

3.2.1 随机文件与顺序文件读写过程的区别：

1．打开时的区别：顺序文件在打开时必须指定对文件的操作方式（Input, Output,Append），打开后只能对文件按指定的方式进行操作。每打开一次文件，只能进行单一的一种操作。随机文件在打开时不必指定操作方式，打开后既可以进行读操作，又可以进行写操作。

2．读文件的区别：顺序文件在以Input方式打开后，总是从文件的开头读文件，即使需要的是最后一行内容也必须如此。随机文件只需指定记录号，即可直接读取该记录的内容。

3．写文件的区别：顺序文件在以Output方式打开后，总是从文件的开头写。所以若是个已经存在的文件，其中的原有内容将被覆盖而丢失。顺序文件在以Append方式打开后，则总是从文件的末尾开始写，无论前面的内容是否需要修改。随机文件在写文件时，只对指定的某个记录进行操作，由此只是重写某个记录而不破坏其他内容。

3.2.2 使用Output选项打开一个已存在的文件会发生的情况

使用Output选项打开一个己存在的文件，将会创建一个新的顺序文件。磁盘上的原有同名文件将被覆盖，其中数据将会丢失。

3.2.3 使用Append选项写文件会发生的情况

使用Append选项写文件则是向文件的尾部追加式写入数据，原有的同名文件中的数据仍然保留，若磁盘上没有该文件，则创建一个新文件。

3.3 实验项目

3.3.1 顺序文件的使用

设计程序设计界面与设计对象属性。选择“新建”工程，在窗体上添加一个文本框Text1和三个命令按钮Command1~Command3，Text1的Multiline属性为True，将Command1~Command3的名称属性分别改为C1~C3，Caption属性分别改为“输入”、“转换”、“存盘”

13

Private Sub C1_Click()

Open App.Path & \ a = \

Do Until EOF(1) Line Input #1, b

a = a & b & Chr(13) & Chr(10) Loop Close #1

Text1.Text = a End Sub

Private Sub C2_Click()

Text1.Text = UCase(Text1.Text) End Sub

Private Sub C3_Click()

Open App.Path & \ Print #1, Text1.Text Close #1 End Sub

3.3.2随机文件的使用

设计程序设计界面与设计对象属性。在窗体上添加7个标签Label1~Label7、6个文本框Text1~Text6和两个命令按钮Command1~Command2，命令按钮的名称属性分别改为“cmdPrev”、“cmdNext”，caption属性分别为“上一条”、“下一条” 参考代码：

Private Type gongzi

department As String * 4 id As String * 5 name As String * 6

basicSalary As String * 6 additionalSalary As String * 6 bonus As String * 6 End Type

Dim gz As gongzi

Dim RecoNumber As Integer

Private Sub GetRecord()

14

Get #1, RecoNumber, gz With gz

Text1.Text = .department Text2.Text = .id Text3.Text = .name

Text4.Text = .basicSalary Text5.Text = .additionalSalary Text6.Text = .bonus End With End Sub

Private Sub Form_Load()

Open App.Path & \ RecoNumber = 0

cmdPrev.Enabled = False Call cmdNext_Click End Sub

Private Sub cmdPrev_Click()

RecoNumber = RecoNumber - 1

If RecoNumber <= 1 Then cmdPrev.Enabled = False

If RecoNumber < LOF(1) / Len(gz) Then cmdNext.Enabled = True Call GetRecord End Sub

Private Sub cmdNext_Click()

RecoNumber = RecoNumber + 1

If RecoNumber > 1 Then cmdPrev.Enabled = True If RecoNumber >= LOF(1) / Len(gz) Then cmdNext.Enabled = False Else

Call GetRecord End If End Sub

3.3.3使用文件系统控件

设计程序设计界面与设计对象属性。

在窗体上添加4个框架Frame1~Frame4、一个文本框Text1和一个命令按钮数组Command1（0）~Command1（1）

15