已解决看看这段简单VB代码哪里出错了

提问者：心在微笑baby | 浏览次 | 提问时间：2017-01-20 | 回答数量：3

看看这段简单VB代码哪里出错了 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这图片