Y=, - , . , . Y , :,,,. :,,,, ,. . : . , . :,,, ,. . , , , (. . 2).
, . . : (). , , . ,
:.
. , , . :
. : (.). . Ÿ . , .
33. . .
, .
(), (, ), , , () , . - , . :
Dim ArrayName(n) as type
ArrayName - , , . N , - . Type - .
Dim myArray(100) as integer . 0, 101 0 100. ϳ , - , . :
myArray(100)=15
=1
myArray()=20 myArray(15)=5
, , 0, 2, 4 :
For i=0 to 100
myArray(i)=1*2
next i
, , . Option Base 1, , .
:
Option Base 1
Sub num8()
Dim Vals(3) as integer
Vals(1)=int(100*Rnd())
Vals(2)=int(100*Rnd())
|
|
Vals(3)=int(100*Rnd())
MsgBox lottery numbers: &vals(1)&, &_
vals(2)&, &vals(3)
end sub
34. . .
, , . , . .
^ Dim < > (<1>,<2>)[<As >]
, 1 ( ), 2 ( ), , Variant. ( ), . .
, General Option Base 1, . : Dim StrMyArray(1 To 3, 1 To 4) As String.ϳ ForNext, . , , 䳿 - . . VB 6.0 , - . .
. ^ 45 :
Dim B(4,5)
For i=1 To 4
For j=1 To 5
B(i,j)=Inputbox( B(& i &,& j &) & , ³ )Next j Next i
. ^ . NxM
S=0
For i=1 To N
For j=1 To M
S=S+B(i,j)Next j Next i
. ^ ϳ . NxM.
For i=1 To N
For j=1 To M
C(i,j)=A(i,j)+B(i,j)
Next j
Next i
35. HTML.
- , , , E-mail . HTML, . <form> (</form>).
-. .
<form> :
action - URL- , . , action="avto.php". "" ( action=""), , .
method - . "get" URL- , . , , . , . "post" , . ' . "post".
|
|
<form action="avto.php" method="post">
. .
<input type="text" name="pole" /> |
value, . , . . <input name=pole type=text value= >, 쳺 .