VB程式設計的問題

2樓：壤駟若谷昌凰

option

explicit

private

subform_load()

timer1.interval

=500

'這裡可以改成別的時間段，我是以0.5秒變化一次來寫的endsub

private

subtimer1_timer()

iflabel1.forecolor

=vbred

then

label1.forecolor

=vbgreen

elseif

label1.forecolor

=vbgreen

then

label1.forecolor

=vbblue

elseif

label1.forecolor

=vbblue

then

label1.forecolor

=vbblack

elseif

label1.forecolor

=vbblack

then

label1.forecolor

=vbyellow

elseif

label1.forecolor

=vbyellow

then

label1.forecolor

=vbred

endif

endsub

上面顯示字型用的是label控制元件，0.5秒變一次顏色。按紅、綠、藍、黑、黃

的順序。

vb程式設計問題，VB程式設計問題

private sub command1 click text1 for i 1 to 45 7 for j 1 to 45 6 2for k 1 to 45 3 5if i j 2 k 5 45 thenn n 1 end if next next next text1 n end sub pri...

VB程式設計問題，VB程式設計難嗎？

非常簡單，你看插圖，一切都在圖中。如下 在窗體中新增一個label1 兩個預設command1和command2。一切屬性預設 不用修改。private sub command1 click if command1.caption 有邊框 then label1.borderstyle 1 comm...

VB程式設計題目,vb程式設計題目

private sub mand1 click dim i as integer,j as integer,k as integer dim a 1 to 10 as integerdim max as integer,min as integer,pj as single dim sumnum a...