首页
搜索
Latest images
注册
登录
VB Script 猜号码代码
VB Script 猜号码代码
由 yikchin88 周五 四月 23, 2010 8:48 am
Guess Number
代码：
<html>
<head>
<title>Question1</title>
<Script LANGUAGE = "VBScript">
<!-- Add this to instruct non-IE browsers to skip over VBScript modules.
Option Explicit
dim randomNumber
randomize()
randomNumber=Int(1000 * rnd())
sub BtnGuess_onClick
dim answer
dim Num
Num = cint(document.frmGuess.Ans.value)
if (Num = randomNumber) then
answer ="Excellent! You guessed the Number! Would you like to play again?"
elseif (Num < randomNumber) then
answer = "Too low. Try again."
elseif (Num > randomNumber) then
answer = "Too high. Try again."
end if
document.frmGuess.lblAns.caption = answer
End sub
-->
</Script>
</head>
<body>
<form name ="frmGuess">
<div id="Inf">
<br>
I Have Number Between 1 and 1000.
<br>
Can You Guess My Number?
<br>
Please enter your first guess.
</div>
<br>
<input type="text" name="Ans" />
<input type = "button" Name = "BtnGuess" value="Guess">
<br><br>
<object id = "lblAns" classid="CLSID:978c9e23-D4B0-11CE-BF2D-00AA003F40D0" width="185" height="85">
<param name ="ForeColor" Value="0">
<param name ="BackColor" Value = "16777215">
<param name ="Caption" Value="">
<param name ="Size" value = "1582;635">
<param name ="SpecialEffect" Value="2">
<param name ="FontHeight" Value="200">
<param name ="FontCharset" Value="0">
<param name ="FontPitchAbdFamily" Value="2">
<param name ="FontWeight" Value="0">
</object>
</from>
</body>
</html>
代码：
<html>
<head>
<title>Question1</title>
<Script LANGUAGE = "VBScript">
<!-- Add this to instruct non-IE browsers to skip over VBScript modules.
Option Explicit
dim randomNumber
randomize()
randomNumber=Int(1000 * rnd())
sub BtnGuess_onClick
dim answer
dim Num
Num = cint(document.frmGuess.Ans.value)
if (Num = randomNumber) then
answer ="Excellent! You guessed the Number! Would you like to play again?"
elseif (Num < randomNumber) then
answer = "Too low. Try again."
elseif (Num > randomNumber) then
answer = "Too high. Try again."
end if
document.frmGuess.lblAns.caption = answer
End sub
-->
</Script>
</head>
<body>
<form name ="frmGuess">
<div id="Inf">
<br>
I Have Number Between 1 and 1000.
<br>
Can You Guess My Number?
<br>
Please enter your first guess.
</div>
<br>
<input type="text" name="Ans" />
<input type = "button" Name = "BtnGuess" value="Guess">
<br><br>
<object id = "lblAns" classid="CLSID:978c9e23-D4B0-11CE-BF2D-00AA003F40D0" width="185" height="85">
<param name ="ForeColor" Value="0">
<param name ="BackColor" Value = "16777215">
<param name ="Caption" Value="">
<param name ="Size" value = "1582;635">
<param name ="SpecialEffect" Value="2">
<param name ="FontHeight" Value="200">
<param name ="FontCharset" Value="0">
<param name ="FontPitchAbdFamily" Value="2">
<param name ="FontWeight" Value="0">
</object>
</from>
</body>
</html>
yikchin88- Admin
- 帖子数 : 219
积分 : 5981
注册日期 : 09-10-02
年龄 : 36 -
您在这个论坛的权限：
您不能在这个论坛回复主题