vb报告册答案高等教育出版社王贺明主编Word下载.docx

vb报告册答案高等教育出版社王贺明主编Word下载.docx

《vb报告册答案高等教育出版社王贺明主编Word下载.docx》由会员分享，可在线阅读，更多相关《vb报告册答案高等教育出版社王贺明主编Word下载.docx（23页珍藏版）》请在冰豆网上搜索。

16.C17.B18.D19.C20.C

1.Form_Click（） 

2.Interval、50003..vbp.frm

4.left 

top 

Height、Width 

twip 

5.picture

6.load 

7.locked 

8.font 

Alignment 

9.GotFocus（） 

LostFocus（） 

10.属性窗口 

程序代码

实验三：

1.A2.BC3.BC4.A5.A

6.A7.BCD8.D9.B10.B

11.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<

3.xmod3=0orxmod7=0

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

4.x>

=10andx<

20

5.x>

="

A"

andx<

Z"

6.left（s,3）

实验四：

1.C2.D3.C4.D5.A

6.D7.B8.B9.A10.C

1.48.71E-01,-4.8712 

2. 

关系、逻辑、算术

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

4.m、1,2,3、printm&

"

月是第二季度"

、endselect

1. 

X=4 

y=13

10

实验五

B 

C 

A 

C

（1）forx=2to10

s*（1-1/x）

（2） 

1 

t>

1E-6

（3） 

j 

t

（4） 

5 

11 

5

实验六

BCCCD 

D 

DDCA

实验七

1C 

2C 

3D 

4A 

5B 

6D 

7AB 

8A 

9A 

10A

（1）n！

（2）1+1+2+3+4+……+n

（3）n是否是素数

（4）冒泡排序

（5）递归调用产生斐波那契数列

（6）求最大公约数和最小公倍数

第八页编程

2-1

PrivateSubCommand1_Click（）

Label3=Val（Text1）*Val（Text2）

EndSub

PrivateSubCommand2_Click（）

Label3=Val（Text1）/Val（Text2）

2-2

Picture1.Picture=LoadPicture（"

d:

\tu1.jpg"

）

\tu2.jpg"

PrivateSubCommand3_Click（）

Picture1.Visible=False

2-5

PrivateSubForm_Load（）

Image1.Picture=LoadPicture（"

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

Timer1.Enabled=True

Timer1.Enabled=False

PrivateSubImage1_Click（）

PrivateSubTimer1_Timer（）

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

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

第11页编程

2-3

Dimx%,y%

x=Int（Rnd*900+100）

Print"

产生的随机数：

"

;

x

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

反序数：

Format（y,"

000"

Dimx%,yAsString

y=Trim（Str（x））

&

Right（y,1）&

Mid（y,2,1）&

Left（y,1）

2-4

Dimm%,n%

Randomize

m=Val（Text1）:

n=Val（Text2）

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

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

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

Label3=m&

到"

n&

之间的3个随机数为:

x&

Space（3）&

y&

z

Label1.Caption=Date

Label2.Caption=Time

Label3.Caption=WeekdayName（Weekday（Date））

第十五页

方法一

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&

秒"

方法二

x=InputBox（"

请输入弧度数值"

"

弧度转换"

0）

xx=Val（x）

MsgBox"

Dimx%

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

>

0Then

Label2=Text1&

年是闰年"

Else

年不是闰年"

EndIf

Dimx%,y%,z%

输入第一个数"

y=InputBox（"

输入第二个数"

z=InputBox（"

输入第三个数"

Ifx>

yThent=x:

x=y:

y=t

Ify>

zThent=y:

y=z:

z=t

Printx,y,z

y=Val（Text2）

z=Val（Text3）

zThen

t=y:

yThen

t=x:

Label1=x&

Space（5）&

x=Val（InputBox（"

请输入上网时间:

））

Ifx<

-1Then

SelectCasex

CaseIs<

fei=25

Case10To50

fei=x*2

Case50To100

fei=x*1.5

CaseIs>

=100

fei=x*1

EndSelect