VBS猜数字

dim a(3),b,c(3),d
dim ji,jiji,i,ii
dim right,all
right=0
all=0
Randomize()
For ji=0 To 3
ken=false
zhi=CStr(int(rnd*9+1))
For jiji=0 To ji
If a(jiji)=zhi Then
ken=True
ji=ji-1
Exit For
End If
Next
If ken=False Then
a(ji)=zhi
b=b & a(ji)
End If
next

do
d=inputbox("请输入一个数字","游戏")
if d=b then
exit do
end if

for i=0 to 3
c(i)=mid(d,i+1,1)
next

for ji=0 to 3
for i=0 to 3
if a(ji)=c(i) then
right=right+1
if ji=i then
all=all+1
end if
end if
next
next

msgbox right-all & "b " & all & "a"
right=0
all=0
loop

msgbox "游戏结束",," 游戏"

VBS的？？用户输入有点困难……
我有VB6的完整源码……不知你需要否

Dim x(4) As Integer
Dim a(4) As In