VB程序设计实验指导书-陶冶

实验六 子过程程序设计

一、实验目的

1、掌握子过程的声明和调用。

2、掌握子过程的形参类型和传值和传址方式。 3、应用子过程实现多个数的求值和无值的操作。 4、掌握子过程的特点以及与其他过程的区别。 二、实验环境

1、操作系统：Windows 7 2、VB.NET应用软件 三、实验内容与步骤

1、编写三个子过程：子过程一以每行5列显示数组结果；子过程二求数组中的最大值和最小值；子过程三数组元素由大到小排序输出；主调程序有10个元素，分别调用三个子过程。

提示：

（1）子过程1使用形参BYRef obtext As Control，

（2）主调程序先调用子过程printa(),后调用子过程fmaxmin()， （3）数组大小由主调程序设置，

（4）子过程三可以采用选择排序法或冒泡排序法。

2、编写一子过程：MaxLength(s,MaxWord),在已知的字符串S中，找出最长的单词MaxWord。假定字符串S内只含有字母和空格，空格分隔不同的单词。

提示：

（1）首先利用InStr函数从S中从左开始找第一个出现的空格，利用Left函数分理出空格左边的单词，与MaxWord最长单词比较（MaxWord状态为空）。

i=InStr(s, ” ”) '找第一个出现的空格

Word=Microsoft.Visual Basic.Left(s, i-1) '分离出空格左边的单词

Word与MaxWord比较决定是否替换为MaxWord （2）取S中剩余字符串，重复（1），直到S为空。 S=Mid(s,i+1) '取S中剩余字符串 四、实验报告要求

实验报告应包含如下内容： （1）实验名称； （2）实验目的； （3）实验环境； （4）实验内容； （5）实验结果； （6）程序代码； （7）实验总结。

实验七 函数过程程序设计

一、实验目的

1、掌握函数过程的定义和调用。

2、掌握函数过程形参类型和值传递地址传递方式。 3、掌握变量、函数过程的作用域。 4、掌握递归概念和使用方法。 5、熟悉程序设计常用的算法。 二、实验环境

1、操作系统：Windows 7 2、VB.NET应用软件 三、实验内容与步骤

1、编写一函数f(m,n)，求两数m,n的最大公约数: 主调程序在两个文本框中输入数据，单击“显示”按钮，调用f(m,n)，在右边标签框中显示结果。

2、编写一求阶乘函数f(n)，主调程序求组合数的程序，分别调用f(n)，用来计算组合数的值。求组合数的公式： （其中n>m）。

n!C?m!

mn

3、编一函数过程IsH(n)，对于已知正整数n，判断该数是否是回文数，函数的返回值类型是布尔型。主调程序每输入一个数，调用IsH函数过程，然后在图形框中显示输入的数，若是回文则显示一个“★”。

提示：

（1）回文数是指正读和倒读数字相同，即指最高位和最低位相同，次高位和次

低位相同，以此类推。只有一个数，也是回文数。

（2）回文数的求法，只要对输入的数（按字符串类型处理），利用Mid函数从两边往中间比较，若有不相同，就不是回文数。 四、实验报告要求

实验报告应包含如下内容： （1）实验名称； （2）实验目的； （3）实验环境； （4）实验内容； （5）实验结果； （6）程序代码； （7）实验总结。

实验八 用户界面设计

一、实验目的

1、学会使用通用对话框控件进行编程。 2、掌握下拉式菜单和弹出式菜单的设计方法。 3、掌握创建多重窗体程序的有关技术。 4、了解鼠标键盘事件及其过程的编写。

5、综合所学知识，编制具有可视化界面的应用程序。 二、实验环境

1、操作系统：Windows 7 2、VB.NET应用软件 三、实验内容与步骤

1、设计一个应用程序。当单击“设置标签颜色”按钮后，弹出颜色对话框，为上面标签中文字选择一种颜色；当单击“编辑文本文件”按钮后，弹出打开文件对话框，选择一个文本文件后调用记事本程序编辑该文件。

提示：调用记事本程序编辑文件的方法是使用SHELL函数，本实验中SHELL函数使用形式如下：

Shell(“Notepad.exe”+”’+OpenFileDialog1.FileName,AppWinStyle.NormalFocus)

1、选择若干个做过的实验，将它们整合成一个项目，当选择某个菜单项时，就去弹出相应程序的窗体。

四、实验报告要求

实验报告应包含如下内容： （1）实验名称； （2）实验目的； （3）实验环境； （4）实验内容； （5）实验结果； （6）程序代码； （7）实验总结。

实验九 数据文件

一、实验目的

1、掌握顺序文件、随机文件及二进制文件的特点和使用 2、掌握各类文件的打开、关闭和读写操作 3、学会在应用程序使用文件 二、实验环境

1、操作系统：Windows 7 2、VB.NET应用软件 三、实验内容与步骤

1、设计一个学生信息管理程序，能实现学生信息的编辑修改、追加、浏览和显示，记录数统计等功能。

提示：使用打开文件函数FileOpen（文件号，文件名，模式），使用FilePut函数在文件中写入数据，使用FileGet函数从文件中读出数据，用记录号实现文件的浏览。

2、编写顺序文件读写程序。若选择“添加数据”，则将一个学生的学号、姓名和成绩添加到Scores.txt文件中；若选择“读取数据”，则从文件读取数据并计算总分和平均成绩，最后送入文本框。

提示：

（1）不管是将数据写入顺序文件，还是从顺序文件读出数据，打开文件都是使用FileOpen函数，只是模式不同；

（2）可采用两种处理方法：一是按原有数据类型读出，然后进行各种处理，而是当做文本文件处理；

（3）读/写文件结束后，要使用FileClose函数将文件关闭，否则会发生数据丢失现象。

四、实验报告要求

实验报告应包含如下内容： （1）实验名称； （2）实验目的； （3）实验环境； （4）实验内容； （5）实验结果； （6）程序代码； （7）实验总结。

本文来源：https://www.bwwdw.com/article/qoi2.html