已解決看看這段簡單VB代碼哪裏出錯了

提問者：心在微笑baby  |  瀏覽次  |  提問時間：2017-01-20  |  回答數量：3

dim ra as singlera = int (rnd() * 10) If 0 <= ra <= 5 Then Image4.Picture = LoadPicture(App.Path & \"\\pic\\4.gif\") ElseIf 5 < ra <= 10 Then Image4.Picture = LoadPicture(App.Path & \"\\pic\\44.gif\") End Ifif或者是這樣 If 0 <= ra <= 5 Then Image4.Picture = LoadPicture(App.Path & \"\\pic\\4.gif\") Else Image4.Picture = LoadPicture(App.Path & \"\\pic\\44.gif\") End If現在的問題是,無論ra取值是什麼都隻顯示4.gif這圖片