1樓：匿名使用者
1. 在名稱為form1的窗體上畫乙個名稱為p1的**框，並放入乙個**到**框中。
2. 通過 vb主選單 \ 工程 \ 部件 \ 控制項 裡 新增 microsoft common dialog control 然後 畫乙個通用對話方塊控制項，
更改控制項名稱為：cd1
cd1 控制項 \ 右鍵選單 \ 屬性 標題填：開啟檔案檔名稱填：*.doc
副檔名填：doc
初始路徑填：c:\
3. 表單寫入如下**
private sub p1_click()cd1.showopen
end sub
4.執行試驗
2樓：手機使用者
9 9
6 4
9 6
你call了之後a對應x，a對應y，它是動態的，當第一次x=x+2做完後x=3，然後a=3，那麼此時y其實不是1了而是3，在做y=y+2，做完y=5，換言之a=5，那麼x也等於5，第二次call後，一開始x=7，此時y=7了，（為什麼呢，你是在執行一次call後沒有讀到endsub，就在執行下一次call了，）在執行y=y+2後，y=9.那麼x=9. 所以 print x, y就是第一行9 9，，，，print b, c由於c是靜態變數第一次執行後市2，在執行一次後市4，而第一次執行b=b+2時，b=2+2就是4，第二次call執行後市4+2就是6，，，，第三行跳出自定義函式後應為x=9，所以a就是9，而b還是6
求一道vb題的答案啊。
3樓：匿名使用者
第一題private sub form_click()me.label1.caption = "你單擊了窗體"
end sub
private sub form_dblclick()me.label1.caption = "你雙擊了窗體"
end sub
第二題private sub command1_click()if me.command1.caption = "清屏" thenme.cls
me.command1.caption = "單擊窗體後退出"
me.command1.left = 0
me.command1.top = 0
me.command1.width = 2 * me.command1.width
me.command1.height = 2 * me.command1.height
else
endend if
end sub
private sub form_activate()for i = 1 to 4
for j = 1 to 6
if j = 6 - i then
print " ";
else
print "★";
end if
next
next
end sub
private sub form_click()if me.command1.caption = "單擊窗體後退出" then
endend if
end sub
同時需要修改窗體的borderstyle屬性為1第三題先新增控制項建立介面,然後再為控制項新增**
4樓：匿名使用者
程式設計題1.在窗體上建立乙個標籤，當單擊窗體時，在標籤上顯示「你單擊了窗體」；當雙擊窗體時，在標籤上顯示「你雙擊了窗體」
private sub form_click()
label1.caption = "你單擊了窗體"
end sub
private sub form_dblclick()
label1.caption = "你雙擊了窗體"
end sub
2、設計應用程式，要求在窗體上輸出如圖13所示的簡單圖形，窗體不可改變大小。當單擊「清屏」按鈕，清除窗體上顯示的圖形，同時，命令按鈕顯示為「單擊窗體退出」且移至窗體左上角改變為原大小的兩倍；單擊窗體後退出應用程式。
private sub command1_click()
if command1.caption = "清屏" then
me.cls
command1.caption = "單擊窗體退出"
command1.move 0, 0, command1.width * 2, command1.height * 2
end if
end sub
private sub form_click()
unload me
end sub
private sub form_load()
'在屬性面板中調整：
'設定窗體的borderstyle屬性為 1或者3
'設定窗體的controlbox屬性為false
me.autoredraw = true
print tab(2); string(4, "★"); spc(4); string(1, "★")
print tab(2); string(3, "★"); spc(4); string(2, "★")
print tab(2); string(2, "★"); spc(4); string(3, "★")
print tab(2); string(1, "★"); spc(4); string(4, "★")
command1.caption = "清屏"
end sub
一道VB試題
你把 print a i 放在了for 迴圈外面因此當你執行print a i 時,這時 i 為11.而你定義的為a 10 於是出現下標越界 修改如下 測試通過 private sub command1 click dim a 10 as integer,i as integerfor i 1 to...
急求！一道VB程式設計題謝謝，10道VB題 急求答案！！！謝謝高手了
private sub procmin a as integer,byval amin as integer dim i amin0 for i lbound a to ubound a print a i amin0 a lbound a if a i amin0 then amin a i ne...
求助一道VB題
private sub form load dim i as long dim x as long dim sum1 dim sum2 dim sum3 for i 1 to 30 x 100000 sum1 sum1 x next debug.print 窮人給富商的錢為 sum1sum2 0.0...