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

select case “文本框正誉1”

case “成语1”

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

case “成语2”

文本框2.text = “解释2”举旅段

。。。镇核

。。。

end select

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

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

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

在数据库里存在

2个条件满足 即可下一步

---