郑州大学VB实验报告书参考答案.docx

资源描述

郑州大学VB实验报告书参考答案.docx

《郑州大学VB实验报告书参考答案.docx》由会员分享，可在线阅读，更多相关《郑州大学VB实验报告书参考答案.docx（18页珍藏版）》请在冰豆网上搜索。

郑州大学VB实验报告书参考答案.docx

郑州大学VB实验报告书参考答案

郑州大学VB实验报告书参考答案。

。

以下内容均来自XX文库，所以仅供参考。

。

不过经亲自测试习题及实验

（一）的答案基本正确，除了实验题的3，4小题没有改字形字体颜色什么的。

。

实验一

一、选择题

DDBAB,C（CD）DDC,ADDCA

二、填空题

Windows

中断

工具箱

代码

分类

form2.show

有语法错误

错误

事件

结构化

文件名和结构

工程

编写代码

双击任意控件或右健快捷菜单选“代码窗口”

vb的安装文件夹

属性

方法

font

load

对象

三、编程

1-1

PrivateSubCommand1_Click（）

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

EndSub

1-2

PrivateSubCommand2_Click（）

Fori=100To110

PrintSqr（i）

Nexti

EndSub

1-3（基本设置在属性窗口完成！

）

PrivateSubCommand3_Click（）

Print"郑州大学在前进!

EndSub

1-4（基本设置在属性窗口完成！

）

PrivateSubCommand4_Click（）

Label1="蓝天、白云、绿水、青山"

EndSub

实验二

一

BCBCC,CBBDA,CCCBA,CBDCC

二

form_click（）

interval,5000

vbp,frm

top,left,height,width,像素

picture

load

locked

font,alignment

gotfocus,lostfocus

属性窗口，代码

三

2-1

PrivateSubCommand1_Click（）

Label3=Text1*Text2

EndSub

PrivateSubCommand2_Click（）

Label3=Text1/Text2

EndSub

2-2

PrivateSubCommand1_Click（）

Picture1.Visible=True

Picture1=LoadPicture（"C:

\DocumentsandSettings\AllUsers\Documents\MyPictures\示例图片\Waterlilies.jpg"）

EndSub

PrivateSubCommand2_Click（）

Picture1.Visible=True

Picture1=LoadPicture（"C:

\DocumentsandSettings\AllUsers\Documents\MyPictures\示例图片\Winter.jpg"）

EndSub

PrivateSubCommand3_Click（）

Picture1.Visible=False

EndSub

2-3

PrivateSubCommand1_Click（）

Label3=Text1*Text2

EndSub

2-4

PrivateSubCommand1_Click（）

Text2=Text1

EndSub

PrivateSubCommand2_Click（）

Text1=""

Text2=""

EndSub

PrivateSubText1_Change（）

Command1.Visible=True

Command2.Visible=True

EndSub

2-5

PrivateSubCommand1_Click（）

Timer1.Interval=500

EndSub

PrivateSubCommand2_Click（）

Timer1.Interval=0

EndSub

PrivateSubTimer1_Timer（）

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

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

EndSub

实验三

一

A（BC）（BC）AA,A（BCD）DBB,B

二

3，4，5，6，8，10，11，12，14，15，16

三

abs（x+y）

（3+x*y）^2

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

sin（30*3.14/180）+exp

（2）

四

int（rnd*71+20）

x*y<0

xmod3=0orxmod7=0

x>=10andx<20

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

left（s,3）或者,mid（s,1,3）

五

3-2

PrivateSubCommand1_Click（）

DimxAsSingle

x=Val（Text1）

PrintFormat（x^2,"##.000"）,Format（Sqr（x）,"##.000"）,Format（x^3,"##.000"）,Format（x^（1/3）,"##.000"）

EndSub

3-3

PrivateSubCommand1_Click（）

DimxAsInteger

x=Int（Rnd*900+100）

Text1=Trim（Str（x））

Text2=Right（Text1,1）+Mid（Text1,2,1）+Left（Text1,1）

EndSub

3-4

PrivateSubCommand1_Click（）

Dimmax,minAsInteger

min=Val（Text1）

max=Val（Text2）

Randomize

PrintInt（Rnd*（max-min+1）+min）,Int（Rnd*（max-min+1）+min）,Int（Rnd*（max-min+1）+min）

EndSub

3-5

PrivateSubCommand1_Click（）

Text1=Date

Text2=Time

Text3=WeekdayName（Weekday（Date））

EndSub

实验四

一

CDCDA,DBBAC

二

（1）48.71E-01,-4.8712

（2）关系，逻辑，数值

（3）900，100，mid（a,2,1）,c

（4）

1,2,3

