|
|
This is only a preview of the paper
Click here to register and get the full text.
Existing members click here to login
|
|
|
... Caption = strwordguessedsofar
stralpha = " A B C D E F G H I J K L M N O P Q R S T U V W X Y Z "
intnumwrong = 0
Do Until intnumwrong = 6 Or StrComp(strsecretword, strwordguessedsofar, vbTextCompare) = 0 Or strguess = strsecretword
strguess = InputBox("Guess a letter", "Hangman", , 5100, 7500)
If strguess = "" Then
MsgBox "You give up? ... Visible = True
End If
Dim easywordsarr(1 To 15) As String
easywordsarr(1) = "kitten"
easywordsarr(2) = "cat"
easywordsarr(3) = "dog"
easywordsarr(4) = "gorilla"
easywordsarr(5) = "china"
easywordsarr(6) = "pea"
easywordsarr(7) = "computer"
easywordsarr(8) = "teepee"
easywordsarr(9) = "desk"
easywordsarr(10) = "horse"
easywordsarr(11) = "poison"
easywordsarr(12) = "hangman"
easywordsarr(13) = "collision"
easywordsarr(14) = "raw"
easywordsarr(15) = "soe"
num = Int(Rnd * 15 - 1 + 1) + 1
strsecretword = easywordsarr(num)
End Sub
Private Sub Opthard_Click()
Randomize
If Opthard = True Then
cmdplay.
Approximate Word count = 726
Approximate Pages = 2.9
(250 words per page double spaced)
|
|
|
|
|
|