VisualBasic教材課后習(xí)題答案

＜大學(xué)程序設(shè)計基礎(chǔ)-VisualBasic〉教材課后習(xí)題答案

第1章

一、選擇題

1234567

BDBCBBD

第2章

一、選擇題

12345678910

BCBCBCAABB

11121314

BCAA

二、填空題

1.rem或'_：

2.“"##

3.5x-3x-2sinA/3

4.321456

5.300

三、操作題

1、

程序段：

PrivateSubCommandl_Click()

DimxAsInteger,yAsInteger

DimsAsLong,cAsLong

x=Textl.Text

y=Text2.Text

s=x*y

c=(x+y)*2

Label3.Caption="長方形的面積為“+Str(s)

Label4.Caption="長方形的周長為“+Str(c)

EndSub

3、

程序段：

PrivateSubCommand1_C1ick()

Textl.Text=〃第一〃

EndSub

PrivateSubCommand2_Click()

Textl.Text=〃第二〃

EndSub

4、程序代碼：

PrivateSubTextl_Change()

Textl.MaxLength=10

EndSub

5、程序代碼:

PrivateSubTextl_Click()

Textl.SelStart=0

Textl.SelLength=Len(Textl.Text)

EndSub

第3章

~、選擇題

1234567

DADBADB

二、填空題

1.False

2.B-2-4*a*celse

三、操作題

1.從鍵盤輸入三個值，判斷它們能否構(gòu)成三角形的三個邊。如果能構(gòu)成一個三角形，則計

算三角形的面積。

DimaAsInteger,bAsLong,cAsLong,sAsSingle,pAsSingle

a=Vai(InputBox(〃請輸入一個值：〃))

b=Vai(InputBox(〃請輸入一個值：〃))

c=Vai(InputBox(〃請輸入一個值：〃))

If(a+b>cAnda+c>bAndb+c>a)Then

p=(a+b+c)/2

s=Sqr(p*(p-a)*(p-b)*(p-c))

Printa&〃,〃&b&〃,〃&c&〃能構(gòu)成一個三角形，它的面積為：〃&s

EndIf

2.編寫程序，任意輸入一個整數(shù)，判定該整數(shù)奇偶性。

DimnAsInteger

