程序设计基础实验报告

西华大学实验报告（理工类）

开课学院及实验室：汽车学院机房（5D-215） 实验时间： 2008年 3 月 9 日

1、实验目的

1．掌握标签、命令按钮的常用属性、事件和方法。 2．掌握运用图片框和图像框加载图像的方法。 3．掌握计时器和滚动条的编程方法。

2、实验设备、仪器及材料

PC机；操作系统：WINDOWS98/2000/2003/XP；编程工具：Visual Basic 6.0

3、实验内容

3.1上机实验的内容及要求

编写动画程序。运行界面如图所示。单击“开始”按钮，图像从左到右不断运动，“开始”按钮变为不可用，同时“停止”变为可用；用滚动条来控制运动的速度。

3.2算法设计思想与算法实现步骤

1． 界面设计 相关属性设置如下：

Command1:Caption为“开始”。

Command2: Caption为“停止”， Enabled为 False。

HScroll1:Max 为 1000， LargeChange 为 200 ， SmallChange 为20。 Label1 Label2: Caption分别为“快”和“慢”。 Timer1:Enabled 为 False。

Image:Stretch 为True， Picture中通过剪贴板粘贴一幅图象。 2． 程序代码设计 3． 运行/调试程序

4． 保存工程

3.3程序核心代码，程序调试过程中出现的问题及解决方法 Private Sub Command1_Click() Command2.Enabled = True Command1.Enabled = False Timer1.Enabled = True End Sub

Private Sub Command2_Click() Command1.Enabled = True Command2.Enabled = False Timer1.Enabled = False End Sub

Private Sub HScroll1_Change() Timer1.Interval = HScroll1.Value End Sub

Private Sub Timer1_Timer() Image1.Move (Image1.Left + 1) End Sub

3.4 程序运行的结果

4、实验总结

4.1程序运行结果分析及思考题讨论

试验中主要是滚动条和计时器的连动没有弄明白，其次是图片没有打开。

对思考题，我认为还是要把image的move属性学好，再结合计时器的使用，问题应该可以迎刃而解，不过这个过程中仍然少不了及格控件的连动。

4.2实验总结心得体会

本实验中，我对滚动条的认识还不是很深，在以后的过程中要还好好运用滚动条，多加强对它的认识和了解。

通过本次上机实验，基本上熟悉了vb的编程环境，熟悉了及格基本控件的使用方法，对控件的一些

连动有了一定的认识。了解了一些基本控件的基本属性。在今后的学习和实验过程中要加强对它们的应用和了解。

西华大学实验报告（理工类）

开课学院及实验室：汽车学院机房（5D-215） 实验时间： 2008年 3 月 9 日

1、实验目的

1．掌握标签、文本框、命令按钮的常用属性、事件和方法。

2．掌握单选按钮和复选框、列表框和组合框的编程方法，尤其是单选按钮与框架的配合使用。 3．巩固对滚动条的编程方法。

2、实验设备、仪器及材料

PC机；操作系统：WINDOWS98/2000/2003/XP；编程工具：Visual Basic 6.0

3、实验内容

3.1上机实验的内容及要求

在文本框中输出一段文字，设置文字的字体、字型、字号和颜色，程序运行界面如图所示。

3.2算法设计思想与算法实现步骤

1． 界面设计 2． 程序代码设计 3．运行/调试程序 4．保存工程

3.3程序核心代码，程序调试过程中出现的问题及解决方法 Private Sub Combo1_Click()

If Combo1.ListIndex = 0 Then Text1.ForeColor = 0 If Combo1.ListIndex = 1 Then Text1.ForeColor = vbRed If Combo1.ListIndex = 2 Then Text1.ForeColor = vbYellow If Combo1.ListIndex = 3 Then Text1.ForeColor = vbGreen End Sub

Private Sub Form_Load() Combo1.AddItem ("黑色") Combo1.AddItem ("红色") Combo1.AddItem ("黄色") Combo1.AddItem ("绿色") Combo1.ListIndex = 0 HScroll1.Min = 8 HScroll1.Max = 20

