VBA Excel口算题

chunyu.wu

于 2024-08-07 13:39:08 发布

阅读量307

点赞数 1

分类专栏： VBA 文章标签： VBA

本文链接：https://blog.csdn.net/wuchunyu002/article/details/140989566

版权

VBA 专栏收录该内容

64 篇文章 3 订阅

订阅专栏

口算题函数

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

Function Kousuan()
    Dim intOne As Integer
    Dim intTwo As Integer
    Dim strFlg As String
    Dim intFlg As Integer
    Dim strRtn As String
    
    intFlg = 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 = "-" Then
        If intOne > intTwo Then
            strRtn = intOne & strFlg & intTwo & "="
        Else
            strRtn = intTwo & strFlg & intOne & "="
        End If
    Else
        strRtn = intOne & strFlg & intTwo & "="
    End If
    
    shuxue = strRtn
End Function