1、選擇排序

創(chuàng)新互聯(lián)公司長(zhǎng)期為上1000+客戶提供的網(wǎng)站建設(shè)服務(wù)，團(tuán)隊(duì)從業(yè)經(jīng)驗(yàn)10年，關(guān)注不同地域、不同群體，并針對(duì)不同對(duì)象提供差異化的產(chǎn)品和服務(wù)；打造開放共贏平臺(tái)，與合作伙伴共同營(yíng)造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為善左企業(yè)提供專業(yè)的網(wǎng)站設(shè)計(jì)制作、成都網(wǎng)站設(shè)計(jì)，善左網(wǎng)站改版等技術(shù)服務(wù)。擁有10多年豐富建站經(jīng)驗(yàn)和眾多成功案例,為您定制開發(fā)。

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)的素?cá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

不斷更新中，敬請(qǐng)期待。

另外有需要云服務(wù)器可以了解下創(chuàng)新互聯(lián)scvps.cn，海內(nèi)外云服務(wù)器15元起步，三天無(wú)理由+7*72小時(shí)售后在線，公司持有idc許可證，提供“云服務(wù)器、裸金屬服務(wù)器、高防服務(wù)器、香港服務(wù)器、美國(guó)服務(wù)器、虛擬主機(jī)、免備案服務(wù)器”等云主機(jī)租用服務(wù)以及企業(yè)上云的綜合解決方案，具有“安全穩(wěn)定、簡(jiǎn)單易用、服務(wù)可用性高、性價(jià)比高”等特點(diǎn)與優(yōu)勢(shì)，專為企業(yè)上云打造定制，能夠滿足用戶豐富、多元化的應(yīng)用場(chǎng)景需求。

文章標(biāo)題：vb.net中的部分代碼-創(chuàng)新互聯(lián)
文章URL：http://www.chinadenli.net/article40/dccdho.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站排名、服務(wù)器托管、移動(dòng)網(wǎng)站建設(shè)、網(wǎng)站策劃、自適應(yīng)網(wǎng)站、網(wǎng)頁(yè)設(shè)計(jì)公司

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)