Dator
 |  Startsida |  Hårdvara |  Nätverk |  Programmering |  Programvara |  Felsökning |  System |   
Programmering
  • C /C + + -programmering
  • Computer Programspråk
  • Delphi Programmering
  • Java Programming
  • JavaScript programmering
  • PHP /MySQL Programmering
  • perl Programmering
  • python Programming
  • Ruby programmering
  • Visual Basics Programmering
  • * Dator Kunskap >> Programmering >> Visual Basics Programmering >> Content

    Hur man bygger en dator Table

    Du kan bygga en dator tabell med den mest generella av programmering begrepp , uppställningen och den kapslade slinga . Dessa begrepp kan användas med alla programmeringsspråk . Arrayen används ofta för att lagra stora mängder information. Den kapslade slingan är i grunden två slingor , en inuti den andra . Naturligtvis kan du använda ett kalkylblad eller ett databasprogram för att skapa en tabell , alltför . Men arrayen och nästlade loopen är de generella logiska begrepp som ofta används i programmering . Du kan bygga en enkel tabell i Visual Basic med hjälp av en matris och två slingor . Instruktioner
    bygga en dator Tabell
    1

    Starta Excel och öppna ett nytt kalkylblad , och hålla " Alt " och " F11 " för att gå in i Visual Basic Editor . Välj " Infoga " och " modul " och klicka på den nya modulen för att börja kopiera koden .
    2

    Skriv in följande kod .

    Sub TestArray ( ) Kommentarer börjar med citat sign'Activate kalkylblad och gå till cell A1Worksheets ( " Blad1 " ) ActivateApplication.Goto referens : . . = kalkylblad ( " Blad1 " ) Range ( " A1 " ) katalog

    " Setup en 2 - dimensionell array med 5 platser i första dimensionen och 5 platser i andra dimensionDim Vis (1 till 5 , 1 till 5 ) As Integer

    " Starta yttre slinga i nästlad loop structureFor i = 1 till 5

    " Starta inre slinga i nästlad loop structureFor a = 1 att 5'Store ett värde i array (för detta exempel , program helt enkelt räknar och lagrar ) Vis ( i , a ) = ( i * 5 ) + a - 5'Put arrayen värdet på din kalkylblad så att du kan se itActiveCell.Value = Vis ( i , a ) " Flytta ned en cell på din spreadsheetActiveCell.Offset ( rowOffset : = 1 , columnOffset : = 0 ) . Activate'end inre loopNext aActiveCell.Offset ( rowOffset : = -5 , columnOffset : . = 1 ) Activate'end av yttre loopNext IEnd Sub
    3

    Observera att du har definierat en 2 - dimensionell array i uttalandet , " Dim Vis ( 1 till 5 , 1 till 5 ) As Integer . "
    4

    Notera de nästlade loopar som skapats med två " för ... Nästa uttalanden . "
    5

    kör programmet genom klicka på den blå triangeln under " Run " och klicka på den gröna " X " i övre vänstra för att återgå till kalkylbladet och se utgången av programmet . Granska kalkylblad och förstå att en 2 - dimensionell array som har en 5x5 struktur har 25 lagringspositioner . Kontrollera att ditt kalkylblad ser ut ungefär så här :

    1 6 11 16 212 7 12 17 223 8 13 18 234 9 14 19 245 10 15 20 25

    Tidigare:

    nästa:
    relaterade artiklar
    ·Inaktivera muspekaren med VBA i Word
    ·VB6 Speltid Error 70 : Åtkomst nekad
    ·Hur du jämför en dejt med VB.NET
    ·Användning av LETARAD i VBA
    ·Så här kontrollerar för ODBC Driver i VBA
    ·Hur man skapar en slumpmässig alfanumerisk sträng
    ·Hur man skriver ut data i VB.NET
    ·OpenText Metod i VBA
    ·Hur att paketera en fil med OCX i Visual Basic 6.0
    ·Hur man gör två tabeller i en listruta i VB.net
    Utvalda artiklarna
    ·Hur man kompilerar C + + Med FStream
    ·Hur vill kolla beroenden i Python
    ·Hur ladda upp filer till en SQL-databas
    ·Hur fungerar en dator Utför subtraktion
    ·Hur Simple Räkna Prime Numbers i PHP
    ·MySQL Vs. Text
    ·Hur man läser en USB Joystick i Visual Basic
    ·Hur fixar Visual C Påstående Underlåtenhet
    ·Hur man tar bort ett värde från en associativ array i…
    ·High Level datorspråk
    Copyright © Dator Kunskap http://www.dator.xyz