n=Val(InputBox(“請輸入一個整數(shù)："))

IfnMod2=0Then

Printn&〃是偶數(shù)〃

Else

Printn&〃是奇數(shù)〃

EndIf

3.求一元二次方程的a*x-2+b*x+c=0的根。

DimaAsInteger,bAsInteger,cAsInteger,deltaAsSingle,xlAsSingle,x2As

Single

a=Vai(InputBox(〃請輸入一個整數(shù)：〃))

b=Val(InputBox(〃請輸入一個整數(shù)：〃))

c=Vai(InputBox(〃請輸入一個整數(shù)：〃))

delta=b2-4*a*c

Ifdelta=0Then

xl=-b/(2*a)

Print〃一元二次方程有兩個相等的實根xl=x2=〃&xl

Else

Ifdelta>0Then

xl=(-b+Sqr(delta))/(2*a)

x2=(-b-Sqr(delta))/(2*a)

Print〃一元二次方程有兩個不等的實根xl=〃&xl&〃,x2=〃&x2

Else

xl=(-b)/(2*a)

x2=Sqr(-delta)/(2*a)

Print〃一元二次方程有兩個不等的虛根xl=〃&xl&〃+〃&x2&〃i,x2=〃&xl&

&x2&

EndIf

EndIf

4,任意輸入三個數(shù)，輸出最大數(shù)。

DimaAsInteger,bAsInteger,cAsInteger,maxAsInteger

a=Vai(InputBox(〃請輸入一個整數(shù)：〃))

b=Vai(InputBox(〃請輸入一個整數(shù)：〃))

c=Val(InputBox(〃請輸入?個整數(shù)：〃))

max=a

Ifmax<bThen

max=b

EndIf

Ifmax<cThen

max=c

EndIf

Print〃最大數(shù)是〃&max

5.任意輸入三個數(shù)，由大到小排序輸出。

DimaAsInteger,bAsInteger,cAsInteger,tempAsInteger

a=Vai(InputBox(〃請輸入一個整數(shù)：〃))

b=Vai(InputBox(〃請輸入一個整數(shù)：〃))

c=Vai(InputBox(〃請輸入一個整數(shù)：〃))

Ifa<bThen

temp=a

a=b

b=temp

EndIf

Ifb>cThen

Printa,b,c

Else

Ifa>cThen

Printa,c,b

Else

Printc,a,b

EndIf

EndIf

第4章

一、選擇題

12345678910

ABACDBADBB

111213141516

DCDCBB

二、填空題

1.9

2.123

3.100+100；xmod5=0

4.6

5.5

三、編程題

1.鍵盤輸入幾個不同的數(shù)，將它們從大到小排序。

2.設(shè)計程序,求出S=ll+(1+2)+(1+2+3)+…+(1+2+3+4+…+N)的值。

DimiAsInteger,snAsLong,sAsLong,nAsInteger

sn=0

s=0

n=InputBox(，，z，)

Fori=1Ton

sn=sn+i

s=s+sn

Next

Prints

運行結(jié)果：若n為10,S為220。

3.輸入X的值，求S=x-x-3/3!+x-5/5!-…的前20項的和值。

DimxAsSingle,iAsInteger,sAsDouble

x=InputBox(〃輸入X值：〃)

s=x

Fori=1To19

P=1

Forj=1To2*i+1

p=p*j

Next

s=s+(-1)-(i)*x-(2*i+1)/p

Next

Prints

運行結(jié)果：當(dāng)X為2時，，S為0.91(精確到小數(shù)點后兩位)

222

4.勾股定理中3個數(shù)的關(guān)系是：a+b=co編寫程序，輸出30以內(nèi)滿足上述關(guān)系的整數(shù)組

合，例如3、4、5就是一個整數(shù)組合。

DimaAsInteger,bAsInteger,cAsInteger,kAsInteger

Fora=1To30

Forb=1To30

Forc=1To30

Ifa2+b2=c2Thenk=k+1:Printa,b,c

Next

Next

Next

Printk

運行結(jié)果：22

5.輸出1000以內(nèi)的完全數(shù)。完全數(shù)就是它的各個約數(shù)之和等于該數(shù)本身（如：6=1+2+3,6

是完全數(shù)）。

DimiAsInteger,jAsInteger,aAsInteger

Fori=2To1000

a=0

Forj=1Toi-1

IfiModj=0Thena=a+j'判斷j是否能整除i,如果能,則a增加j

Nextj

Ifa=iThenPrinti'判斷i是否是完全數(shù),如果是，則輸出i

Nexti

運行結(jié)果：6

28

496

6.編程求出所有的水仙花數(shù)。水仙花數(shù)就是一個三位數(shù)，其各位數(shù)字立方和等于該數(shù)。(如

153=13+53+33),

DimiAsInteger,sAsInteger

DimaAsInteger,bAsInteger,cAsInteger

Print”100到999所有水仙花數(shù)：”;

Fori=100To999

a=i\100'取百位數(shù)

b二i\10Mod10'或b=iMod100\10取十位數(shù)

c=iMod10'取個位數(shù)

s=a-3+b八3+c八3'水仙花數(shù)的判斷依據(jù)

Ifs=iThenPrinti;

Nexti

運行結(jié)果:100到999所有水仙花數(shù):153370371407

7.編寫程序，輸出100?序0間的所有素數(shù)。

DimiAsInteger,jAsInteger,cAsInteger,kAsInteger

Fori=100To300

Forj=2Toi-1

IfiModj=0ThenExitFor

Next

Ifi=jThen

Printi;

k=k+1

s=s+i

IfkMod10=0ThenPrint

EndIf

Next

Print

Print〃100?300間總共有〃+Str(k)+〃個素數(shù)，〃+〃和值為〃+Str(s)

運行結(jié)果：

101103107109113127131137139149

151157163167173179181191193197

199211223227229233239241251257

263269271277281283293

100?300間總共有37個素數(shù)，和值為7215

8.我國現(xiàn)有人口為13億。設(shè)年增長率為1%,編寫程序，計算多少年后增加到20

億。

DimiAsLong,sAsSingle

DimnAsSingle,mAsSingle

n=InputBox(〃請輸入增長率：”)

i=0

s=13

m=s

DoWhilem<=20

i=i+1

m=s*(1+n)i

Printm;i;

IfiMod5=0ThenPrint

Loop

Printi

運行結(jié)果：44

9.編程產(chǎn)生并輸出一個二維數(shù)組，輸出行、列的最大值，正、反對角線之和。

10.利用pi/4=l-l/3+l/5-l/7+…，求pi的值，直到最后一項的值小于10'為止。

DimpiAsDouble,iAsLong,nAsDouble,flagAsInteger

i=1

n=1

flag=1

pi=1

DoWhilen>0.000001

i=i+2

flag=-flag

n=1/i

pi=pi+flag*n

Loop

Printpi*4

運行結(jié)果:3.14159465358569

第5章

一、選擇題

12345678910

cDDAABCBDB

111213

BCB

二、填空題

1.24

2.7

3.a=30b=70

4.“123456789”

三、編程題

1.編寫一個求3個數(shù)中最大值Max和最小值Min的過程，然后用這個過程分別求3個數(shù)、

5個數(shù)、7個數(shù)中的最大值和最小值。

Dima()

Submaxmin(b())'過程

Dimmax,min,k

max=b(l)

min=b(l)

Fork=1ToUBound(b)

Ifmax<b(k)Then

max=b(k)

Else

Ifmin>b(k)Then

min=b(k)

EndIf

EndIf

Next

Print"最大值="；max,“最小值="；min

EndSub

PrivateSubCommandl_Click()，主程序

n=InputBox(〃n=〃)

ReDima(n)

Fori=1Ton

a(i)=Vai(InputBox(，za=/，))

Printa(i),

Next

Print

Callmaxmin(a())

EndSub

2.編寫程序，求$=A!+8!+。，階乘的計算分別用Sub過程和Function過程兩種方法來實

現(xiàn)。

PublicSubfact2(m,ss)

Dimp,k

P=1

Fork=1Tom

p=p*k

Next

ss=ss+p

EndSub

PublicFunctionfactl(n)

Dimp