用VB语言控制一个量0，1，2之间循环跳动

dim a

do
a=a+1
if a=2 then a=0
print a
loop

你MOD3就行了呀..余数就是你需要的0,1,2了
我的例子,是循环50个这样的数呀:

Private Sub Command1_Click()
Dim i%, j%

For i = 0 To 50
j = i Mod 3
Print j
Next
End Sub

randomize

rnd()
随机函数