VB实验报告Word格式.docx

VB实验报告Word格式.docx

《VB实验报告Word格式.docx》由会员分享，可在线阅读，更多相关《VB实验报告Word格式.docx（17页珍藏版）》请在冰豆网上搜索。

一、实验前用预习报告纸撰写预习报告，预习报告包括以下内容

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

Option2

黑体

Option3

楷体

Option4

小号

Option5

中号

Option6

大号

Option7

慢速

Option8

中速

Option9

快速

Check1

粗体

Check2

斜体

Check3

下划线

Timer1

Interval

250

3、流程图

开始

字形

字号

4、预编代码

1、界面设计

2、属性设置

Conmand1

处理

产生60个随机数

实验报告成绩：

实验报告

实验项目第一部分

一、实验目的

二、实验内容

设计一个能控制字体、字号、字形和速度的滚动字幕程序。

三、实验要求

8．界面和属性由学生自行设计和设置（界面设计要合理、美观，属性设置用表格完成，包括对象名、属性名和属性值）。

四、试验用仪器设备、器材或软件环境

计算机、windowsxp、VisalBasic6.0

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

Text1.FontItalic=False

PrivateSubCheck3_Click（）

IfCheck3.Value=1Then

Text1.FontUnderline=True

Text1.FontUnderline=False

PrivateSubForm_Load（）

n=0

txt="

2008年世界奥运会在中国北京市隆重举行"

k=Len（txt）

PrivateSubOption1_Click（）

Text1.FontName="

宋体"

EndSub

PrivateSubOption2_Click（）

Text1.FontName="

黑体"

PrivateSubOption3_Click（）

楷体"

PrivateSubOption4_Click（）

Text1.FontSize=12

PrivateSubOption5_Click（）

Text1.FontSize=24

PrivateSubOption6_Click（）

Text1.FontSize=36

PrivateSubOption7_Click（）

Timer1.Interval=375

PrivateSubOption8_Click（）

Timer1.Interval=250

PrivateSubOption9_Click（）

Timer1.Interval=15

PrivateSubTimer1_Timer（）

n=n+1

Ifn<

=kThen

Text1.Text=Right（txt,n）

n=0

Text1.Text="

"

EndIf

六、实验结果

实验项目第二部分

3．界面和属性由学生自行设计和设置（界面设计要合理、美观，属性设置用表格完成，包括对象名、属性名和属性值）。

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

Nexti

排序结果"

Forj=1Tok

Printb（j）;

Nextj

七、试验中存在的问题

（1）要使用框架把单选框复选框包起来

（2）。

注意在使用某个数组之前，一般要定义该数组

（3）把选出来的偶数要放入另外一个数组存起来

（4）排序代码要把60和59改成K和K-1

八、体会和思考