1、选择排序
PublicclassForm1
Dima(10)AsInteger
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimiAsInteger,jAsInteger,kAsInteger,tAsInteger
Fori=0To10
a(i)=Int(Rnd()*100+1)
Next
Fori=0To9
k=i
Forj=i+1To10
Ifa(k)>a(j)Then
k=j
EndIf
t=a(k)
a(k)=a(i)
a(i)=t
Next
Next
Fori=0To10
Console.Write(a(i)&Space(2))
Next
EndSub
EndClass
2、冒泡排序
PublicclassForm1
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
Dima(10)AsInteger
DimiAsInteger,tAsInteger,kAsInteger
Fori=0To10
a(i)=Int(Rnd()*100+1)
Next
Fori=0To9
Forj=1To10-i
k=j-1
If(a(k)>a(j))Then
t=a(k)
a(k)=a(j)
a(j)=t
EndIf
k=k+1
Next
Next
Fori=0To10
Console.Write(a(i)&Space(2))
Next
EndSub
EndClass
3、求1到100内的素数
PublicclassForm1
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
Dimn%,j%,i%
j=Val(InputBox("输入","n值"))
Forn=1Toj
Fori=2ToMath.Sqrt(n)
If(nModi=0)Then
ExitFor
EndIf
Next
If(i>Math.Sqrt(n))Then
Label1.Text=Label1.Text&n
EndIf
Next
EndSub
EndClass
Dima%,b%,c%
Fora=0To10
Forb=0To10
Forc=0To10
Ifa*a+b*b+c*c=100Then
Label1.Text=Label1.Text&a&b&c&vbCrLf
EndIf
Next
Next
Next
不断更新中，敬请期待。
原文地址：https://www.jb51.cc/vb/258868.html
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
