, .
1.
b = {5, 2; 4,5; 1; 2,9; 3}.
Sub CommandButton1_Click()
Dim b As Single, s As Single, i As Integer
s = 0
For i = 1 To 5
b = Val(InputBox( b))
s = s + b
Next
MsgBox ( = & s)
End Sub
b , s.
2.
t = {0,4; -1,5; 2,8; 3; 0,9; 7,3} w :
Sub CommandButton2_Click()
Dim t As Single, w As Single
Dim p As Single, k As Integer
P=1
For k = 1 To 6
t = Val(InputBox(t=))
p=p*sin(t(k))
Next
w=2+p
MsgBox w
End Sub
.
, . .
, a(i), a , i .
, , Dim, :
Dim a(5) As Single
, 6- . . .
, . , (i) : (0), (1), (2), (3), (4), (5)
, 5 10, :
Dim a(5 to 10) As Single
: (5), (6), (7), (8), (9), (10)
3. d = {12; 0,4; 30; 2; 5; 9,3} .
Sub CommandButton2_Click()
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
4. .7.1 . , , .
|
|
Excel (. 7.1). General ( Sub) :
Dim i As Integer, Ndata As Integer
Dim Nplus As Integer, Nminus As Integer
Dim sum As Single, mx As Single, disp As Single