实验四VBNET程序设计基础和常用控件

实验四 程序设计基础和常用控件

一、实验目的

本实验主要了解面向对象程序设计语言基本语言元素包括集成开发环境、语言基础、基本控制结构、过程、常用控件和界面设计。通过本实验，读者将学会一些主要的面向对象的设计方法并可以利用完成简单的应用程序开发。

二、实验环境

Microsofe Visual Studio .NET 2008

三、实验内容

1．设计一个Visual 的应用程序，窗体上有一个多行文本框和3个命令按钮，程序界面如图1所示。要求应用程序运行时，当单击窗体上【显示文本信息】按钮，文本框中显示红色文字“我喜欢，因为它简单易学，使用方便。”当单击窗体上【改变背景色】按钮，文本框的背景色变为黄色。当单击窗体上【结束】按钮，程序结束。保存该应用程序。【实验步骤】：

1）创建工程：打开Visual Studio 后，点击左上角的新建项目，选中“模板”，展开选择Visual Basic，再选中Windows桌面，再在左边的类型中选择“Windows窗体应用程序”，在下方为此项目命名为“Win dowsApplication4.1”

2）先打开“工具箱”：展开左上角的“视图”，点击工具箱。

3)修改Form1的名称：右键选中From1,点击“属性”，在新弹出的属性菜单栏中，找到“Text”这个属性，将右边的“From1”改为“第一个实验”即可。

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 = "我喜欢，因为它简单易学，使用方便。"

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”改为“第二个实验”即可。

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”的文本属性值设置为空：