利用网上的免费查单词站点,一句话实现自己的在线词霸:) 还贴不了图 ft 代码如下 Private Sub Command1_Click() Sub Command1_Click()Me.WebBrowser1.Navigate ("http://dict.cn/mini.php?q=" & Text1.Text)End Sub