9
VBA
:
VBA.
:
:
o VBA;
o VBA.
. () , . , , . . - .
Visual Basic . ( ) .bas. , . VBA Insert/Module. Module1 Code. - .
-
:
Function <>[( )] [as Type]
<>
<> = <>
End Function
. , .
1.
X, Y, Z. . .
:
Function MinABC(x, y, z) As Single
m = x
If y < m Then m = y
If z < m Then m = z
MinABC = m
End Function
:
Sub <> [( )]
<>
End Sub
2.
X, Y, Z. . .
:
Sub MaxABC(x, y, z, Max)
Max = x
If y > Max Then Max = y
If z > Max Then Max = z
End Sub
, ,
Sub MatrT(n, A(), B())
MatrT. ,
n .
A, B .
- , . - , .. , Min =MinABC(x, y, z). X, Y, Z . , -. .
|
|
Call:
Call <>[( )]
- .
:
:
Private Sub CommandButton1_Click()
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
c = Val(TextBox3.Text)
Call MaxABC(a, b, c, m)
Label5.Caption = m
Label7.Caption = MinABC(a, b, c)
End Sub
I) . .
. . | |
. , . . | |
. . | |
. , . . | |
, n m. . | |
, , . | |
. . | |
. . | |
. . | |
, . . | |
. . | |
, , . : | |
. . | |
, . . | |
, 3. . |
II) -. .
|
|
Y. , ; | |
Y. , ; | |
Y. , ; | |
r. | |
u. ; | |
v. ; ; | |
t. ; ; | |
Y. , ; | |
h. ; ; | |
h. , ; | |
Y. ; ; | |
t. ; ; | |
Y. , ; | |
h. , ; | |
h. , ; |