Text1.Text = "第一章 vb概述" & vbCrLf & "第二章 程序设计基础" & vbCrLf & "第三章 窗体及常用控件" & vbCrLf & "第四章 结构化程序设计" & vbCrLf & "第五章 数 组" & vbCrLf & "第六章 过程" End Sub

Private Sub HScroll1_Change() Text1.FontSize = HScroll1.Value End Sub

在文本框中输出一段文字，设置文字的字体、字型、字号和颜色，程序运行界面如图所示。

3.2算法设计思想与算法实现步骤

1． 界面设计 2． 程序代码设计 3．运行/调试程序 4．保存工程

3.3程序核心代码，程序调试过程中出现的问题及解决方法 Private Sub Combo1_Click()

If Combo1.ListIndex = 0 Then Text1.ForeColor = 0 If Combo1.ListIndex = 1 Then Text1.ForeColor = vbRed If Combo1.ListIndex = 2 Then Text1.ForeColor = vbYellow If Combo1.ListIndex = 3 Then Text1.ForeColor = vbGreen End Sub

Private Sub Form_Load() Combo1.AddItem ("黑色") Combo1.AddItem ("红色") Combo1.AddItem ("黄色") Combo1.AddItem ("绿色") Combo1.ListIndex = 0 HScroll1.Min = 8 HScroll1.Max = 20

Text1.Text = "第一章 vb概述" & vbCrLf & "第二章 程序设计基础" & vbCrLf & "第三章 窗体及常用控件" & vbCrLf & "第四章 结构化程序设计" & vbCrLf & "第五章 数 组" & vbCrLf & "第六章 过程" End Sub

Private Sub HScroll1_Change() Text1.FontSize = HScroll1.Value End Sub

Private Sub Option1_Click() Text1.FontName = Option1.Caption End Sub

Private Sub Option2_Click() Text1.FontName = Option2.Caption End Sub

3.4 程序运行的结果

4、实验总结

4.1程序运行结果分析及思考题讨论

我对字号使用滚动条来变换还不熟悉，还有我觉得字体的选择是不可以通过复选按钮来实现，因为一个字不可能同时出现两种字体，可能我们对各种字体的英文不是很熟悉，我们选择字体的时候是中文的很好选，但是绝对可以实现。随着对后面知识的学习，这些一定可以实现。

4.2实验总结心得体会

通过本次实验，对文本框有了一定的认识，对字体，字号，字的颜色的设置有了大大概的了解和认识，

通过font，fontsize，fontcolor等属性都有了了解。希望在以后的学习中，能学得更好

西华大学实验报告（理工类）

开课学院及实验室：汽车学院机房（5D-215） 实验时间： 2008年 3 月 16 日

1、实验目的

1. 熟练掌握单分支程序设计的原理和实现方法。 2．熟练掌握双分支程序设计的原理和实现方法。 3．掌握输入框函数即InputBox()的使用方法。

2、实验设备、仪器及材料

PC机；操作系统：WINDOWS98/2000/2003/XP；编程工具：Visual Basic 6.0

3、实验内容

3.1上机实验的内容及要求

1、 用输入框输入一个数，如果是大于100则在窗体上显示该数据。 2、 判断数的奇偶性。

3.2算法设计思想与算法实现步骤

1. 界面设计 2. 程序代码设计

3. 运行/调试程序 4．保存工程

3.3程序核心代码，程序调试过程中出现的问题及解决方法 Private Sub Command1_Click()

x = Val(InputBox("请任意输入一个整数:")) If x > 100 Then Picture1.Print x End Sub

Private Sub Command2_Click()

Text2.Text = " " y = Val(Text1) If y Mod 2 = 0 Then

Text2.Text = y & "是偶数" Else

Text2.Text = y & "是奇数" End If End Sub

3.4 程序运行的结果

4、实验总结

4.1程序运行结果分析及思考题讨论

虽然实验的界面和实验要求的界面不同，但运行的结果是一样的。Text和inputbox的返回都是字符型

的，不过在前面加上VAL就可以变成数值型了。

