vb答案.docx

vb答案.docx

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

vb答案

第四章

4.5

PrivateSubCommand1_Click（）

a=Val（Text1）

IfaMod3=0AndaMod5=0AndaMod7=0Then

Label1.Caption="能同时被3.5.7整除"

Else

Label1.Caption="不能同时被3.5.7整除"

EndIf

EndSub

4.6

PrivateSubCommand1_Click（）

a=Val（Text1）

b=Val（Text2）

c=Val（Text3）

p=0.5*（a+b+c）

Ifa+b>cAndAbs（a-b）

MsgBox"面积是:

"&Sqr（p*（p-a）*（p-b）*（p-c））

Else

MsgBox"不能构成三角形"

EndIf

EndSub

4.8

PrivateSubForm_Click（）

a=Val（InputBox（"请输入:

a"））

b=Val（InputBox（"请输入:

b"））

c=Val（InputBox（"请输入:

c"））

Max=a

IfMax

Max=b

EndIf

IfMax

Max=c

EndIf

Print"最大数是：

";Max

Min=a

IfMin>bThen

Max=b

EndIf

IfMin>cThen

Max=c

EndIf

Print"最小数是：

";Min

EndSub

4.9

PrivateSubCommand1_Click（）

x=Val（Text1）

b=xMod3

SelectCaseb

Case0

MsgBoxStr（x）&"整除3"

Case1

MsgBoxStr（x）&"整除3余1"

Case2

MsgBoxStr（x）&"整除以3余2"

EndSelect

EndSub

4.13

PrivateSubText1_Change（）

a=Right（Text1,1）

SelectCasea

Case"a"To"z"

Label1.Caption=UCase（a）

CaseChr（65）ToChr（97）

Label1.Caption=LCase（a）

CaseElse

Label1.Caption=a

EndSelect

EndSub

4.14

PrivateSubCommand1_Click（）

a=Val（Text1）

Ifa<=4Then

Text2.Text="10"

ElseIfa>4Anda<=15Then

Text2.Text=10+1.2*（a-4）

ElseIfa>15Then

Text2.Text=1.8*（a-15）

EndIf

EndSub

4.16

PrivateSubForm_Click（）

DimsAsSingle

e=1

s=1

While1/s>=0.00001

i=i+1

s=s*i

e=e+1/s

Wend

Printe

EndSub

4.17

PrivateSubCommand1_Click（）

Fori=100To200

IfiMod7<>0Then

Text1.Text=Text1&Str（i）

EndIf

Nexti

EndSub

4.18

PrivateSubForm_Click（）

n=Val（Text1）

Forx=1Ton

c=c+x

s=s+c

Next

Text2=s

EndSub

4.19

PrivateSubCommand1_Click（）

s=1

Whiles<=400000

i=i+1

s=s*（2*i-1）

Wend

Printi-2

EndSub

4.20

PrivateSubCommand1_Click（）

Fora=0To9

Forb=0To9

Forc=1To9

t=100*a+b*10+c

Ifa*a*a+b*b*b+c*c*c=tThen

Printt

EndIf

Nextc

Nextb

Nexta

EndSub

4.21

PrivateSubForm_Click（）

f1=0

f2=1

Printf1;f2;

Fori=3To20

f3=f1+f2

f1=f2

f2=f3

Printf3;

Nexti

EndSub

4.22

平行四边形

PrivateSubCommand1_Click（）

Fori=1To5

Picture1.PrintTab（10-i）;String（5,"*"）

Next

EndSub

正三角形

PrivateSubCommand2_Click（）

Picture1.Cls

Fori=1To5

Picture1.PrintTab（10-i）;String（2*i-1,"*"）

Next

EndSub

倒三角形

PrivateSubCommand3_Click（）

Picture1.Cls

Fori=5To1Step-1

Picture1.PrintTab（10-i）;String（2*i-1,"*"）

Next

EndSub

菱形

PrivateSubCommand4_Click（）

Picture1.Cls

Fori=1To4

Picture1.PrintTab（10-i）;String（2*i-1,"*"）

Next

Fori=4To1Step-1

Picture1.PrintTab（10-i）;String（2*i-1,"*"）

Next

EndSub

4.23

PrivateSubForm_Click（）

Fori=101To200Step2

Forj=2ToSqr（i）

IfiModj=0ThenExitFor

Nextj

Ifj>=Sqr（i）Then

Text1.Text=Text1&i&Space

（1）

EndIf

Nexti

EndSub

例题4-13

PrivateSubCommand1_Click（）

m=Val（Text1）:

n=Val（Text2）

a=m:

b=n

r=mModn

Whiler<>0

m=n

n=r

r=mModn

Wend

Text3.Text=Str（n）

Text4.Text=Str（a*b/n）

