实验3数据类型及常量.docVIP

自动化2102 戴诗川 3102105245 实验3 数据类型及常量.变量的使用(2学时） 实验目的 掌握各常量的书写特点。 掌握变量的定义及赋值方法，注意变量的作用域。 实验内容 内容（SY3-1.vbp）。浮雕字的制作与图片的装载，窗体装载后的效果如图3-1： 图 3-1 步骤如下： 第1步：在窗体上添加二个标签和一个命令按钮。 第2步：设置对象按钮属性，如下表： 对象 属性 属性值 Lable1. Lable2 Caption 请安静 Command1 Caption 装载图片 Command2 Picture VB默认安装路径下的一个图标 Command3 Style 1 第3步：编写窗体装载Load 事件和按钮的单击Click 事件的事件过程。 Private Sub form_Load() Label2.Top = Label1.Top +50 Label2.Left = Label1.Left +50 Label2.ForeColor = vbRed End Sub Private Sub Command1_Click() Picture = LoadPicture(D：\liu\tupian\A4.JPG) End Sub 第4步：运行程序，单击命令按钮会显示出如图 3-2 所示的结果。 说明：D：\liu\tupian\A4.JPG，图片可以随意找，路径也可以修改。 内容 2 （SY3-2.vbp)，单击窗体，字符串居中显示，效果见图 3-3 图 3-3 步骤如下： 第1步：新建一标准工程。 第2步：在窗体的单击事件 Click中，编写如下代码： Private Sub Form -Click() Dim sample$,x%,y% ‘定义三个过程级变量 FontSize =16 ‘设置字号.粗体.字颜色 FontBold = Ture ForeColor = vbBlue Cls Sample$ = Microsoft Visual Basic 程序设计” ‘设置输出位置 CurrentX = (Form1.Width-Textwidth(sample$))/2 CurrenY =(Form1.Height-TextHeight(sample$))/2 Print sample$ End Sub 第3步：运行程序，单击后窗体 ，会显示出如图 3-3 所示的结果。 内容 3.做一做（SY3-3.vbp) 要求：在文本框中任意输入一个字号，字符串“学好 Visual Basic 6.0”始终居中显示，效果如图 3-4： 图 3-4