VBA Excel口算题

口算题函数

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

vbscript 复制代码
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
相关推荐
啊波次得饿佛哥15 天前
excel中的VBA指令示例(一)
excel·vba
啊波次得饿佛哥16 天前
excel中的VBA指令示例(二)
excel·vba
jimin_callon18 天前
VBA第三十九期 VBA自动把工作表转换成PPT
python·excel·vba·wps·deepseek
jimin_callon20 天前
VBA第三十八期 VBA自贡分把表格图表生成PPT
开发语言·python·powerpoint·编程·vba·deepseek
Access开发易登软件1 个月前
【access开发】导入excel 并生成表
前端·低代码·html·excel·vba·access·access数据库
初级代码游戏1 个月前
VSTO(C#)Excel开发 系列目录 含源码发布
c#·excel·源码·vba·vsto
初级代码游戏1 个月前
VSTO(C#)Excel开发13:实现定时器
c#·excel·vba·定时器·vsto
初级代码游戏1 个月前
VSTO(C#)Excel开发11:自定义任务窗格与多个工作簿
c#·excel·vba·vsto
初级代码游戏1 个月前
VSTO(C#)Excel开发9:处理格式和字体
c#·excel·vba·vsto
锁匙isthekey1 个月前
VBA+FreePic2Pdf 找出没有放入PDF组合的单个PDF工艺文件
需求分析·vba