1樓：網友
第一條問題容易。
private sub command1_click()if instr(1, text1, "我是誰") 0 thentext2 = 你是我的主人"
end if
end sub
致於第2條問題。
因為有多項隨機的答案。
所以要用到隨機數。
dim answer(5) as stringprivate sub command1_click()answer(5) =請不要說粗口話"
answer(1) =你罵人"
answer(2) =不文明，也不乖"
answer(3) =我不跟你說話了"
answer(4) =你說你自己嗎"
if instr(1, text1, "笨蛋") 0 thentext2 = answer(int(4 * rnd) +1)end if
end sub
2樓：網友
我有乙個好想法。
可以來溝通。當然你想輸入那些問題。
最好列出來，反正如果玩家隨便亂輸入的話，總很難作的像人那麼聰明的我有個更好的主義，把你的問題和答案發給我，我做給你看。
p/1324596?pn=3
搞定了，答案在鐵吧。
你可以多加些問題，記得要用---隔開同乙個問題的不同說法。
答案也是如此。
給個油箱發給你。
3樓：網友
對語言進行語法分析，不大好弄啊。有本講人工智慧的書來著。
vb6.0，怎麼畫出通用對話方塊？
4樓：惠企百科
1、開啟易語言，選擇「新建windows視窗程式」。
2、在基本元件欄裡拖拽框、按鈕和通用對話方塊到程式中。
3、畢薯亂單擊選中通用對話方塊，在左邊的屬性欄中看到「過濾器」一欄，我們按**上的要求輸入文字。
<>5、就可以猛戳手檔工具欄中的「執行」按鈕。
vb6.0，怎麼畫出通用對話方塊？
5樓：網友
1、開啟易語言，選擇「新建windows視窗程式」。
2、在基本元件欄裡拖拽框、按鈕和通用對話方塊到程式中。
3、單擊選中通用對話方塊，在左邊的屬性欄中看到「過濾器」一欄，我們按**上的要求輸入文字。
5、就可以猛戳工具欄中的「執行」按鈕。
6樓：網友
使用通用對話方塊需要在工具欄新增部件，如下所示：
新增microsoft common dialog後工具欄上就會顯示通用對話方塊圖示，如下所示：
然後選擇通用對話方塊，在視窗中拖放，如下所示：
再通過屬性視窗設定相應屬性即可，如下所示：
新增命令按鈕，新增測試**：
private sub command1_click()end sub
開啟通話框後，執行效果如下：
7樓：網友
你沒加對，這些都不是，正確的應該是新增部件：microsoft common dialog control
8樓：網友
在右側的工程管理窗中點右鍵，選「新增－新增窗體」在開啟的「新增窗體對話方塊」中，選擇「對話方塊」，點開啟就可以了。
9樓：網友
通用對話方塊不是這個。
部件裡是microsoft common dialog 注意是dialog不是common controls
勾選之後只會多出來乙個控制項，拖到窗體上命名為cd然後如果要彈出儲存並顯示使用者選擇的路徑就是msgbox
如果要彈出顏色就是。
設定標題啊什麼的也都在cd的屬性裡面可以設定的 比如dialogtitle就是標題。
filter就是過濾器。
VB程式設計實現
vb中提供了keypress，keydown,keyup三個事件來響應鍵盤 這3個事件中第乙個事件有keyascii引數，像一樓說的我介紹另2個事件 後2個事件都有2個引數keycode,shift 型別均為integer整型 所謂的keycode引數就是按下鍵的ascii碼通過這個引數我們就可以知...
智慧家居能實現什麼功能，智慧家居主要能實現什麼功能
智慧胖胖 1 假如你回家較晚，您可以通過手機輕鬆地開啟你的前廊燈。2 下班前你可以通過手機開啟家中的空調裝置，設定好適應的溫度。3 為了提高安全性和警惕性，當您進家前，可以使用使用 開啟室內所有燈光 功能。4 如果有小偷闖入你的房子，紅外報警探測器會發出警報，你可以看到通過監控攝像頭找到小偷的蹤跡。...
如何用VB實現字貼字的功能？
獲取乙個字元的點陣，然後逐位檢測，為零顯示為乙個字元，為就顯示為另乙個字元。一一一暈暈暈暈暈暈暈暈暈一一一一。一一一暈一一一一一一一暈一一一一。一一一暈暈暈暈暈暈暈暈暈一一一一。一一一暈一一一一一一一暈一一一一。一一一暈暈暈暈暈暈暈暈暈一一一一。一一一一一一一一一一一一一一一一。一暈暈暈暈暈暈暈暈暈...