试探法算法实例：彩票M选N号码（VB.net代码）

Public Class Form1
    Dim intNum(), intCode() As Integer '全局变量数组
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        '初始化
        '数值过大耗时较多，也可能出现溢出无法得到全部结果
        txtM.Text = "15"
        txtN.Text = "5"
    End Sub

    Private Sub btnCode_Click(sender As Object, e As EventArgs) Handles btnCode.Click
        '对于用户输入值必须进行合理性检测，否则会出现异常错误、耗时过长等问题
        If IsNumeric(txtM.Text) And IsNumeric(txtN.Text) Then
            Try
                Dim intM, intN As Integer
                intM = txtM.Text
                intN = txtN.Text
                If intM >