暨南大学专用实验报告纸_1..doc

课程名称: 实验一 成绩评定: 实验项目名称: 基础训练 指导教师 张冰 实验项目编号: VB1101 实验项目类型: 综合 实验地点: 计算中心C305 学生姓名: 学号: 学院: 系 专业: 实验时间 2015 年 3 月 5 日 下 午～ 3 月 26 日 下 午 实验目的 熟悉VB编程环境，能够建立、编译和运行VB程序。 掌握窗体、标签、文本框、命令按钮、图形框的作用、常用属性、事件和方法。 理解并掌握赋值语句、掌握表达式的书写规则。 掌握使用Inputbox函数和MsgBox消息函数进行输入输出。 熟悉VB的数据类型和类型转换。 实验内容 字幕滚动 设计如下图所示的界面实现字幕从上到下进行滚动，“欢迎使用VB”是一个字幕标签，两个命令按钮分别实现自动滚动和手动滚动。 在窗体水平居中的地方放置一个标签。 当字幕向下移出窗体时，重新从窗体顶端开始继续往下移动。 单击“手动”按钮一次字幕将向下移动一下，单击“自动”按钮字幕将连续移动，具体移动的速度或幅度、窗体和按钮上的图片由自己设定。 以EX1-1分别保存窗体和工程。 实验要求 对于标签应对其什么属性设置什么值才能够使窗体的背景不被遮挡？ BackStyle=0-none 使标签在窗体中水平居中需要设置什么属性，如何设置？设置的依据是什么？ Label1.Left = (Form1.ScaleWidth - Label1.Width) / 2 要想在命令按钮上显示图片，需要设置哪些属性，如何设置？ Style=1 Picture插入图片 写出标签从上往下移动的代码，注意，当标签移出窗体后要从窗体上顶端开始继续往下。 Private Sub Timer1_Timer() Timer1.Interval = 10 If Label1.Top = 3720 And Label1.Top = 0 Then Label1.Top = Label1.Top + 50 Else Label1.Top = 0 End If End Sub 要使Timer控件启用，必须设置哪两个属性，属性值设置为多少？ 必须有Enabled和Interval属性 Enabled=true Interval0(范围0~65535) 单击“手动”按钮时，如何使Timer控件停用？需要在什么地方编写代码？请写出代码？ Timer1.enabled=false,在command2_click中编写 （代码如下） Private Sub Command2_Click() Timer1.Enabled = False If Label1.Top = 3720 And Label1.Top = 0 Then Label1.Top = Label1.Top + 50 Else Label1.Top = 0 End If End Sub 打开教材实验材料中工程文件EXA05.vbp，完成下面的任务。 1．观察窗体上分别有哪些类的控件，根据观察结果制作下表，表格行数视情况而定。以EX1-2保存窗体和工程。 控件类 控件名称 Listbox List1 Textbox Text1 Checkbox Check1 Checkbox Check2 Optionbutton Option1 Optionbutton Option2 Commandbutton Command1 Commandbutton Command2 2．启动程序，右图为启动之后的初始界面。回答下面的问题： ① List1中为什么会被添加了两项内容？ 启动程序时触动了Form_Resize事件和Text1_GotFocus事件 Private Sub Form_Resize() List1.AddItem 窗体 Form1.Caption 的大小改变 End Sub Private Sub Text1_GotFocus() List1.AddItem Text1.Name 得到焦点 End Sub ② 单击按钮Command1，List1中又被添加了1项什么内容？ 单击了命令按钮command1 ③ 拖拽窗体的右下角改变窗体的大小，List1中又被添加了什么内容？ 窗体form1的大小改变 3．关闭程序，写出你对该程序功能的理解。 将会触发的各个事件添加到list