ถ้ากำหนดให้ 2 เป้นเลขหลักแล้วต้องการให้สุ่มเลข 1,3,4 มาอีกหนึ่งตัว จะเขียน code ยังไงคะ

<%numamt =1
nummax =4
nummin =2
randomize   
dim arr(1)
i=1
do while i <=numamt
x=int(nummin+(rnd *(nummax-nummin+1)))
found=0
for j=1 to i - 1
if arr(j)=x then found=1
next
if found=0 then
arr(i)=x
i=i + 1
end if
loop
for k=1 to numamt
se=""&arr(k)&""
Next%>