printm&"月是第二季度"

endselect

三

（1）x=4 y=13

（2）10

四

4-1

PrivateSubCommand1_Click（）

Dimnum,a1,a2,a3AsSingle

num=Val（Text1）*180/3.14

a1=Int（num）

num=num-a1

a2=Int（num*60）

num=num*60-a2

a3=Format（num*60,"##.000"）

Printa1,a2,a3

EndSub

4-2

PrivateSubCommand1_Click（）

DimyAsInteger

y=Val（Text1）

If（yMod400=0OryMod4=0AndyMod100<>0）Then

MsgBoxy&"是闰年"

Else

MsgBoxy&"不是闰年"

EndIf

EndSub

4-3

PrivateSubCommand1_Click（）

Dimx,y,z,tAsInteger

x=Val（InputBox（"inputx:

"））

y=Val（InputBox（"inputy:

"））

z=Val（InputBox（"inputz:

"））

Ifx>yThent=x:

x=y:

y=t

Ify>zThen

t=y:

y=z:

z=t

Ifx>yThent=x:

x=y:

y=t

EndIf

Printx,y,z

EndSub

4-4

PrivateSubCommand1_Click（）

DimnettimeAsInteger,moneyAsSingle

nettime=Val（InputBox（"每月上网时数：

","上网费用"））

Ifnettime=-1Then

money=0

ElseIfnettime<10Then

money=25

ElseIfnettime<50Then

money=nettime*2

ElseIfnettime<100Then

money=nettime*1.5

ElseIfnettime<200Then

money=nettime

Else

money=200

EndIf

Ifmoney<>0ThenMsgBox"该月上网费用为"&money&"元"

实验五

一

BCBAC

二

（1）forx=1to10

s*（1-1/x）

（2）

t<1E-6

（3）

（4）

11 5

三

5-1

PrivateSubCommand1_Click（）

Dimi,sumAsInteger

sum=0

Fori=1To100

sum=sum+i

Nexti

Print"1+2+...+100=";sum

EndSub

5-2

PrivateSubCommand1_Click（）

Dimx,yAsInteger

Forx=0To20

Fory=0To33

If5*x+3*y+（100-x-y）/3=100Then

Printx,y,100-x-y

EndIf

Nexty

Nextx

EndSub

5-3

PrivateSubCommand1_Click（）

DimiAsInteger

i=7

IfiMod2=1AndiMod3=2AndiMod5=4AndiMod6=5AndiMod7=0Then

Printi

ExitDo

Else

i=i+7

EndIf

Loop

EndSub

5-4

PrivateSubCommand1_Click（）

Dimx,y,zAsInteger

Forx=1To9

Fory=1To9

Forz=0To9

If100*x+10*x+z+100*y+10*z+z=532Then

Printx,y,z

EndIf

Nextz

Nexty

Nextx

EndSub

5-5

PrivateSubCommand1_Click（）

DimsumAsSingle,nAsInteger

sum=1

DoWhilesum<=4

sum=sum*1.1

n=n+1

Loop

Print"经过";n;"年销售收入翻两番"

EndSub

5-6

PrivateSubCommand1_Click（）

Dimsum,i,nAsInteger

sum=0

n=Val（InputBox（"请输入n的值：

"））

Fori=1Ton

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

Nexti

Print"1-2+3-4+...=";sum

EndSub

5-7

PrivateSubCommand1_Click（）

Dimsum,isum,i,nAsInteger

sum=0

isum=0

n=Val（InputBox（"请输入n的值：

"））

Fori=1Ton

isum=isum+i

sum=sum+isum

Nexti

Print"1+（1+2）+（1+2+3）+...=";sum

EndSub

5-8

PrivateSubCommand1_Click（）

Dimpi,tiAsSingle

DimiAsInteger

pi=0

ti=1

i=1

DoWhileAbs（ti）>=0.0001

ti=（-1）^（i+1）/（2*i-1）

pi=pi+ti

i=i+1

Loop

EndSub

5-9

PrivateSubCommand1_Click（）

Dimi,j,kAsInteger

Print"水仙花数有：

Fori=1To9

Forj=0To9

Fork=0To9

Ifi*100+j*10+k=i^3+j^3+k^3Then

Printi,j,k

EndIf

Nextk

Nextj

Nexti

EndSub

5-10

PrivateSubCommand1_Click（）

Dimi,j,kAsInteger

k=0

Fori=999To100Step-1

Forj=2ToInt（Sqr（i））

IfiModj=0ThenExitFor

Nextj

Ifj=Int（Sqr（i））+1Thenk=k+1:

Printi

Ifk=3ThenExitFor

Nexti

EndSub

