VB 版 (精华区)

open: Permission denied
发信人: zxfsnow (别怕我伤心), 信区: VB
标  题: 著名小游戏Guess的Telnet版。
发信站: 哈工大紫丁香 (2000年06月01日19:15:10 星期四), 转信

发信人: vansoft (哈哈), 信区: VB
标  题: Guess for telnet
发信站: 饮水思源站 (Wed Mar 24 18:31:51 1999) , 站内信件

'著名小游戏Guess的Telnet版。

DefLng A-Z

Static Sub MyProgram()
    Dim a(3), b(3), T
    Randomize Timer
    ClsA
    Do
        For n = 0 To 3
            a(n) = Int(Rnd * 10)
        Next
    Loop Until Good(a)
    Pn "猜数字－－"
    Pn "A代表位置数字均对，B代表数字对但位置错。"
    Pn "这是一个四位数，且每位均不相同。"
    Pn "Please input a number:"
    Pn "The number is: " & a(0) & a(1) & a(2) & a(3)
    For T = 1 To 8
        Pn "No." & T & " input:"
        InputA "", U$
        If U$ = "" Then
            Pn "The number is: " & a(0) & a(1) & a(2) & a(3)
            Exit For
        End If
        For m = 0 To 3
            b(m) = Val(Mid(U + "     ", m + 1, 1))
        Next m
        If Good(b) = False Then
            Pn "Error Input!"
        Else
            X1 = 0
            X2 = 0
            For m = 0 To 3
            For n = 0 To 3
                If a(n) = b(m) And m = n Then X1 = X1 + 1
                If a(n) = b(m) And m <> n Then X2 = X2 + 1
            Next n
            Next m
            Pn Trim(X1) + "A" + Trim(X2) + "B"
            If X1 = 4 Then
                Pn "You win."
                Sleep
                End
            End If
        End If
    Next T
    Pn "Game Over"
    Sleep
    End
End Sub

Function Good(aa() As Long) As Boolean
    Good = True
    For m = 0 To 3
    For n = 0 To 3
        If aa(m) = aa(n) And m <> n Then
            Good = False
            Exit Function
        End If
    Next n
    Next m
End Function

--
  路见不平有人铲



--

 以科计为本,以产业报国!
  超越自我,飞跃无限!
  

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.235.249]