VBA за Word.

Zdraveite imam edna golqma molba ni6to ne razbiram ot programirane a imam da pi6a kursova zada4a svyrzana s visual basic namerih si q gotova no trqbva da napi6a obesnitelna zapiska kak sym q napravil molq nqkoi ako razbira ot tozi ezik da mi napi6e dva reda kak deistva programata ili pone komandite mnogo 6te mu byda blagodaren eto q i zada4ata i uslovieto Студент: ................................................................................

.............................

Специалност: ................................. Курс: ................ Фак. № ............................

Зададена е матрица A[MxN] с реални елементи. Раз¬мерите на матрицата M и N и елементите й да се въ¬ведат от текстов файл със съдържание

M N

A11 A12 … A1N

……………….

AM1 AM2 … AMN

Въведената матрица да се изведе контролно на Sheet1 с точност два знака след десетичната точка във вида:

Матрица А

A11 ... ... ... A1N

... ... ... ... ...

AM1 AMN

От клавиатурата да се въведе номер на ред К (1<К<M). Да се формират две нови матрици B и C, съ¬държащи съответно еле¬ментите над и под ред K. Фор¬мирането на матриците да стане в подпрограма. Мат¬риците да се изведат на Sheet1 под матрицата А в същия вид.

Да се пресметне средноаритметичната стойност на по¬ложи¬тел¬ните елементи на матрицата В. Резул¬та¬тът да се изведе на Sheet1 отдясно на матрицата B.

Стартирането на отделните задачи да стане с командни бутони.

Задал: ........................

При заверка на задачата да се представят:

 челна страница;

 разпечатка на текста на програмата;

 разпечатка на входните данни и резултатите от контролния пример;

 магнитен носител с програмата.

eto i re6enieto ot koeto ni6to ne rabiram

Dim m As Integer

Dim n As Integer

Dim fname As String

Dim i As Integer

Dim j As Integer

Dim A()

Dim B()

Dim C()

Dim suma As Double

Dim br As Integer

Dim ar As Double

Dim k As Integer

Private Sub CommandButton1_Click()

fname = InputBox("vhoden fail:", "Matrica A", "D:\PIIS\Input MxN.txt")

Open fname For Input As #1

Input #1, m

Input #1, n

ReDim A(m, n)

Cells(1, 1) = "Matrica A"

For i = 1 To m

For j = 1 To n

Input #1, A(i, j)

Cells(i + 1, j).Value = A(i, j)

Next j

Next i

Close #1

Range(Cells(2, 1), Cells(m + 1, n)).NumberFormat = "0.00"

End Sub

Private Sub CommandButton2_Click()

k = InputBox("Vyvedete K", "K", 0)

If (k <= 0) Then k = 0: ReDim C(m, n)

If (k > m) Then k = m + 1: ReDim C(1, n)

If (k = m) Then ReDim C(1, n)

If (k < m) Then ReDim C(m - k, n)

ReDim B(k + 1, n)

End Sub

Private Sub CommandButton3_Click()

If (k > 1) Then

Cells(m + 2, 1) = "Matrica B"

For i = 1 To k - 1

For j = 1 To n

B(i, j) = A(i, j)

Cells(m + i + 2, j).Value = B(i, j)

Next j

Next i

End If

For i = k To m

For j = 1 To n

Cells(m + i + 2, j) = ""

Next j

Next i

Range(Cells(m + 2, 1), Cells(m + m + 2, n)).NumberFormat = "0.00"

If (k <= 1) Then

Cells(m + 2, 1) = "Matrica B ne syshtestvuva"

For i = 1 To m

For j = 1 To n

Cells(m + i + 2, j) = ""

Next j

Next i

End If

End Sub

Private Sub CommandButton4_Click()

If (k < m) Then

Cells(m + m + 3, 1) = "Matrica C"

For i = k + 1 To m

For j = 1 To n

C(i - k, j) = A(i, j)

Cells(m + m + i - k + 3, j).Value = C(i - k, j)

Next j

Next i

End If

Range(Cells(m + 3 + m, 1), Cells(m + m + m + 3, n)).NumberFormat = "0.00"

If (k >= m) Then

Cells(m + m + 3, 1) = "Matrica C ne syshtestvuva"

For i = 1 To m

For j = 1 To n

Cells(m + m + i + 3, j) = ""

Next j

Next i

End If

End Sub

Private Sub CommandButton5_Click()

suma = 0

br = 0

ar = 0

If (k > 1) Then

For i = 1 To k - 1

For j = 1 To n

If (B(i, j) > 0) Then

suma = suma + B(i, j)

br = br + 1

End If

Next j

Next i

ar = suma / br

End If

Cells(m + m + 1, j + 2) = "Sredno aritmeti4no:"

Cells(m + m + 1, j + 4).Value = ar

End Sub

kakvato i da e pomo6t dori i nqkakvi materiali za vba 6te mi bydat ot polza samo da sa na BG mnogo vi blagodarq