vb怎样随机输出(返回)0或5结尾的数???

Private Sub Form_Click()
Dim a As String
Dim b As String
a = Int(10 * Rnd(Timer))
b = Int(10 * Rnd(a ^ a))
If Timer Mod 2 = 0 Then Print a + "." + b + "5" Else Print a + "." + b + "0"
End Sub

楼主可以这样 考虑：
1、先做一个数组，其值都是 以0 或者 5 结尾的数；
2、随机产生一个数，是 该数组 的 下标；

于是 就解决 了你的 问题

do
a=int(rnd*100)
loop until a mod 5<>0

因为你说的数字是5的倍数，如果是整形的话，
Randomize
X=5*Rnd()
如果要小数可以自己修改
这个Rnd()的范围是0-1