VB实验参考答案.docx

VB实验参考答案.docx

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

VB实验参考答案

《VB.NET程序设计》实验参考答案

实验1-3

Dimn%=0

PrivateSubForm1_Click（……）HandlesMe.Click

n=n+1

TextBox1.Text=n

EndSub

实验1-4

PrivateSubForm1_Load（……）HandlesMyBase.Load

Me.Text="装入窗体"

Me.BackgroundImage=Image.FromFile（"tongji.bmp"）'当前目录为Bin的Debug

Me.Cursor=NewCursor（"key04.ico"）

Me.Icon=NewIcon（"MISC34.ICO"）

EndSub

PrivateSubForm1_Click（……）HandlesMyBase.Click

Me.Text="单击窗体"

'Me.Size=NewSize（264+10,256+30）'图片大小为×

Me.BackgroundImage=Image.FromFile（"tongji-2.bmp"）

EndSub

PrivateSubForm1_DoubleClick（……）HandlesMyBase.DoubleClick

Me.Text="双击窗体"

Me.MaximizeBox=False

Me.MinimizeBox=False

Me.BackgroundImage=Nothing

Me.Cursor=Cursors.Default

EndSub

PrivateSubForm1_Resize（……）HandlesMe.Resize

Me.Size=NewSize（264+10,256+30）

Me.FormBorderStyle=Windows.Forms.FormBorderStyle.Fixed3D

EndSub

实验1-5

PrivateSubButton1_Click（……）HandlesButton1.Click

TextBox1.Font=NewFont（"隶书",20）

EndSub

PrivateSubButton2_Click（……）HandlesButton2.Click

TextBox2.Text=TextBox1.SelectedText

TextBox2.Font=TextBox1.Font

EndSub

实验1-6

Dimw%,h%

PrivateSubForm1_Load（……）HandlesMe.Load

w=PictureBox1.Width

h=PictureBox1.Height

EndSub

PrivateSubButton2_Click（……）HandlesButton2.Click

PictureBox1.Width=w

PictureBox1.Height=h

EndSub

PrivateSubButton1_Click（……）HandlesButton1.Click,Button1.Click

PictureBox1.Width=PictureBox1.Width/2

PictureBox1.Height=PictureBox1.Height/2

EndSub

实验2-1

PrivateSubButton1_Click（……）HandlesButton1.Click

TextBox1.Text=Int（Rnd（）*10+0）

TextBox2.Text=Int（Rnd（）*90+10）

TextBox3.Text=Int（Rnd（）*（999-100+1）+100）

EndSub

PrivateSubButton2_Click（……）HandlesButton2.Click

Dimavg!

avg=（Val（TextBox1.Text）+Val（TextBox2.Text）+Val（TextBox3.Text））/3

Label2.Text="三个数的平均值为：

"&Format（avg,"0.00"）

EndSub

PrivateSubButton3_Click（……）HandlesButton3.Click

End

EndSub

实验2-4

PrivateSubButton1_Click（……）HandlesButton1.Click

Dimn%

n=Val（InputBox（"输入个数"））

Label2.Text=Button1.Text&"函数的结果"

TextBox2.Text=StrDup（n,TextBox1.Text）

EndSub

PrivateSubButton2_Click（……）HandlesButton2.Click

Label2.Text=Button2.Text&"函数的结果"

TextBox2.Text=UCase（TextBox1.Text）

EndSub

PrivateSubButton3_Click（……）HandlesButton3.Click

Label2.Text=Button3.Text&"函数的结果"

TextBox2.Text=LCase（TextBox1.Text）

EndSub

PrivateSubButton4_Click（……）HandlesButton4.Click

Dimn,mAsInteger

n=Val（InputBox（"输入n"））

m=Val（InputBox（"输入m"））

TextBox2.Text=Mid（TextBox1.Text,n,m）

Label2.Text=Button4.Text&"函数的结果"

EndSub

PrivateSubButton5_Click（……）HandlesButton5.Click

Label2.Text=Button5.Text&"函数的结果"

TextBox2.Text=Len（TextBox1.Text）

EndSub

PrivateSubButton6_Click（……）HandlesButton6.Click

Dims1$

s1=Val（InputBox（"输入s1"））

TextBox2.Text=InStr（TextBox1.Text,s1）

Label2.Text=Button6.Text&"函数的结果"

EndSub

PrivateSubButton7_Click（……）HandlesButton7.Click

Dims1$,news$

s1=InputBox（"输入s1"）

news=InputBox（"输入news"）

TextBox2.Text=Replace（TextBox1.Text,s1,news）

Label2.Text=Button7.Text&"函数的结果"

EndSub

