Results 1 to 7 of 7

Thread: VBA

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User
    Join Date: Aug:2008
    Location: sofia
    Posts: 167

    VBA

    , :
    3 ( excel) 3 .
    .
    .

  2. #2
    Registered User
    Join Date: Oct:2003
    Location:
    Posts: 4,317

  3. #3
    Registered User
    Join Date: Aug:2008
    Location: sofia
    Posts: 167
    .M N .
    ,
    msgbox(" M = " & M ) = 0

    Option Explicit
    Dim M As Integer
    Dim N As Integer
    dim () as single

    Private Sub CommandButton1_Click()
    Dim fname As String

    Open fname For Input As #1
    Input #1, M: Input #1, N
    ReDim A(M, N)




    Private Sub CommandButton2_Click()
    Dim i As Integer, j As Integer , max as single

    Max = Abs(A(1, 1))
    MsgBox ("n = " & N)
    For j = 2 To N
    If Max < Abs(A(1, j)) Then Max = Abs(A(1, j)): Stylb = j
    Next j

    End Sub



    Private Sub CommandButton3_Click()

    MsgBox ("M = " & M)

    End Sub

  4. #4
    Registered User
    Join Date: Oct:2003
    Location:
    Posts: 4,317
    fname ?

  5. #5
    Registered User
    Join Date: Aug:2008
    Location: sofia
    Posts: 167

    fname = Inputbox("wawedete ime na fail", "FileName", "c:\data.txt")

  6. #6
    Registered User
    Join Date: Oct:2003
    Location:
    Posts: 4,317
    M N ?

  7. #7
    Registered User
    Join Date: Aug:2008
    Location: sofia
    Posts: 167
    7 5

    ---------- 14:45 ---------- 14:36 ----------

    , .
    .

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 |