4.2实验总结心得体会

通过这次实验，我学会了inputbox函数的使用， inputbox这个函数，有时候使得界面很好看，操作

起来也很方便，以后可以多用这个函数实现输入

西华大学实验报告（理工类）

开课学院及实验室：汽车学院机房（5D-215） 实验时间： 2008 年 3 月 16 日

1、实验目的

熟练掌握多分支程序设计的原理和实现方法。

2、实验设备、仪器及材料

PC机；操作系统：WINDOWS98/2000/2003/XP；编程工具：Visual Basic 6.0

3、实验内容

3.1上机实验的内容及要求

编写程序，计算个人所得税金额。

说明：根据个人所得税法规定，个人工资、薪金所得，以每月收入额减除费用1600元后的余额，为应纳所得额。超额累进税率见下表。

3.2算法设计思想与算法实现步骤

1． 界面设计

2. 程序代码设计 3．运行/调试程序

4．保存工程

3.3程序核心代码，程序调试过程中出现的问题及解决方法

Private Sub Command1_Click()

s = Val(Text1) - 1600 If (s - 100000) > 0 Then

t = 29625 + (s - 100000) * 0.45 ElseIf (s - 80000) > 0 Then t = 21625 + (s - 80000) * 0.4 ElseIf (s - 60000) > 0 Then t = 14625 + (s - 60000) * 0.35 ElseIf (s - 40000) > 0 Then t = 8625 + (s - 40000) * 0.3 ElseIf (s - 20000) > 0 Then t = 3625 + (s - 20000) * 0.25 ElseIf (s - 5000) > 0 Then t = 625 + (s - 5000) * 0.2 ElseIf (s - 2000) > 0 Then t = 175 + (s - 2000) * 0.15

ElseIf (s - 500) > 0 Then t = 25 + (s - 500) * 0.1 ElseIf s > 0 Then t = s * 0.05 Else t = 0 End If Text2 = t

End Sub 3.4 程序运行的结果

4、实验总结

4.1程序运行结果分析及思考题讨论

程序运行结果与要求的一样，对于思考题，if的单分支结构一共要写9个！

4.2实验总结心得体会

通过本次试验，对程序的多分支结构有了很好的认识！同时实验的同时可以把上次试验的内容好

好的复习一下，实现if的行和块的转换！行if和块if是两种不同的运行的方法，在实际运用中我们应根据情况选择更方便的方法。我觉得这个程序还有改进的地方，就是可以加上一个“退出”按钮。

西华大学实验报告（理工类）

开课学院及实验室：汽车学院机房（5D-215） 实验时间： 2008 年 3 月 23 日

1、实验目的

1. 巩固奇数和偶数的判断算法程序。

2．熟练掌握循环结构程序设计的原理和实现方法。

2、实验设备、仪器及材料

PC机；操作系统：WINDOWS98/2000/2003/XP；编程工具：Visual Basic 6.0

3、实验内容

3.1上机实验的内容及要求

1、编写程序，计算100以内偶数的累加和。 2、 计算任意正整数n的阶乘。

3.2算法设计思想与算法实现步骤

1、界面设计

2、程序代码设计 3、运行/调试程序 4、保存工程

3.3程序核心代码，程序调试过程中出现的问题及解决方法

Private Sub Command1_Click()

s = 0

For i = 2 To 100 Step 2 s = s + i Next i Text1 = s End Sub

Private Sub Command2_Click() t = 1

n = Val(Text2) For j = 1 To n t = t * j Next j Text3 = t End Sub

程序运行的结果和实验要求大概一致。

3.4 程序运行的结果

4、实验总结

4.1程序运行结果分析及思考题讨论

当少了s=0这一句时，运行的结果和实验中的一样，那是因为vb系统赋予s的初值就是0.当阶乘的输入整数是大于12时，系统还是可以运行，并且结果也是正确的。如在text2中输入15时，text3中显示 [1**********]00这个数。还是可以运行的！

4.2实验总结心得体会

