vb实验3.docx

vb实验3.docx

《vb实验3.docx》由会员分享，可在线阅读，更多相关《vb实验3.docx（9页珍藏版）》请在冰豆网上搜索。

vb实验3

VB程序设计实验报告

实验日期：

2010.10.09

学号：

200801322姓名：

周少良成绩：

实验名称：

习题5-2,5-4

一、实验目的与要求

掌握数组的定义，使用方法，熟悉各种语法结构的用法。

二、实验内容

1.随机产生10个互不相同的二位正整数存放在一维数组中，求数组的最大值，平均值，能实现将数组按升序排列，并且使用inputbox插入一个新数据，使数组仍然按升序排列，结果显示在图片框中，程序运行状况如图所示

2.输入系列字符串，升序排列输出。

要求：

（1）每输入一个字符串，按回车键后即把该字符串放入到数组中，并输出在排序前的文本框text2中。

（2）单击“排序”按钮，字符数组升序排列，并在排序后的文本框text3中输出。

（3）程序运行后界面如图所示

三、实验步骤

5-2.在窗体上放置一个picture，和5个commandButton，分别编写代码即可。

5-4.

设置3个label，3个textbox，1个commandButton，编写相应的代码。

注意要把textbox的multline设置为TRUE，并把scrollbars值为2。

设计界面如图：

四、程序代码

5-2.

Dima（1To10）AsInteger

DimiAsInteger

Dimb（1To11）AsInteger

PrivateSubcmd1_Click（）

Randomize

DimnAsInteger

DimxAsInteger

DoWhilen<10

x=Int（Rnd*90+10）

Fori=1Ton

Ifx=a（i）ThenExitFor

Nexti

Ifi>nThen

n=n+1

a（n）=x

EndIf

Loop

pic1.Print"产生的一维数组为：

"

Fori=1To10

pic1.Printa（i）;

Nexti

pic1.Print

EndSub

PrivateSubcmd2_Click（）

DimmaxAsInteger

DimpAsInteger

Fori=1To10

Ifmax

max=a（i）

p=i

EndIf

Nexti

pic1.Print

pic1.Print"第"&p&"个元素"&max&"为最大元素"

pic1.Print

EndSub

PrivateSubcmd3_Click（）

DimsumAsInteger

DimaveAsSingle

Fori=1To10

sum=sum+a（i）

Nexti

ave=sum/10

pic1.Print

pic1.Print"产生的随机数的平均值为：

"&ave

pic1.Print

EndSub

PrivateSubcmd4_Click（）

DimjAsInteger

Fori=1To9

Forj=1To10-i

Ifa（j）>a（j+1）Then

temp=a（j）

a（j）=a（j+1）

a（j+1）=temp

EndIf

Nextj

Nexti

pic1.Print

pic1.Print"排序后的一维数组为：

"

Fori=1To10

pic1.Printa（i）;

Nexti

pic1.Print

EndSub

PrivateSubcmd5_Click（）

Dimb（1To11）AsInteger

DimjAsInteger

DimnAsInteger

n=Val（InputBox（"请输入一个正整数：

"））

Fori=1To9

Ifna（i）Then

p=i

Forj=11Top+1Step-1

b（j）=a（j-1）

Ifj

Nextj

b（p+1）=n

Forj=1Top

b（j）=a（j）

Nextj

EndIf

Ifn

（1）Then

Forj=11To2Step-1

b（j）=a（j-1）

Nextj

b

（1）=n

EndIf

Ifn>a（10）Then

Forj=1To10

b（j）=a（j）

Nextj

b（11）=n

EndIf

Nexti

pic1.Print

pic1.Print"插入后的一维数组为：

"

Fori=1To11

pic1.Printb（i）;

Nexti

pic1.Print

EndSub

5-4．

DimnAsInteger,s（）AsString

DimiAsInteger

PrivateSubcmd1_Click（）

n=i

DimjAsInteger,kAsInteger

DimaAsString

Fork=1Ton-1

Forj=1Ton-k

Ifs（j）>s（j+1）Then

a=s（j）

s（j）=s（j+1）

s（j+1）=a

EndIf

Nextj

Nextk

Forj=1Ton

txt3=txt3+s（j）+Chr（13）+Chr（10）

Nextj

EndSub

PrivateSubtxt1_KeyPress（KeyAsciiAsInteger）

IfKeyAscii=13Then

txt2.Text=txt2.Text+txt1.Text+Chr（13）+Chr（10）

i=i+1

ReDimPreserves（i）

s（i）=txt1.Text

txt1.Text=""

EndIf

EndSub

五、实验心得

此次的实验，虽然做的表较顺利，但是对于动态数组的定义和使用还是存在着许多的问题，看过书本才能解决，还需要多多的看书，自己钻研！