5-11

PrivateSubCommand1_Click（）

Dimi,n,min,maxAsInteger

DimaverAsSingle

min=100

max=50

Fori=1To20

n=Int（Rnd*（99-51）+51）

Printn;

IfiMod5=0ThenPrint

Ifn>maxThenmax=n

Ifn

aver=aver+n

Nexti

Print"max=";max

Print"min=";min

Print"average=";aver/20

EndSub

5-12

PrivateSubCommand12_Click（）

Dimi,jAsInteger

Fori=1To5

Forj=1To（2*i-1）

PrintTab（20-i+j）;"*";

Nextj

Nexti

EndSub

实验六

一

BCCCDDDDCA

二、

6-1

OptionBase1

PrivateSubCommand1_Click（）

Dimia（10）AsInteger

DimMax,min,averAsInteger,iMax,iminAsInteger

Fori=1To10

ia（i）=Int（Rnd*51+50）

Printia（i）;

Nexti

Max=ia

（1）:

iMax=1

min=ia

（1）:

imin=1

aver=ia

（1）

Fori=2To10

aver=aver+ia（i）

Ifia（i）>MaxThenMax=ia（i）:

iMax=i

Ifia（i）

imin=i

Nexti

Print"max=";Max,"imax=";iMax

Print"min=";min,"imin=";imin

Print"aver=";aver/10

EndSub

6-2

PrivateSubCommand1_Click（）

Dimia（20）,num（5）AsInteger

DimMax,min,averAsInteger,iMax,iminAsInteger

Fori=1To20

ia（i）=Int（Rnd*101）

Printia（i）;

SelectCaseia（i）

CaseIs<60

num

（1）=num

（1）+1

Case60To69

num

（2）=num

（2）+1

Case70To79

num（3）=num（3）+1

Case80To89

num（4）=num（4）+1

Case90To100

num（5）=num（5）+1

EndSelect

Nexti

Print"各分数段的人数分别是（0~59,60~69,70~79,80~89,90~100）：

Fori=1To5

Printnum（i）;

Nexti

EndSub

6-3

PrivateSubCommand1_Click（）

Dima（10）AsInteger,t%

Fori=1To10

a（i）=Int（Rnd*51）

Printa（i）;

Nexti

Fori=1To9

Forj=i+1To10

Ifa（i）

a（i）=a（j）:

a（j）=t

Nextj

Nexti

Print"排序后：

Fori=1To10

Printa（i）;

Nexti

EndSub

6-4

PrivateSubCommand1_Click（）

Dima（20）AsInteger,t%

Fori=1To20

a（i）=Int（Rnd*51）

Printa（i）;

If（i+1）Mod5=0ThenPrint

Nexti

EndSub

6-5

PrivateSubCommand1_Click（）

Dima（9）,b（3,3）AsInteger,s%,t%

Fori=1To9

a（i）=Int（Rnd*101）

Printa（i）;

IfiMod3=0Then

t=3:

s=i/3

Else

t=iMod3:

s=i\3+1

EndIf

b（s,t）=a（i）

Nexti

Fori=1To3

Forj=1To3

Printb（i,j）;

Nextj

Nexti

EndSub

6-6

PrivateSubCommand1_Click（）

Dima（）AsInteger

n=InputBox（"n=?

"）

ReDima（n,n）

Fori=1Ton

Forj=1Ton

a（i,j）=Int（Rnd*10）

Printa（i,j）;

Nextj

Nexti

EndSub

6-7

PrivateSubCommand1_Click（）

Dima（）AsInteger

n=InputBox（"n=?

"）

ReDima（n,n）

Fori=1Ton

a（i,i）=1

Nexti

Fori=1Ton

Forj=1Ton

Printa（i,j）;

Nextj

Nexti

EndSub

6-8

PrivateSubCommand1_Click（）

Dimia（）AsInteger

DimMaxAsInteger,iMax,jmaxAsInteger

m=InputBox（"m=?

"）

n=InputBox（"n=?

"）

ReDimia（m,n）

Max=0:

iMax=0:

jmax=0

Fori=1Tom

Forj=1Ton

ia（i,j）=Int（Rnd*101）

Printia（i,j）;

Ifia（i,j）>MaxThenMax=ia（i,j）:

iMax=i:

jmax=j

Nextj

Nexti

Print"max=";Max,"imax=";iMax,"jmax=";jmax

EndSub

实验七

一

CCDABDDAAA

二

（1）n！

（2）1到n累加和

（3）n是否是素数

（4）冒泡排序

（5）递归调

展开阅读全文

郑州大学VB实验报告书 参考 答案.docx

郑州大学VB实验报告书参考答案.docx