第一章 VB开发环境与VB概述 习题答案.docx

第一章 VB开发环境与VB概述 习题答案.docx

《第一章 VB开发环境与VB概述 习题答案.docx》由会员分享，可在线阅读，更多相关《第一章 VB开发环境与VB概述 习题答案.docx（99页珍藏版）》请在冰豆网上搜索。

第一章VB开发环境与VB概述习题答案

第一章VB开发环境与VB概述习题答案

习题

一、选择题

1. 

2. 

3. 

4. 

5. 

6. 

7. 

8. 

9. 

10. 

B

A

A

B

D

B

A

A

C

B

11. 

12. 

13. 

14. 

C

D

A

D

第二章常用控件与界面设计习题答案

习题

一、选择题

1. 

2. 

3. 

4. 

5. 

6. 

7. 

8. 

9. 

10. 

C

B

C

A

A

B

B

B

C

C

11. 

12. 

13. 

14. 

15. 

16. 

17. 

18. 

19. 

20. 

B

B

D

A

B

B

B

C

C

D

21. 

22. 

23. 

24. 

25. 

26. 

27. 

28. 

29. 

30. 

B

B

B

C

C

C

A

B

B

C

31. 

32. 

33. 

34. 

35. 

36. 

37. 

38. 

39. 

40. 

B

C

B

B

D

B

D

D

B

A

41. 

42. 

43. 

44. 

45. 

46. 

47. 

48. 

49. 

50. 

B

A

B

B

D

A

A

B

D

C

51. 

52. 

53. 

54. 

55. 

56. 

57. 

58. 

59. 

60. 

D

D

C

D

D

C

A

C

C

B

61. 

B

第三章实验与习题

实验

实验3_1

‘算术运算

PrivateSubCommand1_Click（）

ConstaAsSingle=3,bAsSingle=2,cAsSingle=-1,dAsSingle=6

DimxAsSingle,yAsSingle,zAsSingle,mAsSingle

x=2:

y=1:

z=1:

m=1

List1.Clear

List1.AddItema/（b+c/b）

List1.AddItem（x+Sqr（x^2+1））^（1/3）

List1.AddItem（（2*y）/（a*x+b*y）*（a*x-b*y））

List1.AddItem1+1/（1+1/m）

List1.AddItem1/2*（d/3）^（2*x）

List1.AddItemLog（y+Cos（x）^2）

List1.AddItemAbs（（Exp（x）+Sin（x）^3）/（x+y））

List1.AddItemLog（（Exp（x*y）+Abs（1/Tan（z）+Cos（x）^3））/（x+y-z））

List1.AddItemSin（45*3.1415/180）+（Exp（10）+Log（10））/Sqr（x+y+1）

List1.AddItemLog（a）/Log（b）

EndSub

‘关系运算

PrivateSubCommand2_Click（）

List1.Clear

List1.AddItemMid（"VisualBasic",1,12）=Right（"LanguageVisualBasic",12）

List1.AddItem"ABCRG">="abcde"

List1.AddItemInt（134.69）>=CInt（134.9）

List1.AddItem78.9/32.77<=97.5/43.87And-45.4>-4.98

List1.AddItemStr（32.345）=CStr（32.345）

EndSub

‘逻辑运算

PrivateSubCommand3_Click（）

DimxAsInteger,yAsInteger

DimC1AsInteger,C2AsInteger,C3AsInteger

C1=70:

C2=80:

C3=90

x=9:

y=-2

List1.Clear

List1.AddItemx+y<10Andx-y>0

List1.AddItem（x%>=0Andy%>=0）Or（x%<0Andy%<0）

List1.AddItemx=0Xory=0

List1.AddItemC1+C2+C3>=255OrC1>90AndC2>90AndC3>80

EndSub

实验3_2

略

实验3_3

略

实验3_4

‘零售结算

PrivateSubCommand1_Click（）

DimdjAsSingle,slAsSingle,jeAsSingle,nAsInteger

Label1.Caption="金额：

"

dj=InputBox（"请输入商品的单价：

","单价框"）

sl=InputBox（"请输入商品的数量：

","数量框",1）

je=dj*sl

n=MsgBox（"共计金额="&je,vbOKCancel+vbInformation,"结果"）

Ifn=vbOKThenLabel1.Caption="金额：

"&Str（je）&"元"

EndSub

‘产生随机数

PrivateSubCommand2_Click（）

DimmAsInteger,nAsInteger

Dimx1AsInteger,x2AsInteger,x3AsInteger

m=Val（Text1.Text）:

n=Text2.Text

Randomize

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

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

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

Label4.Caption="结果为：

"&Str（x1）&Str（x2）&Str（x3）

EndSub

‘求逆序数

PrivateSubCommand3_Click（）

DimaAsInteger,hAsInteger,tAsInteger,nAsInteger

Randomize

