.


:




:

































 

 

 

 


( )




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= >, 쳺 .





:


: 2015-11-05; !; : 465 |


:

:

,
==> ...

1839 - | 1688 -


© 2015-2024 lektsii.org - -

: 0.011 .