VB设计实验指导书-陶冶技巧.doc

实验六 子过程程序设计 一、实验目的 1、掌握子过程的声明和调用。 2、掌握子过程的形参类型和传值和传址方式。 3、应用子过程实现多个数的求值和无值的操作。 4、掌握子过程的特点以及与其他过程的区别。 二、实验环境 1、操作系统：Windows 7 2、VB.NET应用软件 三、实验内容与步骤 1、编写三个子过程：子过程一以每行5列显示数组结果；子过程二求数组中的最大值和最小值；子过程三数组元素由大到小排序输出；主调程序有10个元素，分别调用三个子过程。 提示： （1）子过程1使用形参BYRef obtext As Control， （2）主调程序先调用子过程printa(),后调用子过程fmaxmin()， （3）数组大小由主调程序设置， （4）子过程三可以采用选择排序法或冒泡排序法。 编写一子过程：MaxLength(s,MaxWord),在已知的字符串S中，找出最长的单词MaxWord。假定字符串S内只含有字母和空格，空格分隔不同的单词。 提示： 首先利用InStr函数从S中从左开始找第一个出现的空格，利用Left函数分理出空格左边的单词，与MaxWord最长单词比较（MaxWord状态为空）。 i=InStr(s, ” ”) 找第一个出现的空格 Word=Microsoft.Visual Basic.Left(s, i-1) 分离出空格左边的单词 Word与MaxWord比较决定是否替换为MaxWord 取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)，用来计算组合数的值。求组合数的公式： （其中nm）。 3、编一函数过程IsH(n)，对于已知正整数n，判断该数是否是回文数，函数的返回值类型是布尔型。主调程序每输入一个数，调用IsH函数过程，然后在图形框中显示输入的数，若是回文则显示一个“★”。 提示： 回文数是指正读和倒读数字相同，即指最高位和最低位相同，次高位和次低位相同，以此类推。只有一个数，也是回文数。 回文数的求法，只要对输入的数（按字符串类型处理），利用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）实验名称； （2）实验