vb.net中的部分代码

概述1、选择排序 Public Class Form1     Dim a(10) As Integer     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim i As Integer, j As Intege

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

不断更新中，敬请期待。

总结

以上是内存溢出为你收集整理的vb.net中的部分代码全部内容，希望文章能够帮你解决vb.net中的部分代码所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。