4.7
4.7.4.
4.7.7.
4.7.7.1. ,
4.7.7.2.
4.7.7.3.
4.7.7.4.
4.7.7.5.
4.7.7.6.
, . , , . .
. . .
. .
( ). , (), 0.
, , , , .
, , . - .
4.7.2.
, . : (9) 10 : a(0), a(1), a(2), a(3),..., a(9), i, 0 9:
a(i) | ||||||||||
i |
VB , . , , . , .
|
|
:
(), ;
, ;
() (.. ; );
, .
:
:
d, 31 Integer 0 30;
a, 11 Double 0 10;
b, 1411=151 Single 0 13 0 10.
, VB 0.
, , . . , d(24), a(2*i+1).
, . , a(10) . b(2,3) 2.
, . , (10) 11.
Dim, . Dim , ('''').
, , , , : , . , , . .
, .
. , . 0 , :
Dim () As String = {"", "", ""} |
, , :
Fori = 0 1 (i) = = (i) Next i |
|
|
,
Bound ().
() , . ,
For i = 0 UBound() (i) = = (i) Next i |
, GetUpperBound(). , 0. :
For i = 0 To a.GetUpperBound(0) sum = sum + a(i) Next i |
, , :
ByVal ()As ByRef ()As |
, , ByVal - , ByRef , - . , ByVal ByRef , - .
, , , .
Sub Show1(ByRef Lines() As Single, ByVal NLines As Integer) End Sub Function Sort(ByRef List() As String) NLines As Integer End Sub |
, , :
Show1(Lines, 5) N1 = Sort(List) |
, , , .
, ( ByVal) , VB . , .
4.7.2-1. /, .
. 4.7.2-14.7.2-3.
' Single Sub vvodSngMac15(ByRef a() As Single, ByVal L As ListBox) Dim i As Integer For i = 0 To UBound(a) a(i) = CSng(Val(InputBox("" & i & "- ")) Next i End Sub |
. 4.7.2-1. Single
4.7.2-1
' [2;4] Sub vvodSngRnd16(ByRef a() As Single) Dim i As Integer For i = 0 To UBound(a) a(i) = 2 + 2 * Rnd() Next i End Sub |
. 4.7.2-2.
4.7.2-1
' Single ListBox Sub vivodSngMac17(ByRef a() As Single, ByVal L As ListBox) Dim i As Integer Dim m As String = "" For i = 0 To UBound(a) m = m + Format(a(i), "0.000") + Space(4) Next i If m ="" Then m = " " L.Items.Add(m) End Sub |
. 4.7.2-3. Single ListBox
4.7.2-1
: , . , , . . :
|
|
Dim Sigma(5) As Integer, m(3) As Single |
, . , , . , , .
, . , :
= = Cint(TextBox1.Text) Dim () As |
.
:
Dim () As |
( ) , ReDim ReDim Preserve:
ReDim (), ReDim Preserve () |
, . ReDim ( ), ReDim Preserve .
:
n = n + 1 ReDim Preserve Mas(n) Mas(n) = n + 4 |
, , :
Dim () As String ' |
, , , ReDim:
ReDim (9) ' ReDim Preserve (9) |
.
. 4.7.4-7, . 4.7.4-9 . 4.7.4-10 , .
, . . , . , .
Exit For.
. , (, ). .
|
|
, , :
( 4.7.4-1).
( 4.7.4-2).
( 4.7.4-3).
( 4.7.4-3 4.7.4-4).
( 4.7.4-7).
( 4.7.4-5).
( 4.7.4-6).
( 4.7.4-8).
() ( 4.7.4-9).
4.7.4-1. , x().
. 4.7.3-1.
, : s0 = 0; si+1 = si + xi+1; p0 = 1;
pi+1 = pi * xi+1.
Sub Pr741(ByRef x() As Single, _ ByRef s As Single, ByRef p As Single) Dim i As Integer s = 0: p = 1 For i = 0 To UBound(x) If x(i) > 0 Then p = p * x(i) Else s = s + x(i) End If Next End Sub Private Sub Button1_Click() Dim s,p, a() As Single vvodSngMac15() vivodSngMac17(, ListBox1) Pr741(, s, p) vivod3(s, TextBox1): Vivod3(p, TexBox2) End Sub |
. 4.7.4-1. Pr741()
4.7.4-1