- 帖子
- 84
- 主題
- 15
- 精華
- 0
- 積分
- 123
- 點名
- 0
- 作業系統
- Windows 7
- 軟體版本
- Office 2010
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台南市
- 註冊時間
- 2011-5-16
- 最後登錄
- 2022-9-17
|
這樣子只能跑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> |
|
發表於 2013-1-3 12:26
| 