a=Int（Rnd*（999-100+1）+100）

h=Mid（CStr（a）,1,1）

t=Mid（CStr（a）,2,1）

n=Right（CStr（a）,1）

Label5.Caption=a&"-->"&Format（n*100+t*10+h,"000"）

EndSub

实验3_5

略

习题

选择题

1.

2.

3.

4.

5.

6.

7.

8.

9.

10.

D

B

B

D

B

D

D

B

C

A

11.

12.

13.

14.

15.

16.

17.

18.

19.

20.

D

D

D

C

D

D

B

A

D

B

21.

22.

23.

24.

25.

26.

27.

28.

29.

30.

D

C

D

A

A

B

A

A

C

A

31.

32.

33.

34.

35.

36.

37.

38.

39.

40.

B

C

A

D

A

B

B

B

C

D

41.

42.

43.

44.

45.

46.

47.

48.

49.

50.

B

C

B

D

C

C

A

D

B

A

51.

52.

53.

54.

55.

56.

57.

58.

59.

60.

C

B

D

D

D

A

B

A

A

A

61.

62.

63.

64.

65.

66.

67.

68.

69.

70.

B

B

C

A

B

B

D

A

A

A

71.

72.

73.

74.

75.

76.

77.

78.

79.

80.

C

B

B

D

D

C

B

D

A

D

81.

82.

83.

84.

85.

86.

87.

88.

89.

C

B

D

B

B

B

A

D

C

填空题

1、2-32768~32767

2、整型长整型单精度双精度

3、0False“”

4、Chr（Int（Rnd*（Asc（“L”）-Asc（“C”））+Asc（“C”）））

x>0Andy>0Orx<0Andy<0

c>=”a”Andc<=”z”Orc>=”A”Andc<=”Z”

x>=10Andx<20

x

5、False

2

True

False

True

True

True

True

6、188

200100

68.56

876554

7、a=1b=1

a=2b=1

a=3b=1

a=4b=1

8、YMod4=0AndYMod100<>0OrYMod400=0

9、HeSaid,“Goodmorning”.

10、EDEF

11、（A>0AndA<>Int（A））And（B<0AndB<>Int（B））

12、a+b+c+d

（a+b+c+d）/4

sum

aver

13、（f-2*h）/2

（4*h-f）/2

简答题

1、略

2、PrivateSubForm_Click（）

Constg=9.8

DimV0AsSingle,tAsSingle

DimSAsSingle

V0=InputBox（"请输入V0的值：

"）

t=InputBox（"请输入时间t的值：

"）

S=（1/2）*g*t^2+V0*t

MsgBox（"位移量为：

"&S）

EndSub

3、PrivateSubCommand1_Click（）

DimlAsSingle,wAsSingle,hAsSingle

DimsAsSingle

l=Text1.Text

w=Text2.Text

h=Text3.Text

s=（l*w+l*h+w*h）*2

Label1.Caption=s

EndSub

第四章选择分支与循环

实验答案

实验4-1

方法一：

x<=5;y

方法二：

Is<=2;CaseElse

实验4-2

Shape1.BackColor=vbRed;

Inter=15;

Inter=Inter-1;

Inter;

实验4-3

b

b=a

a=k

实验4-4

方法二：

s*n;t/s<10^-5

实验4-5

方法一:

m>=10^-4;（-1）^（n+1）*m

实验4-6

x2=x3;<10^-6

实验4-7

实验4-8

i+2*j+5*k=10;n

实验4-9

题目一：

a）5

b）i=16p=12n=5

c）i=9p=8n=1

题目二：

12010

实验4-10

N=1；S=N&"*3"&"+1"

实验4-11

Len（st）;Ch=Lcase（ch）;CaseElse;St&Mid（Char,I,1）

实验4-12

i\100;（iMod100）\10

习题

一、选择题

1.

2.

3.

4.

5.

6.

7.

8.

9.

C

C

A

D

A

A

B

D

B

二、填空题

1．Is=0;1To10;Is>10

2.9

3.3;415

4.thisisabook;ThisIsABook

5.3;3;35

6.320

7.4

8.151

9.1;401;104

10.123;13;1

11.（3）

12.2024

13.1014

14.BAABCCBAABC

15.XModP=0;X=X+1;Find=False

16.abs（t）<10^（-7）;s+t

17.Mid（n,1,1）=Mid（n,2,1）AndMid（n,3,1）=Mid（n,4,1）

S=S+1

18.Mid（n,i,1）>Mid（n,i+1,1）

19."输入n";N/I=0;PrintI

第五章数组

实验

5_1

Int（90*Rnd）+10

a（i）=a（21-i）

a（21-i）=t

5_2

k=xMod10

i=i+1

5_3

s

5_4

max

row=I

col=j

5_5

1

ReDimPreserveprime（m）

prime（j）

5_6

dMod2

