主题：多列如何同时产生随机数？

比如，代码可以这样写

If e.DataCol.Name = "班别" Then
    Select Case e.DataRow("班别")
        Case "A"
            e.DataRow("语文_1")=Rand.Next(68,78)
            e.DataRow("数学_1")=Rand.Next(68,78)
        Case "B"
            e.DataRow("语文_1")=Rand.Next(68,78)
            e.DataRow("数学_1")=Rand.Next(68,78)
        Case "C"
            e.DataRow("语文_1")=Rand.Next(68,78)
            e.DataRow("数学_1")=Rand.Next(68,78)
        
    End Select
End If