Visual Basic程序设计基础申石磊季超实验部分答案高等教育出版社.docx

资源描述

Visual Basic程序设计基础申石磊季超实验部分答案高等教育出版社.docx

《Visual Basic程序设计基础申石磊季超实验部分答案高等教育出版社.docx》由会员分享，可在线阅读，更多相关《Visual Basic程序设计基础申石磊季超实验部分答案高等教育出版社.docx（21页珍藏版）》请在冰豆网上搜索。

Visual Basic程序设计基础申石磊季超实验部分答案高等教育出版社.docx

VisualBasic程序设计基础申石磊季超实验部分答案高等教育出版社

VisualBasic程序设计基础（申石磊季超）实验部分答案-高等教育出版社

2-1

PrivateSubForm_Click（）

Cls

EndSub

PrivateSubForm_DblClick（）

FontSize=30

fontcolor=vbGreen

Print"hello"

FontSize=90

fontcolor=vbRed

Print"OK"

EndSub

2-2

PrivateSubCommand1_Click（）

Label1.MoveWidth*Rnd,Height*Rnd

EndSub

2-3

PrivateSubCommand1_Click（）

Label1.Caption=""

EndSub

PrivateSubCommand2_Click（）

Label1.Caption="河南大学"

EndSub

2-4

PrivateSubTimer1_Timer（）

Text1.Text=Now

Form1.Caption=Now

EndSub

2-5

PrivateSubTimer1_Timer（）

IfForm1.BackColor=vbRedThen

Form1.BackColor=vbYellow

Else

Form1.BackColor=vbRed

EndIf

EndSub

2-6

PrivateSubTimer1_Timer（）

IfLabel1.Left>-Label1.WidthThen

Label1.Left=Label1.Left+10

Else

Label1.Left=Width

EndIf

EndSub

2-7

PrivateSubCommand1_Click（）

Text1.Text=""

EndSub

PrivateSubCommand2_Click（）

Text1.Text="河南大学"

EndSub

2-8

PrivateSubText1_Change（）

Text2=Text1

EndSub

2-9

PrivateSubCommand1_Click（）

FontSize=20

Print"河南大学"

FontSize=15

Print"哲管院"

EndSub

PrivateSubCommand2_Click（）

Cls

EndSub

2-10

PrivateSubCommand1_Click（）

r=Text1.Text

Text2.Text=6.28*r

EndSub

PrivateSubCommand2_Click（）

Text1.Text=""

Text2.Text=""

Text1.SetFocus

EndSub

2-11

PrivateSubForm_Load（）

Text1.Text="河南大学"

Text1.FontSize=36

Text1.FontName="隶书"

Text1.BackColor=vbRed

Text1.ForeColor=vbGreen

EndSub

2-12

DimsAsString

PrivateSubCommand1_Click（）

s=Text1.Text

Text1.Text=""

EndSub

PrivateSubCommand2_Click（）

Text2.Text=s

EndSub

3-2

PrivateSubForm_Click（）

DimnAsInteger

Randomize

n=Int（90*Rnd+10）

n1=n\10

n2=nMod10

Printn,n1&n2

EndSub

3-3

PrivateSubTimer1_Timer（）

Cls

Print"hehehehehe"

Form1.FontSize=Int（71*Rnd+10）

EndSub

3-4

PrivateSubCommand1_Click（）

n=Asc（Right（Text1,1））

Text2=Hex（n）

EndSub

PrivateSubCommand2_Click（）

Text1=""

Text2=""

Text1.SetFocus

EndSub

3-5

PrivateSubCommand1_Click（）

Text2.Text=Date-CDate（Text1）

EndSub

PrivateSubCommand2_Click（）

Text1.Text=""

Text2=""

EndSub

3-6

PrivateSubCommand1_Click（）

Text2.Text=Right（Text1,1）&Mid（Text1,2,1）&Left（Text1,1）

EndSub

PrivateSubCommand2_Click（）

Text1=""

Text2=""

EndSub

3-7

PrivateSubTimer1_Timer（）

Me.Label1.Caption="程序设计"

Me.Label1.FontSize=（41*Rnd+10）

Me.Label1.BackColor=RGB（Rnd*256,Rnd*256,Rnd*256）

Me.Label1.ForeColor=QBColor（Int（16*Rnd））

EndSub

3-8

PrivateSubTimer1_Timer（）

Me.Label1.Caption="程序设计"

Me.Label1.FontSize=（41*Rnd+10）

Me.Label1.BackColor=RGB（Rnd*256,Rnd*256,Rnd*256）

Me.Label1.ForeColor=QBColor（Int（16*Rnd））

EndSub

