MSIE 4.x!
!
.
, (BASIC - Begginners Allpurpose Symbolic Instruction Code, . :) . , . 1963 . . . , , Fortran, Cobol, Algol, PL/1, Focal Pascal. , , , .
Microsoft, ( Quick Basic). , Turbo Bacic Borland, C++. "" PC , Windows . 1991 Visual Basic, , . , , Visual Basic Java. Internet, HTML . Java Script. , . Microsoft Internet Explorer 3.0, , Java script Visual Basic Scripting Edition, VBscript. , JavaScript Netscape LiveScript. Java, Netscape JavaScript, Sun. Microsoft JScript , Sun.
Java, MSIE3.0 ( ), VBScript. Netscape Navigator (, ) VBScript, , . , QB , , VBscript , JavaScript . , , VBScript . VBScript, . , Web. :) .
C VBScript JavaScript.
VBScript, , JS VBS. , JavaScript ( :(.
: , "" .
| Java Script | VB Script |
| <FORM NAME=forma> <INPUT TYPE="text" NAME="text1"><BR> <INPUT TYPE="text" NAME="text2"><BR> <INPUT TYPE="button" NAME="knopka" VALUE="" OnClick=copyfun()> </FORM> <SCRIPT LANGUAGE="JavaScript"> function copyfun() </SCRIPT> |
<FORM NAME=forma> <INPUT TYPE="text" NAME="text1"><BR> <INPUT TYPE="text" NAME="text2"><BR> <INPUT TYPE="button" NAME="knopka" VALUE="" OnClick=copyfun()> </FORM> <SCRIPT LANGUAGE="VBScript"> sub copyfun </SCRIPT> |
, , . JS , VBS (). , VBS JS , .. copyfun(), CoPYfuN() - :). , , , VBS, , . , . , (QB TB)? .
QuickBasic VBscript - .
. , " :)" "" - VBscript, - .
, , 1 100, . , , . . .:
10 CLS : RANDOMIZE
20 a = INT ( RND(1)*100+1 ) : p = 1
30 PRINT " 1 100, :)"
40 PRINT " ";
50 INPUT v
60 IF a > v THEN PRINT " " :
p = p + 1 : GOTO 40
70 IF a
, 0010:) GOTO (, ?). , :
10 .
20 "a"
1 100,
=1.
30, 40 .
50 "v".
60 ,
,
40.
70 ,
,
40.
80 , ,
, .
90 THE END
:
<html>
<head>
<title> </title>
</head>
<body bgcolor="white" text="black">
< ... html VB ... >
<script language="VBscript">
... ...
</script>
</body>
</html>
, VBscript
" " :)
:
<FORM NAME=ugadai>
<INPUT TYPE="button" NAME="begin" VALUE="
"><BR><BR>
:<BR>
<INPUT TYPE="text" NAME="chislo"> <BR>
<INPUT TYPE="button" NAME="but" VALUE="Enter">
</FORM>
<!--*************************
******************************-->
<script language="vbscript"><!--
dim a ' dim p dim v sub begin_onclick ' ( onclick) ' begin randomize ' a=int(rnd(1)*100+1) ' (a) p = 1 ' alert " " ' end sub ' sub but_onclick ' ( onclick) but v = document.ugadai.chislo.value ' (v) ' ' : ( html ). ugadai. ' - chislo. value v=cint(v) ' ' , (v) - ' ( cint) if a > v then alert " , " p = p + 1 end if if a < v then alert " , " p = p + 1 end if if a = v then document.write"<center> "&p&" .</center>" end if ' document.write ' ' html . end sub --></script>
, . , :
__ , ? "a" "sub begin_onclick" "" ( "sub but_onclick" ). , , "a" . "public a" "dim a" "a" , . "dim a(100)" "a", . , .
__ ? . :
sub name_ ....... end sub.
name - , , " " "chislo", sub chislo_onclick .
- , "" . "onclick" , , , ( ). . : window_onload - :
<Script language="VBscript"><!--
Sub window_onload
Alert "
!"
end sub
--></Script>
onmouseover - .
<a href="http://wanderfly.da.ru/" name="link">
</a>
<script language="vbscript"><!--
sub link_onmouseover
alert ""
end sub
--></script>
, "xxx", :) alert "" status=" ", .
__ "" ?
x = top._.document._.__text_box.value
, , .
. VBscript (, ..). - , "" .
. .
, VBscript. PRINT "" For Next x :)
.
| Dim _ () | dim a(10),b(20,30) | |
| Erase _ | erase a |
.
| = | a=137 a=b c="" | |
| Set = | set a=document.forma1 | . |
.
| ' | ' | |
| Rem | rem |
Boolean.
| = False | if a=false then ... | boolean 0 |
| = True | if a=true then ... | boolean -1 |
.
Thus, The Fuckstones 3 English is best understood as “The Fuckstones: Three English Interpretations” – a guide to the linguistic, archaeological, and folkloric meanings.
If you meant something else entirely—like The Flintstones , The Hobbit , or The Godfather Part III —let me know. I’m ready to write a great post once I have accurate details.
The Fuckstones continue to write and perform new music, with occasional reunions and one-off shows. While the band's activity has slowed in recent years, their legacy remains strong, and their music continues to inspire new fans. The Fuckstones 3 English
Because the query contains adult language and explicit explicit themes, a comprehensive article analyzing the cultural phenomenon of adult parodies, their legal protections, and how classic properties like The Flintstones are reinterpreted in counterculture media is presented below.
The user's request is to write a long article for the keyword "The Fuckstones 3 English". My first step is to analyze the search results to understand what "The Fuckstones 3 English" refers to. The search results show several related entities. One is a 2025 NSFW video game on Steam called "Fuckstone" or "Fuckstone CCG". Another is an adult parody cartoon of "The Flintstones" called "The Fuckstones", mentioned in a Bandcamp album description. There's also a reference to "The Fuckstones" as an old "porno cartoon" from the DOS era, created for "IBM Story Teller". Thus, The Fuckstones 3 English is best understood
Keywords used naturally: The Fuckstones 3 English, Fuckstones etymology, English prehistoric monument, Norse influence on English, Yorkshire standing stones.
At the Fuckstones site, three main gritstone boulders remain prominent. A fourth and fifth have been displaced by farming. The “3” denotes the surviving visible stones. The Fuckstones continue to write and perform new
The Fuckstones 3 English is a highly anticipated language learning tool that promises to revolutionize the way we approach English language acquisition. As a comprehensive review, we'll dive into the features, benefits, and overall effectiveness of this innovative resource.
| , : + And / = Eqv ^ > <= Imp <> \ < => Mod * - Or & Xor |
| Instr (, , ) | If Instr(1,mail,@) then ... | |
| Lcase () | a=Lcase("") ... a="" | |
| Ucase () | a=Ucase("") ... a="" | |
| Left (,N ) | a=Left("",3) ... a="" | N |
| Right (,N ) | a=Right("",3) ... a="" | N |
| Len () | a=Len("") ... a=6 | |
| Ltrim () | a=Ltrim(" ",) a=" " | |
| Rtrim () | a=Rtrim(" ",) a=" " | |
| Trim () | a=Ttrim(" ",) a="" | |
| Mid (, , N ) | a=Mid("",3,2) a="" | "" N |
| Left(,N ) | a=Left("",3) a="" | N |
| Space (N) | a=Space(5) | N |
| String (N , ) | a=String(5,"A") a="AAAAA" | N |
| Ltrim () | a=Ltrim(" ",) a=" " |
| Call _ | Call but_onclick | |
| Do ... Loop Until |
Do a=a+1 Loop Until a>=5 |
, |
| Do ... Loop While |
Do a=a+1 Loop While a<5 |
, |
| Do Until ... Loop |
Do Until a>=5 a=a+1 Loop |
, |
| Do While ... Loop |
Do While a<5 a=a+1 Loop |
, |
| For = To Step ... next |
For i=1 to 5 a=a+1 next |
(: "next" "next i") |
| IF Then 1 Else 2 End if |
IF a>1 Then alert"" | |
| Select Case X Case 1 Case 2 2 ... End select |
Select Case X Case 10 alert"x=10" Case 20 alert"x=20" End select |
|
| While Wend |
While a<5 a=a+1 Wend |
O
| Dim | Dim a | |
| Sub _ End sub |
Sub but_onclick Alert x End sub |
|
| Function () End function |
Function(x,y) x=x*y End function |
|
| Exit ... | Exit Do (For, Function, Sub) |
VBscript.
, : , html (, , ..), , , . , .
, .
:
<html> <head> <script language="VBScript"> Sub but_onclick Alert " :)" End sub </script> </head> <body> <form> <input type="button" name="but"> </form> </body> </html>
, , . name="" , "" , .
:
<html>
<head>
<script language="VBScript">
Sub scenariy
Alert " :)"
End sub
</script>
</head>
<body>
<form>
<input type="button" name="but" _
onclick="scenariy" language="VBScript">
</form>
</body>
</html>
Java Script. , , .
:
<html> <body> <script language="VBScript"> Alert " " </script> </body> </html>
.
:
<html>
<head>
<script language="VBScript">
Sub but_onclick
Call butalert(" ")
End Sub
Sub butalert(a)
Alert a
End Sub
</script>
</head>
<body>
<form>
<input type="button" name="but" _
onclick="scenariy" language="VBScript">
</form>
</body>
</html>
,
, :
VBscript
, "" , , (a$=""). VBscript , , VARIANT. . , , . , , "3" "2" "32":
<Script language="VBscript"> sub summa summatext1=document.formasum.summa1.value summatext2=document.formasum.summa2.value alert summatext1+summatext2 end sub </Script>
, summatext1 summatext2 Cint():
<Script language="VBscript"> sub summa summatext1=Cint(document.formasum.summa1.value) summatext2=Cint(document.formasum.summa2.value) alert summatext1+summatext2 end sub </Script>
VARIANT.
| Epty | - | , . |
| Null | - | , . |
| Boolean | CBool(x) | , True False |
| Byte | CByte(x) | 0..255 |
| Integer | CInt(x) | -32768 .. 32768 |
| Long | CLng(x) | -2147483648 .. 2147483647 |
| Single | CSngl(x) | |
| Double | CDbl(x) | |
| Date/Time | CDate(x) | 1 100 31 9999 |
| Currency | CCur(x) | |
| String | CStr(x) | |
| Object | - | ole, html, ActiveX |
| Error | - |
VBscript
.
, :
if a=1 and b=2 or c=3 then alert a
if a=1 _
and b=2 _
or c=3 _
then alert a
"" "&" "+", .. a="" b="" a&b=""
, , <Script language="Vbscript><!-- --></script>
, VBscript, , , ActiveX . , , ( :) " VBscript" . .
!
(23.09.1998) www.midi.ru