vb实验报告答案全21.docx

vb实验报告答案全21.docx

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

vb实验报告答案全21

实验一问答题：

1、答：

常见的有visualBasic、C++、Java、SQL。

用途特点：

（参考课本4-5页）

2、答：

代码是一行或几行命令。

程序是针对某个任务编写的有序代码的集合。

软件是程序和文档的集合。

它们的关系是：

代码<程序<软件

3、答：

面向对象程序设计中的每一个对象都应该能够接受数据、处理数据并将数据传达给其它对象，因此它们都可以被看作一个小型的“机器”，即对象。

它能够让人们更简单地设计并维护程序，使得程序更加便于分析、设计、理解。

4、答：

参考课本第9页

5、答：

类——是创建对象实例的模板,包含了创建对象的属性描述和行为特征的定义。

对象——是类的一个实例，继承了类的属性、方法。

控件——是具有图形界面的对象，它同样具有属性、方法、事件，是用来设计用户界面的重要元素。

属性——是对象的性质，用来描述和反应对象特征的参数。

事件——响应对象的动作，它发生在用户与程序交互时。

如单击控件、鼠标移动、键盘按下。

过程——指附在该对象上的程序代码，是事件的处理程序。

6、答：

参考课本12页到17页。

实验二问答题：

1、答

通用属性有：

Caption标题、Enabled可用性、Visible可见性、ForeColor前景颜色、BackColor背景颜色等。

2、答

标签label是用来显示信息的，不具有输入功能。

属性有Caption、BackStyle、Alignment、BorderStyle、AutoSize。

文本框用来输入、输出数据，编辑文本。

属性有Text、Maxlength、MultiLine、ScrollBars、Locked、PassWord。

3、答

结果为：

标签里显示一个“abc”，图片框里显示3行“欢迎您”。

4、答

要保存2次，分别是工程文件.vbp和窗体文件.frm。

实验一：

一、选择

1.D2.D3.B4.A5.B

6.C7.CD8.D9.D10.编程机制是C、设计方式是B

11.A12.D13.D14.C15.A

二、填空

1.windows2.中断3.工具箱4.代码5.分类

6.form2.show7.出现语法错误8.错9.事件10.面向对象11.工程文件结构及各文件名12.工程13.设计程序代码14.双击窗体15.vb的安装文件夹16.属性17.方法18.font19.form_load（）20.对象

1.PrivateSubCommand1_Click（）

PrintSqr（8）,8^（1/3）

EndSub

2.PrivateSubCommand1_Click（）

Fori=100To110

PrintSqr（i）

Nexti

EndSub

3.PrivateSubForm_Load（）

Print

Print"郑州大学在前进！

"

EndSub

4.PrivateSublabel_click（）

Print

Label.caption=”蓝天白云绿水青山”

Endsub

实验二：

一、选择

1.B2.C3.B4.C5.C

6.C7.B8.B9.D10.A

11.C12.C13.C14.B15.A

16.C17.B18.D19.C20.C

二、填空

1.Form_Click（）2.Interval、5003..vbp.frm

4.lefttopHeight、Widthtwip5.picture

6.load7.locked8.fontAlignment

9.GotFocus（）LostFocus（）10.属性窗口程序代码

1.PrivateSubCommand1_Click（）

Label3=Val（Text1）*Val（Text2）

EndSub

PrivateSubCommand2_Click（）

Label3=Val（Text1）/Val（Text2）

EndSub

2.PrivateSubCommand1_Click（）

Picture1.Visible=True

Picture1.Picture=LoadPicture（"d:

\tu1.jpg"）

EndSub

PrivateSubCommand2_Click（）

Picture1.Visible=True

Picture1.Picture=LoadPicture（"d:

\tu2.jpg"）

EndSub

PrivateSubCommand3_Click（）

Picture1.Visible=False

'也可以改为：

Picture1.Picture=LoadPicture（""）

EndSub

3.PrivateSubCommand1_Click（）

Label3=Val（Text1）*Val（Text2）

EndSub

4.PrivateSubCommand1_Click（）

Text2=Text1

EndSub

PrivateSubCommand2_Click（）

Text1=""

Text2=""

EndSub

PrivateSubForm_Load（）

Command1.Visible=False

Command2.Visible=False

EndSub

PrivateSubText1_Change（）

Command1.Visible=True

Command2.Visible=True

EndSub

5.PrivateSubForm_Load（）

Image1.Picture=LoadPicture（"d:

\tu3.jpg"）

EndSub

PrivateSubCommand1_Click（）

Timer1.Enabled=True

EndSub

PrivateSubCommand2_Click（）

Timer1.Enabled=False

EndSub

PrivateSubTimer1_Timer（）

Image1.Left=Int（Rnd*（Form1.ScaleWidth-Image1.Width））

Image1.Top=Int（Rnd*（Form1.ScaleHeight-Image1.Height））

End

实验三：

一、选择

1.A2.BC3.BC4.A5.A

6.A7.BCD8.D9.B10.B11.B

二、判断题

不合法的变量：

3.4.5.6.8.10.11.14.15.16.

三、

1、abs（x+y）

