加减乘除的一些简单运算！ Dim No As Long Dim OkNo As Long Dim s As Long Private Function Operator() As String Dim x As Long Randomize x = Int(4 * Rnd) Select Case x Case 0 Operator = "+" Case 1 Operator = "-" Case 2 Operator = "×" Case 3 Operator = "÷" End Select End Function
