VB实验.docx

VB实验.docx

《VB实验.docx》由会员分享，可在线阅读，更多相关《VB实验.docx（18页珍藏版）》请在冰点文库上搜索。

VB实验

VB实验一

一、实验教程P16-27页

实验一、实验二、实验三

二、教材P38，习题5，6

三、选做题：

设计窗体，利用窗体print方法输出半径为10的面积

对象

属性

属性值

Form1

Caption

计算面积窗体

Form1

fontname

黑体

Form1

fontsize

20

Form1

forecolor

红色

Form1

backcolor

黄色

Command1

Caption

计算

Command2

Caption

退出

VB实验二

实验指导书

一、P28页实验四

二、P36-40页实验一，实验二，实验三

三、设计如下窗体：

通过文本框输入学生姓名，性别和成绩。

单击输出按钮，用标签myLabel4显示输出结果。

单击关闭按钮，退出

对象

属性

属性值

对象

属性

属性值

Form1

Caption

学生成绩管理

Text1

text

空白

myLabel1

Caption

姓名

Text2

text

空白

myLabel2

Caption

性别

Text3

text

空白

myLabel3

Caption

成绩

myLabel4

Caption

空格

Com1

Caption

输出

Com2

Caption

关闭

VB实验三

教材

1．P61页例4-1

2．P57页习题三6、（4）、（5）设计窗体，利用文本框输入变量，计算表达式的值。

3．通过三个文本框输入三角形三个边，计算面积用标签输出。

4、设计窗体：

用两个文本框输入两个整数，计算输出其和、差、积、商、余数。

VB实验四

1、教材P64例4-2

2．用两个文本框输入两个数，单击交换按钮实现两个数交换，单击关闭按钮，退出。

3、用inputbox（）输入两个数，用print方法输出它们的和、平均数。

4、用随即函数产生1-100之间两个整数，用标签输出和、差、积、商。

公式：

产生[N1,N2]间随机整数：

Int（（N2-N1+1）*Rnd（））+N1

5、用print方法显示当前的系统日期，时间，星期。

如：

2010年3月8日，10:

20:

20，星期五

6、输入一个千位的整型数，输出其千位、百位、十位、个位数。

（提示：

用算术运算符）

如：

输入2458，输出千位数2，百位数4，十位数5，个位数8

VB实验五

1、实验指导书：

P44页，实验一。

2、用两个文本框实现x输入，y输出。

if条件then

语句

Else

语句

Endif

3、用四个文本框输入四个数，计算最大值，用标签显示。

采用结构：

if条件then语句

4、用四个文本框输入四个数，从小到大排序，用标签显示。

采用结构：

if条件then语句

5、计算运费.规则如下:

50km以内:

运费=运量（t）*距离（km）*1（元）

50~100km:

运费=运量（t）*距离（km）*0.8（元）

101~300km:

运费=运量（t）*距离（km）*0.6（元）

300km以上:

运费=运量（t）*距离（km）*0.5（元）

采用结构：

SelectCase测试表达式

Case表达式表1

语句组1

Case表达式表2

语句组2

。

。

。

EndSelect

VB实验六

1、DoWhile条件

语句组

Loop

DoUntil条件

语句组

Loop

用以上两种形式，计算1+2+3+…+100

2、用for循环，计算x阶乘。

（用文本框输入整数x值）

3、利用for循环和inputbox（“输入成绩”,”输入窗口”,０）函数,输入1０名学生成绩，输出总分，和平均分

4、实验指导书P65调试第6、7题

5、实验指导书P66修改第8题的4,5行，输出*号为倒三角形。

6、用穷举法：

输出所有“水仙花数”，一个三位数=每位数立方和。

如153=13+53+33

VB实验七

1、采用下列三种方式给数组赋值，求最大值和最小值,用标签输出。

形式1x=Array（1,12,23,14,5,16,67,28,9,10）

形式2

Dimx（1to10）asinteger

PrivateSubText1_KeyPress（KeyAsciiAsInteger）

IfKeyAscii=13Then

i=i+1

x（i）=Val（Text1.Text）

Text1.Text=""

Printx（i）

EndIf

EndSub

形式3

Dimx（1To10）AsInteger

Fori=1To10

x（i）=Val（InputBox（"请输入数据","输入框",0））

NextI

求最大值和最小值参考算法：

max=x

（1）

min=x

（1）

Fori=2To10

Ifx（i）>MaxThenMax=x（i）

Ifx（i）

Nexti

PrintMax,min

2、输入10学生成绩给数组，输出他们的成绩，总分和平均分。