通过本次实验的进行，对程序的循环结构有了一定的认识，并且对实验过程中的对累加和累乘程序代码有课初步的印象。对累加和累乘中的一个s=0和t=1的赋值必须不可以忘记，要不然程序运行的结果会大出所料。故对实验的态度又是一个考验！还有在剪切的时候居然剪成了全屏，看来不能粗心大意。

西华大学实验报告（理工类）

开课学院及实验室：汽车学院机房（5D-215） 实验时间： 2008 年 3 月 23 日

1、实验目的

1. 巩固分支程序设计的原理和实现方法。 2．巩固双重循环结构程序设计的原理和实现方法。 3. 巩固累加的算法。 4. 熟练掌握素数的判断方法。

2、实验设备、仪器及材料

PC机；操作系统：WINDOWS98/2000/2003/XP；编程工具：Visual Basic 6.0

3、实验内容

3.1上机实验的内容及要求

1．界面设计 2．程序代码设计 3．运行/调试程序 4．保存工程

3.2算法设计思想与算法实现步骤

第一步：写出查找素数的代码

第二步：确定素数的范围是在1000以内并且是素数中最大的20个 可以用一个do...loop循环结构来

控制素数的个数

第三步：用累加的程序将这20个素数加起来

3.3程序核心代码，程序调试过程中出现的问题及解决方法

Private Sub Command1_Click()

Dim m%, n%, i%, t%, k%, x% List1.Clear Text1 = ""

For x = 1000 To 1 Step -1 k = Int(Sqr(x)) For m = 2 To k

If x Mod m = 0 Then Exit For End If Next m

If m > k Then List1.AddItem x: s = s + 1 If s = 20 Then Exit For Next x

For i = 0 To List1.ListCount - 1 t = Val(List1.List(i)) n = n + t Next i Text1 = n 3.4 程序运行的结果

4、实验总结

4.1程序运行结果分析及思考题讨论

程序运行的结果和试验要求一样。对于找出1000以内的最小的20个素数只需要把for循环的1000 to 1 step -1语句换成 1 to 1000 就可以找到1000内的20个最小素数。

4.2实验总结心得体会

本次实验对素数的查找方法有了一个很好的认识和了解，加强了对for循环的运用。同时对if条件语句的运用有了一个很好的复习！

西华大学实验报告（理工类）

开课学院及实验室：汽车学院机房（5D-215） 实验时间： 2008年 3 月30 日

1、实验目的

1. 掌握一维数组的定义和引用方法。

2. 掌握排序算法等相关算法。 3. 巩固用列表框输出数据的方法

2、实验设备、仪器及材料

PC机；操作系统：WINDOWS98/2000/2003/XP；编程工具：Visual Basic 6.0

3、实验内容

3.1上机实验的内容及要求

编写程序，随机产生10个[30，90]之间的素数，并按从小到大的顺序排序后，输出到列表框中

3.2算法设计思想与算法实现步骤

1. 界面设计 2．程序代码设计 3．运行/调试程序 4．保存工程

3.3程序核心代码，程序调试过程中出现的问题及解决方法 Private Sub Command1_Click() List1.Clear Randomize

Do While s

x = Int(Rnd * 60) + 30 k = Sqr(x) For t = 2 To k

If x Mod k = 0 Then Exit For Next t

If t > k Then List1.AddItem x s = s + 1

n = List1.ListCount For i = 0 To n - 2 For j = 0 To n - 2 - i

If Val(List1.List(j)) > Val(List1.List(j + 1)) Then m = List1.List(j)

List1.List(j) = List1.List(j + 1) List1.List(j + 1) = m End If Next j, i End If Loop End Sub

3.4 程序运行的结果

4、实验总结

4.1程序运行结果分析及思考题讨论

程序运行的结果和实验要求的一样。对于将数组显示在文本框里，我认为和在列表框里差不多。只不

过用“&”并运用vbcrlf就可实现文本框的多行显示，当然还可设置滚动条。

4.2实验总结心得体会

通过本次实验，我初步掌握了一维数组的操作，也对前面的内容进行了很好的复习！

西华大学实验报告（理工类）

