试验一VBNET初步

1、实验一 VB.NET环境和程序设计一、实验目的1. 掌握启动与退出 VB.NET的方法。2. 掌握建立、编辑和运行一个简单的VB.NET应用程序的全过程。3. 掌握利用常用控件创建基于图形用户界面应用程序的技术。4. 掌握VB.NET程序设计语言的语法规则和编程技术。二、实验内容1 基本控件标签、文本框、按钮的使用。利用文本框的字号、内容和格式等属性来实现格式设置，并对选中的复制练习，效果见图1.1。在TextBoxI输入一字符串，建立三个命令按钮：(1) Butt on 1 : Text内容为“隶书 25磅”，事件过程代码为：TextBox1.Font = NewFont( 隶书,25)(2

2、) Button2 : Text内容为“幼圆 15磅”，代码类似。(3) Button3 : Text内容为“复制= ”，要求复制在TextBox1选中的内容以及其字体格式。选中的内容通过 TextBox1的.SelectedText属性；字体通过 Font直接赋值。图1.1实验1.1运行界面2.输入数据合法性检验、MsgBox对话框的使用。利用计算机解决古代数学问题“鸡兔同笼问题”。即已知在同一笼子里有总数为m只鸡和兔，鸡和兔的总脚数为 n只，求鸡和兔各有多少只？提示：鸡、兔的只数通过已知输入的m, n列出方程可解，但不要求出荒唐的解(例 3.5只鸡、4.5只兔，或者求得的只数为负数)。因此

3、，在 TextBox2_LostFocus事件中要考虑下面 两个条件：(1) 对输入的总脚数 n必须是偶数，否则提示数据错的原因，重新输入数据；(2) 若求出的头数为负数，提示数据错的原因，重新输入数据。sy24转入头数输入同数求得鸣数兔数121I10謁理、舞同戋荒肉鮮，请重新输入图1.2实验1.2运行界面 此处用到If语句，请参考该语句的用法。3利用计算机解决初等数学问题。输入一元二次方程 ax2 bx，c=0的系数a,b,c， 计算并输出一元二次方程的两个根 x1, x2。界面如 图1.3所示。提示：图1.3 实验1.3运行界面（1 ）在VB.NET中，Sqrt自变量出现函数时，显示“无效

4、的过程调用或参数”的出错显示，原因是sqr函数调用时，自变量出现负数是无法执行的，例调用 Sqr（-3）会产生错误。（2）求根时要对a、b、c三个系数分别考虑多种情况的处理，即：重根、两个实根、两个 复根等。4.数组的使用。随机产生10个30100（包括30，100）的正整数，求最大值、最小值、平均值，并显示整个数组的值和结果，如图2.1.4所示。图1.4 实验1.4运行界面5. 结构类型及数组的使用。自定义一个职工结构类型，包含职工号、姓名、工资。在通用 声明段声明一个职工类型的数组，可存放5个职工；窗体中设计 3个文本框、2个命令按钮和4个标签控件，文本框分别输入职工号、姓名、工资；当单击

5、“添加”命令按钮，将文本 框输入的内容添加到数组的当前元素中；当单击“排序”命令按钮，将输入的内容按工资递减的顺序排序，并在图形框显示。程序运行界面见图1.5。提示：（1） 自定义一个职工类型只能在标准模块内定义，若在窗体通用声明段定义， 必须为Private。（2）为了保存当前输入职工元素的个数，该变量应在通用声明段声明，若在事件过程中声明，每次运行将被初始化为0。Forml号名遥 瑙 工姓工 砒号E 2 6 1 2 3 1-35113 4 4 12 32 3 0 4 5T 2150 46 5 5 3 0图1.5实验1.5运行界面6. 自定义函数。编一函数过程 lsH(n)，对于已知正整数

6、n,判断该数是否是回文数，函数的 返回值类型为布尔型。主调程序每输入一个数，调用IsH函数过程，然后在图形框显示输入 的数，对于是回文数显示一个“” ，见图1.6。图1.6实验1.6回文数程序运行界面提示：(1) 所谓回文数是指顺读与倒读数字相同，即指最高位与最低位相同， 次高位与次低位相同,依次类推。当只有一位数时，也认为是回文数。(2) 回文数的求法，只要对输入的数(按字符串类型处理)，利用MID函数从两边往中间比较, 若不相同，就不是回文数。7单选、复选、框架、列表框的使用。设计如实验图1.7所示的应用程序。当用户选定了基本配置并且单击“确定”按钮后，在右边的列表框中显示所选择的信息。实

7、验图1.7计算机配置选择程序8两个窗体的使用。设计一个如实验图1.8所示的程序。它对窗体中的列表框具有随机产生数据、删除、添加、统计的功能；统计结果显示在如实验图1.9所示的窗体中。实验图1.8主窗体实验图1.9统计结果显示窗体9通用对话框、文件的使用。设计一个如图1.10所示的应用程序。要求：（1）选择“打开文件”弹出一个通用对话框，选择文件后显示在文本框中；（2）选择“保存文件”后弹出通用对话框，确定文件名后保存；（3） 选择“查找下一个”就在文本文件中查找单词“.NET”，找到后以高亮度显示。 若再选择“查找下一个”，则继续查找。3 ForlE T 5于 ，紐HE1 蠶t司来-乩 地溝J1末曇有，