2.（3+x*y）^2

3.（-b+sqr（b^2-4*a*c））/（2*a）

4.sin（30*3.14/180）+exp

（2）

四、

1.int（rnd*71+20）或int（rnd*71）+20

2.x<0andy>0orx>0andy<0或者x*y<0

3.xmod3=0orxmod7=0

或x/3=x\3orx/7=x\7

4.x>=10andx<20

5.x>="A"andx<="Z"

6.left（s,3）或mid（s,1,3）

操作题：

2.PrivateSubCommand1_Click（）

Dimn%

n=Abs（Val（Text1））

Label2=Format（n^2,"#.000"）&Space

（2）&Format（Sqr（n）,"#.000"）&Space

（2）&Format（n^3,"#.000"）&Space

（2）&Format（n^（1/3）,"#.000"）

'上句的输出也可以用下面的print方式:

'PrintFormat（n^2,"#.000"）;Spc

（2）;Format（Sqr（n）,"#.000"）;Spc

（2）;Format（n^3,"#.000"）;Spc

（2）;Format（n^（1/3）,"#.000"）

EndSub

3.PrivateSubCommand1_Click（）

Dimx%,y%

x=Int（Rnd*900+100）

Print"产生的随机数：

";x

y=（xMod10）*100+（x\10Mod10）*10+x\100

Print"反序数：

";Format（y,"000"）

EndSub

PrivateSubCommand2_Click（）

Dimx%,yAsString

x=Int（Rnd*900+100）

Print"产生的随机数：

";x

y=Trim（Str（x））

Print"反序数：

"&Right（y,1）&Mid（y,2,1）&Left（y,1）

EndSub

4.PrivateSubCommand1_Click（）

Dimm%,n%

Randomize

m=Val（Text1）:

n=Val（Text2）

x=Int（Rnd*（n-m）+m）

y=Int（Rnd*（n-m）+m）

z=Int（Rnd*（n-m）+m）

Label3=m&"到"&n&"之间的3个随机数为:

"&x&Space（3）&y&Space（3）&z

EndSub

5.PrivateSubCommand1_Click（）

Label1.Caption=Date

EndSub

PrivateSubCommand2_Click（）

Label2.Caption=Time

EndSub

PrivateSubCommand3_Click（）

Label3.Caption=WeekdayName（Weekday（Date））

EndSub

实验四：

一、选择

1.C2.D3.C4.D5.A

6.D7.B8.B9.A10.C

二、填空

1.48.71E-01,-4.87122.关系、逻辑、算术

3.900，100，mid（s,2,1）

4.m、1,2,3、printm&"月是第二季度"、endselect

三、程序结果

1.X=4y=13

2.10

操作题：

1.方法一：

PrivateSubCommand1_Click（）

x=InputBox（"请输入弧度数值","弧度转换",0）

xx=Val（x）

a=x*180/3.14

aa=Int（a）

b=（a-aa）*60

bb=Int（b）

c=（b-bb）*60

cc=Format（c,"#.000"）

MsgBox"弧度"&x&"转换为"&aa&"度"&bb&"分"&cc&"秒"

EndSub

方法二：

OptionExplicit

PrivateSubCommand1_Click（）

Dimx!

a!

aa%,b!

bb%,c!

cc$

x=Val（Text1）

a=x*180/3.14

aa=Int（a）

b=（a-aa）*60

bb=Int（b）

c=（b-bb）*60

cc=Format（c,"#.000"）

Label2="弧度"&Text1&"转换为"&aa&"度"&bb&"分"&cc&"秒"

EndSub

2.PrivateSubCommand1_Click（）

Dimx%

x=Val（Text1）

Ifx/400=x\400OrxMod4=0AndxMod100<>0Then

Label2=Text1&"年是闰年"

Else

Label2=Text1&"年不是闰年"

EndIf

EndSub

3.PrivateSubCommand1_Click（）

Dimx%,y%,z%

x=InputBox（"输入第一个数"）

y=InputBox（"输入第二个数"）

z=InputBox（"输入第三个数"）

Print"输入的数是：

";x;y;z

Ifx>yThent=x:

x=y:

y=t

Ify>zThent=y:

y=z:

z=t

Ifx>yThent=x:

x=y:

y=t

Print"排序结果是：

";x;y;z

EndSub

4.方法一：

PrivateSubCommand1_Click（）

x=Val（InputBox（"请输入上网时间:

"））

Ifx<>-1Then

SelectCasex

CaseIs<10

fei=25

Case10To50

fei=x*2

Case50To100

fei=x*1.5

CaseIs>=100

fei=x*1

EndSelect

MsgBox"上网费用为:

"&fei&"元"

EndIf

EndSub

PrivateSubCommand2_Click（）

End

EndSub

方法二：

PrivateSubCommand1_Click（）

Do

x=Val（InputBox（"请输入上网时间:

",,-1））

Ifx<>-1Then

SelectCasex

CaseIs<10

fei=25

Case10To50

fei=x*2

Case50To100

fei=x*1.5

CaseIs>=100

fei=x*1

EndSelect

zongfei=zongfei&Space（3）&fei