开课学院及实验室：汽车学院机房（5D-215） 实验时间： 2008 年 3 月 30 日

1、实验目的

1．掌握二维数组的定义和引用方法。 2．掌握矩阵的输出和操作方法。

3. 掌握主对角线和副对角线上元素的位置特征。

2、实验设备、仪器及材料

PC机；操作系统：WINDOWS98/2000/2003/XP；编程工具：Visual Basic 6.0

3、实验内容

3.1上机实验的内容及要求

1、单击“开始”按钮，随机产生一个5×5矩阵（每个元素为两位数的正整数），并显示在图片框Picture1中；

2、选择“主对角线之和”单选按钮，则将矩阵主对角线（左上元至右下元）元素之和显示在文本框Text1中；

3、 选择“副对角线之和”单选按钮。则将矩阵副对角线（右上元至左下元）元素之和显示在文 本框Text1中。

3.2算法设计思想与算法实现步骤

1．界面设计

2．程序代码设计 3．运行/调试程序 4．保存工程

3.3程序核心代码，程序调试过程中出现的问题及解决方法 Private Sub Command1_Click() Dim a(5, 5) As Integer

s = 0 t = 0

For i = 1 To 5 For j = 1 To 5 Randomize

x = Int(Rnd * 90) + 10 a(i, j) = x Picture1.Print x; If i = j Then s = s + a(i, j) End If

If i + j = 6 Then t = t + a(i, j) End If Next j

Picture1.Print Next i

If Option1.Value = True Then Text1 = s End If

If Option2.Value = True Then Text1 = t End If End Sub

Private Sub Option1_Click() Text1 = s End Sub

Private Sub Option2_Click()

第 页

Text1 = t End Sub

3.4 程序运行的结果

4、实验总结

4.1程序运行结果分析及思考题讨论

程序运行的结果和实验的要求基本一样。

对于只求周边的几个数的在和，只需在最后的计算和的时候把代码改成如下就可以了 For i = 1 to 5 For j = 1 to 5

If i=1 or i= 5 or j= 1 or j= 5 then s = s + a(i,j) next j next i

4.2实验总结心得体会

通过这次实验，我对以前的只是有了一个很好的复习，对循环的结构有了更进一步的认识，同时也掌

握了新的知识，使我受益匪浅。

西华大学实验报告（理工类）

开课学院及实验室：汽车学院机房（5D-215） 实验时间： 2008年 4 月 6 日

第 页

1、实验目的

1. 掌握Sub子过程的定义和调用方法。

2．掌握调用过程时参数传递的两种方式（传值与传址）。 3．掌握变量、函数和过程的作用域。 4、掌握在数组中找最大（小）值的算法。

2、实验设备、仪器及材料

PC机；操作系统：WINDOWS98/2000/2003/XP；编程工具：Visual Basic 6.0

3、实验内容

3.1上机实验的内容及要求

编写一个sub过程，其接收一个一维数组，同时返回此数组中的最大数、最小数和平均值。

3.2算法设计思想与算法实现步骤

1．界面设计

2．程序代码设计 3．运行/调试程序 4．保存工程

3.3程序核心代码，程序调试过程中出现的问题及解决方法 Private Sub Command1_Click() Randomize

For i = 1 To 10

a(i) = Int(Rnd * 90) + 10

第 页

List1.AddItem a(i) Next i End Sub

Private Sub js(mms() As Integer, max As Integer, min As Integer, sqr As Double) max = 0 min = mms(1) sqr = 0

For i = 1 To 10

If mms(i) > max Then max = mms(i) End If

If mms(i)

sqr = sqr + mms(i) Next i

sqr = sqr / 10 End Sub

Private Sub Command2_Click() Call js(a, x, y, z) Text1 = x Text2 = y Text3 = z End Sub3.4

程序运行的结果

第 页

4、实验总结

4.1程序运行结果分析及思考题讨论

程序运行的结果和想象中的一样，达到了实验的效果。其中运用了一个ubound函数计算个数，对求平均数起了很好的作用！对于保留两位小数，可以运用print0.01*int(100*(x+0.005))来实现！