3、根据实验指导书：

P48题一。

4、根据实验指导书：

P62第4题。

5、根据实验指导书：

P66第9题。

VB实验八

1、实验指导书P67-70页，第11、12、13题。

2、填空并运行程序：

冒泡法排序

5、实验指导书51页，题三。

Dima（1To10）AsInteger

Fori=1To10

a（i）=__________（"输入数据","输入窗口",0）

Nexti

fori=1to9

forj=1to10-i

if______________then

t=a（j）

a（j）=a（j+1）

a（j+1）=t

Endif

Nextj

Nexti

Fori=1To10

________________

Nexti

4、利用控件数组设计下面窗体：

设计标签数组，在窗体load事件中设置caption属性；

设计文本框数组，在命令按钮单击事件中，利用循环计算总分。

然后计算平均分。

VB实验九

1、实验指导书P53，题一

2、用子程序、自定义函数过程:

计算:

3!

+5!

+7!

主程序调用Callsub1（实参）

子程序定义：

subsub1（形参）

。

。

。

Endsub

主程序调用：

fun（实参）

自定义函数：

functionfun（形参）

。

。

。

Fun=结果

Endfunction

3.用函数递归调用，输出Fibonaci数列前20项。

（参照教材P93）

4、编自定义函数,求数组中的最大数。

主程序：

Dimx（1To10）AsLong

Fori=1To10

x（i）=i+2

Nexti

Printmax（x（））

函数定义格式：

Functionmax（y（）asinteger）

语句

max=返回值

Endfunction

VB实验十

1：

实验指导书P79-86实验一、实验二

2.设计下列窗体，调试代码

通过属性窗口设置list1的list属性值。

参考代码：

List2.AddItemList1.text

List2.RemoveItemList2.ListIndex

List2.Clear

3．通过滚动条改变标签字体颜色和大小

（1）、设置标签：

标题,自动调整大小

（2）、字体颜色滚动条：

通过change事件改变颜色，从0到15.

（3）、字体大小滚动条：

通过scroll事件改变字体大小，从10点到60点

4．利用计时器实现气球升空。

在窗体上添加两个图片框控件Picture1~Picture2，在picture属性中添加红、蓝气球。

两个计时器Timer1、Timer2，令Interval1=10，Interval1=20。

程序代码为：

PrivateSubTimer1_Timer（）

Picture1.Top=Picture1.Top–10'气球上升

IfPicture1.Top<0Then

Picture1.Top=Form1.Height-Picture1.Height'气球1回到窗体下部

EndIf

EndSub

PrivateSubTimer2_Timer（）

Picture2.Top=Picture2.Top–10'气球上升

IfPicture2.Top<0Then

Picture2.Top=Form1.Height-Picture2.Height'气球2回到窗体下部

EndIf

EndSub

4．设计图片放大,缩小窗体，程序填空

Picture1:

显示操作信息

Image1的属性设置：

Stretch为True,BordeStyle为1

Height和Width均为1800

DimnAsInteger'n记录图片框中的输出项数

PrivateSubForm_Load（）

n=0'n赋初值

EndSub

PrivateSubCommand1_Click（）'单击“放大”按钮

Image1._____=Image1._____*1.25'图像宽度增大1.25倍

Image1._____=Image1._____*1.25'图像高度增大1.25倍

Picture1.Print"放大图片":

n=n+1

Ifn=10ThenPicture1.Cls:

n=0:

Image1.Height=1800:

Image1.Width=1800

EndSub

PrivateSubCommand2_Click（）'单击“缩小”按钮

Image1.Width=Image1.Width*0.75

Image1.Height=Image1.Height*0.75

Picture1.Print"缩小图片":

n=n+1

Ifn=10ThenPicture1.Cls:

n=0:

Image1.Height=1800:

Image1.Width=1800

EndSub

PrivateSubCommand3_Click（）'单击“还原”按钮

Picture1.Cls

Image1.Height=1800

Image1.Width=1800

EndSub

5．实验指导书P92-94题二

VB实验十一

1：

在D盘建立aaa文件夹。

将图片复制到此文件中。

设计下列窗体：

可以选择不同磁盘，文件夹，图片文件，用图片框显示。

在drive1的change事件中：

Dir1.Path=Drive1.Drive

在dir1的change事件中：

File1.Path=Dir1.PathFile1.Refresh

在file1的click事件中：

Text1.Text=File1.FileName

在text1的change事件中：

x=Dir1.Path+"\"+Text1.TextPicture1.Picture=LoadPicture（x）

