课程名称: 成绩评定: 实验项目名称: 指导教师 实验项目编号: 实验项目类型: 实验地点: 学生姓名: 学号: 学院: 系 专业: 实验时间 年 月 日 午～ 月 日 午
一、 实验目的
1. 熟悉VB 编程环境，能够建立、编译和运行VB 程序。
2. 掌握窗体、标签、文本框、命令按钮、图形框的作用、常用属性、事件和方法。
3. 理解并掌握赋值语句、掌握表达式的书写规则。
4. 掌握使用Inputbox 函数和MsgBox 消息函数进行输入输出。
5. 熟悉VB 的数据类型和类型转换。
二、 实验内容
(一) 字幕滚动
1. 设计如下图所示的界面实现字幕从上到下进行滚动，“欢迎使用VB ”是一个字幕标签，两个命令按钮分别实现自动滚动和手动滚动。
a) 在窗体水平居中的地方放置一个标签。
b) 当字幕向下移出窗体时，重新从窗体顶端开始继续往下移动。
c) 单击“手动”按钮一次字幕将向下移动一下，单击“自动”按钮字幕将连续移动，具体移动的速度或幅度、窗体和按钮上的图片由自己设定。
d) 以EX1-1分别保存窗体和工程。
2. 实验要求
Backstyle = 0
b) 使标签在窗体中水平居中需要设置什么属性，如何设置？设置的依据是什么？
Label1.left=(form1.width-label1.width)/2
a) 对于标签应对其什么属性设置什么值才能够使窗体的背景不被遮挡？
c) 要想在命令按钮上显示图片，需要设置哪些属性，如何设置？ Command1.picture
Command1.style=1-graphical
d) 往下。
If label1.top>form1.height then
Label1.top=0
Else
Label1.top=label1.top+10
End if
e) 要使Timer 控件启用，必须设置哪两个属性，属性值设置为多少？ Timer1.enabled=true
Timer1.interval=1000
f) 单击“手动”按钮时，如何使Timer 控件停用？需要在什么地方编写代码？请写出代码？
Command2_click()
Timer1.enabled=false
(二) 打开教材实验材料中工程文件
EXA05.vbp ，完成下面的任务。
1．观察窗体上分别有哪些类的控件，
根据观察结果制作下表，
表格行数视情况而
定。以EX1-2保存窗体和工程。
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．关闭程序，写出你对该程序功能的理解。
将各个事件添加到list1 中用语言表述出来
(三) BMI 计算。
1. 编写一个计算人的身体质量指数BMI 的程序，计算公式为BMI 等于体重（千克）除以身高（米）的平方，计算结果按四舍五入保留2位小数。运行时的界面如下图所示。 a) 设计如图所示界面，两个文本框用于输入体重和身高。
b) 点击“计算”按钮或者在文本框中输入回车时，计算BMI 的值。
c) 当计算完成时将当前时间的BMI 值打印在图形框，如果输入错误使用MsgBox 弹出对话框提示输入错误。
d) 窗体大小设置为固定大小，窗体的标题显示系统当前的时间，使用计时器每隔1秒钟更新Form 的Caption 。以EX1-3保存窗体和工程。
2. 实验要求
请写出这些变量的定义，并注明变量的作用。
体重 a 身高 b 在通用申明出定义 dim a as integer ,dim b as integer
b) 进行BMI 计算的表达式是什么，使用自己定义的变量来表示。
BMI = Round((a / (b / 100) ^ 2), 2) a) 该程序的计算用到了哪些变量，作用分别是什么？需要在什么地方定义这些变量，
c) BMI 计算的结果保留2位小数打印在PictureBox 图形框中，请写出具体的Print 语句。
d) 请写出Timer1_Timer事件的代码，该代码用于控制窗体的标题，使标题显示当前时间。
Private Sub Timer1_Timer()
Timer1.interval=1000 BMI = Round((a / (b / 100) ^ 2), 2) Picture1.Print "BMI=" & BMI
Form1.caption=now()
End sub
课程名称: 成绩评定: 实验项目名称: 指导教师 实验项目编号: 实验项目类型: 实验地点: 学生姓名: 学号: 学院: 系 专业: 实验时间 年 月 日 午～ 月 日 午
一、 实验目的
1. 熟悉VB 编程环境，能够建立、编译和运行VB 程序。
2. 掌握窗体、标签、文本框、命令按钮、图形框的作用、常用属性、事件和方法。
3. 理解并掌握赋值语句、掌握表达式的书写规则。
4. 掌握使用Inputbox 函数和MsgBox 消息函数进行输入输出。
5. 熟悉VB 的数据类型和类型转换。
二、 实验内容
(一) 字幕滚动
1. 设计如下图所示的界面实现字幕从上到下进行滚动，“欢迎使用VB ”是一个字幕标签，两个命令按钮分别实现自动滚动和手动滚动。
a) 在窗体水平居中的地方放置一个标签。
b) 当字幕向下移出窗体时，重新从窗体顶端开始继续往下移动。
c) 单击“手动”按钮一次字幕将向下移动一下，单击“自动”按钮字幕将连续移动，具体移动的速度或幅度、窗体和按钮上的图片由自己设定。
d) 以EX1-1分别保存窗体和工程。
2. 实验要求
Backstyle = 0
b) 使标签在窗体中水平居中需要设置什么属性，如何设置？设置的依据是什么？
Label1.left=(form1.width-label1.width)/2
a) 对于标签应对其什么属性设置什么值才能够使窗体的背景不被遮挡？
c) 要想在命令按钮上显示图片，需要设置哪些属性，如何设置？ Command1.picture
Command1.style=1-graphical
d) 往下。
If label1.top>form1.height then
Label1.top=0
Else
Label1.top=label1.top+10
End if
e) 要使Timer 控件启用，必须设置哪两个属性，属性值设置为多少？ Timer1.enabled=true
Timer1.interval=1000
f) 单击“手动”按钮时，如何使Timer 控件停用？需要在什么地方编写代码？请写出代码？
Command2_click()
Timer1.enabled=false
(二) 打开教材实验材料中工程文件
EXA05.vbp ，完成下面的任务。
1．观察窗体上分别有哪些类的控件，
根据观察结果制作下表，
表格行数视情况而
定。以EX1-2保存窗体和工程。
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．关闭程序，写出你对该程序功能的理解。
将各个事件添加到list1 中用语言表述出来
(三) BMI 计算。
1. 编写一个计算人的身体质量指数BMI 的程序，计算公式为BMI 等于体重（千克）除以身高（米）的平方，计算结果按四舍五入保留2位小数。运行时的界面如下图所示。 a) 设计如图所示界面，两个文本框用于输入体重和身高。
b) 点击“计算”按钮或者在文本框中输入回车时，计算BMI 的值。
c) 当计算完成时将当前时间的BMI 值打印在图形框，如果输入错误使用MsgBox 弹出对话框提示输入错误。
d) 窗体大小设置为固定大小，窗体的标题显示系统当前的时间，使用计时器每隔1秒钟更新Form 的Caption 。以EX1-3保存窗体和工程。
2. 实验要求
请写出这些变量的定义，并注明变量的作用。
体重 a 身高 b 在通用申明出定义 dim a as integer ,dim b as integer
b) 进行BMI 计算的表达式是什么，使用自己定义的变量来表示。
BMI = Round((a / (b / 100) ^ 2), 2) a) 该程序的计算用到了哪些变量，作用分别是什么？需要在什么地方定义这些变量，
c) BMI 计算的结果保留2位小数打印在PictureBox 图形框中，请写出具体的Print 语句。
d) 请写出Timer1_Timer事件的代码，该代码用于控制窗体的标题，使标题显示当前时间。
Private Sub Timer1_Timer()
Timer1.interval=1000 BMI = Round((a / (b / 100) ^ 2), 2) Picture1.Print "BMI=" & BMI
Form1.caption=now()
End sub