VB基礎問題,VB一個基礎問題

2022-08-03 04:46:56 字數 737 閱讀 3229

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...