4.2实验总结心得体会

我觉得Sub 子过程是一个比较难的过程 ，本次实验对sub子过程只是有了一个初步的了解，在今后的学习过程中还要多加运用！

西华大学实验报告（理工类）

开课学院及实验室：汽车学院机房（5D-215） 实验时间： 2008年 4 月 6 日

1、实验目的

1. 掌握Function子过程定义和调用方法。

2．掌握调用过程时参数传递的两种方式（传值与传址）。 3．掌握变量、函数和过程的作用域。

第 页

4. 巩固素数的判断的算法。

2、实验设备、仪器及材料

PC机；操作系统：WINDOWS98/2000/2003/XP；编程工具：Visual Basic 6.0

3、实验内容

3.1上机实验的内容及要求

验证歌德巴赫猜想：任何一个不小于6的偶数m都可表示为两素数之和。请编写程序，在小于等 于106的范围内验证歌德巴赫猜想成立。要求：

（1）编写函数判断一个数是否是素数，如果是则返回1，否则返回0。

（2）在文本框中输入一个6～106之间的偶数，在图片框中输出所有符合条件的组合。如：输入6，则输出为：

1+5=6

3+3=6

3.2算法设计思想与算法实现步骤

1．界面设计

2．程序代码设计

3．运行/调试程序

4．保存工程

3.3程序核心代码，程序调试过程中出现的问题及解决方法

Private Sub Command2_Click()

Dim a() As Integer

ReDim a(1)

a(1) = 1

x = Val(Text2)

