VB2010怎么随机产生20道0-9的四则运算数学题，要求每道题随机不重复，求代码，越详细越好！！！

Public Class Form1
    ''' <summary>
    ''' 生成一个题,分在一个字符串数组内 
    ''' </summary>
    ''' <returns>一个数组</returns>
    ''' <remarks></remarks>
    Function getSum(Optional maxa As Integer = 10, Optional maxb As Integer = 10) As String()
        Dim a As Integer, b As Integer
        Randomize()
        a = Int(Rnd() * maxa)
        b = Int(Rnd() * maxb)
        Select Case Int(Rnd() * 4)
            Case 0
                Return New String() {a, "+", b, a + b} ' a & "+" & b & "="
            Case 1
                Return New String() {a, "-", b, a - b}
            Case 2
                Return New String() {a, "*", b, a * b}
            Case Else
                Try
                    If a < b Then
                        Dim t As Integer
                        t = b
                        b = a
                        a = t
                    End If
                    If b = 0 Then b = Int(Rnd() * (a - 1)) + 1
                    If a Mod b <> 0 Then
                        If a \ b = 0 Then
                            b = 1
                        Else
                            b = a / (a \ b)
                        End If
                    End If
                    Return New String() {a, "÷", b, a / b} ' a & "÷" & b & "="
                Catch ex As Exception
                    Return New String() {ex.Message}
                End Try
        End Select
    End Function
    ''' <summary>
    ''' 得到指定个数 不重复的题
    ''' </summary>
    ''' <param name="len">请不要填写的太大10以内容的 最多也只有300多个</param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Function getLenQ(Optional len As Integer = 20) As List(Of String())
        Dim t As New List(Of String())
        Do While t.Count < len
            Dim tem() As String = getSum()
            If tem.Length = 4 Then
                Dim f As Boolean
                For Each i As String() In t
                    Dim o As Integer = 0
                    f = True
                    For Each j As String In i
                        If j <> tem(o) Then
                            f = False
                            Exit For
                        End If
                        o += 1
                    Next
                    If f Then Exit For
                Next
                If f = False Then
                    t.Add(tem)
                End If
            End If
        Loop
        Return t
    End Function
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        ListBox1.Items.Clear()
        For Each t As String() In getLenQ()
            ListBox1.Items.Add(t(0) & t(1) & t(2))
        Next
    End Sub
End Class

追问

如果需要每道题后面有一个listbox填答案，并且能判断正误，该怎么写呢？

追答

如果要录入答案 那就要改动一下了!

下面为改动后的代码.

首先 加上二个控件  Panel1  Button2

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

字数有限 上传文本了.自己看下 全部代码

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/vyjrffxv7erf33vy2f7.html