vb实验答案.docx

vb实验答案.docx

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

vb实验答案

kwsy1.2属性设置二

PublicClassForm1

PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click

TextBox1.Enabled=False

EndSub

PrivateSubButton2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2.Click

TextBox1.Visible=False

EndSub

PrivateSubButton3_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton3.Click

TextBox1.Enabled=True

TextBox1.Visible=True

EndSub

EndClass

kwsy2.3评选奖学金

PublicClassForm1

PrivateSubButton2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2.Click

TextBox1.Text=""

TextBox2.Text=""

TextBox3.Text=""

TextBox4.Text=""

TextBox1.Focus（）

EndSub

PrivateSubButton3_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton3.Click

End

EndSub

PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click

Dima!

b!

c!

d!

a=Val（TextBox1.Text）

b=Val（TextBox2.Text）

c=Val（TextBox3.Text）

d=（a+b+c）/3

If（a=100Andb=100Andc>=80）Or（a=100Andc=100Andb>=80）Or（b=100Andc=100Anda>=80）Ord>=95Then

TextBox4.Text="获一等奖"

ElseIfd>=85Anda>80Andb>=80Andc>=80Then

TextBox4.Text="获二等奖"

ElseIfd>=80Then

TextBox4.Text="获三等奖"

Else

TextBox4.Text="不获奖学金"

EndIf

EndSub

EndClass

kwsy1.4药物反应

PublicClassForm1

PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click

Dimx!

y!

x=Val（InputBox（"请输入药物剂量","输入框"））

y=1000*x-x*x

MsgBox（"敏感度为"&y,,"输出框"）

EndSub

EndClass

求一元二次方程的根

ImportsSystem.Math

PublicClassForm1

PrivateSubButton2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2.Click

End

EndSub

PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click

Dima#,b#,c#,d!

x$,y$

a=Val（TextBox1.Text）

b=Val（TextBox2.Text）

c=Val（TextBox3.Text）

d=b*b-4*a*c

Ifd>0Then

d=Sqrt（d）

x=（-b+d）/2/a

y=（-b-d）/2/a

TextBox4.Text=x

TextBox5.Text=y

ElseIfd=0Then

x=-b/2/a

y=-b/a/2

TextBox4.Text=x

TextBox5.Text=y

Else

d=Math.Sqrt（-d）

x=Format（-b/2/a,"0.0000"）

y=Format（d/2/a,"0.0000"）

TextBox4.Text=x&"+"&y&"i"

TextBox5.Text=x&"-"&y&"i"

EndIf

EndSub

EndClass

求最大公约数和最小公倍数

PublicClassForm1

PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click

End

EndSub

PrivateSubButton2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2.Click

Dima,b,n,m,rAsLong

a=Val（TextBox1.Text）

b=Val（TextBox2.Text）

Ifa=0Orb=0Then

InputBox（"请重新输入"）

EndIf

Ifa>bThen

m=a:

n=b

Else

n=a:

m=b

EndIf

Do

r=mModn

m=n

n=r

LoopWhile（r<>0）

Label3.Text="结果为：

"&vbCrLf

Label3.Text&=a&"与"&b&"的最大公约数为"&m&vbCrLf

Label3.Text&=a&"与"&b&"的最小公倍数为"&a*b/m

EndSub

EndClass

特殊图形显示

（二）P24

PublicClassForm1

PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click

End

EndSub

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

Dimi!

j%

Label1.Text=""

Fori=1To5

Label1.Text&=Space（3*（i-1））&"★"

Forj=1To17-3*i

Label1.Text&="☆"

Nextj

Label1.Text&="★"&vbCrLf

Nexti

Label1.Text&=Space（3*（i-1））&"☆"&vbCrLf

Fori=5To1Step-1

Label1.Text&=Space（3*（i-1））&"☆"

Forj=1To17-3*i

Label1.Text&="★"

Nextj

Label1.Text&="☆"&vbCrLf

Nexti

EndSub

EndClass

kysy3.1产量问题

PublicClassForm1

PrivateSubButton2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2.Click

End

EndSub

PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click

Dimn%,max!

s!

s=0

max=0

Forn=20To50

s=n*（300-10*（n-20））

Ifs>maxThen

max=s

EndIf

Next

Forn=20To50

s=n*（300-10*（n-20））

Ifs=maxThen

Label1.Text&="当每亩地种植"&n&"棵梨树时达到最高产量为"&max&"kg"&vbCrLf

EndIf

Next

EndSub

EndClass

kysy3.2猴子吃桃子

PublicClassForm1

PrivateSubButton2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2.Click

End

EndSub

PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click

Dimx!

x=1

Label1.Text="第7天的桃子数为：

1个"&vbCrLf

Fori=6To1Step-1

x=2*（x+1）

Label1.Text&="第"&i&"天的桃子数为：

"&x&"个"&vbCrLf

Nexti

EndSub

EndClass

kysy3.3求自然对数e

PublicClassForm1

PrivateSubButton2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2.Click

End

EndSub

PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click

Dimi%,r#,s#

s=1

r=1

i=0

Do

i=i+1

r=r*i

s=s+1/i

LoopWhile1/r>=0.00001

