实验四 https://www.doczj.com/doc/6f2154686.html,程序设计基础和常用控件
一、实验目的
本实验主要了解面向对象程序设计语言https://www.doczj.com/doc/6f2154686.html,基本语言元素包括集成开发环境、语言基础、基本控制结构、过程、常用控件和界面设计。通过本实验，读者将学会一些主要的面向对象的设计方法并可以利用https://www.doczj.com/doc/6f2154686.html,完成简单的应用程序开发。
二、实验环境
Microsofe Visual Studio .NET 2008
三、实验内容
1．设计一个Visual https://www.doczj.com/doc/6f2154686.html,的应用程序，窗体上有一个多行文本框和3个命令按钮，程序界面如图1所示。要求应用程序运行时，当单击窗体上【显示文本信息】按钮，文本框中显示红色文字“我喜欢https://www.doczj.com/doc/6f2154686.html,，因为它简单易学，使用方便。”当单击窗体上【改变背景色】按钮，文本框的背景色变为黄色。当单击窗体上【结束】按钮，程序结束。保存该应用程序。【实验步骤】：
1）创建工程：打开Visual Studio 后，点击左上角的新建项目，选中“模板”，展开选择Visual Basic，再选中Windows桌面，再在左边的类型中选择“Windows窗体应用程序”，在下方为此项目命名为“Win dowsApplication4.1”
2）先打开“工具箱”：展开左上角的“视图”，点击工具箱。
3)修改Form1的名称：右键选中From1,点击“属性”，在新弹出的属性菜单栏中，找到“Text”这个属性，将右边的“From1”改为“第一个https://www.doczj.com/doc/6f2154686.html,实验”即可。
4）设置一个普通文本框：在工具栏中，选中公共空间中的TextBox，然后拖入右边的设计窗口中，然后鼠标移到TextBox后，鼠标左键按住不放可以移动此控件。
5）调整文本框的大小：鼠标移动到文本框的左右边缘，鼠标箭头会变成一个左右的箭头，
移动即可设置其宽度，而移动到文本框的上下边缘，此时还不能设置高度，因为它的属性是单行文本框，右键点击此文本框，选中“属性”，然后在新弹出的“属性窗口”中，找到“Mu tiline”属性，默认值为False，我们将其改为：True,即可实现多行功能，此时再将鼠标移至上下边缘，即可实现设置其高度的功能。
6）设置三个button及其大小位置：首先在工具箱公共空间中选择button选项拖入到文本框中，然后鼠标移至此控件的上下左右边缘可调整其大小，将此button的做边缘与文本框对其，长度设置合理后，复制此button再粘贴，将第二个button的右边缘与文本框的右边缘对其，再粘贴出第三个button，将其放在这两个button的中间下方位置，调整其大小使得他的大小略小于前两个。选中前两个button,利用上方工具栏中的对齐工具对齐。
7）设置三个button文本框的名称：
先右键点击button1,选中“属性”，然后在弹出的属性窗口中，找到“Text”属性，默认值为“Button1”，将其改为“显示文本信息”即可，再右键打开Button2的属性，找到“Text”属性，将默认值”Button2”修改为“改变背景色”，再打开Button3的属性，找到“Text”属性，将默认值”Button3”修改为“结束”。
8）设置Button1的语句代码，使得点击此控件时可以显示文本信息。左键双击Button1，进入到VB编写代码的窗口：
在中间输入如下语句：
TextBox1.Text = "我喜欢https://www.doczj.com/doc/6f2154686.html,，因为它简单易学，使用方便。"
TextBox1.ForeColor = Color.Red
设置Button2的语句代码，使得点击此控件时可以将文本框的背景颜色改为黄色。左键双击Button2，进入到VB编写代码的窗口：输入如下代码：
TextBox1.BackColor=Color.Yellow
再设置Button3的语句代码，使得点击此控件时可以退出。左键双击Button3，进入到VB 编写代码的窗口：输入如下代码：
END
9)运行此窗体：点击上方的“生成“，选中“生成解决方案”，再点击“运行”键：
点击“显示文本信息”：点击“改变背景色”：
点击“结束”后，会自动退出调试：
10）实验一出错截图及错误分析：
问题描述：在点击“显示文本信息”时，文本没有反应。
出错原因：显示的代码位置设置错误，将代码设置到textbox1上去了
修改方法：剪贴掉textbox1上的错误代码，加在button1上。
修改效果：点击button1可以正常显示文本信息
2．试编一程序，将华氏温度转换为摄氏温度。程序运行时，单击窗体上【开始】按钮，提示输入华氏温度（用InputBox函数），然后将华氏温度转化为摄氏温度，并在窗体上显示华氏温度和摄氏温度。转换公式为：C=5/9*(F-32)，其中，F是华氏温度，C是摄氏温度。程序界面如图2所示。
【实验步骤】：
1）创建工程：打开Visual Studio 后，点击左上角的新建项目，选中“模板”，展开选择Visual Basic，再选中Windows桌面，再在左边的类型中选择“Windows窗体应用程序”，在下方为此项目命名为“WindowsApplication4.2”
2）先打开“工具箱”：展开左上角的“视图”，点击工具箱。
3)修改Form1的名称：右键选中From1,点击“属性”，在新弹出的属性菜单栏中，找到“Text”这个属性，将右边的“From1”改为“第二个https://www.doczj.com/doc/6f2154686.html,实验”即可。
4）设置一个button及其大小位置：首先在工具箱公共空间中选择button选项拖入到文本框中，然后鼠标移至此控件的上下左右边缘可调整其大小，将其拖到From的正中偏下方的位置。右键选择button的属性，修改其默认值为“Button”的文本属性为“开始”
5）设置Button1的VB语句，使得其实现功能：提示输入华氏温度。鼠标左键双击“开始”键，进入VB编写代码的窗口：
在此处输入如下代码：
Dim F As String
F = InputBox("请输入华氏摄氏度:")
6）设置4个Label控件：在工具栏中的公共控件中，找到“Label”控件，将其拖到合适的位置，一共拖曳四个。通过上方的对齐工具将他们对齐。
7）为四个Lable设置名称：先右键点击Lable1，选中“属性”，找到“Text”属性，默认值为“Lable1”，将其修改为“华氏温度”，同理将“Lable3”修改为“摄氏温度”。再将“Label2”和“Label3”的文本属性值设置为空：
最后得到的结果图：
8）为Lable2和Lable4设置VB语言，使得实现相应的功能：显示输入的华氏温度并且输出相应的摄氏度。双击“开始”键，进入它的VB语言，添加上如下语句：
Dim F As String '定义华氏温度
Dim C As Double '定义摄氏温度
F = InputBox("请输入华氏摄氏度:") '输入华氏温度F
If IsNumeric(F) Then '如果输入的是数字
C = 5 / 9 * (F - 32) '计算摄氏度
Label2.Text = F '将F的值赋给Label2并显示
Label4.Text = C '将C的值赋给Lable4并显示
Else '若输入的不是数字，警告
MsgBox("请重新输入数字！")
End If
9）点击操作栏上的启动：会出现如下界面，再点击开始，输入合适的值
若输入的不是数字，而是字母或者不合法的字符，则会出现提示信息：
10）出错截图及原因分析：
错误原因：在执行界面点击“取消”会报错
出错原因：在什么也不输入的时候，inputbox会默认输入为空，此时再经行字符串转化为double类型的值会出错。
修改方法：将inputbox的赋给一个string的变量，在进行计算的之前，应该先判断输入的字符是否为数字，是数字再进行运算，若不是则直接退出。
3．设计一程序，窗体界面如图3所示。要求在程序运行时，根据选择可以改变文本框内文本的字体、字形等。
1）创建工程：打开Visual Studio 后，点击左上角的新建项目，选中“模板”，展开选择Visual Basic，再选中Windows桌面，再在左边的类型中选择“Windows窗体应用程序”，在下方为此项目命名为“WindowsApplication4.3”
2)修改Form1的名称：右键选中From1,点击“属性”，在新弹出的属性菜单栏中，找到“Text”这个属性，将右边的“From1”改为“第三个https://www.doczj.com/doc/6f2154686.html,实验”即可。
3）打开“工具箱”：展开左上角的“视图”，点击工具箱。
4）设置一个普通文本框：在工具栏中，选中公共空间中的TextBox，然后拖入右边的设计窗口中，然后鼠标移到TextBox后，鼠标左键按住不放可以移动此控件。
5）调整文本框的大小：鼠标移动到文本框的左右边缘，鼠标箭头会变成一个左右的箭头，移动即可设置其宽度，右键点击此文本框，选中“属性”，将“Mu tiline”属性，默认值为False，我们将其改为：True,此时再将鼠标移至上下边缘，即可实现设置其高度的功能。
6）添加两个GroupBox：在工具箱的容器分类下，找到“G roupBox”,，拖曳两个放在from1中，调整大小与位置使得其在合适的位置。
7）修改两个group的文本属性：右键点击groupbox1,点到属性，再在出现的属性窗口中，找到“text”属性，将默认值为“Groupbox1”修改为“颜色设置”同理将另外一个的文本属性设置为“字形设计”
8）为“颜色设置”添加三个RadioButton：在工具栏中，拖曳三个RadioButton到“颜色设计”窗体中，注意调整相对位置，可以使用上方的对齐工具
9）修改三个RadioButton的文本属性：右键点击RadioButton1，找到文本属性，修改为“红
色”，同理将其余两个修改为“绿色”和“蓝色”
10）为“字形设置”添加三个CheckBox: 在工具栏中，拖曳三个CheckBox到“字形设计”窗体中，注意调整相对位置，可以使用上方的对齐工具
11)修改三个CheckBox的文本属性：右键点击CheckBox，找到文本属性，修改为“下划线”，同理将其余两个修改为“粗体”和“斜体”
12）添加一个“bu tton”：从公共控件中拖入一个Button到窗口中，放在from1的内部正下方的位置，调整为合适的大小，然后右键点到“属性”，将其其文本属性修改为“退出”。
13）为各个控件添加VB代码：在“颜色设置”窗口中，为了实现将字体的颜色进行修改，鼠标左键双击“红色”进入代码编辑界面，在出现的界面中输入合适的代码，再对剩余的控件挨个添加代码。
分别在三个按钮中输入以下语句
If (RadioButton1.Checked = True) Then '若选中红色按钮'
TextBox1.ForeColor = Color.Red
End If（以上代码输入“红色“中）
If (RadioButton2.Checked = True) Then '若选中绿色按钮'
TextBox1.ForeColor = Color.Green
End If(这三行代码输入到“绿色“中)
If (RadioButton3.Checked = True) Then '若选中蓝色按钮'
TextBox1.ForeColor = Color.Blue
End If（这三行代码输入到“蓝色“中）
在“字体设计”窗口中，为了实现将字体的颜色进行修改，鼠标左键双击“下划线”进入代码编辑界面，在出现的界面中输入合适的代码，再对剩余的控件挨个添加代码。
分别在三个checkbox中均输入以下语句
Dim newfontstyle As New FontStyle '定义一种新字形’
If CheckBox1.Checked Then '若选中CheckBox1’newfontstyle = newfontstyle + FontStyle.Underline '加上下划线’
End If
If CheckBox2.Checked Then '若选中CheckBox2’newfontstyle = newfontstyle + FontStyle.Bold '加上粗体’End If
If CheckBox3.Checked Then '若选中CheckBox3’newfontstyle = newfontstyle + FontStyle.Italic '加上斜体' End If
TextBox1.Font = New Font(T https://www.doczj.com/doc/6f2154686.html,, TextBox1.Font.Size, newfontstyle) 鼠标左键双击“退出”进入VB代码编辑界面，输入代码
END
14）点击操作栏的“启动”：观察是否真正实现了功能
在弹出的窗口中输入：数据库技术点击下划线：
点击“粗体”：点击“斜体”：
点击“红色”：点击“绿色”：
点击“蓝色”点击“退出”（正常退出）