1樓：
這樣行嗎？供參考。乙個label和乙個timerprivate sub timer1_timer()if = h0000ff& then = h00ff00&: exit sub
if = h00ff00& then = hff0000&: exit sub
if = hff0000& then = h0000ff&: exit sub
end sub
vb程式填空
2樓：網友
lenth=len(le) 『取得字串總長度c=mid(le,i,1) 『乙個字元乙個字元的從le中取出這個程式有一些問題：
1、num（）統計長度的陣列未進行初始化。
2、僅用乙個字元判斷，有可能出現錯誤，因為漢字有可能出現前半個字元數值相同的情況。
3、如果混合英文半形字元需要，另外的處理。
4、i,j 變數都為顯式宣告為整形，預設為變體型，速度較慢，系統開銷大。
vb程式填空，新手求助
3樓：陽光上的橋
分別填，這樣：
if = 123456" then
口令正確"else
這個vb小程式怎麼寫
4樓：網友
private sub form_click()dim yn as vbmsgboxstyledoyn = msgbox("確認", vbyesno)loop until yn = vbno
end sub
甚至可以更簡單：
private sub form_click()doloop until msgbox("確認", vbyesno) = vbno
end sub
5樓：
既然完全不懂vb，就應該買本書回去好好學習一下，別人即使這次告訴了你怎麼做，下次你又不會了，建議買本高教社或者未來教育的vb教程鞏固鞏固。
這段程式該怎麼寫？vb的程式
6樓：叮噹貓武漢
private sub command1_click()c = 0
for n = 100 to 200
for i = 2 to n - 1
if n mod i = 0 then a = 1: exit for else a = 0
next i
if a = 0 then c = c + nnext n
print "100-200之間的所有素數和=",cend sub
怎麼編寫VB投票統計程式，怎麼編寫一個VB投票統計程式？
private sub command1 click text1.text val text1.text 1end sub private sub command2 click text2.text val text2.text 1end sub private sub command3 click...
怎麼設計VB程式把成績轉換abcd等級
剛才不小心錯怪了zainden，再此特別表示歉意 希望不要放心裡去的 呵呵 dim fenshu as integer 把分數放在變數fenshu裡面 dim grade as string 把等級放在變數grade中select case fenshu case is 60 grade e cas...
怎麼用vb編出九九乘法表如下圖，用VB程式怎麼做九九乘法表？
private sub form load me.autoredraw true dim i,j as integer dim sdisp as string for i 1 to 9 for j 1 to 9 if i j then sdisp sdisp j x i i j iif i j 9,...