使用 vb 写一个快乐8机选程序

以下是一个简单的VB代码，用于实现快乐8机选程序：

Private Sub btnRandom_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRandom.Click
    Dim rnd As New Random
    Dim nums(20) As Integer
    Dim result As String = ""

    '产生20个1-80之间的随机数
    For i As Integer = 0 To 19
        nums(i) = rnd.Next(1, 81)
    Next

    '将随机数排序并输出
    Array.Sort(nums)
    For i As Integer = 0 To 19
        result &= nums(i).ToString() & " "
    Next

    '将结果输出到文本框中
    txtResult.Text = result
End Sub

这个程序会在点击按钮后，产生20个1-80之间的随机数，并将结果按升序排序后输出到文本框中。你可以根据自己的需要进行修改和优化。