If Not (x >= 6 And x

MsgBox "输入的数必须是6-106之间的偶数，请重新输入！", vbOKOnly + vbCritical GoTo L1

Else

no = 1

Picture1.Cls

For i = 3 To x - 1

If ss(i) = 1 Then

no = no + 1

ReDim Preserve a(no)

a(no) = i

End If

Next i

For i = 1 To no

For j = i To no

If x = a(i) + a(j) Then

Picture1.Print a(i) & "+" & a(j) & "=" & x

End If

Next j

Next i

End If

L1:

End Sub

Private Function ss(ByVal n As Integer) As Integer

Dim i As Integer

For i = 2 To n - 1

If n Mod i = 0 Then Exit For

Next i

If i

ss = 0

Else

ss = 1

End If

End Function

3.4 程序运行的结果

4、实验总结

4.1程序运行结果分析及思考题讨论

程序运行的结果和实验的要求一样。但是过程的实现不是很简单的事，比较复杂，并且思路要很清晰，要不然就容易出错！对于是否可以用sub子过程实现和本实验相同的效果，我想是可以实现的。因为这个实验中用function函数只调了一个数n，因而用sub子过程是绝对可以实现的！

4.2实验总结心得体会

我觉得function函数过程是比较难的，但也很重要。这次实验使我对function函数的使用有了一个最基本的了解！希望将来可以多用这些东西来验证一些定理和猜想！充分发挥计算机的智能

西华大学实验报告（理工类）

开课学院及实验室：汽车学院机房（5D-215） 实验时间： 2008 年 4 月 13 日

1、实验目的

1. 掌握文件以及文件缓冲的概念。

2．掌握顺序文件的打开、关闭以及读写操作。

2、实验设备、仪器及材料

PC机；操作系统：WINDOWS98/2000/2003/XP；编程工具：Visual Basic 6.0

3、实验内容

3.1上机实验的内容及要求

1、单击“产生10个数”按钮，产生10个随机数

2、单击“写入文件”按钮，将产生的10个数保存到顺序文件stud.txt

3、单击“读出”按钮，从顺序文件stud.txt中读出10个数据

3.2算法设计思想与算法实现步骤

1．界面设计

2．程序代码设计

3．运行/调试程序

4．保存工程

3.3程序核心代码，程序调试过程中出现的问题及解决方法

Dim a(10) As Integer

Private Sub Command1_Click()

Text1 = ""

Randomize

For i = 1 To 10

a(i) = Int(Rnd * 100)

Text1 = Text1 & " " & a(i)

Next i

End Sub

Private Sub Command2_Click()

Open App.Path + "\stud.txt" For Output As #1

Print #1, Text1

Close #1

End Sub

Private Sub Command3_Click()

Text2 = ""

Open App.Path + "\stud.txt" For Input As #2

For i = 1 To 10

Input #2, a(i)

Text2 = Text2 & " " & a(i)

Next i

Close #2

End Sub

3.4 程序运行的结果

4、实验总结

4.1程序运行结果分析及思考题讨论

尽管文本框中的数据不同，但运行的结果和实验要求的一样。对于看文件中的数据，我认为只要会

使用文件的读写操作就可以了，还是一样的要用open和close语句。

4.2实验总结心得体会

通过这次实验，对顺序文件的一般操作有了很好的认识！也对文件的操作有了一定的步骤，下次遇到同样的题应该会做咯。

西华大学实验报告（理工类）

开课学院及实验室：汽车学院机房（5D-215） 实验时间： 2008年 4 月 13 日

1、实验目的

1、 了解ASCⅡ码的概念和意义。

2、 掌握循环语句的使用。

3、 熟悉VB编程的基本步骤：界面设计、属性设置、编写代码、运行、调试、保存文件。

4、 掌握常用控件的创建方法以及如何用控件建立用户界面。

5、 掌握mid函数的用法。

6、 掌握各种类型文件的打开、关闭以及读写操作。

7、 熟悉文本框各属性的意义。

2、实验设备、仪器及材料

PC机；操作系统：WINDOWS98/2000/2003/XP；编程工具：Visual Basic 6.0

3、实验内容

3.1上机实验的内容及要求

建立一个窗体如图所示，程序功能要求如下：

第 页

1、单击“原文”按钮，从磁盘文件test22IN.txt读入数据，并显示在文本框test1中。

2、单击“加密”按钮，对原文内容进行加密，并显示在文本框Test2中。（加密算法：用Mid函数取出要加密的字符串中的一个字符，求出它的ASCⅡ码，把这个ASCⅡ码加1，再Mod255，然后用Mid语句把这个字符写回原来的位置）。

3、单击“保存”按钮，把加密后的文本保存到磁盘文件testOUT.txt中。

4、两个文本框均允许多行文本。

3.2算法设计思想与算法实现步骤

1、 界面设计

2、 程序代码设计

3、 运行/调试程序

4、 保存工程

3.3程序核心代码，程序调试过程中出现的问题及解决方法

Private Sub Command1_Click()

Open "d:\test22IN.TXT" For Input As #1

Input #1, x

Text1.Text = x

Close #1

End Sub

Private Sub Command2_Click()

x = Text1.Text

n = Len(x)

For i = 1 To n

y = (Asc(Mid(x, i, 1)) + 1) Mod 265

第 页

Mid(x, i, 1) = Chr(y)

Next i

Text2 = x

End Sub

Private Sub Command3_Click()

Open "d:\test22OUT.txt" For Output As #1

Write #1, Text2.Text

Close #1

End Sub

3.4 程序运行的结果

4、实验总结

4.1程序运行结果分析及思考题讨论

程序运行的结果和实验要求的一样，只不过是文件中的内容可能不一样！

对于思考题，只要是form-load下写command3.enabled=false在command2-click下写command3.enabled=true Command2.enabled=false在command3-click下写command2.enabled=true和command3.enabled=false就可以实现了！

4.2实验总结心得体会

首先我觉得这个加密,解密程序是比较简单的，这可能主要是建立在以前的那些实验的基础上的。其次是通过整个实验过程的学习，对vb操作系统有了一定的了解，。在以后的学习中，我们也应该继续学下去，因为这对我们学习专业知识和找工作有很大的帮助。

第 页

感言：首先对滕老师和李老师在实验过程中的谆谆教导和不厌其烦的讲解表示衷心的感谢！其次要感谢同学对我的帮助。再次，还要感谢学校机房为我们做实验报告提供地方。Thanks very much!

第 页