vb中如何利用函数生成776-878之间的以4为倍数的随机数

Rem 运行后，单击窗体即可产生

Private Sub Form_Click()
Dim n As Integer
Randomize '生成随机种子
Do
n = Int(Rnd * (878 - 776 + 1)) + 776 'int(rnd*(m-n+1))+n是产生[n,m]之间随机整数的通用公式
Loop Until n Mod 4 = 0 '当n除以4的余数为0时（也就是n为4的倍数），退出循环
Print n
End Sub

1个按钮,复制过去直接运行

Private Sub Command1_Click(Index As Integer)
Dim i
Randomize
Do
i = Int(Rnd * (878 - 776)) + 776
Loop While i Mod 4 <> 0
Print i
End Sub

776-878之间4的倍数有25个，所以只用产生从0-24的随机数，在乘4加776就OK了。

Randomize
x = Int(Rnd * 25) * 4 + 776
MsgBox x

dim instr as integer
dim flag as integer
flag=1
randomize
instr=int(rnd()*1000)
while(flag==1)
begin
if (instr%4 == 0) and (instr>=776 and instr<=878) then
flag=0
else
instr=int(rnd()*1000)
end if
end
核心代码应该是这样了，instr就是那个区间的数据了