5_7

ExitFor

a（j+1）=a（j）

5_8

N–I

A（j）=A（j+1）

5_9

A（i,1）

J

Min=Max

NotFlag

5_10

ch>="0"Andch<="9"

P=P&ch

ReDimPreserveC（k）

5_11

PrivateSubForm_Click（）

DimxAsInteger,iAsInteger,kAsInteger,jAsInteger

Dima（）AsInteger

x=InputBox（"输入正整数x="）

i=2

Printx;"的质因子为:

";

DoWhilex>=i

IfxModi=0Then

k=k+1

ReDimPreservea（k）

a（k）=i

x=x\i

Else

i=i+1

EndIf

Loop

Forj=1ToUBound（a）

Printa（j）;

Nextj

EndSub

习题

一选择题

1.

2.

3.

4.

5.

6.

7.

8.

9.

10.

A

C

D

C

B

D

D

B

D

B

11.

12.

B

D

二填空题

1.Variant

2.ReDimA（N）

A

（1）

IfM

3.Int（26*Rnd）+65

Chr（t）

i+1To10

A（i）>A（j）

4.InStr（s,","）

Right（s,Len（s）-n）

s

5.456

654

321

6.T–1

I+1

7.k=6-i–j

max=m

8.j=a

j=j-3

9.i+1

i=i+1

10.2

3

7

三编程题

1．

OptionExplicit

OptionBase1

PrivateSubCommand1_Click（）

Dima（10）AsInteger

DimiAsInteger,maxAsInteger

Fori=1To10

a（i）=Int（90*Rnd）+10

Printa（i）;

Nexti

Print

i=1

max=0

DoWhilei<=10

Ifa（i）Mod3=0Then

Ifa（i）>maxThen

max=a（i）

EndIf

EndIf

i=i+1

Loop

Ifmax=0Then

Print"无要找的数"

Else

Printmax&"是最大的能被3整除的数"

EndIf

EndSub

2．

OptionExplicit

OptionBase1

PrivateSubCommand1_Click（）

DimA（）AsInteger

DimIAsInteger,mAsInteger

DimKAsInteger

ReDimA（10）

ForI=1To10

A（I）=I

PrintA（I）;

NextI

Print

m=InputBox（"ÊäÈëm"）

K=9+m

ReDimPreserveA（K）

ForI=11ToK

A（I）=A（I-10）

NextI

ForI=1To10

A（I）=A（I+m-1）

NextI

ForI=1To10

PrintA（I）;

NextI

Print

EndSub

3．

OptionExplicit

PrivateSubCommand1_Click（）

DimIAsInteger,JAsInteger,KAsInteger

Dima（）AsInteger,nAsInteger,pAsInteger

DimsAsString,FlagAsBoolean

p=1

ForK=10To100

I=1

DoWhileI<=10AndNotFlag

J=1

DoWhileJ<=10AndNotFlag

n=I^2+J^2

Ifn=KThen

Flag=True

ReDimPreservea（p）

a（p）=K

p=p+1

s=I&Str（J）&Str（K）

List1.AddItems

EndIf

J=J+1

Loop

I=I+1

Loop

Flag=False

NextK

EndSub

4．

OptionExplicit

PrivateSubCommand1_Click（）

DimA（10）AsInteger

DimB（10）AsInteger,SAsString

DimIAsInteger,JAsInteger,XAsInteger

A

（1）=Int（90*Rnd）+10

S=A

（1）

ForI=2To10

Do

X=Int（90*Rnd）+10

ForJ=1ToI-1

IfX=A（J）ThenExitFor

NextJ

IfJ=IThen

A（I）=X

S=S&""&A（I）

ExitDo

EndIf

Loop

NextI

Text1.Text=S

B

（1）=Int（90*Rnd）+10

S=B

（1）

ForI=2To10

Do

X=Int（90*Rnd）+10

ForJ=1ToI-1

IfX=B（J）ThenExitFor

NextJ

IfJ=IThen

B（I）=X

S=S&""&B（I）

ExitDo

EndIf

Loop

NextI

Text2.Text=S

S=""

ForI=1To10

ForJ=1To10

IfA（I）=B（J）Then

S=S&""&A（I）

EndIf

NextJ

NextI

Text3.Text=S

EndSub

PrivateSubCommand2_Click（）

Text1.Text=""

Text2.Text=""

Text3.Text=""

Text1.SetFocus

EndSub

5．

OptionExplicit

PrivateSubCommand1_Click（）

DimIAsInteger,JAsInteger

Dima（）AsInteger,KAsInteger,SumAsInteger

K=Val（Text1.Text）

I=1

Do

J=KMod10

ReDimPreservea（I）

a（I）=J

Sum=Sum+J

K=K\10

I=I+1

LoopUntilK=0

Text2.Text=Sum

EndSub

6．

OptionExplicit