VB实验一

实验报告
姓名：陈玮林班级：电气1002 学号3100203217
实验一VB集成开发环境
一、【实验目的】
1.掌握VB集成开发环境的启动和退出
2.了解VB集成开发环境的基本组成
3.学会在VB集成开发环境中建立应用程序
二、【实验内容】
（一）、VB集成开发环境的启动和退出
1. 启动VB集成开发环境
2. 在“新建工程”对话框中选择“标准EXE”
注意：在“新建工程”对话框中有几个选项卡？它们各有什么作用？在“新建”选项卡中有哪些选项？
3. 熟悉VB集成开发环境
4. 退出VB集成开发环境
（二）、 VB集成开发环境的基本组成
1. 指出VB集成环境中各组成部分的名称。

2. 找到并熟悉VB集成环境中的工具箱、工程管理器窗口、属性窗口、窗体
设计器窗口、代码窗口；掌握打开和关闭这些窗口的方法。

3. 掌握在窗体设计器窗口中添加控件。

4. 学会设置窗体、命令按钮、文本框的最常用属性。

5. 在代码窗口中找到窗体、命令按钮、文本框的主要事件，学会在对象事
件过程中输入代码。

（三）、建立第一个VB应用程序
程序功能：程序界面见下图，要求当按“显示内容”按钮时，文本框中出现红色的“Hello,Visual Basic！”的文字，按“清屏”按钮时，文本框中文字消失，按“结束”按钮后，程序结束。

Private Sub Command1_Click()
Text1.Text = "Hello，Visual Basic！"
End Sub
Private Sub Command2_Click()
Text1.Text = ""
End Sub
Private Sub Command3_Click()
End
End Sub
（三）、【实验思考题】
1、怎样在窗体中添加控件，怎样改变窗体和控件的大小，怎样改变控件的位置。

如果要使窗体的高度为4000，宽度为5000，可以用什么方法设置？如果要使文本框的位置为：左边405，上边405，可以使用什么方法设置？
答：在工具箱里面找到各种控件，如图，单击可以拖动控件，并且可以调节大小，双击可会出现一个默认位置和大小
的控件要改变窗体和控件的大小可以在属性窗口设
置，也可以通过程序语句来实现。

也可以通过单击控
件也可以在单击控件，如图控件出现了八个点可以去
拉伸其中的点去调节控件的大小，按住就可以拖动
了，改变窗体高度4000，宽度5000可以在窗体的属性窗口height和width 的值，改变文本框的属性窗口的left和top的值就可以改左边405和上边405
2、怎样在属性窗口中为窗体和控件设置属性，试试在属性窗口中设置窗体
的大小属性和文本框的位置属性。

看一下其他控件的大小、位置属性怎样设置？
答：在属性窗口width和heigh可以调节大小，在top和left可以改变位置
3、如何在窗体或控件的事件过程中加入程序段，本实验在哪些对象（指出对象名称）的哪些事件（指出事件名称）中加入了程序段（指出Sub过程名称），这些程序段分别有什么功能。

答：只要单击一下，就可以加入程序段了，有窗体，文本框，还有三个按钮
事件代码：Private Sub Command1_Click()
Text1.Text = "Hello，Visual Basic！"
End Sub （在文本框显示：Hello，Visual Basic！）
Private Sub Command2_Click()
Text1.Text = ""
End Sub（清屏的按钮，实现的功能是点击一下使文本框的内容清除）
Private Sub Command3_Click()
End
End Sub（退出按钮：结束退出）
4、怎样在程序中使用命令设置对象的属性，本实验对哪些对象的哪些属性
进行了设置。

试试在窗体的Load事件中设置窗体的大小和文本框的位置。

答：窗体改变了Caption，及时改变窗体的名字，文本框Text改变了文本框的内容，Alignment使内容居中，Font字体的大小和选择，ForeColor 改变字体的颜色，命令按钮Caption，改变名称
5、怎样保存程序，需要保存哪些文件；怎样运行程序。

答：在文件里面选择保存工程，生成工程。

Exe，保存form1，选择“运行”
-“启动”就会运行程序了，或者点击运行按钮
6、如果将文本框的名称改为“Texthy”，将第一个命令按钮的名称改为
“Cmdhy”，将第二个命令按钮的名称改为“Cmdqk”，将第三个命令按钮的名称改为“Cmdtc”，则上述程序要作哪些改动？
答：将上面程序的text1变成Texthy，将command1-3分别改成了Cmdhy，Cmdqk，Cmdtc
实验总结：
附录
Private Sub Command1_Click()
Text1.Text = "Hello，Visual Basic！"
End Sub
Private Sub Command2_Click()
Texthy.Text = ""
End Sub
Private Sub Command3_Click()
End
End Sub
改动后
Private Sub Cmdhy_Click()
Texthy.Text = "Hello，Visual Basic！"
End Sub
Private Sub Cmdqk Click()
Texthy.Text = ""
End Sub
Private Sub Cmdtc _Click()
End
End Sub。