2．利用菜单数组，设计如下菜单。

字体主菜单：

标题字体,名称:

ztmain，无索引，访问键（T）

黑体：

标题：

黑体，名称zt，索引号0，快捷键Ctrl+a

宋体：

标题：

宋体，名称zt，索引号1，快捷键Ctrl+b

隶书：

标题：

隶书，名称zt，索引号2，快捷键Ctrl+c

分隔线标题：

-，名称zt,索引号3

退出：

标题：

退出，名称zt，索引号4，快捷键Ctrl+d

字号主菜单：

标题字号,名称:

zhmain，无索引,访问键（H）

10号:

标题：

10号，名称zh，索引号0

20号:

标题：

20号，名称zh，索引号1

30号:

标题：

30号，名称zh，索引号2

字形主菜单：

标题字形,名称:

zxmain，无索引，访问键（X）

粗体:

标题：

粗体，名称zx，索引号0

斜体:

标题：

斜体，名称zx，索引号1

下划线:

标题：

下划线，名称zx，索引号2

粗体,斜体,下划线可复选.

在窗体load事件中，设置文本框默认值：

宋体，20号，红色字。

菜单click事件，字体、字号菜单参考代码：

SelectCaseIndex

Case0

Text1.FontName="黑体"

Case1

。

。

。

EndSelect

“字形”复选菜单参考代码：

SelectCaseIndex

Case0‘粗体复选菜单

Ifzx（Index）.Checked=TrueThen

zx（Index）.Checked=False

Text1.FontBold=False

Else

zx（Index）.Checked=True

Text1.FontBold=True

EndIf

Case1

。

。

。

EndSelect

3、实验指导书P101页习题1

VB实验十二

1、使用公用对话框，控制文本框的字体和颜色.

“工程”--“部件”—添加“MicrosoftCommonDialogControl6.0“对话框

设置：

公共对话框：

flags属性为&H3

HelpFile属性：

VBcmn96.hlp

HelpCommand属性：

&H9

CommonDialog1.ShowColor

CommonDialog1.ShowFont

Text1.FontName=CommonDialog1.FontName

Text1.FontSize=CommonDialog1.FontSize

Text1.ForeColor=CommonDialog1.Color

Text1.FontBold=CommonDialog1.FontBold

Text1.FontItalic=CommonDialog1.FontItalic

2．用进程条，设计一个安装程序窗体

“工程”--“部件”对话框中选择:

“MicrosoftWindowsCommonControls6.0"。

设置：

计时器初始值Enabled为false，Interval属性:

时间间隔100，用标签显示进程。

参考程序：

DimnAsInteger

PrivateSubCommand1_Click（）

Timer1.Enabled=True

EndSub

PrivateSubTimer1_Timer（）

n=n+5

Ifn<=ProgressBar1.MaxThen

ProgressBar1.Value=n

Else

MsgBox"安装完成！

"

Timer1.Enabled=False

EndIf

EndSub

3、设置如下窗体工具栏、状态栏。

首先建立Imagelist图像列表。

再设置工具栏和状态栏

参考代码：

PrivateSubToolbar1_ButtonClick（ByValButtonAsMSComctlLib.Button）

SelectCaseButton.Index‘按钮索引号或Button.key

Case1

CommonDialog1.ShowOpen

Case2

CommonDialog1.ShowSave

Case3

CommonDialog1.ShowColor

EndSelect

EndSub

4、编程将：

下面表中信息写入顺序文件d:

\file.txt文件中。

姓名

性别

年龄

政治面貌

籍贯

张三

男

18

团员

河北

李四

男

19

党员

吉林

王小红

女

20

党员

天津

参考代码：

Open“文件名”forinput/output/appendas#1

write#1,”abcd”,123,2+3将数据写入数据文件

print#1,”张三”,18将数据写入数据文件

Close#1

5、设计窗体，将文本框中数据写入文件随机文件D:

\data1，然后读出显示在图片框中。

完成代码填空。

PrivateSubCommand1_Click（）‘将文本框的内容写入随机文件

Open"d:

\data1"For________As_____

Put#1,____,Text1.Text

Put#1,____,Text2.Text

Put#1,____,Text3.Text

_________#1

EndSub

PrivateSubCommand2_Click（）‘从随机文件读出显示

DimxAsString,yAsString,zAsString

Open"d:

\data1"For________As#2

Get____,______,________

Get____,______,________

Get____,______,________

Picture1.Printx;Space

（2）;y;Space

（2）;z

Close______

EndSub