0

我已经打乱了这些字母，所以它们每次都不一样，并且有一个包含字典中所有单词的 txt 文件。我对此很陌生，并试图自学VB，但这让我受益匪浅，所以真的可以在一些帮助下做。

基本上，如何通过与字符串和 txt 文件进行比较以检查它是否是真实的单词，来确保玩家输入到文本框中的是一个可以在 8 个加扰字母中找到的单词？单词可以是任意长度，只要少于 8 个。

我有两个数组，一个用于辅音，一个用于元音，因此玩家通过单击元音按钮或辅音按钮来创建打乱的字母。

例如： KEEIAQWL 存在单词 LEAK。:)

4

1 回答 1

1

一种方法是在用户输入文本框时检查单个字母；如果它们不存在，请不要添加它们 - 这样您就无需在查找字典之前进行检查。

一般的方法是查看提交的单词中的每个字符；

available_letters = "KEEIAQWL"
....
entered_word = "leak"
available_letters_temp = available_letters

entered_word = Ucase$(entered_word) '//ensure same case

dim i as long, pos as long
for i = 1 to Len(entered_word)
    '// see if letter ok
    pos = instr(1, available_letters_temp, mid$(entered_word, i, 1))
    if pos = 0 then
        msgboxMid$(entered_word, i, 1) & " is not valid"
    else
        '// ok, remove for future lookups
        mid$(available_letters_temp, pos, 1) = "@"
    end if
Next

这也确保了一个字母只能使用一次，即“BO”中的“BOOB”是不允许的。

于 2013-07-16T12:00:20.927 回答