Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Vytvorenie novej aplikácie konzoly . Otvorte Visual Basic Express alebo Visual Studio . Kliknite na " Súbor " , " New Project " . Keď sa objaví nový projekt forma , zvoľte " Visual Basic " , potom " Windows " z stromovom zobrazení vyberte ikonu " Aplikácia konzoly " . Kliknite na tlačidlo " OK " . Po krátkej chvíli sa zobrazí kód šablóny pre nové aplikácie konzoly
2
Vytvorte funkciu nazvanú NewString ihneď po vyhlásení modulu takto : .
Module Module1
funkcia NewString ( byVal ľan As Integer ) As String
funkcie NewString vracia postupnosť náhodných písmen a čísel . Hodnota odovzdaný funkcii určuje dĺžku reťazca vráteného .
3
deklarovať niekoľko pamäťových premenných použitých vo funkcii .
Dim znaky As String = " ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 "
Dim randomizer As New Random
Dim s As String = " "
Dim i As Integer
variabilné znaky obsahuje všetky možné písmen a čísla, ktoré sa môžu objaviť v novom reťazci . Existuje niekoľko spôsobov , ktoré znaky by mohli byť generované , ale je to tak jednoduché a priamočiare , ako niektoré z alternatív .
Randomizovat je nová inštancia náhodných čísel triede . Vzhľadom k tomu , že je trieda , musí byť nový prevádzkovateľ tu používa na načítanie jeho polia a vlastnosti do pamäti a automaticky zavolá jeho konštruktory osiva generátor náhodných čísel .
Premenné s sa bude držať nový reťazec , ako je postavený a ja ich index do Znaku poľa .
4
Vytvorte slučku , ktorá generuje náhodné sekvencie .
Kým s.Length < ľan
aj = randomizer.Next ( chars.Length ) Spojené
s a = znakmi ( i )
End While
na prvom opakovaní slučky , som sa dostane na ďalšie náhodné číslo od Randomizer . Vzhľadom k tomu , dĺžka reťazca je 36 znakov , bude sa počet vrátil rozsahu od 0 do 35 rokov . Druhý riadok vnútri slučky dostane jeden znak pomocou indexu som z Znaku reťazca potom pripojí do s . Táto slučka sa opakuje , kým reťazca s obsahuje požadovaný počet náhodných znakov .
5
Späť reťazec s a potom ukončiť funkciu .
Vrátiť s
End Function
6
Pridať kód do hlavnej metódu vyskúšať funkciu .
Sub main ( )
Console.WriteLine ( NewString ( 10 ) )
End Sub End Module
Pri spustení programu , 10 - znakový reťazec je zapísaný do konzoly . Kliknite na tlačidlo F5 spustiť program