PrivateSubButton8_Click（……）HandlesButton8.Click

Label2.Text=Button8.Text&"函数的结果"

TextBox2.Text=Trim（TextBox1.Text）

EndSub

实验2-5

PrivateSubButton1_Click（……）HandlesButton1.Click

Label2.Text=Button1.Text&"函数的结果"

TextBox2.Text=Val（TextBox1.Text）

EndSub

PrivateSubButton2_Click（……）HandlesButton2.Click

Label2.Text=Button2.Text&"函数的结果"

TextBox2.Text=Str（TextBox1.Text）

EndSub

PrivateSubButton3_Click（……）HandlesButton3.Click

Label2.Text=Button3.Text&"函数的结果"

TextBox2.Text=Chr（TextBox1.Text）

EndSub

PrivateSubButton4_Click（……）HandlesButton4.Click

TextBox2.Text=Asc（TextBox1.Text）

Label2.Text=Button4.Text&"函数的结果"

EndSub

实验3-2

PrivateSubButton1_Click（……）HandlesButton1.Click

Dimx!

y!

IfNotIsNumeric（TextBox1.Text）Then

MsgBox（"error"）

TextBox1.Text=""

TextBox1.Focus（）

Else

x=TextBox1.Text

Ifx<10Then

y=30

ElseIfx<50Then

y=x*2.5

Else

y=x*2

EndIf

Ify>150Theny=150

EndIf

TextBox2.Text=y

EndSub

实验3-7

PrivateSubButton1_Click（……）HandlesButton1.Click

Dima#,b#,c#,dt!

s1$,s2$

a=Val（TextBox1.Text）

b=Val（TextBox2.Text）

c=Val（TextBox3.Text）

dt=b^2-4*a*c

Ifdt>0Then'实根

dt=Math.Sqrt（dt）

Label3.Text=Format（（-b+dt）/2/a,"0.00"）

Label5.Text=Format（（-b-dt）/2/a,"0.00"）

ElseIfdt=0Then'重根

dt=Math.Sqrt（dt）

Label3.Text=Format（-b/2/a,"0.00"）

Label5.Text=Format（-b/2/a,"0.00"）

Else

dt=Math.Sqrt（-dt）'复根

s1=Format（-b/2/a,"0.00"）

s2=Format（dt/2/a,"0.00"）

Label3.Text=s1&"+"&s2&"i"

Label5.Text=s1&"-"&s2&"i"

EndIf

EndSub

实验3-8

'If语句

Dimn%,s$

n=InputBox（"输入一个数字~7"）

Ifn=1Then

s="星期一"

ElseIfn=2Then

s="星期二"

ElseIfn=3Then

s="星期三"

ElseIfn=4Then

s="星期四"

ElseIfn=5Then

s="星期五"

ElseIfn=6Then

s="星期六"

Else

s="星期日"

EndIf

MsgBox（s）

'Select语句:

SelectCasen

Case1

s="星期一"

Case2

s="星期二"

Case3

s="星期三"

Case4

s="星期四"

Case5

s="星期五"

Case6

s="星期六"

Case7

s="星期日"

EndSelect

'Choose（函数）

s=Choose（n,"星期一","星期二","星期三","星期四","星期五","星期六","星期日"）

实验4-2

PrivateSubButton1_Click（……）HandlesButton1.Click

Dimi%,c$

Label1.Text=""

Fori=1To9

c=StrDup（18-2*i,Chr（i+64））

label1.text&=Space（i）&c&vbCrLf

Nexti

EndSub

实验4-5

PrivateSubButton1_Click（……）HandlesButton1.Click‘三重循环

Dimi%,j%,k%,t%

Label1.text=""

Fori=1To9

Forj=0To9

Fork=0To9

t=i*100+j*10+k

Ift=i^3+j^3+k^3Then

Label1.text&=t&vbCrLf

EndIf

Nextk

Nextj

Nexti

EndSub

或者：

PrivateSubButton2_Click（……）HandlesButton2.Click‘单重循环

Dimi%,j%,k%,t%

Label2.Text=""

Fort=100To999

i=t\100

j=（tMod100）\10

k=tMod10

Ift=i^3+j^3+k^3Then

Label2.Text&=t&vbCrLf

EndIf

Nextt

EndSub

实验4-7

PrivateSubForm1_Load（……）HandlesMe.Load

HScrollBar1.Maximum=1

HScrollBar1.Maximum=9

HScrollBar2.Minimum=5

HScrollBar1.Maximum=10

EndSub

PrivateSubHScrollBar1_Scroll1（……）HandlesHScrollBar1.Scroll

Label1.Text="a="&HScrollBar1.Value

EndSub

