標題:
[發問]
建立數字遊戲
[打印本頁]
作者:
linsurvey2005
時間:
2013-1-3 12:26
標題:
建立數字遊戲
這樣子只能跑2次可以一直重複猜嗎? 或者可設定猜幾次 ( 1a2b 的遊戲)
已知數字可以隱藏ㄇ~直到猜對才出現答案
請大大幫忙 以下是原始碼
<HTML>
<HEAD>
<TITLE>猜數字</TITLE>
</HEAD>
<BODY>
<H3>猜數字</H3><HR>
<FROM>
<INPUT NAME="Button1" TYPE="BUTTON" VALUE="請按這裡">
</FROM>
</body>
<script language=vbscript>
dim a(4)
dim d(4)
dim b
dim intNo,j,c,m,n
randomize timer()
i=1
a(1)=int(rnd()*10)
b=Cstr(a(1))
for i=2 to 4 '由電腦隨機產生一組四個不同的數字
c=0
do until c>0
a(i)=int(rnd()*10)
c=1
for j=1 to i-1
if a(i)=a(j) then c=0
next
loop
b=b+Cstr(a(i))
next
Message = b ' 設定提示訊息。
Title = "猜數字"
sub Button1_onClick()
m=0
n=0
b=""
c=InputBox(Message, Title, b )
d(1)=int(c/1000) '把輸入的數字分解成 千位, 百位, 十位, 個位, 並把結果放入一個陣列中
c=c-d(1)*1000
d(2)=int(c/100)
c=c-d(2)*100
d(3)=int(c/10)
c=c-d(3)*10
d(4)=c
for i=1 to 4 '判斷輸入數字與答案的符合程度
for j=1 to 4
if d(i)=a(j) and i=j then m=m+1
if d(i)=a(j) and i<>j then n=n+1
next
next
if m=4 then
msgbox "congratulation! 猜對了"
else
InputBox d(1)&d(2)&d(3)&d(4)& "------" & m & "A" & n & "B"
end if
end sub
</script>
</html>
作者:
27429200
時間:
2013-8-21 10:05
你可以試試看return;
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
