Dim d(1 To 6) As Single, max As Single, n As Integer, i As Integer
For i = 1 To 6
d(i) = Val(InputBox( d))
Next
max = d(1): n = 1
For i = 1 To 6
If d(i) > max Then max = d(i): n = i
Next
MsgBox (. . = & max & & n)
End Sub
. .
1. , . 6.1.
2. , . 6.1.
3. , .
4. , .
6.1
/ | ||
. 6.1
/ | ||
5. . 6.2.
6.2
/ | ||
/ | ||
. 6.2
, , , . , .
:
Function (), , , ;
Sub (), , , , .
:
Function < > (< .1 > <As >,...) <As >
< >
End Function
|
|
, Function, , , . , Variant. , .
End Function.
, v (h, r), v h r, :