文档库 最新最全的文档下载
当前位置:文档库 › VB程序设计实验报告

VB程序设计实验报告

VB程序设计实验报告

实验日期:2010.09.09

一、实验目的与要求

掌握窗体对象、文本框、标签和命令按钮控件的常用属性、事件和方法及其使用;

理解面向对象程序设计的方法;

了解Visual Basic的特点及集成开发环境并开发工具;

会用各对象和按钮控件的常用属性,事件和方法进行简单的程序编写。

二、实验内容

1.设计一程序,当程序运行后,在窗体的正中间显示“你好!请输入你的名字”,焦点定在其下的文本框中。当用户输入姓名并单击窗“确定”按钮后,在窗体中用黑体、三号、红色显示“×××同学,你好!,祝你学好VB程序设计”,同时窗体上出现两个命令按钮“继续”和“结束”,其中“×××”是用户输入的姓名。例如,当用户输入“王五”,单击“确定”按钮后,出现如图界面,如果单击“继续”按钮,则有回到初始运行状态;单击“结束”按钮即结束程序运行。

2.在窗体上建立五个命令按钮Command1、Command2、Command3、Command4、Command5和一个标签Label1。将这些控件做适当布置。编写程序完成如下要求。

(1)程序运行后,5个命令按钮显示分别为:“放大”、“加粗”、“下划线”、“还原”、“移动”,标签显示为“VB程序设计”。

(2)单击“放大”按钮,标签显示的文字放大3倍;单击“加粗”按钮,标签显示的文字则加粗;单击“下划线”按钮标签显示的文字加下划线;单击“还原”按钮,标签显示的文字格式回到起初状态。

(3)每单击“移动”命令按钮一次,标签向左移动一定的距离,单击10次,则移动到最左边(Label1.Left=0)。

三、实验步骤

第一题实验步骤;

(1)将label1的caption属性写为“你好!请输入你的名字”;

(2)将text1的内容清空,并将text1和form1的font属性中字体用黑体、三号、红色显示;

(3)将command1、command2、command3的caption属性改为“确定”、“继续”、“结束”,并调

整三个命令按钮的大小统一,并设置间距。

第二题实验步骤

(1)将命令按钮Command1、Command2、Command3、Command4、Command5的caption属性改为“放大”、“加粗”、“下划线”、“还原”、“移动”,并统一大小,设置间距;

(2)将label1的caption属性改为“VB程序设计”,并设置字体大小和位置。

四、程序代码

第一题实验代码:

Private Sub Command1_Click()

Print

Print

Print

Print

Print

Form1.Print Tab(3); Text1.Text; "同学,你好!祝你学好VB程序设计" Command2.Visible = True

Label1.Visible = False

Text1.Visible = False

Command3.Visible = True

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Command2_Click()

Command2.Visible = False

Command3.Visible = False

Command1.Visible = True

Form1.Cls

Label1.Visible = True

Text1.Visible = True

Text1 = ""

End Sub

Private Sub Form_Load()

Command3.Visible = False

End Sub

第二题实验代码:Private Sub Command1_Click() Label1.FontSize = 16 * 3

End Sub

Private Sub Command2_Click() Label1.FontBold = True

End Sub

Private Sub Command3_Click() Label1.FontUnderline = True End Sub

Private Sub Command4_Click() Label1.FontSize = 16

Label1.FontBold = False

Label1.FontUnderline = False Label1.Caption = "vb程序设计" Label1.Left = 1782

Label1.Top = 2088

End Sub

Private Sub Command5_Click() Label1.Left = Label1.Left - 178.2 End Sub

Private Sub Form_Load() Label1.Left = 1782 Label1.Top = 2088

End Sub

相关文档