EndSub

4.15

方法1

PrivateSubCommand1_Click（）

DimkAsSingle

t=1

i=1

s=0

Do

k=t/i

s=s+k

t=-1*t

i=i+2

LoopWhileAbs（k）>=0.000001

pi=4*s

Text1.Text=Str（pi）

EndSub

练习题1

PrivateSubCommand1_Click（）

Randomize

Text1.Text=Int（41*Rnd+10）

Text2.Text=Int（41*Rnd+10）

EndSub

PrivateSubCommand2_Click（）

Text3.Text=Val（Text1）*Val（Text2）

EndSub

练习3

PrivateSubCommand1_Click（）

Text1.Text=""

Text2.Text=""

n=Val（InputBox（"体重"））

Text1.Visible=True

Text1.Text=n

m=Val（InputBox（"身高"））

Text2.Visible=True

Text2.Text=m

b=Format（m/（n*n）,"0.0"）

MsgBox"您的体重指数为：

"&b

EndSub

练习4.9

PrivateSubCommand1_Click（）

StaticsAsInteger

IfText1.Text="123456"Then

Text1.PasswordChar=""

Text1="口令正确"

Else

Ifs=0Ors=1Then

Text2=2-s

MsgBox"第"&（s+1）&"次口令错误，请重新输入"

s=s+1

Else

End

EndIf

EndIf

EndSub

L练习题4.12

PrivateSubForm_Click（）

a=Val（InputBox（"请输入数字a:

"））

b=Val（InputBox（"请输入数字b:

"））

c=Val（InputBox（"请输入数字c:

"））

PrintTab

（2）;"输入的数据为"

PrintTab（3）;a;b;c

Print

Ifa

t=a

a=b

b=t

EndIf

Ifa

t=a

a=c

c=t

EndIf

Ifb

t=b

b=c

c=t

EndIf

PrintTab

（2）;"降序排序后"

PrintTab（4）;a;b;c

Print

PrintTab

（2）;"其中最大值为";a

PrintTab

（2）;"其中最小值是";c

EndSub

.练习题4.15

PrivateSubCommand1_Click（）

s=1

n=Val（Text1）

Fori=1Ton

s=s*i

Nexti

Text2=s

EndSub

PrivateSubCommand2_Click（）

s=1

n=Val（Text1）

Fori=1To（n+2）

s=s*i

Nexti

Text3=s

EndSub

练习题4.16

PrivateSubForm_Click（）

s=1:

i=1

Whiles<=100000

s=s*i*2

i=i+1

Wend

Text1.Text=s

EndSub

练习4.23

PrivateSubCommand1_Click（）

Text1=Int（Rnd*100+1）

Text2=Int（Rnd*100+1）

m=Val（Text1）

n=Val（Text2）

r=mModn

p=m*n

Whiler<>0

m=n

n=r

r=mModn

Wend

Label1.Caption="最大公约数是：

"&n

Label2.Caption="最小公倍数是：

"&p/n

EndSub

练习4.。

24

PrivateSubPicture1_Click（）

Picture1.PrintTab（50）;"九九乘法表"

Fori=1To9

Forj=1To9

Picture1.PrintTab（（j-1）*15）;i;"*";j;"=";i*j;

Nextj

Picture1.Print

Nexti

Line1.Visible=True

Line2.Visible=True

EndSub

练习4.25

PrivateSubText4_Change（）

EndSub

PrivateSubCommand1_Click（）

Picture1.Cls

p="FEDCBA"

Fori=1To6

Picture1.PrintRight（p,i）

Nexti

EndSub

PrivateSubCommand2_Click（）

Picture2.Cls

Fori=6To1Step-1

Picture1.PrintTab（7-i）;

Forj=1Toi

Picture2.PrintChr（64+j）;

Nextj

Picture2.Print

Nexti

EndSub

PrivateSubCommand3_Click（）

Fori=1To6

Picture1.PrintTab（7-i）;

Forj=iTo1Step-1

Picture3.PrintChr（71-j）;

Nextj

Picture3.Print

Nexti

EndSub

PrivateSubCommand4_Click（）

Fori=6To1Step-1

Forj=1Toi

Picture4.PrintChr（64+（i-j+1））;

Nextj

Picture4.Print

Nexti

EndSub

练习4.27

PrivateSubCommand1_Click（）

m=Int（Rnd*101）

Text1.Text=m

EndSub

PrivateSubCommand2_Click（）

DimnAsLong,iAsInteger

n=Val（Text1.Text）

Fori=2ToSqr（n）

IfnModi=0ThenExitFor

NextI

Ifi>Sqr（n）Then

Text2.Text="是素数"

Else

Text2.Text="不是素数"

EndIf

EndSub

第五章

5.7

