实验报告簿程序方案设计书基础VB答案.docx
《实验报告簿程序方案设计书基础VB答案.docx》由会员分享，可在线阅读，更多相关《实验报告簿程序方案设计书基础VB答案.docx（114页珍藏版）》请在冰豆网上搜索。
实验报告簿程序方案设计书基础VB答案
实验报告
实验日期_____________________
实验名称：
实验一常用标准控件一
【实验目的与要求】
1.掌握VisualBasic的启动与退出。
2.熟悉VisualBasic的集成开发环境。
3.掌握在窗体中放置控件的方法。
4.掌握在“属性窗口”中设置控件属性的方法。
5.掌握在“代码编辑器”窗口中输入程序代码的方法。
6.掌握工具栏上启动按钮、结束按钮的使用方法。
7.掌握标签、文本框、命令按钮、列表框等控件的使用方法。
【实验内容与步骤】
实验1.1.1标签的使用
（一）
1.题目与要求：
在名称为Form1、标题为“标签”的窗体上画一个名称为Label1的标签，并设置适当属性以满足以下要求：
1）标签的内容为“计算机等级考试”；
2）标签可根据显示内容自动调整其大小；
3）标签带有边框，且标签内容显示为三号字。
2.实验步骤
1）界面设置：
在名称为Form1的窗体上放置一个标签控件Label1；
2）属性设置（请将表格补充完整）
表1.1.1对象属性
对象
属性名称
属性值
Form1
Caption
标签
Label1
Caption
计算机等级考试
AutoSize
True
Font
三号
BorderStyle
1
3）保存文件：
存盘时必须存放在C:
\VB\Sy01文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
实验1.1.2标签的使用
（二）
1.在名称为Form1的窗体上画一个名称为Label1的标签，标签的宽和高分别为2000、300，有边框，并利用属性窗口设置适当的属性，使其居中显示“等级考试”，并使标签的外观如图所示。
实验报告
2．属性设置（请将表格补充完整）
表1.1.2对象属性
对象
属性名称
属性值
Label1
Width
2000
Height
300
BorderStyle
1
Alignment
2
Caption
等级考试
3.存盘时必须存放在C:
\VB\Sy01文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
实验1.1.3文本框的使用
1.题目与要求：
在名称为Form1的窗体上画两个文本框，名称分别为T1、T2，初始情况下都没有内容。
请编写适当的事件过程，使得在运行时，在T1中输入的任何字符，立即显示在T2中。
程序中不得使用任何变量。
2.实验步骤
1）界面设置：
在名称为Form1的窗体上放置两个文本框；
2）属性设置
表1.1.3对象属性
对象
属性名称
属性值
Text1
Name
T1
Text
Text2
Name
T2
Text
3）完善程序代码
PrivateSubT1_Change（）
T2.Text=T1.Text（T2=T1）
EndSub
3）保存文件：
存盘时必须存放在C:
\VB\Sy01文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。
实验1.1.4命令按钮的使用
（一）
1.在名称为Form1的窗体上画一个名称为C1、标题为“变宽”的命令按钮，窗体标题为“改变按钮大小”。
编写程序，使得单击命令按钮时，命令按钮水平方向的宽度增加100。
要求：
程序中不得使用变量，每个事件过程中只能写一条语句。
实验报告
2．属性设置（请将表格补充完整）
表1.1.4对象属性
对象
属性名称
属性值
Form1
Caption
改变按钮大小
CommandButton1
Name
C1
Caption
变宽
3.完善程序代码
PrivateSubC1_Click（）
C1.Width=C1.Width+100
EndSub
4.存盘时必须存放在C:
\VB\Sy01文件夹下，工程文件名为sjt4.vbp，窗体文件名为sjt4.frm。
实验1.1.5命令按钮的使用
（二）
1.在名称为Form1的窗体上画一个名称为L1的标签，标题为“请确认”；再画两个命令按钮，名称分别为C1、C2，标题分别为“是”、“否”，高均为300、宽均为800。
请在属性窗口中设置适当的属性满足以下要求：
1）窗体标题为“确认”，窗体标题栏上不显示最大化和最小化按钮；
2）在任何情况下，按回车键都相当于单击“是”按钮；按ESC键都相当于单击“否”按钮。
2.属性设置（请将表格补充完整）
表1.1.5对象属性
对象
属性名称
属性值
Form1
Caption
确认
MaxButton
False
MinButton
False
Label1
Name
L1
Caption
请确认
CommandButton1
Name
C1
Caption
是
Height
300
Width
800
Default
True
CommandButton2
Name
C2
Caption
否
Height
300
Width
800
Cancel
True
3．存盘时必须存放在C:
\VB\Sy01文件夹下，工程文件名为sjt5.vbp，窗体文件名为sjt5.frm。
实验报告
实验1.1.6列表框的使用
1.在名称为Form1的窗体上画1个名称为Label1、标题为“列表框的使用”的标签。
再画1个名称为List1的列表框，列表中含有5个表项，表项内容分别为“北京”、“山西”、“辽宁”、“浙江”和“广东”，并且可以在列表中同时选择多个表项。
2.属性设置（请将表格补充完整）
表1.1.6对象属性
对象
属性名称
属性值
Label1
Caption
列表框的使用
List1
List
北京
List
山西
List
辽宁
List
浙江
List
广东
MultiSelect
2
3.存盘时必须存放在C:
\VB\Sy01文件夹下，工程文件名为sjt6.vbp，窗体文件名为sjt6.frm。
实验1.1.7命令按钮与文本框的使用
（一）
请根据以下要求设计VisualBasic应用程序（包括界面和代码）。
1.在名称为From1的窗体上画二个文本框，名称分别为Text1、Text2，都显示垂直滚动条和水平滚动条，都可以显示多行文本；再画一个命令按钮，名称为C1，标题为“复制”。
请编写适当的事件过程，使得在运行时，在Text1中输入文本后，单击“复制”按钮，就把Text1中的文本全部复制到Text2中，程序中不得使用任何变量。
2.属性设置（请将表格补充完整）
表1.1.7对象属性
对象
属性名称
属性值
Text1
MultiLine
True
ScrollBars
3
Text2
MultiLine
True
ScrollBars
3
CommandButton1
Name
C1
Caption
复制
3.完善程序代码
PrivateSubC1_Click（）
Text2.Text=Text1.Text（Text2=Text1）
EndSub
4.存盘时必须存放在C:
\VB\Sy01文件夹下，工程文件名为sjt7.vbp，窗体文件名为sjt7.frm。
实验报告
实验1.1.8命令按钮与文本框的使用
（二）
1.在名称为Form1的窗体上画一个文本框，名称为Text1，初始内容为空；再画一个命令按钮，名称为C1，标题为“移动”。
请编写适当的事件过程，使得在运行时，单击“移动”按钮，则文本框水平移动到窗体的最左端。
程序中不得使用任何变量。
2.属性设置（请将表格补充完整）
表1.1.8对象属性
对象
属性名称
属性值
Text1
Text
空
CommandButton1
Name
C1
Caption
移动
3.完善程序代码
PrivateSubC1_Click（）
Text1.Left=0
EndSub
4.存盘时必须存放在C:
\VB\Sy01文件夹下，工程文件名为sjt8.vbp，窗体文件名为sjt8.frm。
实验1.1.9命令按钮与文本框的使用（三）
请根据以下要求设计VisualBasic应用程序（包括界面和代码）。
1.在名称为Form1的窗体上面画一个名称为Text1，内容为“程序设计”的文本框，且显示为三号字、居中；再画两个命令按钮，标题分别是“粗体”和“斜体”，名称分别为Command1、Command2。
如图1.1.9所示。
要求：
编写两个命令按钮的Click事件过程，使得单击“粗体”按钮时，文本框的内容显示为粗体格式，单击“斜体”按钮时，文本框的内容显示为斜体格式。
注意：
程序中不得使用变量，每个事件过程中只能写一条语句。
2.属性设置（请将表格补充完整）
表1.1.9对象属性
对象
属性名称
属性值
Text1
Text
程序设计
Font
三号
Alignment
2
CommandButton1
Caption
粗体
CommandButton2
Caption
斜体
3.完善程序代码
PrivateSubCommand1_Click（）
Text1.FontBold=True
EndSub
实验报告
PrivateSubCommand2_Click（）
Text1.Font.Italic=True
EndSub
4.存盘时必须存放在C:
\VB\Sy01文件夹下，工程文件名为sjt9.vbp，窗体文件名为sjt9.frm。
成绩_____________________批改日期_____________________
实验报告
实验日期_____________________
实验名称：
实验二常用标准控件二
【实验目的与要求】
1.掌握选项按钮、复选框和框架的使用方法。
2.掌握图像控件和图片框的使用方法。
3.掌握水平滚动条和垂直滚动条的使用方法
4.掌握图形控件的使用方法。
5.掌握计时器控件的使用方法。
【实验内容与步骤】
实验1.2.1选项按钮的使用
1.在名称为Form1的窗体上画一个名称为Text1的文本框，初始内容为“计算机等级考试”；画两个标题分别为“对齐方式”、“字体”，名称分别为Frame1、Frame2的框架；在Frame1框架中画三个单选按钮，标题分别为“左对齐”、“居中”、“右对齐”，名称分别为Option1、Option2、Option3；在Frame2框架中画二个单选按钮，标题分别为“宋体”、“黑体”，名称分别为Option4、Option5。
要求：
编写五个单选按钮的Click事件过程，使程序运行时，单击这些单选按钮，可以对文本框中的文字实现相应的操作。
注意：
要求程序中不得使用变量，每个事件过程中只能写一条语句。
2.属性设置（请将表格补充完整）
表1.2.1对象属性
对象
属性名称
属性值
Text1
Text
计算机等级考试
Frame1
Caption
对齐方式
Frame2
Caption
字体
Option1
Caption
左对齐
Option2
Caption
居中
Option3
Caption
右对齐
Option4
Caption
宋体
Option5
Caption
黑体
3.完善程序代码
PrivateSubOption1_Click（）
Text1.Alignment=0
EndSub
PrivateSubOption2_Click（）
Text1.Alignment=2
EndSub
实验报告
PrivateSubOption3_Click（）
Text1.Alignment=1
EndSub
PrivateSubOption4_Click（）
Text1.FontName="宋体"
EndSub
PrivateSubOption5_Click（）
Text1.FontName="黑体"
EndSub
4.存盘时必须存放在C:
\VB\Sy02文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
实验1.2.2复选框的使用
1.在名称为Form1标题为“选课”的窗体上画四个复选框，名称分别为CH1、CH2、CH3、CH4，标题分别是“数学”、“语文”、“外语”、“计算机”，其中“语文”、“计算机”复选框处在选中状态下。
请画控件并设置相应属性。
2.属性设置（请将表格补充完整）
表1.2.2对象属性
对象
属性名称
属性值
Form1
Caption
选课
Check1
Name
CH1
Caption
数学
Value
0
Check2
Name
CH2
Caption
语文
Value
1
Check3
Name
CH3
Caption
英语
Value
0
Check4
Name
CH4
Caption
计算机
Value
1
3.存盘时必须存放在C:
\VB\Sy02文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
实验1.2.3图像的使用
1.在名称为Form1的窗体上画一个名为Image1的图像框，其高、宽分别为2000、3000，且不随图片大小而变化；再画两个命令按钮，标题分别是“显示图片”和“隐藏图片”，名称分别为Cmd1、Cmd2。
需编写两个命令按钮的Click事件过程，使得当单击“显示图片”按钮时，将C:
\VB\Sy02文件夹下的图片文件“图片1.jpg”显示在图像框中；而如果单击
实验报告
“隐藏图片”按钮，则清除图像框中的图片。
要求：
程序中不得使用变量，每个事件过程中只能写一条语句。
2.属性设置（请将表格补充完整）
表1.2.3对象属性
对象
属性名称
属性值
Image1
Height
2000
Width
3000
Stretch
True
CommandButton1
Name
Cmd1
Caption
显示图片
CommandButton2
Name
Cmd2
Caption
隐藏图片
3.完善程序代码
PrivateSubCmd1_Click（）
Image1.Picture=LoadPicture（"C:
\VB\Sy02\图片1.jpg"）
EndSub
PrivateSubCmd2_Click（）
Image1.Picture=LoadPicture（""）
EndSub
4.存盘时必须存放在C:
\VB\Sy02文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。
实验1.2.4图片框和滚动条的使用
1.在名称为Form1的窗体上画一个图片框（名称为Picture1）、一个垂直滚动条（名称为VScroll1）和一个命令按钮（名称为Command1，标题为“设置属性”），通过属性窗口在图片框中装入一个图形（文件名为图片2.jpg，位于C:
\VB\Sy02文件夹下），图片框的宽度和图形的宽度相同，图片框的高度任意。
编写适当的事件过程。
程序运行后，如果单击命令按钮，则设置垂直滚动条的如下属性：
Min100
Max2400
LargeChange200
SmallChange20
之后就可以通过滚动条上的滚动块来放大或缩小图片框的高度。
要求程序中不得使用变量。
2.属性设置（请将表格补充完整）
表1.2.4对象属性
对象
属性名称
属性值
Pciture1
AutoSize
True
Picture
C:
\VB\Sy02\图片2.jpg
CommandButton1
Caption
设置属性
实验报告
3.完善程序代码
PrivateSubCommand1_Click（）
VScroll1.Min=100
VScroll1.Max=2400
VScroll1.LargeChange=200
VScroll1.SmallChange=20
EndSub
PrivateSubVScroll1_Scroll（）
Picture1.Height=VScroll1.Value
EndSub
4.存盘时必须存放在C:
\VB\Sy02文件夹下，工程文件名为sjt4.vbp，窗体文件名为sjt4.frm。
实验1.2.5滚动条的使用
1.在名为Form1的窗体上画一个名称为HScroll1的水平滚动条，其刻度范围为1—100；再画一个名称为Text1的文本框，初始内容为1。
程序开始运行时，焦点在滚动条上。
请编写适当的事件过程，使得程序运行时，文本框中实时显示滚动条的当前位置。
注意：
要求程序中不得使用变量，每个事件过程中只能写一条语句。
2.属性设置（请将表格补充完整）
表1.2.5对象属性
对象
属性名称
属性值
HScroll1
Min
1
Max
100
Text1
Text
1
3.完善程序代码
PrivateSubForm_Activate（）
HScroll1.SetFoucs
EndSub
PrivateSubHScroll1_Change（）
Text1.Text=CStr（HScroll1.Value）
EndSub
4.存盘时必须存放在C:
\VB\Sy02文件夹下，工程文件名为sjt5.vbp，窗体文件名为sjt5.frm。
实验1.2.6图形的使用
（一）
1.在名称为Form1的窗体上画一个名称为Shape1的形状控件，画一个名称为L1的列表框，并在属性窗口中设置列表项的值为1、2、3、4、5。
将窗体的标题设置为“图形控件”。
单击列表框中的某一项，则按照所选的值改变形状控件的形状。
例如，选择3，则形状控件被设为圆形。
要求：
程序中不得使用变量，每个事件过程中只能写一条语句。
实验报告
2.属性设置（请将表格补充完整）
表1.2.6对象属性
对象
属性名称
属性值
Form1
Caption
图形控件
List1
Name
L1
List
12345
3.完善程序代码
PrivateSubL1_Click（）
Shape1.Shape=Val（L1.Text）
EndSub
4.存盘时必须存放在C:
\VB\Sy02文件夹下，工程文件名为sjt6.vbp，窗体文件名为sjt6.frm。
实验1.2.7图形的使用
（二）
1.在名称为From1的窗体上画一个名称为Shape1的形状控件，画两个名称分别为Command1、Command2，标题分别为“圆形”、“红色边框”的命令按钮，将窗体的标题设置为“图形控件”。
请编写适当的事件过程使得在运行时，单击“圆形”按钮将形状控件设为圆形。
单击“红色边框”按钮，将形状控件的边框颜色设为红色（&HFF&）。
注意：
要求程序中不得使用变量，每个事件过程中只能写一条语句。
2.属性设置（请将表格补充完整）
表1.2.7对象属性
对象
属性名称
属性值
Form1
Caption
图形控件
CommandButton1
Caption
圆形
CommandButton2
Caption
红色边框
3.完善程序代码
PrivateSubCommand1_Click（）
Shape1.Shape=3
EndSub
PrivateSubCommand2_Click（）
Shape1.BorderColor=&HFF&
EndSub
4.存盘时必须存放在C:
\VB\Sy02文件夹下，工程文件名为sjt7.vbp，窗体文件名为sjt7.frm。
实验1.2.8计时器的使用
1.在名称为From1的窗体上画一个名称为Label1的标签，标签的内容为空，大小为三号字，标签可根据显示内容自动调整其大小，再画一个名称为Timer1的计时器控件，设置其Interval属性为1000，编写适当的事件过程，要求在标签上显示日期与时间，并且时间每秒钟变化一次。
注意：
要求程序中不得使用变量，每个事件过程中只能写一条语句。
实验报告
2.属性设置（请将表格补充完整）
表1.2.8对象属性
对象
属性名称
属性值
Label1
AutoSize
True
Caption
空
Font
三号
Timer1
InterVal
1000
3.完善程序代码
PrivateSubTimer1_Timer（）
Label1.Caption=Now
EndSub
4.存盘时必须存放在C:
\VB\Sy02文件夹下，工程文件名为sjt8.vbp，窗体文件名为sjt8.frm。
成绩_____________________批改日期_____________________
实验报告
实验日期_____________________
实验名称：
实验三选择结构
【实验目的与要求】
1.掌握If—Then—Else—EndIf结构。
2.掌握ElseIf结构。
3.掌握SelectCase—EndSelect结构。
4.掌握选择（分支）结构的程序设计方法。
【实验内容与步骤】
实验1.3.1汽车移动
1.在C:
\VB\Sy03文件夹下有一个工程文件sjt1.vbp，窗体Form1上有图像框、计时器和两个命令按钮，如图所示。
要求当单击“开始”按钮，使小汽车开始移动，一旦移到窗口的右边界时自动跳到窗体左边界重新移动。
单击“停止”按钮时，小汽车停止移动。
注意：
不得修改窗体文件中已存在的程序和控件，最后程序按原文件名存盘。
2.完善程序代码
PrivateSubCommand1_Click（）
Timer1.Enabled=True
EndSub
PrivateSubCommand2_Click（）
Timer1.Enabled=False
EndSub
PrivateSubForm_Load（）
Picture1.Picture=LoadPicture（"C:
\VB\Sy03\CARS.ICO"）
EndSub
PrivateSubTimer1_Timer（）
Picture1.Left=Picture1.Left+100
IfPicture1.Left+Picture1.Width>=Form1.WidthThen
实验报告
Picture1.Left=0
EndIf
EndSub
实验1.3.2爱好选择
1.在C:
\VB\Sy03文件夹下有一个工程文件sjt2.vbp，其窗体上已有部分控件，请按照如图所示添加框架和单选按钮。
要求：
画两个框架，名称分别为Frame1、Frame2，在Frame1中添加两个单选按钮，名称分别为Option1
升级会员 