Visual Basic(.NET)语言实验项目(01B)实验报告

Visual Basic(.NET)语言实验项目（01B）

1． 实验题目 设计一个能显示和清除信息的简单应用程序。 2． 实验内容 1．通过不同按钮的单击事件，分别驱动信息显示和清除，并能关闭应用程序。 2．设计一个简单的VB.NET应用程序，其界面如实验参考书图2.4所示，程序的功能是单击“显示”按钮时，在窗体上分行显示“锄禾日当午 汗滴禾下土 谁知。。。。”；单击“清除”按钮时，原信息被清除；若再次单击“显示”按钮，则重复显示；若单击“结束”按钮，则终止程序的运行。 3．独立完成上述内容，并提交书面实验报告（格式见附件，报告的文件名为：“实验序号（如：01A）”_“班级”_“学号”_“姓名”）、程序集文件（该文件集的文件目录要求为：“实验序号（如：01A）”_“班级”_“学号”_“姓名”，具体包括程序源代码和可执行等相关文件），同时要求有操作界面显示的结果，该界面的的标题格式为：“标题”_“学号”_“姓名”。 3． 实验要点 1．在窗体窗口上分别添加3个按钮对象和一个文本框对象，重新设置这些对象的相关属性值。 2．通过代码窗口分别为3个不同按钮的单击事件编写相应的程序代码。 3．运行和调试程序，直至程序能正确运行并及时保存程序。 4． 调试过程中用到的测试数据及程序运行结果（窗体显示的结果要用图片显示） （1）创建一个项目，将form的属性中的text改为03a_信息1001_20100603_车钰洁 （2）运用工具栏，在窗体窗口上分别添加3个按钮对象和一个文本框对象，重新设置这些对象的相关属性值。设置如图。 （3） “显示” “清除” “结束”按钮，编写代码如下. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox1.Text = \锄禾日当午\ + Chr(13) + Chr(10) + \汗滴禾下土\ + Chr(13) + Chr(10) + \谁知......\ End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox1.Text = \ End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click End End Sub （4）运行项目，按“显示”按钮之前 2

（5）运行项目，按“显示”按钮之后 （6）运行项目，按“清除”按钮之后 3

（7）运行项目，再次按“显示”按钮 （8）按“结束”按钮，显示框消失 5． 调试程序过程中遇到的问题及解决方法 问题：不知道要怎样回车换行 解决：在两个“”号之间加chr（13）加chr(10) 问题：不知道怎样清除 解决：直接让textbox1.text=””即可。

4

6． 思考题解答 1．若想在程序运行期间能够改变显示信息的颜色，如何实现？ 添加代码如下。 TextBox1.ForeColor = Color.Gray 2．若要在程序运行期间改变显示信息的字体，如何实现？ 添加代码如下。 TextBox1.Font = New Font(\黑体\, 15) 3．如何将VB.NET程序生成可执行程序？ 找到“生成”菜单，并单击菜单项“生成 XXX （U）”即可。 4．返回到Windows，查看程序集文件夹中是否已存储了本实验建立的程序文件，相应的扩展名是什么？ 扩展名是．VB

5

本文来源：https://www.bwwdw.com/article/9m4h.html