1樓：網友
command1_click 應該這樣寫。
private sub command1_click()if dir = dgreen then
dir = dyellow
= loadpicture(dir)elseif dir = dyellow thendir = dred
= loadpicture(dir)elsedir = dgreen
= loadpicture(dir)end if
end sub
if 有兩種形式，一種是 then 後面有語句的，這種沒有 else，不需要 end if
另一種是 then 後面沒語句的，可以有 else/else if, 需要 end if
形式1：if 條件 then 語句。
形式 2：if 條件 then
語句。[elseif 條件 then]
語句。[ else ]
語句。end if
vb程式紅綠燈設計
2樓：刺友互
1、 在桌面上，滑鼠左鍵雙擊，開啟vb程式設計軟體，在左邊工具欄上單擊image按鈕，在form1視窗上，繪製出圖框，然後在image屬性面板的picture屬性上，單擊【載入**】按鈕。
2、 接著，在彈出選取**對話方塊，選擇合適的紅綠燈素材來體現效果，這裡先選取了一張紅燈的**。
3、在image屬性面板的名稱屬性上，將其改名為red，標識後就不會與其他圖混淆。
4、在vb程式設計的介面中也可以直接複製控制元件，如將red這個image控制元件複製兩個出來，不加入控制元件組，並將後兩個依次改名為yellow、green。
5、 然後，將yellow圖形控制元件與red控制元件重疊，並右鍵單擊，在彈出的選單中選擇【移至底層】，放好後，green 圖形控制元件放在最底層。三個圖形控制元件依紅、黃、綠的順序疊加重合了。
6、接著，滑鼠左鍵雙擊red圖形控制元件，彈出輸入**視窗，在其上輸入如下**段。
3樓：匿名使用者
dim a, b, c as integer '事先把三個timer控制元件的interval設為1000,enabled屬性設為false ,並且文字框只能輸入整數。
private sub command1_click() 開始按鈕。
timer1 = true
visible = falsea = text1.
textb =
c = end sub
private sub command2_click() 結束按鈕。
= =falsetimer3.
enabled = falseimage3.
visible = falseend sub
private sub timer1_timer() 1label4.
caption = 0 thentext2.
text = b
= b= =falseimage2.
visible = falseend if
end sub
private sub timer2_timer() 1label4.
caption = 0 thentext3.
text = c
= c= =falseimage2.
visible = trueend if
end sub
private sub timer3_timer() 1label4.
caption = 0 thentext1.
text = a
= a= =falseimage1.
visible = falseend if
end sub
孔雀魚和紅綠燈的問題，孔雀魚和紅綠燈
紅綠燈魚，學名為霓虹脂鯉 paracheirodon innesi 為脂鯉科，霓虹脂鯉屬魚類。全身籠罩著青綠色光彩，從頭部到尾部有一條明亮的藍綠色帶，體後半部藍綠色帶下方還有一條短的紅色帶，腹部銀白色，紅色帶和藍色帶貫穿全身，光彩奪目。在不同的光線下或不同的環境中，霓虹脂鯉色帶的顏色時深時淺。因體色...
關於VB程式的問題，關於一個VB程式的問題
這是因為在窗體裡定義了a為全域性變數，但是在command1中又定義了一個a為區域性變數，所以在command1的過程中就把全域性變數的a給遮蔽了。而在fun1過程中，a還代表的是全域性變數的a呼叫fun1的時候把a 1.2,b 3傳給了x,y.這是地址傳遞。其實是把區域性變數a和b的地址傳給了x,...
VB程式設計問題，VB程式設計中的迴圈問題
有個 自己去看吧，都是考試的。編一個求圓周長的程式。輸入半徑，得到周長和麵積。試試看。建議你不要光學vb,畢竟它有太多缺點，很多事做不了 如果是對basic語言感興趣的話，到不如去學哈freebasic,powerbasic,purebasic,它們都功能超級強大 freebasic甚至可以寫作業系...