:
Sub < > (< 1 >, < 2 >, )
< >
End Sub
, , , .
, :
Sub < > ()
Sub , , .
, , , . , Sub CommandButton1_Click() , , CommandButton1 Click.
, . , , . (Insert/Module) Visual Basic, .
7.3. . , :
, .
, :
Sub product(k, z, p)
Dim i As Integer
p = 1
For i = 1 To k
p = p * z(i)
Next
End Sub
: product ; k ; z , ; p , .
:
Sub CommandButton1_Click()
Dim f(4) As Single, f1(4) As Single, S As Single
Dim p As Single, p1 As Single, i As Integer
For i = 1 To 4
f(i) = Val(InputBox(" f(i)"))
f1(i) = Sin(f(i))
Next
Product 4, f, p1
Product 3, f1, p2
S = p1 + p2
MsgBox S
End Sub
f f1 product. k z, 4 f, p1. k z, 3 f1, p2.
|
|
1. .
2. . , .