PrivateSubForm_Click（）

IfOption1.Value=TrueThenLabel3.FontSize=10

IfOption2.Value=TrueThenLabel3.FontSize=13

IfOption3.Value=TrueThenLabel3.FontSize=15

IfCheck1.Value=1ThenLabel3.FontItalic=True

IfCheck2.Value=1ThenLabel3.FontUnderline=True

IfCheck1.Value=0ThenLabel3.FontItalic=false

IfCheck1.Value=0ThenLabel3.FontItalic=false

EndSub

5.8

PrivateSubOption1_Click（）

Shape1.Shape=3

EndSub

PrivateSubOption2_Click（）

Shape1.Shape=1

EndSub

PrivateSubOption3_Click（）

Shape1.Shape=0

EndSub

PrivateSubOption4_Click（）

Shape1.Shape=2

EndSub

5.9

PrivateSubCommand1_Click（）

List1.AddItemText1.Text

EndSub

PrivateSubCommand2_Click（）

IfList1.SelCount>0Then

List1.RemoveItemList1.ListIndex

Else

MsgBox"请选择要删除的列表项"

EndIf

EndSub

PrivateSubCommand3_Click（）

List1.Clear

EndSub

5.10

PrivateSubCombo1_Click（）

SelectCaseCombo1.ListIndex

Case0

Text1.ForeColor=vbWhite

Case1

Text1.ForeColor=vbBlack

Case2

Text1.ForeColor=vbRed

Case3

Text1.ForeColor=vbGreen

Case4

Text1.ForeColor=vbBlue

Case5

Text1.ForeColor=vbYellow

EndSelect

EndSub

PrivateSubCombo2_Click（）

SelectCaseCombo2.ListIndex

Case0

Text1.BackColor=vbWhite

Case1

Text1.BackColor=vbBlack

Case2

Text1.BackColor=vbRed

Case3

Text1.BackColor=vbGreen

Case4

Text1.BackColor=vbBlue

Case5

Text1.BackColor=vbYellow

EndSelect

EndSub

PrivateSubCombo3_Click（）

SelectCaseCombo3.ListIndex

Case0

Text1.Alignment=0

Case1

Text1.Alignment=2

Case2

Text1.Alignment=1

EndSelect

EndSub

5.11

PrivateSubVScroll1_Change（）

Label6.Caption=VScroll1.Value

Label5.Caption=（VScroll1.Value）*9/5+32

EndSub

5-14（注意要将计时器的interval属性设为1000）

PrivateSubTimer1_Timer（）

StaticiAsInteger

SelectCaseiMod2

Case0

Text1.BackColor=vbRed

Case1

Text1.BackColor=vbGreen

EndSelect

i=i+1

EndSub

练习5.6

PrivateSubCommand1_Click（）

Picture1.Picture=LoadPicture（"c:

\99ksw\ksm3\house.jpg"）

EndSub

PrivateSubCommand2_Click（）

Picture1.Picture=LoadPicture（""）

EndSub

练习5.8

（在属性窗口将定时器的interval的值改为500）

DimsAsInteger

PrivateSubCommand1_Click（）

Timer1.Enabled=True

EndSub

PrivateSubCommand2_Click（）

Timer1.Enabled=False

EndSub

PrivateSubForm_Load（）

Timer1.Enabled=False

EndSub

PrivateSubTimer1_Timer（）

StaticaAsInteger

SelectCases

Case0

Text1.BackColor=vbRed

Case1

Text1.BackColor=vbGreen

Case2

Text1.BackColor=vbBlue

EndSelect

s=s+1

Ifs>2Thens=0

SelectCasea

Case0

Label1.Left=Label1.Left+1000

IfLabel1.Left>=（Form1.Width-Label1.Width）Then

a=1

EndIf

Case1

Label1.Left=Label1.Left-1000

IfLabel1.Left<=0Then

a=0

EndIf

EndSelect

EndSub

练习5.11

PrivateSubList1_DblClick（）

Fori=0ToList1.ListCount-1

s=s+Val（List1.List（i））

Nexti

List1.AddItems

EndSub

第六章

6.1

OptionBase1

PrivateSubCommand1_Click（）

Cls

ReDima（10）

Fori=1To10

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

s=s+a（i）

Picture1.Printa（i）;

Nexti

Forj=1To10

Fork=jTo10

Ifa（j）

u=a（j）

a（j）=a（k）

a（k）=u

EndIf

Nextk

Nextj

Picture1.Print"最大值";a

（1）

Picture1.Print"最小值";a（10）

Picture1.Print"和是";s

Picture1.Print"平均值是";s/10

EndSub

6.3

OptionBase1

Dima（）AsInteger

PrivateSubCommand1_Click（）

Picture1.Cls