1 实验一 VB程序设计入门

实验一

1.编写一个程序，用户输入姓名后，单击“进入”按钮，显示欢迎字样；单击“退出”按

钮，程序结束运行，如下图所示。要求：文字“请输入姓名：”为隶书、三号字，单击“进入”按钮后，显示的欢迎字样呈蓝色。

提示：使用字符串连接运算符“+”将文本框中输入的姓名放入欢迎字样，用函数RGB （0,0,255）表示蓝色。

Private Sub Command1_Click()

Label1.Caption = Text1.Text + ",您好！欢迎进入系统!"

Label1.ForeColor = RGB(0, 0, 255)

End Sub

2.编写一个选择标签前景色和背景色的程序。单击上面一行颜色，改变标签的前景色；单

击下面一行颜色，改变标签的背景色。如下图所示。

提示：

1 标签的前景色属性为forecolor，背景色属性为backcolor。

2 使用标签创建颜色块，将标签的caption属性设置为空白，backcolor属性设置为对应颜色；borderst yle属性设置为1-fixed single，使得颜色块带边框。

3 为使每一块颜色的大小一致，可以先创建第一块颜色的标签，然后选中第一块颜色的标签，单击“复制”按钮，以后单击“粘贴”按钮，逐个复制。当屏幕上出现提示“已有一个控件为**，建立控件数组吗？”应该回答“否”。

Private Sub Label3_Click()

Label1.ForeColor = Label3.BackColor

End Sub

Private Sub Label8_Click()

Label1.BackColor = Label8.BackColor

End Sub

（其他略）

3.编写一个设置文字字体和大小的程序。窗体上有若干个按钮，分别表示字体和大小，单

击这些按钮后，实例文字的字体和大小相应变化。如图所示。

提示：标签的字体和大小属性分别是fontname和fontsize，fontname属性值为windows 安装的字体的名称，fontsize属性值为数值。

Private Sub Command2_Click()

Label1.FontName = "楷体"

End Sub

Private Sub Command6_Click()

Label1.FontSize = 20

End Sub