vb实验答案aspan class资料

kwsy1.2属性设置二PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickTextBox1.Enabled=FalseEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickTextBox1.Visible=FalseEndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickTextBox1.Enabled=TrueTextBox1.Visible=TrueEndSubEndClasskwsy2.3评选奖学金PublicClassForm1PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickTextBox1.Text=""TextBox2.Text=""TextBox3.Text=""TextBox4.Text=""TextBox1.Focus()EndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickEndEndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDima!,b!,c!,d!a=Val(TextBox1.Text)b=Val(TextBox2.Text)c=Val(TextBox3.Text)d=(a+b+c)/3If(a=100Andb=100Andc>=80)Or(a=100Andc=100Andb>=80)Or(b=100Andc=100Anda>=80)Ord>=95ThenTextBox4.Text="获一等奖"ElseIfd>=85Anda>80Andb>=80Andc>=80ThenTextBox4.Text="获二等奖"ElseIfd>=80ThenTextBox4.Text="获三等奖"ElseTextBox4.Text="不获奖学金"EndIfEndSubEndClasskwsy1.4药物反应PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimx!,y!x=Val(InputBox("请输入药物剂量","输入框"))y=1000*x-x*xMsgBox("敏感度为"&y,,"输出框")EndSubEndClass求一元二次方程的根ImportsSystem.MathPublicClassForm1PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickEndEndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDima#,b#,c#,d!,x$,y$a=Val(TextBox1.Text)b=Val(TextBox2.Text)c=Val(TextBox3.Text)d=b*b-4*a*cIfd>0Thend=Sqrt(d)x=(-b+d)/2/ay=(-b-d)/2/aTextBox4.Text=xTextBox5.Text=yElseIfd=0Thenx=-b/2/ay=-b/a/2TextBox4.Text=xTextBox5.Text=yElsed=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"EndIfEndSubEndClass求最大公约数和最小公倍数PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickEndEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDima,b,n,m,rAsLonga=Val(TextBox1.Text)b=Val(TextBox2.Text)Ifa=0Orb=0ThenInputBox("请重新输入")EndIfIfa>bThenm=a:n=bElsen=a:m=bEndIfDor=mModnm=nn=rLoopWhile(r<>0)Label3.Text="结果为："&vbCrLfLabel3.Text&=a&"与"&b&"的最大公约数为"&m&vbCrLfLabel3.Text&=a&"与"&b&"的最小公倍数为"&a*b/mEndSubEndClass特殊图形显示（二）P24PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickEndEndSubPrivateSubLabel1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesLabel1.ClickDimi!,j%Label1.Text=""Fori=1To5Label1.Text&=Space(3*(i-1))&"★"Forj=1To17-3*iLabel1.Text&="☆"NextjLabel1.Text&="★"&vbCrLfNextiLabel1.Text&=Space(3*(i-1))&"☆"&vbCrLfFori=5To1Step-1Label1.Text&=Space(3*(i-1))&"☆"Forj=1To17-3*iLabel1.Text&="★"NextjLabel1.Text&="☆"&vbCrLfNextiEndSubEndClasskysy3.1产量问题PublicClassForm1PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickEndEndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimn%,max!,s!s=0max=0Forn=20To50s=n*(300-10*(n-20))Ifs>maxThenmax=sEndIfNextForn=20To50s=n*(300-10*(n-20))Ifs=maxThenLabel1.Text&="当每亩地种植"&n&"棵梨树时达到最高产量为"&max&"kg"&vbCrLfEndIfNextEndSubEndClasskysy3.2猴子吃桃子PublicClassForm1PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickEndEndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimx!x=1Label1.Text="第7天的桃子数为：1个"&vbCrLfFori=6To1Step-1x=2*(x+1)Label1.Text&="第"&i&"天的桃子数为："&x&"个"&vbCrLfNextiEndSubEndClasskysy3.3求自然对数ePublicClassForm1PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickEndEndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimi%,r#,s#s=1r=1i=0Doi=i+1r=r*is=s+1/iLoopWhile1/r>=0.00001Label1.Text="e的值为"&Format(s,"#.######")MsgBox("e的值为"&Format(s,"#.######"),,"求e的值")EndSubEndClasskysy3.4求素数PublicClassForm1PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickEndEndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimm!,i!,n!n=0Form=1To100Fori=2Tom-1IfmModi=0ThenExitForNextiIfi=mThenn=n+1Ifn=7Thenn=0Label2.Text&=vbCrLfEndIfLabel2.Text&=m&Space(1)EndIfNextmEndSubEndClasskysy3.5图形显示PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickEndEndSubPrivateSubLabel1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesLabel1.ClickDimi!,j%Label1.Text=""Fori=1To6Label1.Text&=Space(6-i)Forj=1To2*i-1Label1.Text&=Chr(64+i)NextjLabel1.Text&=vbCrLfNextiEndSubEndClasssy4.1运动成绩排序PublicClassForm1InheritsSystem.Windows.Forms.FormDimi%,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.ClickLabel1.Text=""Label1.Text="运动员编号"&Space(3)&"成绩（秒）"&vbCrLfDimi%m=UBound(b)n=UBound(a)Fori=0TonLabel1.Text&=a(i)&Space(7)&b(i)&vbCrLfNextEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickLabel2.Text=""Label2.Text="名次"&Space(3)&"编号"&Space(3)&"成绩（秒）"&vbCrLfDimi%,j%Fori=0To8m=iForj=i+1To9Ifb(m)>b(j)Thenm=jNextjtemp=b(m):b(m)=b(i):b(i)=tempt=a(m):a(m)=a(i):a(i)=tLabel2.Text&=i+1&Space(6)&a(i)&Space(6)&b(i)&vbCrLfNextiLabel2.Text&=i+1&Space(6)&a(i)&Space(6)&b(i)&vbCrLfEndSubEndClasssy4.2矩阵求解PublicClassForm1InheritsSystem.Windows.Forms.FormDimi%,j%,a%(5,5),s%,m%,n%,k%PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickRandomize()Dimi%,j%Label1.Text=""Fori=0To4Forj=0To4a(i,j)=Int(Rnd()*99+1)Label1.Text&=a(i,j)&Space(8-Len(a(i,j)))NextLabel1.Text&=vbCrLf&vbCrLfNextEndSubPrivateSubButton2_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimi%,j%Label2.Text=""a(i,j)=Len(Label1.Text)Fori=0To4s+=a(i,i)NextLabel2.Text="主对角线元素之和是："Label2.Text&=sEndSubPrivateSubButton3_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesButton3.ClickDimi%,j%Label3.Text=""a(i,j)=Len(Label1.Text)a(m,n)=0Fori=0To4Forj=0To4Ifa(m,n)<a(i,j)Thenm=i:n=jNextNextLabel3.Text="最大元素是："Label3.Text&="第"&m+1&"行,第"&n+1&"列的"&a(m,n)EndSubPrivateSubButton4_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesButton4.ClickDimi%,j%a(i,j)=Len(Label1.Text)k=InputBox("请输入您要查找的元素：")m=5:n=5Fori=0To4Forj=0To4Ifk=a(i,j)Thenm=i:n=j:ExitForNextNextIfm=5Andn=5ThenMsgBox("您要查找的元素不存在")ElseMsgBox("您要查找的元素在第"&m+1&"行,第"&n+1&"列")EndIfEndSubPrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton5.ClickEndEndSubEndClasssy4.3杨辉三角形PublicClassForm1Dima%(1,1),i%,j%,n%PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDima%(1,1),i%,j%,n%n=Val(TextBox1.Text)ReDima%(n,n)Fori=1Tona(i,1)=1a(i,i)=1NextiFori=3TonForj=1Toia(i,j)=a(i-1,j-1)+a(i-1,j)NextNextLabel1.Text=""Fori=1TonForj=1ToiLabel1.Text&=Space(6-Len(Str(a(i,j))))&a(i,j)NextLabel1.Text&=vbCrLfNextEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDima%(1,1),i%,j%,n%n=Val(TextBox1.Text)ReDima%(n,n)Fori=1Tona(i,1)=1a(i,i)=1NextiFori=3TonForj=1Toia(i,j)=a(i-1,j-1)+a(i-1,j)NextNextFori=1TonForj=1ToiLabel2.Text&=Space(6-Len(a(i,j)))&a(i,j)NextLabel2.Text&=vbCrLfNextLabel2.Text=""Fori=1TonLabel2.Text&=Space(2*n-2*i)Forj=1ToiLabel2.Text&=Space(6-Len(Str(a(i,j))))&a(i,j)NextLabel2.Text&=vbCrLfNextEndSubEndClasssy4.4猴子选大王PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDima()AsInt16Dimm%,n%,i%,j%,t%m=Int(TextBox1.Text)n=Int(TextBox2.Text)ReDima(m)t=mi=1DoWhilet<>1Ifa(i)<>-1Thenj=j+1Ifj=nThena(i)=-1:t=t-1:j=0Elsea(i)=jEndIfEndIfi=i+1Ifi=m+1Theni=1LoopFori=1TomIfa(i)<>-1ThenMsgBox("猴王是第"&i&"只猴子！")NextEndSubEndClass心形图的显示PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickEndEndSubPrivateSubLabel1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesLabel1.ClickDimi%DimsAsString="☆"Label1.Text=""Fori=1To4Label1.Text&=Space(4-i)&s&Space(2*(i-1))&s&Space(4-i)&Space(4-i)&s&Space(2*(i-1))&s&Space(4-i)&vbCrLfNextFori=1To9Label1.Text&=Space(i-1)&s&Space(9-i)&Space(9-i)&s&vbCrLfNextLabel1.Text&=Space(9)&sEndSubEndClasskysy4.3N人开关灯问题PrivateSubLabel1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesLabel1.ClickLabel1.Text=""Label1.Text="N盏灯排成一排，从1到N依次编号。有N个人"&vbCrLfLabel1.Text&="也从1到N依次编号。第一个人将灯全部关闭"&vbCrLfLabel1.Text&="第二个人将凡是2和2的倍数的灯全部打开，"&vbCrLfLabel1.Text&="第三个人将凡是3和3的倍数的灯作相反处理，"&vbCrLfLabel1.Text&="以后的人都跟3号一样，问第N个人操作之后，"&vbCrLfLabel1.Text&="哪几盏灯是点亮的？"EndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimi%,j%,n%,m%Dima%()n=Val(TextBox1.Text)ReDima%(n)Forj=1Tona(j)=1NextFori=1TonForj=1TonIfjModi=0ThenIfa(j)=0Thena(j)=1Elsea(j)=0EndIfEndIfNextNextLabel3.Text=""Label3.Text="点亮的灯为："Forj=1TonIfa(j)=1ThenLabel3.Text&=j&","m=m+1EndIfNextLabel3.Text&=vbCrLf&"点亮的灯数为："&mEndSubEndClasskysy4.4分鱼问题PublicClassForm1PrivateSubLabel1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesLabel1.ClickLabel1.Text="A,B,C,D,E合伙夜间捕鱼，凌晨时就疲惫不堪，各自在河边的"&vbCrLfLabel1.Text&="树丛中找地方睡着了。日上三竿，A第一个醒来，他将鱼平均"&vbCrLfLabel1.Text&="分为五份，把多余的一条扔回湖中，拿自己的一份回家了。B"&vbCrLfLabel1.Text&="第二个醒来，也将鱼平分为五份，把多余的一条扔回湖中，只"&vbCrLfLabel1.Text&="拿走自己的一份，接着C,D,E依次醒来，也按同样的方法分鱼,"&vbCrLfLabel1.Text&="问每个人醒来后看到的鱼数至少分别为多少？"EndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimi%,j%,f%(5)f(5)=1j=0DoWhilej<>4f(5)+=5Fori=5To2Step-1Iff(i)Mod4=0Thenf(i-1)=f(i)/4*5+1j=j+1Elsej=0:ExitForEndIfNextLoopLabel2.Text=""Label2.Text="他们看到的鱼至少分别为："&vbCrLfFori=1To5Label2.Text&=Chr(64+i)&":"&f(i)&"条"&vbCrLfNextEndSubEndClassKysy4.1模拟选举PublicClassForm1Dima%,b%,c%,d%,f%,i%,j$PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Clicka=Val(TextBox1.Text)Ifa=1Thenb=b+1ElseIfa=2Thenc=c+1ElseIfa=3Thend=d+1ElseIfa=4Thenf=f+1EndIfTextBox1.Text=""TextBox1.Focus()EndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickLabel1.Text&=vbCrLf&"张三"&bLabel1.Text&=vbCrLf&"李四"&cLabel1.Text&=vbCrLf&"王五"&dLabel1.Text&=vbCrLf&"赵六"&f&vbCrLfDimg()AsInteger={b,c,d,f}Dimh()AsString={"张三","李四","王五","赵六"}i=g(0):j=h(0)Fork=0To3Ifi<g(k)Theni=g(k):j=h(k)EndIfNextLabel1.Text&="************"&j&"当选！************"EndSubEndClassSy5.1六合彩开奖系统PublicClassForm1Dima%(5),n$,m$PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Clickn=Val(TextBox1.Text)Timer1.Enabled=TrueEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickTimer1.Enabled=Falsem=a(0)&a(1)&a(2)&a(3)&a(4)&a(5)Ifm=nThenMsgBox("恭喜中奖")ElseMsgBox("本期中奖号码为："&m&vbCrLf&"您的彩票号码为："&n&"谢谢您的支持！")EndIfEndSubPrivateSubTimer1_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Hand