怎么样用VB编译一个英汉小字典，只要能够查询单词，即选中一个单词，在textbox里就能显示其意思，不慎感谢

Question

这个程序的要求是在列表框中列出词典数据文件中所有的单词，使用鼠标单击其中一个单词，就能在文本框中显示出该单词的词性、词义及例句。并且可以再组合框里直接输入单词，输入后，程序直接在文本框中显示该词的解释。如果输入的单词在词典数据文件中没有找到，则在文本框中显示“对不起，词典中无此单词。”

Answer 1

public type dictionary
english as string
chinese as string
end type
private dic() as dictionary
'定义一个字典，然后赋值
private sub form_load
redim dic(10)
dic(0).english="access"
dic(0).chinese="vt. 存取；接近；使用" & vbcrlf & "n. 通路；进入；使用权"
......
for i=0 to 10 '英文部分加入列表框
list1.additem dic(i).english
next
end sub
'点击列表框在文本框出现翻译
private sub list1_click()
text1.text=dic(list1.listindex).chinese
end sub追问

非常谢谢你，但是我要加入的单词有4600个，用这种方法是不是太麻烦了，，能不能用打开文件，然后把其读取出来呢？如果那样，应该怎么写代码呢

追答

你的问题里面没说要打开文件读词典！

追问

不好意思，我现在补充了问题~

追答

文件格式呢？

追问

文件是txt的

追答

内容是什么样的？英文怎么放？中文怎么放？你不说清楚，程序没法编啊！

Answer 2

编程容易，库难