编程及上机调试

按照下列各题的要求进行操作和编程练习。各题的程序文件名为ex0101（第1题）～ex0104（第4题），如第1题需要保存的两个文件为ex0101.vbp和ex0101.frm，存放在用户文件夹下的“第1章”子文件夹中。

说明：① 通常，实验室管理员会在网络服务器上为每个同学分配一个专用的文件夹（以下称为“用户文件夹”），以供保存文件。每位同学按练习题要求完成的文件分别存储在用户文件夹下的各章子文件夹中（各章子文件夹由同学自行创建）。对于使用单机的用户，可以把文件保存在“我的文档”文件夹中。② 读者在练习各章例题时，可采用例题号作为文件名保存例题程序，如例1.1程序以“例1.1”为文件名保存。

1.窗体上有一个命令按钮Command1和一个标签Label1，并有如下事件过程：

Private Sub Label1_Click（）
    Caption="练习"
    Command1.Caption="确定"
    Label1.FontBold=True
    Label1.AutoSize=True
    Label1.Caption="Visual Basic程序设计教程"
End Sub

上机验证并回答下列问题：

（1）该事件过程的对象是___，通过___可以触发该事件过程。

（2）程序运行后，文字“练习”是显示在___的标题栏上。

（3）___语句使标签的大小自动随文字的多少而改变。

2.按照以下步骤设计一个VB程序，程序设计界面如图1.17所示。单击“是”按钮，文本框中显示“我有电脑”；单击“否”按钮，文本框中显示“我没有电脑”；单击“清除”按钮，将消除文本框中显示的内容。

设计步骤如下：

（1）在VB中新建一个工程。

（2）设置窗体的属性值。需设置的属性及属性值如下：

属性名称 属性值

Caption 教学调查

（3）在窗体中添加一个标签（Label）。需设置的属性及属性值如下：

属性名 称属性值

Caption 你有电脑吗？

Font 宋体，三号

（4）在窗体中添加一个文本框（TextBox）。需设置的属性及属性值如下：

属性名 称属性值

名称 Txt

Font 宋体，三号

（5）在窗体中分别添加3个命令按钮（CommandButton）。需设置的属性及属性值如下：

属性名 称属性值

名称分别为 Command1、Command2和Command3

Caption 分别为“是”、“否”和“清除”

Font 宋体，三号

【提示】 当多个控件的Font属性相同时，可先同时选定这多个控件，再一起设置。

（6）编写程序代码。几个事件过程代码如下：

Private Sub Command1_Click（）
    Txt.Text＝"我有电脑"
End Sub
Private Sub Command2_Click（）
    Txt.Text＝"我没有电脑"
End Sub
Private Sub Command3_Click（）
    Txt.Text＝""           ′一对双撇号，中间不留空
End Sub

（7）分别以ex0102.frm和ex0102.vbp为文件名保存窗体及工程，保存位置为用户文件夹下的“第1章”子文件夹中。

（8）运行程序。单击“是”按钮时，程序的运行效果如图1.18所示。

【提示】 一般是先保存工程，然后再调试和运行程序，这样可以避免由于意外错误造成程序的丢失。也可先对程序进行调试和运行，调试成功后再保存工程。

3.新建一个工程，在属性窗口中对窗体设置如下属性：

Width（宽） 6000

Height（高） 2000

Caption（标题） VB应用程序

BackColor（背景颜色） 蓝色

Left（左边位置） 1800

Top（顶边位置） 300

在设置过程中，观察窗体外观有什么变化。运行后观察窗体外观又有什么变化。

4.设计一个程序，运行界面如图1.19所示，在左边文本框中输入一个数，当单击“计算”命令按钮时，将输入数乘以15后显示在右边文本框中。