您好,登錄后才能下訂單哦!
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 Integer, k As Integer, t As Integer
For i = 0 To 10
a(i) = Int(Rnd() * 100 + 1)
Next
For i = 0 To 9
k = i
For j = i + 1 To 10
If a(k) > a(j) Then
k = j
End If
t = a(k)
a(k) = a(i)
a(i) = t
Next
Next
For i = 0 To 10
Console.Write(a(i) & Space(2))
Next
End Sub
End Class
2、冒泡排序
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a(10) As Integer
Dim i As Integer, j As Integer, t As Integer, k As Integer
For i = 0 To 10
a(i) = Int(Rnd() * 100 + 1)
Next
For i = 0 To 9
For j = 1 To 10 - i
k = j - 1
If (a(k) > a(j)) Then
t = a(k)
a(k) = a(j)
a(j) = t
End If
k = k + 1
Next
Next
For i = 0 To 10
Console.Write(a(i) & Space(2))
Next
End Sub
End Class
3、求1到100內(nèi)的素數(shù)
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim n%, j%, i%
j = Val(InputBox("輸入", "n值"))
For n = 1 To j
For i = 2 To Math.Sqrt(n)
If (n Mod i = 0) Then
Exit For
End If
Next
If (i > Math.Sqrt(n)) Then
Label1.Text = Label1.Text & n
End If
Next
End Sub
End Class
Dim a%, b%, c%
For a = 0 To 10
For b = 0 To 10
For c = 0 To 10
If a * a + b * b + c * c = 100 Then
Label1.Text = Label1.Text & a & b & c & vbCrLf
End If
Next
Next
Next
不斷更新中,敬請期待。
免責(zé)聲明:本站發(fā)布的內(nèi)容(圖片、視頻和文字)以原創(chuàng)、轉(zhuǎn)載和分享為主,文章觀點不代表本網(wǎng)站立場,如果涉及侵權(quán)請聯(lián)系站長郵箱:is@yisu.com進(jìn)行舉報,并提供相關(guān)證據(jù),一經(jīng)查實,將立刻刪除涉嫌侵權(quán)內(nèi)容。