3-9

PrivateSubCommand1_Click（）

x=Shell（"notepad.exe",1）

EndSub

PrivateSubCommand2_Click（）

Shell"mspaint.exe",1

EndSub

3-10

PrivateSubForm_Click（）

DimXAsLong

Me.FontSize=15

X=InputBox（"输入钱数:

"）

X1=X\100

X2=（X-100*X1）\50

x3=（X-100*X1-50*X2）\20

x4=（X-100*X1-50*X2-20*x3）\10

x5=（X-100*X1-50*X2-20*x3-10*x4）\5

x6=（X-100*X1-50*X2-20*x3-10*x4-5*x5）\2

x7=（X-100*X1-50*X2-20*x3-10*x4-5*x5-2*x6）\1

PrintX

PrintX1;"张100元"

PrintX2;"张50元"

Printx3;"张20元"

Printx4;"张10元"

Printx5;"张5元"

Printx6;"张2元"

Printx7;"张1元"

EndSub

4-1

PrivateSubForm_Click（）

DimnAsInteger

=InputBox（"存款金额"）

=InputBox（"利率"）

n=InputBox（"存款年数"）

=Round（p*（1+r）^n,2）

Print"本金+利息:

"&s

EndSub

4-2

PrivateSubForm_Click（）

=InputBox（"输入数据x"）

=InputBox（"输入数据y"）

Ifx>yThen

Print"x=";x;"y=";y

Else

Print"y=";y;"x=";x

EndIf

EndSub

4-3

PrivateSubForm_Click（）

DimnAsInteger

n=InputBox（"输入年份"）

IfnMod4=0AndnMod100<>0Then

Print"闰年"

Else

Print"不是闰年"

EndIf

EndSub

4-4

DimxAsSingle,yAsString

PrivateSubCommand1_Click（）

x=Text1.Text

Text2.Text=y

If90<=x<=100Then

y="优秀"

ElseIf80<=x<90Then

y="良好"

ElseIf70<=x<80Then

y="中等"

ElseIf60<=x<60Then

y="及格"

ElseIfx<60Then

y="重考"

EndIf

EndSub

PrivateSubCommand2_Click（）

Text1.Text=""

Text2.Text=""

EndSub

4-5

DimxAsSingle

PrivateSubCommand1_Click（）

x=Text1.Text

Ifx>=90Andx<=100Then

Text2.Text="优秀!

ElseIfx>=80Andx<90Then

Text2.Text="良好!

ElseIfx>=70Andx<80Then

Text2.Text="中等!

ElseIfx>=60Andx<70Then

Text2.Text="及格!

ElseIfx>=0Andx<60Then

Text2.Text="重考!

EndIf

EndSub

PrivateSubCommand2_Click（）

Text1.Text=""

Text2.Text=""

Me.Text1.SetFocus

EndSub

4-6

DimxAsSingle

PrivateSubCommand1_Click（）

x=Text1.Text

SelectCasex

CaseIs>=90Andx<=100

Text2.Text="优秀!

CaseIs>=80Andx<90

Text2.Text="良好!

CaseIs>=70Andx<80

Text2.Text="中等!

CaseIs>=60Andx<70

Text2.Text="及格!

CaseIs<60

Text2.Text="重考!

EndSelect

EndSub

PrivateSubCommand2_Click（）

Text1.Text=""

Text2.Text=""

Text1.SetFocus

EndSub

4-7

PrivateSubCommand1_Click（）

x=Text1.Text

Ifx>=50Then

Text2.Text="慢跑"

ElseIfx>=40Andx<50Then

Text2.Text="竞走"

ElseIfx>=30Andx<40Then

Text2.Text="跳绳"

ElseIfx<30Then

Text2.Text="长跑"

EndIf

EndSub

PrivateSubCommand2_Click（）

Text1.Text=""

Text2.Text=""

Text1.SetFocus

EndSub

4-8

PrivateSubForm_Click（）

PrintTab（20）;"偶数"

Fori=1To100

IfiMod2=0ThenPrinti;

IfiMod20=0ThenPrinti

Nexti

EndSub

4-9

PrivateSubForm_Click（）

Fori=100To1000

IfiMod3=2AndiMod5=3AndiMod7=2ThenPrinti

Nexti

EndSub

5-1

PrivateSubForm_Click（）

Dimi%,a（1To5）AsString

Fori=LBound（a）ToUBound（a）

a（i）=InputBox（"a（"&i&"）"）

Nexti

Fori=UBound（a）ToLBound（a）Step-1

Printa（i）

Nexti

EndSub

5-2

OptionBase1

PrivateSubForm_Click（）

Dimi%,aAsVariant

