Results 1 to 11 of 11

Thread: visul basic

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User
    Join Date: Jan:2009
    Location: laki
    Posts: 4

    visul basic

    visual basic :
    list box . list box
    Public Class Form1
    Dim m(,) As Integer
    Dim n As Byte

    Private Sub btinput_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btinput.Click
    n = NuN.value
    ReDim m(n - 1, n - 1)
    For r As Byte = 0 To n - 1
    For c As Byte = 0 To n - 1
    m(r, c) = CInt(InputBox("mc" & r & "," & c & ")="))
    Next
    Next


    End Sub

    Private Sub btoutput_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btoutput.Click
    Dim t As String = ""
    For r As Byte = 0 To n - 1
    For c As Byte = 0 To n - 1
    t &= m(r, c) & "!"
    Next
    t &= Chr(10) & Chr(13)
    Next
    MsgBox(t)
    .

  2. #2
    ɐ-əpoɔᴉu⋂ ɐ ə anrieff's Avatar
    Join Date: Apr:2004
    Location: Sofia
    Posts: 8,448
    . ,

    4 10 0
    3 2 5
    1 8 4

    "" :
    2
    5
    4
    8
    1
    3
    4
    10
    0

    - 33, 55, 77 ..
    VB, :

    1 , 1 , 2 , 2 , 3 , 3 , 4 , 4 ..
    , . .
    "640K ught to be enough for anybody" - Bill Gates, 1981
    ::Machine specs::Fract::AGG::::Baileys::blog::YouTube channel

  3. #3
    Defender Kaspirtov's Avatar
    Join Date: Jun:2006
    Location: Sf
    Posts: 7,414
    Quote Originally Posted by anrieff View Post
    - 33, 55, 77 ..
    ?! ! :
    1 2
    3 4
    ?
    ?! , .

    :
    1 2 3 4
    5 6 7 8
    9 10 11 12
    13 14 15 16

    :
    6 7
    10 11
    "" :
    Quote Originally Posted by anrieff View Post
    VB, :
    1 , 1 , 2 , 2 , 3 , 3 , 4 , 4 ..
    .. , 7.

    :
    "2" 22.
    2n x 2n, , (2n+1) x (2n+1) , .
    Last edited by Kaspirtov; 26th January 2009 at 12:05.
    " , , , , ."

  4. #4
    Registered User
    Join Date: Jan:2009
    Location: laki
    Posts: 4

    ok

    a for each
    Last edited by plam87; 26th January 2009 at 14:28.

  5. #5
    Defender Kaspirtov's Avatar
    Join Date: Jun:2006
    Location: Sf
    Posts: 7,414
    Quote Originally Posted by plam87 View Post
    a s for each li trqbva da izpolzvam za samoto razg1vane pri pisaneto na programniq kod
    , , , , ... .

    - , , .
    - .
    , / (i,j) / (i, n-i), n x n.
    " , , , , ."

  6. #6
    ɐ-əpoɔᴉu⋂ ɐ ə anrieff's Avatar
    Join Date: Apr:2004
    Location: Sofia
    Posts: 8,448
    While , !
    , . .
    "640K ught to be enough for anybody" - Bill Gates, 1981
    ::Machine specs::Fract::AGG::::Baileys::blog::YouTube channel

  7. #7
    Registered User
    Join Date: Jan:2009
    Location: laki
    Posts: 4
    Last edited by plam87; 26th January 2009 at 17:41.

  8. #8
    . BobyTT's Avatar
    Join Date: Aug:2001
    Location: Up North
    Posts: 8,040
    Quote Originally Posted by plam87 View Post
    6
    "6"

  9. #9
    Registered User
    Join Date: Jan:2009
    Location: laki
    Posts: 4

    For Each El In m
    ListBox1.Items.Add(El)
    Next
    End Sub
    .

  10. #10
    Defender Kaspirtov's Avatar
    Join Date: Jun:2006
    Location: Sf
    Posts: 7,414
    Quote Originally Posted by plam87 View Post

    For Each El In m
    ListBox1.Items.Add(El)
    Next
    End Sub
    .
    ?! E kak ?! , m -> ListBox1 - . - .

    ! anrieff, . 4- , - . - ! m, ListBox1 . , m, .
    " , , , , ."

  11. #11
    Registered User
    Join Date: Oct:2003
    Posts: 1,860
    , , , .
    - - . , , . , , , , . "" , "" , .

    - ( ) ( ), .
    ' .
    ' .
    ' - 1
    ' - / 1 2
    ' - 2
    ' - / 2 3
    ' - 3
    ' - / 3 4
    ' - 4
    ' - / 4 1
    ' .

    - -

    , , , , .
    - , . - . .
    - - /. , . ( ), / . - , .
    Last edited by Jonata; 31st January 2009 at 13:25.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 . .
iskamPC.com | mobility.BG | Bloody's Techblog | | 3D Vision Blog |