1樓：永弘壯
隨便畫乙個按鈕叫command1，**：
option explicit
private q(), x
private sub command1_click()command1.caption = q(int(x * rnd))end sub
private sub form_load()q = array("你好", "你今年多大", "喂", "你幾歲了") '可以有很多
x = ubound(q) + 1
randomize
command1_click
end sub
2樓：
private sub command1_click()msgbox "我嚴重告訴你：", 48, "我的真心話" '內容可自己設定
msgbox "我", 48, "我的真心話"
msgbox "喜", 48, "我的真心話"
msgbox "歡", 48, "我的真心話"
msgbox "你", 48, "我的真心話"
msgbox "？？？", 48, "我的真心話"
msgbox "永遠", 48, "我的真心話"
msgbox "跟我說三個字:", 48, "我的真心話"
msgbox "我是豬！", 48, "我的真心話"
msgbox "其實，我真的是豬！永遠做豬...我願意！(*^__^*) 嘻嘻~~", 48, "我的真心話"
msgbox "~o(∩_∩)o哈哈！~~被耍dao la~。。繼續吧~~~", 48, "我的真心話"
end sub
vb程式設計中的迴圈問題
3樓：du知道君
2個timer 就行了，想怎麼做就怎麼做 再問得清楚點吧，下面是可能你要的回答 private sub timer1_timer() '這裡加你要的** ，然後下一次就是執行timer2中的 timer1.enabled = false timer2.enabled = true end sub private sub timer2_timer() '這裡加你要的** ，然後下一次就是執行timer1中的 timer2.
enabled = false timer1.enabled = true end sub
vb程式設計問題，關於VB程式設計的小問題
這個問題你問的比較到位。在vb裡面，子窗體和父窗體之間有乙個選單是否重疊的設定。你可以進行選擇當子窗體最大化是，子窗體的選單是否和父窗體的重疊。焦點，就是當前的活動物件，也就是說，如果有3個文字框，當你把滑鼠點到第二個上時 你輸入的內容就會在第二個顯示，而其他兩個不會有反應，這個時候其實就是第二個是...
關於VB程式設計的問題（見補充），乙個關於VB程式設計的問題（見補充）
在模組中定義兩個變數不就完了？模組 public a1,a2 as integer sub main a1 5040 a2 5021 end sub 窗體l private sub command3 click if text1 a1 and text2 a2 then command3.enabl...
VB程式設計運算符號問題，vb中運算符號 是什麼意思和 有什麼區別
private sub form click m array for i 0 to 3 for j 0 to 3 print 1 m i 2 m j 3 next j next i end sub 5 5.25是為1 因為整除先把數四捨五入了5.25 5,5整除5就等於1如果是5mod5.25就是0...
請問關於vb程式設計的乙個問題！
把sum的值賦給這個標籤，在窗體上顯示出來。sum 在lbloutput控鍵上顯示函式 sum 的值。關於乙個vb程式設計的問題 20 給你信函式你自己設計窗體的吧，很簡單的 datepart y 比如你設定三個文字框，分別用來接收年月日，第四個檔案框用來接收最終結果，用乙個命令按鈕來執行，那麼命令...
vb程式設計題 求陣列中的最小數及其位置
實現了功能，就是覺得 比較繁瑣，竟然用了三個for，很是鬱悶，希望能對你有所啟發，拋磚引玉 private sub command1 click dim a 1 to 10 as integerdim temp as integer temp 100 for i 1 to 10 randomize ...