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
相关推荐
Access开发易登软件13 天前
【access开发】导入excel 并生成表
前端·低代码·html·excel·vba·access·access数据库
初级代码游戏17 天前
VSTO(C#)Excel开发 系列目录 含源码发布
c#·excel·源码·vba·vsto
初级代码游戏17 天前
VSTO(C#)Excel开发13:实现定时器
c#·excel·vba·定时器·vsto
初级代码游戏17 天前
VSTO(C#)Excel开发11:自定义任务窗格与多个工作簿
c#·excel·vba·vsto
初级代码游戏18 天前
VSTO(C#)Excel开发9:处理格式和字体
c#·excel·vba·vsto
锁匙isthekey21 天前
VBA+FreePic2Pdf 找出没有放入PDF组合的单个PDF工艺文件
需求分析·vba
感谢地心引力22 天前
【VBA】excel获取股票实时行情(历史数据,基金数据下载)
excel·股票·vba·数据
初级代码游戏22 天前
VSTO(C#)Excel开发6:与窗体交互
c#·vba·vsto·无模式对话框
初级代码游戏23 天前
VSTO(C#)Excel开发4:打印设置
excel·vba·vsto
LAM LAB25 天前
【VBA】WPS/PPT设置标题字体
javascript·powerpoint·vba·wps