任意给出七个成语，使用VB在一个文本框输入一个成语，在另个文本框显示该成语的解释。

select case “文本框1”

case “成语1”

文本框2.text =“解释1”

case “成语2”

文本框2.text = “解释2”

。。。

。。。

end select

难点在于需要成语数据库支持~ 无非查询而已

电脑给出 “从容不迫” 如果你回答 “迫不及待”

对比 “从容不迫”第四个字 和 “迫不及待”第一个字是否相同 且 “迫不及待”

在数据库里存在

2个条件满足 即可下一步

有的，比如「成语查询宝典」小程序，可以在释义反查模式下输入相近意思的词语进行成语反查。比如输入「出乎意料」查询之后能搜到：不期而然、猝不及防、突如其来等成语。

成语查询宝典

---