在8-12之间的数或15-18之间的数进行随机

Private Sub Command2_Click()
    Dim S1 As Integer
    For I = 8 To 18
        S1 = Int((10 * Rnd) + 8)
        If S1 > 12 And S1 <= 14 Then
        GoTo 10
       '     Exit For
        Else
            Me.Text0 = S1
        End If
10    Next
End Sub
用这一段代码试试看