VB实验报告.docx
《VB实验报告.docx》由会员分享，可在线阅读，更多相关《VB实验报告.docx（20页珍藏版）》请在冰豆网上搜索。
VB实验报告
内蒙古工业大学信息工程学院
实验报告
课程名称：
高级语言程序设计（VB）Ⅲ
实验名称：
常用控件、选择、循环和数组综合程序设计
实验类型：
验证性□综合性√设计性□
实验室名称：
班级：
学号：
姓名：
组别：
同组人：
成绩：
实验日期：
实验报告撰写要求
一、实验前用预习报告纸撰写预习报告，预习报告包括以下内容
1．实验目的
2．实验用仪器设备、器材或软件环境
3．实验原理、方案设计、程序框图、预编程序等
4．实验过程中需要记录的实验数据表格
二、实验过程中，要认真观察，仔细记录
三、完成实验后用实验报告纸撰写实验报告，包括以下内容
1．仪器设备型号及编号
2．实验器材或软件环境
3．实验步骤、程序调试方法
4．实验数据处理及结果分析
5．实验中存在的问题
6．体会及思考题
四、报告撰写时，要求格式规范、书写整齐
预习报告成绩：
指导教师审核（签名）：
年月日
预习报告
一、实验题目：
常用控件、选择、循环、和数组综合程序设计.
二、实验目的：
（1）部分：
学会综合运用常用控件进行程序设计的
方法。
（2）部分：
学会综合运用选择结构、循环结构和数
组进行程序设计的方法。
三、实验用仪器设备、器材或软件环境：
1、仪器设备器材：
学校机房计算机
2、软件环境：
VisualBasic6.0
四、实验内容：
（1）部分：
设计一个能控制字体、字号、字形和速度的滚动字幕程序。
（2）部分：
利用随机函数60个100-200之间的随机整数，将其中的偶数按由小到大的顺序排列并输出。
五、实验要求：
（1）部分：
1、显示字幕的方框可以用标签或者文本框。
2、字体包含宋体、黑体、楷体3种，分别用3个单选按钮表示（用框架控件包住）。
3、字号包括小号字、中号字、大号字3种，分别用3个单选按钮表示（用框架控件包住）。
4、字形包括粗体、斜体和下划线3种，分别用3个复选框表示（用框架控件包住）。
5、速度包括慢速、中速和快速3种分别用3个单选按钮表示（用框架控件包住）。
6、程序运行后，方框中的文字从左向
右移动。
7、单击下面的某一按钮，方框中的
字格式和速度能相应地改变。
8、界面和属性由学生自行设计和设置
（2）部分：
1、将随机产生的60个整数存入数组，
按每行10个数输出到窗体或文本
框中。
2、将偶数也存入另一个数组，排好序
3、界面和属性由学生自行设计。
六、方案设计
（1）部分：
1、界面设计：
2、属性设置：
各控件的属性设置
控件名称
属性
属性值
Text
Caption
Frame1
Caption
字体
Frame2
Caption
字号
Frame3
Caption
字形
Frame4
Caption
速度
Option1
Caption
宋体
Option2
Caption
黑体
Option3
Caption
楷体
Option4
Caption
小号字
Option5
Caption
中号字
Option6
Caption
大号字
Option7
Caption
慢速
Option8
Caption
中速
Option9
Caption
快速
Check1
Caption
粗体
Check2
Caption
斜体
Check3
Caption
下划线
Form1
Caption
3、流程图：
（2）部分：
1、界面设计：
2、属性设置：
各控件的属性设置
控件名称
属性
属性值
说明
Command1
Caption
计算
命令按钮名称
Form1
Caption
窗体名称
3、流程图
七、预编代码：
（1）部分：
（2）部分：
七、实验结果：
（1）部分
（2）部分：
实验报告成绩：
指导教师审核（签名）：
年月日
实验报告
实验项目第一部分
一、实验目的
学会综合运用常用控件进行程序设计的方法。
二、实验内容
设计一个能控制字体、字号、字形和速度的滚动字幕程序。
三、实验要求
1．显示字幕的方框可以用标签或文本框。
2．字体包含宋体、黑体和楷体3种，分别用3个单选按钮表示（用框架控件包住）。
3．字号包含小号字、中号字和大号字3种，分别用3个单选按钮表示（用框架控件包住）。
4．字形包含粗体、斜体和下划线3种，分别用3个复选框表示（用框架控件包住）。
5．速度包含慢速、中速和快速3种，分别用3个单选按钮表示（用框架控件包住）。
6．程序运行后，方框中的文字从左向右移动。
7．单击下面的某一按钮，方框中的文字格式和速度能相应地改变。
8．界面和属性由学生自行设计和设置（界面设计要合理、美观，属性设置用表格完成，包括对象名、属性名和属性值）。
一、实验器材：
计算机系统
软件环境：
WindowsXP,VB6.0
二、实验步骤、程序调试方法
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="dfdggfdgdfgggdfgsdgfdsgfdgfbcvbvcxbf"
k=Len（txt）
EndSub
PrivateSuboption1_Click（）
IfOption1.Value=TrueThen
Text1.FontName="宋体"
EndIf
EndSub
PrivateSubOption2_Click（）
IfOption2.Value=TrueThen
Text1.FontName="黑体"
EndIf
EndSub
PrivateSubOption3_Click（）
IfOption3.Value=TrueThen
Text1.FontName="楷体_2312"
EndIf
EndSub
PrivateSubOption4_Click（）
IfOption4.Value=TrueThen
Text1.FontSize=15
EndIf
EndSub
PrivateSubOption5_Click（）
IfOption5.Value=TrueThen
Text1.FontSize=25
EndIf
EndSub
PrivateSubOption6_Click（）
IfOption6.Value=TrueThen
Text1.FontSize=35
EndIf
EndSub
PrivateSubOption7_Click（）
IfOption7.Value=TrueThen
Timer1.Interval=1000
EndIf
EndSub
PrivateSubOption8_Click（）
IfOption8.Value=TrueThen
Timer1.Interval=600
EndIf
EndSub
PrivateSubOption9_Click（）
IfOption9.Value=TrueThen
Timer1.Interval=400
EndIf
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,VB6.0
二、实验步骤、程序调试方法
实验过程中
错误程序：
PrivateSubCommand1_Click（）
Dims%（1To60）,i%,j%
Randomize
Cls
Fori=1To60
s（i）=Int（101*Rnd+100）
Text1=Text1.Text&""&s（i）
IfiMod10=0ThenText1=Text1.Text&vbCrLf
Ifs（i）Mod2=0Thenk=k+1:
s（k）=s（i）
Nexti
Fori=1Tok
Text2=Text2.Text&""&s（i）
IfiMod10=0ThenText2=Text2.Text&vbCrLf
Nexti
Fori=kTo2Step-1
Forj=1Toi-1
Ifs（j）>s（j+1）Thentemp=s（j）:
s（j）=s（j+1）:
s（j+1）=temp
Nextj
NextI
EndSub
错误原因：
过程中，发现实验结果不符合要求，其中，每行输出并不是10个数，再则，实验结果数字并不是按照要求从小到大依次排列输出。
实验结果
正确如下:
7
PrivateSubCommand1_Click（）
Dims%（1To60）,i%,j%
Randomize
Print"60个100-200的随机整数"
Fori=1To60
s（i）=Int（101*Rnd+100）
Prints（i）;
IfiMod10=0ThenPrint
Ifs（i）Mod2=0Thenk=k+1:
s（k）=s（i）
Nexti
Print"其中的偶数"
Fori=1Tok
Prints（i）;
IfiMod10=0ThenPrint
Nexti
Print
Print"从小到大排列后的偶数"
Fori=kTo2Step-1
Forj=1Toi-1
Ifs（j）>s（j+1）Thentemp=s（j）:
s（j）=s（j+1）:
s（j+1）=temp
Nextj
Nexti
Fori=1Tok
Prints（i）;
IfiMod10=0ThenPrint
Nexti
EndSub
四、实验中存在的问题：
（1）部分：
使用Print方法输出数据错误。
循环
语句使用错误，导致程序不能正常运行。
（2）部分:
运行过程中，发现实验结果不符合要
求，其中，每行输出并不是10个数，
再则，实验结果数字并不是按照要求
从小到大依次排列输出。
五、体会及思考题：
通过这次实验，我初步掌握了综合运用常用控件进行程序设计的方法。
以及综合运用选择结构、循环结构和数组进行程序设计的方法。
经过多次实验，我明白了实验需要有耐心，细心才能做好。
尝试了做实验的艰难，为我以后继续做实验奠定了基础。
本次实验对我很有意义，使我对计算机有了进一步的了解。
升级会员 