看看这段简单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这图片