Label1.Text="e的值为"&Format（s,"#.######"）

MsgBox（"e的值为"&Format（s,"#.######"）,,"求e的值"）

EndSub

EndClass

kysy3.4求素数

PublicClassForm1

PrivateSubButton2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2.Click

End

EndSub

PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click

Dimm!

i!

n!

n=0

Form=1To100

Fori=2Tom-1

IfmModi=0ThenExitFor

Nexti

Ifi=mThen

n=n+1

Ifn=7Then

n=0

Label2.Text&=vbCrLf

EndIf

Label2.Text&=m&Space

（1）

EndIf

Nextm

EndSub

EndClass

kysy3.5图形显示

PublicClassForm1

PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click

End

EndSub

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

Dimi!

j%

Label1.Text=""

Fori=1To6

Label1.Text&=Space（6-i）

Forj=1To2*i-1

Label1.Text&=Chr（64+i）

Nextj

Label1.Text&=vbCrLf

Nexti

EndSub

EndClass

sy4.1运动成绩排序

PublicClassForm1

InheritsSystem.Windows.Forms.Form

Dimi%,j%,m%,temp!

t$,n%

Dima$（）={207,126,453,"096",339,"077",231,276,122,302}

Dimb!

（）={14.5,14.2,15.2,15.7,14.9,15.1,14.7,13.9,13.7,14.5}

PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click

Label1.Text=""

Label1.Text="运动员编号"&Space（3）&"成绩（秒）"&vbCrLf

Dimi%

m=UBound（b）

n=UBound（a）

Fori=0Ton

Label1.Text&=a（i）&Space（7）&b（i）&vbCrLf

Next

EndSub

PrivateSubButton2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2.Click

Label2.Text=""

Label2.Text="名次"&Space（3）&"编号"&Space（3）&"成绩（秒）"&vbCrLf

Dimi%,j%

Fori=0To8

m=i

Forj=i+1To9

Ifb（m）>b（j）Thenm=j

Nextj

temp=b（m）:

b（m）=b（i）:

b（i）=temp

t=a（m）:

a（m）=a（i）:

a（i）=t

Label2.Text&=i+1&Space（6）&a（i）&Space（6）&b（i）&vbCrLf

Nexti

Label2.Text&=i+1&Space（6）&a（i）&Space（6）&b（i）&vbCrLf

EndSub

EndClass

sy4.2矩阵求解

PublicClassForm1

InheritsSystem.Windows.Forms.Form

Dimi%,j%,a%（5,5）,s%,m%,n%,k%

PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click

Randomize（）

Dimi%,j%

Label1.Text=""

Fori=0To4

Forj=0To4

a（i,j）=Int（Rnd（）*99+1）

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

Next

Label1.Text&=vbCrLf&vbCrLf

Next

EndSub

PrivateSubButton2_Click（ByValsenderAsObject,ByValeAsSystem.EventArgs）HandlesButton2.Click

Dimi%,j%

Label2.Text=""

a（i,j）=Len（Label1.Text）

Fori=0To4

s+=a（i,i）

Next

Label2.Text="主对角线元素之和是：

"

Label2.Text&=s

EndSub

PrivateSubButton3_Click（ByValsenderAsObject,ByValeAsSystem.EventArgs）HandlesButton3.Click

Dimi%,j%

Label3.Text=""

a（i,j）=Len（Label1.Text）

a（m,n）=0

Fori=0To4

Forj=0To4

Ifa（m,n）

n=j

Next

Next

Label3.Text="最大元素是：

"

Label3.Text&="第"&m+1&"行,第"&n+1&"列的"&a（m,n）

EndSub

PrivateSubButton4_Click（ByValsenderAsObject,ByValeAsSystem.EventArgs）HandlesButton4.Click

Dimi%,j%

a（i,j）=Len（Label1.Text）

k=InputBox（"请输入您要查找的元素：

"）

m=5:

n=5

Fori=0To4

Forj=0To4

Ifk=a（i,j）Thenm=i:

n=j:

ExitFor

Next

Next

Ifm=5Andn=5Then

MsgBox（"您要查找的元素不存在"）

Else

MsgBox（"您要查找的元素在第"&m+1&"行,第"&n+1&"列"）

EndIf

EndSub

PrivateSubButton5_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton5.Click

End

EndSub

EndClass

sy4.3杨辉三角形

PublicClassForm1

Dima%（1,1）,i%,j%,n%

PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click

Dima%（1,1）,i%,j%,n%

n=Val（TextBox1.Text）

ReDima%（n,n）

Fori=1Ton

a（i,1）=1

a（i,i）=1

Nexti

Fori=3Ton

Forj=1Toi

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

Next

Next

Label1.Text=""

Fori=1Ton

Forj=1Toi

Label1.Text&=Space（6-Len（Str（a（i,j））））&a（i,j）

Next

Label1.Text&=vbCrLf

Next

EndSub

PrivateSubButton2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2.Click

Dima%（1,1）,i%,j%,n%

n=Val（TextBox1.Text）

ReDima%（n,n）

Fori=1Ton

a（i,1）=1

a（i,i）=1

Nexti

Fori=3Ton

Forj=1Toi

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

Next

Next