VB实验报告.docx
《VB实验报告.docx》由会员分享，可在线阅读，更多相关《VB实验报告.docx（17页珍藏版）》请在冰豆网上搜索。
VB实验报告
内蒙古工业大学信息工程学院
实验报告
课程名称：
高级语言程序设计（VB）Ⅲ
实验名称：
常用控件、选择、循环和数组综合程序设计
实验类型：
验证性□综合性√设计性□
实验室名称：
班级：
学号：
姓名：
组别：
同组人：
成绩：
实验日期：
实验报告撰写要求
一、实验前用预习报告纸撰写预习报告，预习报告包括以下内容
1．实验目的
2．实验用仪器设备、器材或软件环境
3．实验原理、方案设计、程序框图、预编程序等
4．实验过程中需要记录的实验数据表格
二、实验过程中，要认真观察，仔细记录
三、完成实验后用实验报告纸撰写实验报告，包括以下内容
1．仪器设备型号及编号
2．实验器材或软件环境
3．实验步骤、程序调试方法
4．实验数据处理及结果分析
5．实验中存在的问题
6．体会及思考题
四、报告撰写时，要求格式规范、书写整齐
预习报告成绩：
指导教师审核（签名）：
年月日
预习报告
一、实验题目
《常用控件、选择、循环和数组综合程序设计》
二、实验目的
实验一
学会综合运用常用控件进行程序设计的方法。
实验二
学会综合运用选择结构、循环结构和数组进行程序设计的方法。
三、实验内容
设计一个能控制字体、字号、字形和速度的滚动字幕程序。
利用随机函数产生60个100～200之间的随机整数，将其中的偶数按由小到大的顺序排列并输出。
四、实验要求
实验一
1．显示字幕的方框可以用标签或文本框。
2．字体包含宋体、黑体和楷体3种，分别用3个单选按钮表示（用框架控件包住）。
3．字号包含小号字、中号字和大号字3种，分别用3个单选按钮表示（用框架控件包住）。
4．字形包含粗体、斜体和下划线3种，分别用3个复选框表示（用框架控件包住）。
5．速度包含慢速、中速和快速3种，分别用3个单选按钮表示（用框架控件包住）。
6．程序运行后，方框中的文字从左向右移动。
7．单击下面的某一按钮，方框中的文字格式和速度能相应地改变。
8．界面和属性由学生自行设计和设置。
实验二
1．将随机产生的60个整数存入数组，按每行10个数输出到窗体或文本框中。
2．将偶数也存入另一个数组，排好序的偶数输出到窗体或文本框中。
3．界面和属性由学生自行设计和设置。
五、实验方案设计
实验一
1、界面设计
2、属性设置
控件
Caption
属性
值
Text
Text1
无
Font
宋体
2008北京奥运会
Option1
宋体
Font
宋体
无
Option2
黑体
Font
宋体
无
Option3
楷体
Font
宋体
无
Option4
小号
Font
宋体
无
Option5
中号
Font
宋体
无
Option6
大号
Font
宋体
无
Option7
慢速
Font
宋体
无
Option8
中速
Font
宋体
无
Option9
快速
Font
宋体
无
Check1
粗体
Font
宋体
无
Check2
斜体
Font
宋体
无
Check3
下划线
Font
宋体
无
Timer1
无
Interval
250
无
3、流程图
开始
字形
字号
4、预编代码
实验二
1、界面设计
2、属性设置
控件
Caption
属性
值
Text
Conmand1
处理
Font
宋体
无
3、流程图
产生60个随机数
4、预编代码
实验报告成绩：
指导教师审核（签名）：
年月日
实验报告
实验项目第一部分
一、实验目的
学会综合运用常用控件进行程序设计的方法。
二、实验内容
设计一个能控制字体、字号、字形和速度的滚动字幕程序。
三、实验要求
1．显示字幕的方框可以用标签或文本框。
2．字体包含宋体、黑体和楷体3种，分别用3个单选按钮表示（用框架控件包住）。
3．字号包含小号字、中号字和大号字3种，分别用3个单选按钮表示（用框架控件包住）。
4．字形包含粗体、斜体和下划线3种，分别用3个复选框表示（用框架控件包住）。
5．速度包含慢速、中速和快速3种，分别用3个单选按钮表示（用框架控件包住）。
6．程序运行后，方框中的文字从左向右移动。
7．单击下面的某一按钮，方框中的文字格式和速度能相应地改变。
8．界面和属性由学生自行设计和设置（界面设计要合理、美观，属性设置用表格完成，包括对象名、属性名和属性值）。
四、试验用仪器设备、器材或软件环境
计算机、windowsxp、VisalBasic6.0
五、实验方案设计
1、界面设计
2、属性设置
控件
Caption
属性
值
Text
Text1
无
Font
宋体
2008北京奥运会
Option1
宋体
Font
宋体
无
Option2
黑体
Font
宋体
无
Option3
楷体
Font
宋体
无
Option4
小号
Font
宋体
无
Option5
中号
Font
宋体
无
Option6
大号
Font
宋体
无
Option7
慢速
Font
宋体
无
Option8
中速
Font
宋体
无
Option9
快速
Font
宋体
无
Check1
粗体
Font
宋体
无
Check2
斜体
Font
宋体
无
Check3
下划线
Font
宋体
无
Timer1
无
Interval
250
无
3、流程图
开始
字形
字号
3、实验代码
DimtxtAsString,nAsInteger,kAsInteger
PrivateSubCheck1_Click（）
IfCheck1.Value=1Then
Text1.FontBold=True
Else
Text1.FontBold=False
EndIf
EndSub
PrivateSubCheck2_Click（）
IfCheck2.Value=1Then
Text1.FontItalic=True
Else
Text1.FontItalic=False
EndIf
EndSub
PrivateSubCheck3_Click（）
IfCheck3.Value=1Then
Text1.FontUnderline=True
Else
Text1.FontUnderline=False
EndIf
EndSub
PrivateSubForm_Load（）
n=0
txt="2008年世界奥运会在中国北京市隆重举行"
k=Len（txt）
EndSub
PrivateSubOption1_Click（）
Text1.FontName="宋体"
EndSub
PrivateSubOption2_Click（）
Text1.FontName="黑体"
EndSub
PrivateSubOption3_Click（）
Text1.FontName="楷体"
EndSub
PrivateSubOption4_Click（）
Text1.FontSize=12
EndSub
PrivateSubOption5_Click（）
Text1.FontSize=24
EndSub
PrivateSubOption6_Click（）
Text1.FontSize=36
EndSub
PrivateSubOption7_Click（）
Timer1.Interval=375
EndSub
PrivateSubOption8_Click（）
Timer1.Interval=250
EndSub
PrivateSubOption9_Click（）
Timer1.Interval=15
EndSub
PrivateSubTimer1_Timer（）
n=n+1
Ifn<=kThen
Text1.Text=Right（txt,n）
Else
n=0
Text1.Text=""
EndIf
EndSub
六、实验结果
实验项目第二部分
一、实验目的
学会综合运用选择结构、循环结构和数组进行程序设计的方法。
二、实验内容
利用随机函数产生60个100～200之间的随机整数，将其中的偶数按由小到大的顺序排列并输出。
三、实验要求
1．将随机产生的60个整数存入数组，按每行10个数输出到窗体或文本框中。
2．将偶数也存入另一个数组，排好序的偶数输出到窗体或文本框中。
3．界面和属性由学生自行设计和设置（界面设计要合理、美观，属性设置用表格完成，包括对象名、属性名和属性值）。
四、试验用仪器设备、器材或软件环境
计算机、windowsxp、VisalBasic6.0
五、实验方案设计
1、界面设计
2、属性设置
控件
Caption
属性
值
Text
Conmand1
处理
Font
宋体
无
3、流程图
产生60个随机数
4、实验代码
PrivateSubCommand1_Click（）
Dima（1To60）AsInteger,iAsInteger,jAsInteger,b（1To70）AsInteger
Randomize
Print"原始数据"
Forj=1To60
a（j）=Int（101*Rnd+100）
Printa（j）;
IfjMod10=0ThenPrint
Ifa（j）Mod2=0Thenk=k+1:
b（k）=a（j）
Nextj
Print
Fori=1Tok-1
Forj=i+1Tok
Ifb（i）>b（j）Then
t=b（i）:
b（i）=b（j）:
b（j）=t
EndIf
Nextj
Nexti
Print"排序结果"
Forj=1Tok
Printb（j）;
IfjMod10=0ThenPrint
Nextj
EndSub
PrivateSubForm_Load（）
EndSub
六、实验结果
七、试验中存在的问题
（1）要使用框架把单选框复选框包起来
（2）。
注意在使用某个数组之前，一般要定义该数组
（3）把选出来的偶数要放入另外一个数组存起来
（4）排序代码要把60和59改成K和K-1
八、体会和思考
升级会员 