Fori=1To10

a=Array（10,11,12,13,14,15,16,17,18,19）

Ifa（i）Mod3=0Then

Print"a（i）="&a（i）

EndIf

Nexti

EndSub

5-3

OptionBase1

PrivateSubCommand1_Click（）

DimaAsVariant

a=Array（1,2,3,4,5,6,7,8,9,10）

Fori=1To9

Printa（i+1）,

Nexti

Printa

（1）

EndSub

PrivateSubCommand2_Click（）

DimaAsVariant

a=Array（1,2,3,4,5,6,7,8,9,10）

Printa（10）,

Fori=0To8

Printa（i+1）,

Nexti

EndSub

5-4

OptionBase1

PrivateSubForm_Click（）

Dima（1To5,1To5）AsInteger

Fori=1To5

Forj=1To5

a（i,j）=10+Fix（50*Rnd）

Nextj

Nexti

Fori=1To5

Forj=1To5

s=s+a（i,j）

Printa（i,j）,

Nextj

Print,

Prints

Nexti

Fori=1To5

Forj=1To5

Ifi=jThen

Printa（i,j）,

Else

EndIf

Nextj

Nexti

EndSub

5-5

OptionBase1

PrivateSubForm_Click（）

DimA（）AsInteger

DimmaxAsInteger,bmaxAsDouble

DimminAsInteger,bminAsDouble

M=InputBox（"第一维上界！

"）

N=InputBox（"第二维上界！

"）

ReDimA（M,N）AsInteger

Fori=1ToM

Forj=1ToN

A（i,j）=Fix（900*Rnd）+100

Nextj

Nexti

Fori=1ToM

Forj=1ToN

PrintA（i,j）,

Nextj

Nexti

max=A（1,1）:

min=A（1,1）

Fori=2ToM

Forj=2ToN

IfA（i,j）>maxThenmax=A（i,j）:

bmax=（（i）&（j））

IfA（i,j）

bmin=（（i）&（j））

Nextj

Nexti

Print"max=";max,"bmax=";bmax

Print"min=";min,"bmin=";bmin

EraseA

EndSub

5-6

OptionBase1

PrivateSubForm_Click（）

Dima（）AsInteger

n=InputBox（"第一维上界!

"）

ReDima（n,n）AsInteger

Fori=1Ton

Forj=1Ton

Ifi=jThen

a（i,j）=1

Printa（i,j）,

Else

a（i,j）=0

Printa（i,j）,

EndIf

Nextj

Nexti

EndSub

5-7

OptionBase1

PrivateSubForm_Click（）

Dima

a=Array（1,2,3,4,5,6,7,8,9,10）

Fori=1To10

Printa（i）;

Nexti

Forj=1To7

a（j）=a（j+3）

Printa（j）;

Nextj

Fori=1To7

ReDimPreservea（i）

Nexti

EndSub

5-8

PrivateSubCommand1_Click（IndexAsInteger）

n1=Val（Text1）

n2=Val（Text2）

SelectCaseIndex

Case0

Text3=n1+n2

Case1

Text3=n1-n2

Case2

Text3=n1*n2

Case3

Text3=n1/n2

EndSelect

EndSub

6-1

PrivateSubvolume（rAsSingle,hAsSingle,vAsSingle）

v=3.14*r*r*h

EndSub

PrivateSubForm_Click（）

DimaAsSingle

DimbAsSingle

DimcAsSingle

a=InputBox（"输入半径!

"）

b=InputBox（"输入高度!

"）

volumea,b,c

Printc

EndSub

6-2

Functionvolume（rAsSingle,hAsSingle）AsSingle

volume=3.14*r*r*h

EndFunction

PrivateSubForm_Click（）

DimaAsSingle

DimbAsSingle

DimcAsSingle

a=InputBox（"输入半径!

"）

b=InputBox（"输入高度!

"）

c=volume（a,b）

Print"圆柱体体积:

";volume（a,b）

EndSub

6-3

Subweek（aAsSingle）

Ifa=0Then

Print"星期日"

ElseIfa=1Then

Print"星期一"

ElseIfa=2Then

Print"星期二"

ElseIfa=3Then

Print"星期三"

ElseIfa=4Then

Print"星期四"

ElseIfa=5Then

Print"星期五"

Else

Print"星期六"

EndIf

EndSub

PrivateSubForm_Click（）

DimaAsSingle

a=InputBox（"输入数据"）

weeka

EndSub

展开阅读全文

Visual Basic程序设计基础申石磊 季超实验部分答案高等教育出版社.docx

Visual Basic程序设计基础申石磊季超实验部分答案高等教育出版社.docx