1樓：匿名使用者
option explicit
dim basesize as singleprivate sub form_load()basesize = label1.fontsizeend sub
private sub timer1_timer()if label1.fontsize * 1.5 < 100 then
label1.fontsize = label1.fontsize * 1.5
else
label1.fontsize = basesizeend if
end sub
'設定定時器timer1的interval的值為2000
2樓：匿名使用者
'label1 timer1
dim oldsize as singledim oldw as single
dim oldh as single
private sub timer1_timer()if label1.fontsize < 100 thenlabel1.fontsize = label1.
fontsize * 1.5
label1.width = label1.width * 1.5label1.height = label1.height * 1.5
else
label1.fontsize = oldsizelabel1.width = oldw
label1.height = oldh
end if
end sub
private sub form_load()oldsize = label1.fontsizeoldw = label1.width
oldh = label1.height
timer1.interval = 2000end sub
急求！一道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程式設計100以內的加法運算
dim n1,n2,ztol,tm private sub mand1 click randomize da tm tm 1 n1 int rnd 100 n2 int rnd 100 ti.caption n1 n2 end sub private sub mand2 click pdend su...
vb程式設計習題，VB程式設計習題
1.x val inputbox input x if x 10 then y abs x if x 20 then y sqr 3 x 1 if x 20 then y 3 x 2debug.print y 2.x val inputbox input x if x 10 then y abs x...