PrivateSubHScrollBar2_Scroll（……）HandlesHScrollBar2.Scroll

Dima,n,iAsInteger,sum&,t&

Label2.Text="n="&HScrollBar2.Value

a=HScrollBar1.Value

n=HScrollBar2.Value

Label3.Text="sum="&vbCrLf

sum=0:

t=0

Fori=1Ton

t=t*10+a

Label3.Text&=Space（15-Len（Trim（t）））&t&vbCrLf

sum=sum+t

Next

Label3.Text&="------------------------"&vbCrLf

Label3.Text&=Space（15-Len（Trim（t）））&sum

EndSub

实验4-10

Dimt%

PrivateSubTextBox1_KeyPress（……）HandlesTextBox1.KeyPress

IfAsc（e.KeyChar）=13Then

ProgressBar1.Minimum=0

t=Val（TextBox1.Text）*60

ProgressBar1.Maximum=t

ProgressBar1.Value=t

Timer1.Interval=1000

Timer1.Enabled=True

EndIf

EndSub

PrivateSubTimer1_Tick（……）HandlesTimer1.Tick

t=t-1

TextBox1.Text=t\60&":

"&Format（tMod60,"00"）

ProgressBar1.Value=t

Ift=0ThenTimer1.Enabled=False

EndSub

实验4-13

PrivateSubLabel1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesLabel1.Click

Dimx%,y%,z%,a,b,c

Label1.Text="xyz"&vbCrLf

Forx=1To6

Fory=1To6

Forz=5To6

Ifx

a=Choose（x,"星期一","星期二","星期三","星期四","星期五","星期六"）

b=Choose（y,"星期一","星期二","星期三","星期四","星期五","星期六"）

c=Choose（z,"星期一","星期二","星期三","星期四","星期五","星期六"）

Label1.Text&=""&a&""&b&""&c&vbCrLf

EndIf

Next

Next

Next

EndSub

实验5-1

PrivateSubForm1_Click（……）HandlesMe.Click

Dims（9）AsInteger,i,Min,Max,Aver

s（0）=30+Int（Rnd（）*70）

Min=s（0）

Max=s（0）

Aver=s（0）

Label1.Text=s（0）

Fori=1To9

s（i）=30+Int（Rnd（）*70）

Label1.Text&=Space（4）&s（i）

Aver+=s（i）

Ifs（i）

Ifs（i）>MaxThenMax=s（i）

Nexti

Aver=Aver/10

Label1.Text&=vbCrLf

Label1.Text&="Min="&Min&"Max="&Max&"Average="&Aver&vbCrLf

EndSub

实验5-3

Dimmark（19）AsInteger

PrivateSubButton1_Click（……）HandlesButton1.Click'产生

Dimi%

Fori=0To19

mark（i）=Int（Rnd（）*100）

Label1.Text&=mark（i）&Space（6-Len（Str（mark（i））））

If（i+1）Mod5=0ThenLabel1.Text&=vbCrLf

Nexti

EndSub

PrivateSubButton2_Click（……）HandlesButton2.Click'统计

Dims%（9）,i%,k%

Fori=0To19

k=mark（i）\10

SelectCasek

Case0To5'不及格人数

s（5）=s（5）+1

Case9To10'优秀人数

s（9）=s（9）+1

Case6To8'其他三个分数段的人数

s（k）=s（k）+1

EndSelect

Nexti

Fori=5To9

Label2.Text&="s（"&i&"）的人数有"&s（i）&"个"&vbCrLf

Next

EndSub

实验5-4

Dima%（9）,i%,j%,imax%,m

PrivateSubButton1_Click（……）HandlesButton1.Click‘产生

Randomize（）

Fori=0To9

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

Label1.Text&=""&a（i）

Next

EndSub

PrivateSubButton2_Click（……）HandlesButton2.Click‘排序

Fori=0To8

imax=i

Forj=i+1To9

Ifa（j）>a（imax）Then

imax=j

EndIf

Next

m=a（i）

a（i）=a（imax）

a（imax）=m

Next

Fori=0To9

Label2.Text&=""&a（i）

Next

EndSub

实验5-6

Dimn%,a%（100,100）,i%,j%

PrivateSubTextBox1_KeyPress（……）HandlesTextBox1.KeyPress

IfAsc（e.KeyChar）=13Then

n=Val（TextBox1.Text）

Fori=0Ton-1

Forj=0Toi

Ifi=0Orj=0Ori=jThen

a（i,j）=1

Else

a（i,j）=a（i-1,j-1）+a（i-1,j）

EndIf

Label1.Text&=a（i,j）&Space（4-Len（Trim（a（i,j））））

Ne