'
For i = 1 To n
For j = 1 To m
Debug.Print a(i, j);
Next j
Debug.Print
Next i
End Sub
Public Sub vivod_Form()
'
For i = 1 To n
For j = 1 To m
Txt.Text = Txt.Text & a(i, j) & " "
Next j
Txt.Text = Txt.Text & Chr(13) + Chr(10)
Next i
End Sub
Private Sub Cmd_Click()
n = InputBox(" :")
m = InputBox(" :")
ReDim a(n, m)
Lbl.Caption = " " & "a(" & n & "," & m & ")"
Call vvod
'
If Chk1.Value = 1 Then Call vivod_Form
'
If Chk2.Value = 1 Then Call vivod_Immediate
'
If Chk3.Value = 1 Then Call vivod_Msg
End Sub
Private Sub Cmd1_Click()
' 1-
Lbl3.Caption = Pol(i1, j1)
End Sub
Private Sub Cmd3_Click()
For i = 1 To m
For j = 1 To n
If ((a(i, j) Mod 3) = 0) Then a(i, j) = a(1, 1)
Next j
Next i
For i = 1 To m
For j = 1 To n
Txt1.Text = Txt1.Text & a(i, j) & " "
Next j
Txt1.Text = Txt1.Text & Chr(13) + Chr(10)
Next i
End Sub
Private Sub Cmd2_Click()
' Sr
Lbl2.Caption = Format(Sr(), "00.0")
End Sub
Public Sub vvod()
If Opt1.Value = True Then
'
For i = 1 To n
For j = 1 To m
a(i, j) = InputBox(" :" & i & "," & j, " ")
Next j, i
ElseIf Opt2.Value = True Then
'
For i = 1 To n
For j = 1 To m
a(i, j) = Int(100 * Rnd - 60)
Next j, i
End If
End Sub
Function Pol(i1, j1)
Dim flag As Integer
For j = 1 To m
flag = 0
For i = 1 To n
If a(i, j) > 0 Then
flag = 1
Pol = a(i, j): i1 = i: j1 = j
Exit For
End If
Next i
If flag = 1 Then Exit For
Next j
End Function
Public Function Sr()
Dim ko As Integer
Dim s As Single
For i = 1 To n
For j = 1 To m
If a(i, j) < 0 Then s = s + a(i, j): ko = ko + 1
Next j
Next i
Sr = s / ko
End Function
Private Sub Cmd_Click()
Txt.Text = ""
Lbl3.Caption = ""
Txt1.Text = ""
Lbl2.Caption = ""
End Sub
, :
VB With End With,
|
|
With
[ ]
End With
- ;
- ,
. .=.
Sub.
[Private | Public] Sub ([ ])
End Sub
Sub
Call ( )
Public - , ,
Private - , ;
Function.
[Public | Private] Function ([ ]) [As ]
=
End Function
:
6