实验一环境和程序设计
一、实验目的
1. 掌握启动与退出的方法。

2. 掌握建立、编辑和运行一个简单的应用程序的全过程。

3. 掌握利用常用控件创建基于图形用户界面应用程序的技术。

4. 掌握程序设计语言的语法规则和编程技术。

二、实验内容
1．基本控件标签、文本框、按钮的使用。

利用文本框的字号、内容和格式等属性来实现格式设置，并对选中的复制练习，效果见图1.1。

在TextBox1输入一字符串，建立三个命令按钮：
（1）Button1：Text内容为“隶书25磅”，事件过程代码为：
TextBox1.Font = New Font("隶书", 25)
（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只兔，或者求得的只数为负数）。

因此，在TextBox2_LostFocus事件中要考虑下面两个条件：
（1）对输入的总脚数n必须是偶数，否则提示数据错的原因，重新输入数据；
（2）若求出的头数为负数，提示数据错的原因，重新输入数据。

图1.2 实验1.2运行界面 此处用到If 语句，请参考该语句的用法。

3.利用计算机解决初等数学问题。

输入一元二次方程02=++c bx ax 的系数c b a ,,，
计算并输出一元二次方程的两个根x x 12,。

界面如
图1.3所示。

提示： （1）在 中， Sqrt 自变量出现函数时，
显示“无效的过程调用或参数”的出错显示，原因是sqr 函数调用时，自变量出现负数是无法执行的，例调用Sqr(-3)会产生错误。

（2）求根时要对a 、b 、c 三个系数分别考虑多种情况的处理，即：重根、两个实根、两个复根等。

4. 数组的使用。

随机产生10个30~100(包括30，100)的正整数，求最大值、最小值、平均值，并显示整个数组的值和结果，如图2.1.4所示。

图1.4 实验1.4运行界面
5. 结构类型及数组的使用。

自定义一个职工结构类型，包含职工号、姓名、工资。

在通用声明段声明一个职工类型的数组，可存放5个职工；窗体中设计3个文本框、2个命令按钮和4个标签控件，文本框分别输入职工号、姓名、工资；当单击“添加”命令按钮，将文本框输入的内容添加到数组的当前元素中；当单击“排序”命令按钮，将输入的内容按工资递减的顺序排序，并在图形框显示。

程序运行界面见图1.5。

提示：
（1）自定义一个职工类型只能在标准模块内定义，若在窗体通用声明段定义，必须为Private 。

（2）为了保存当前输入职工元素的个数，该变量应在通用声明段声明，若在事件过程中声明，每次运行将被初始化为0。

图1.3 实验1.3运行界面
图1.5 实验1.5运行界面
6. 自定义函数。

编一函数过程IsH(n)，对于已知正整数n，判断该数是否是回文数，函数的返回值类型为布尔型。

主调程序每输入一个数，调用IsH函数过程，然后在图形框显示输入的数，对于是回文数显示一个“★”，见图1.6。

图1.6 实验1.6回文数程序运行界面
提示：
(1) 所谓回文数是指顺读与倒读数字相同，即指最高位与最低位相同，次高位与次低位相同，依次类推。

当只有一位数时，也认为是回文数。

(2) 回文数的求法，只要对输入的数(按字符串类型处理)，利用MID函数从两边往中间比较，若不相同，就不是回文数。

7．单选、复选、框架、列表框的使用。

设计如实验图1.7所示的应用程序。

当用户选定了基本配置并且单击“确定”按钮后，在右边的列表框中显示所选择的信息。

实验图1.7 计算机配置选择程序
8．两个窗体的使用。

设计一个如实验图1.8所示的程序。

它对窗体中的列表框具有随机产生数据、删除、添加、统计的功能；统计结果显示在如实验图1.9所示的窗体中。

实验图1.8 主窗体实验图1.9 统计结果显示窗体9．通用对话框、文件的使用。

设计一个如图1.10所示的应用程序。

要求：
（1）选择“打开文件”弹出一个通用对话框，选择文件后显示在文本框中；
（2）选择“保存文件”后弹出通用对话框，确定文件名后保存；
（3）选择“查找下一个”就在文本文件中查找单词“.NET”，找到后以高亮度显示。

若再选择“查找下一个”，则继续查找。

图1.10 实验1.9 文本文件应用。