1樓:匿名使用者
private sub command1_click()static i as integer
dim a()
a = array("小1", "王2", "小3", "李4", "太5", "多6", "了7", "不8", "寫9", "了10")
label1.caption = a(i)if i < 9 then i = i + 1end sub
private sub command2_click()endend sub
2樓:匿名使用者
private sub command1_click()label1.caption = val(label1.caption) + 1
if val(label1.caption) > 10 then label1.caption = 0
end sub
3樓:
dim n as integer
private sub cmd1_click()a=array("趙","錢","孫","李","周","吳","鄭","王") '這裡有幾個就寫幾個,加雙引號並用逗號隔開
if n>ubound(a) then
n=0endif
label1.caption = a(n)n=n+1
end sub
private sub quit_click()endend sub
VB的問題,一個VB的問題
以下 只需要按command1就可以同時顯示text1和text2了 option explicit option base 1 private sub command1 click dim a 15 as integer dim i as integer text1.text for i 1 to...
vb的問題,vb的一個問題
private sub form queryunload cancel as integer,unloadmode as integer 點選右上角的關閉 dim a as integer a msgbox 確認關閉嗎?vbokcancel vbquestion,系統提示 if a vbok the...
關於vb時鐘的問題,關於vb時鐘的一個問題
建立一個窗體,把borderstyle屬性設為0 none,在窗體上面繪製一個timer 一個label就可以了,不用修改其他屬性。開啟 區,寫下以下 dim x1,y1 as single private sub form load me.caption me.borderstyle 0 with...