VBA Excel口算题

口算题函数

利用随机数写个20以内加减法口算题函数

Function Kousuan()Dim intOne As IntegerDim intTwo As IntegerDim strFlg As StringDim intFlg As IntegerDim strRtn As StringintFlg = Application.WorksheetFunction.RandBetween(0, 1)strFlg = "-"If intFlg = 0 Then strFlg = "+"intOne = Application.WorksheetFunction.RandBetween(10, 20)intTwo = Application.WorksheetFunction.RandBetween(1, 20)If strFlg = "-" ThenIf intOne > intTwo ThenstrRtn = intOne & strFlg & intTwo & "="ElsestrRtn = intTwo & strFlg & intOne & "="End IfElsestrRtn = intOne & strFlg & intTwo & "="End Ifshuxue = strRtn
End Function