1樓：匿名使用者
第一種比較容易看的**：
private sub command1_click()
dim req as vbmsgboxresult
req = msgbox("are you continue to?", vbabortretryignore + vbquestion, "功能測試")
print req
end sub
第二種 比較精簡但是依然比較容易看的**：
private sub command1_click()
print msgbox("are you continue to?", vbabortretryignore + vbquestion, "功能測試")
end sub
說明：1.dim req as vbmsgboxresult 這個是標準也是推薦的「對話方塊返回值」的寫法。如果是vb等級考試的話寫這個是絕對不會批你錯誤的！
當然直接寫dim req或者不寫的話也不會出現錯誤，但是往往在編寫大程式的時候不這樣寫是不嚴謹的。
2.因為是輸出返回值 所以不用if了，直接輸出即可
3.vb的對話方塊預設就是defaultbutton=1所以這個可以省略，可以省略的儘量省略。
主要就是1.**要有規範,2.**不要兜圈子。這兩點一定要記住的。
2樓：匿名使用者
private sub form_load()dim x as vbmsgboxresultx = msgbox("are you continue to?", 34, "功能測試")
form1.show
print x
end sub
樓上寫的都太麻煩了 vbabortretryignore + vbquestion 直接用34 代替就可以了
要最精簡的**是這樣寫的
private sub form_load()form1.show
print msgbox("are you continue to?", 34, "功能測試")
end sub
不用新增command控制元件~~不用去點選command 才彈出對話方塊
3樓：揭莞然
private sub command1_click()
dim req as vbmsgboxresult
req = msgbox("are you continue to?", vbabortretryignore + vbquestion, "功能測試")
print req
end sub
private sub command1_click()
print msgbox("are you continue to?", vbabortretryignore + vbquestion, "功能測試")
end sub
或private sub form_load()
dim x as vbmsgboxresult
x = msgbox("are you continue to?", 34, "功能測試")
form1.show
print x
end sub
private sub form_load()
form1.show
print msgbox("are you continue to?", 34, "功能測試")
end sub
4樓：
這麼個超級簡單的問題了也值100分？
呵呵，這個問題有點作弊嫌疑，訊息對話方塊的操作是接觸vb的最基本常識和要求，既然連這個都不懂，但又懂得什麼函式、印表機之類的，這合符邏輯嗎？哈哈～
5樓：匿名使用者
要裝個軟體才能給你設計原始碼.
vb程式設計問題
private sub command1 click dim i,j as integer,s as double,n as double for i 1 to 100 n 1 for j 1 to i n n j next j s s n next i print 1 2 100 send sub...
vb程式設計問題
此方法是用隨機數產生20個不重複的數，顯示20個數，再挑出奇數，再排列，再顯示。數字之間用空格隔開。private sub command1 click text1 text2 dim a 1 to 20 b 1 to 20 as integer dim i,i1,i2,j,j1,j2,j3,j4,...
VB程式設計題
貌似是考迴圈語句的？那就 先把multiline設為true 很重要！新建文字框text1，按鈕command1，輸入 private sub command1 click text1.text for i 0 to 3 text1.text text1.text space i vbcrlf 依次...