MsgBoxzongfei,,"上网费用为"

Else

ExitDo

EndIf

Loop

EndSub

PrivateSubCommand2_Click（）

End

EndSub

实验五

一、选择

BCBAC

二、填空

（1）forx=2to10

s*（1-1/x）

（2）1t>1E-6

（3）jt

（4）5115

1.PrivateSubCommand1_Click（）

Forn=1To100

s=s+n

Nextn

Prints

EndSub

PrivateSubCommand2_Click（）

n=1

DoWhilen<=100

s=s+n

n=n+1

Loop

Prints

EndSub

2.PrivateSubCommand1_Click（）

Fori=0To20

Forj=0To33

Ifi*5+j*3+1/3*（100-i-j）=100ThenPrinti,j,100-i-j

Nextj

Nexti

EndSub

3.PrivateSubCommand1_Click（）

n=0

Do

IfnMod2=1AndnMod3=2AndnMod5=4AndnMod6=5AndnMod7=0ThenExitDo

n=n+1

Loop

Printn

EndSub

4.'已知x,y,z分别是0~9中的一个数，求x,y,z的值，使得xxz+yzz=532.

PrivateSubCommand1_Click（）

Dimx%,y%,z%,i%,j%

Forx=0To9

Fory=0To9

Forz=0To9

If（x*100+x*10+z）+（y*100+z*10+z）=532ThenPrintx,y,z

Next

Next

Next

EndSub

PrivateSubCommand2_Click（）

Forx=0To9

Fory=0To9

Forz=0To9

IfVal（x&x&z）+Val（y&z&z）=532ThenPrintx;y;z

Next

Next

Next

EndSub

5.PrivateSubCommand1_Click（）

x=Val（Text1）

y=x*4

n=0

DoWhilex<=y

x=x*（1+0.1）

n=n+1

Loop

Printx,n

EndSub

6.PrivateSubCommand1_Click（）

n=Val（InputBox（"输入计算到第几项:

",,0））

Fori=1Ton

s=s+（-1）^（i+1）*i

Next

Printn,s

EndSub

PrivateSubCommand2_Click（）

n=Val（InputBox（"输入计算到第几项:

",,0））

p=1

Fori=1Ton

s=s+p*i

p=-p

Next

Printn,s

EndSub

7.'s=（0+1）+（0+1+2）+（0+1+2+3）+（0+1+2+3+4）+……（0+1+2+3+4+……n）

PrivateSubCommand1_Click（）

Dimn%,s%

n=Val（InputBox（"输入计算到第几项:

",,0））

s=0:

t=0

Fori=1Ton

t=t+i

s=s+t

Nexti

Prints

EndSub

PrivateSubCommand2_Click（）

Dimn%,s%

n=Val（InputBox（"输入计算到第几项:

",,0））

s=0:

t=0

Fori=1Ton

t=0

Forj=1Toi

t=t+j

Next

s=s+t

Next

Prints

EndSub

8.PrivateSubCommand1_Click（）

DimsAsDouble,piAsDouble

n=1:

s=0

DoWhile1/（2*n-1）>=0.0001'也可以是DoUntil1/（2*n-1）<0.0001

s=s+（-1）^（n+1）*1/（2*n-1）

n=n+1

Loop

pi=4*s

Printpi

EndSub

9.'5-9:

输出所有的“水仙花数”.

'所谓的“水仙花数”是指一个3位数，其各位数字的立方和等于该数本身。

'例如153是一个水仙花数，因为153=1^3+5^3+3^3

PrivateSubCommand1_Click（）

Forn=100To999

k=Format（n）'或者k=Trim（Str（n））

Ifn=Left（k,1）^3+Mid（k,2,1）^3+Right（k,1）^3ThenPrintn

Next

EndSub

PrivateSubCommand2_Click（）

Forx=1To9

Fory=0To9

Forz=0To9

n=x*100+y*10+z

s=x^3+y^3+z^3

Ifn=sThenPrintn

Next

Next

Next

EndSub

10.'第10题的改造题-----求100至999之间的最大三个素数（的平均值）

PrivateSubCommand1_Click（）

Forn=999To100Step-1

Fori=2Ton-1

IfnModi=0ThenExitFor

Nexti

Ifi=nThen

Printn

s=s+n

k=k+1

EndIf

Ifk=3ThenExitFor

Nextn

Prints/3

EndSub

11.'随机产生20个（50，100）范围内的随机整数，

'显示他们当中的最大值、最小值和平均值

PrivateSubCommand1_Click（）

s=0:

Max=0:

Min=1000

Fori=1To20

x=Int（Rnd*49+51）'（50，100）即为[51，100），Int（Rnd*（100-51）+51）

Printx;

s=s+x

Ifx>MaxThenMax=x

Ifx

Nexti

aver=s/20

Print

Print"max=";Max,"min=";Min,"aver=";aver

EndSub

12.PrivateSubCommand1_Click（）

Fori=1To4

PrintTab（10-i）;

Forj=1To2*i-1

Ifj<=iThen

PrintFormat（j）;

Else

PrintFormat（2*i-j）;

EndIf

Next

Print

Next

EndSub