VBS猜數字

Option ExplicitRandomize '隨機種子Dim nDim infoDim speaDim aDim bDim q '定義變量 info = -1 '初始值 Do Until info = 1 Or info = 2 Or info = 3 Or info = 0 'do循環直到 info=0-3 其中壹個數時結束循環 info = InputBox("請選擇遊戲難度。" & Chr(10) & "1:低級" & Chr(10) & "2:中級" & Chr(10) & "3:高級" & Chr(10) & "0:退出" & Chr(10) & "1是個位數，2是十位數，3是百位數", "猜數字 <by LEE制作>") '彈出對話框輸入數值 Select Case info '測試這個數值 Case 1 '如果數值為1 則給n賦值10 n = 10 Case 2 n = 100 Case 3 n = 1000 Case 0 n = 0 Case Else n = -1 End Select If n = -1 Then '如果n為-1 則彈出錯誤提示 MsgBox "輸入錯誤!", 16, "猜數字" End IfLoopIf n = 0 Then '如果n=0 則退出腳本 wscript.quitEnd Ifa = Int(Rnd() * n) '以n為範圍隨機壹個數賦值給aq = Int((a)) + 1 'a取整數加 1 賦值給q Do Until a = Int(q) '當 a等於 q變量取整數時則退出循環 q = InputBox("猜猜是幾?" & Chr(10) & "可以隨時輸入[e]退出。", "猜數字 <zzl制作>") '彈出對話框用戶輸入猜的數值然後賦值給q If q = "e" Then 'q等於 e 則退出腳本 MsgBox "感謝使用!祝您愉快。", , "猜數字" wscript.quit End If If Int(q) > a Then '如果q大於a則彈出大於提示 MsgBox "大了!", 48, "猜數字" End If If Int(q) < a Then '如果q小於a則彈出大於提示 MsgBox "小了!", 48, "猜數字" End IfLoopIf Int(q) = a Then '如果q等於a則彈出恭喜提示 MsgBox "恭喜妳，妳贏了!", 48, "猜數字"End IfMsgBox "感謝使用!祝您愉快。", , "猜數字"