vb 生成随机数（急!）

Option Explicit
Private Sub Command1_Click()
Randomize
Dim i As Integer,j As Integer
Do
j = Int(Rnd * 39 + 1)
If j 4 And j 18 And j 38 Then
Print j
i = i + 1
If i >= 3 Then Exit Do
End If
Loop
End Su