Visual Basic NET ( 3)


Web- - 3


, Internet Explorer.

HTML- :

<html>

<body bgcolor="#FFDFFF">

<h1> " "</h1>

<img src=".jpg"><p>

堠 <input type="text" size="20" name="txtNumber">

1 ""<p>

<input type="button" name="cmdTry" value=""><p>

- <input type="text" size="30" name="txtMessage"><p>

- <input type="text" size="10" name="txtNumberTry" ><p>

<i> 30 - </i>

<script language="VBScript"><!-- '

dim A ' -

dim SecretNumber '

 

Randomize

SecretNumber = Round (1000000000 * Rnd)

' :

txtNumber.Value=0

txtMessage.Value = " "

txtNumberTry.Value=0

' :

Sub cmdTry_OnClick()

A = int(txtNumber.Value) '

if A>SecretNumber then

txtMessage.Value = ""

elseif A<SecretNumber then

txtMessage.Value = ""

else

txtMessage.Value = " "

end if

txtNumberTry.Value= txtNumberTry.Value + 1

End Sub

--></script>

</html>

:

<script language="VBScript"><!--