VB 版 (精华区)

open: Permission denied
发信人: zxfsnow (别怕我伤心), 信区: VB
标  题: 很好玩的打字游戏
发信站: 哈工大紫丁香 (2000年06月01日19:13:25 星期四), 转信

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

'很好玩的打字游戏，

Randomize Timer
Do
    ClsA
    Pn "Welcome to TT for telnet."
    Pn "Press ^C to exit."
    Pn
    T$ = ""
    For n = 1 To 50
        T$ = T$ + Chr(Int(Rnd * 26) + 97)
    Next n
    Pn T$
    Sleep
    t0! = Timer
    Do
        b = InkeyB
        If b = 3 Then End
        If b = Asc(T$) Then
            Pb b
            T$ = Mid(T$, 2)
        End If
    Loop Until T$ = ""
    Pn
    Pn
    Pn "Your speed is " & 600 / (Timer - t0!) & " WPMs"
    Pn "Press any key to continue"
    Sleep
Loop


--
  路见不平有人铲

※ 修改:·vansoft 於 Mar 24 18:32:10 修改本文·[FROM:    202.120.6.33]

--

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

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