易语言用判断循环首来讲笑话的代码

用判断循环首来讲笑话的代码

.版本 2
.程序集 程序集1
.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
.局部变量 想看次数, 整数型
.局部变量 循环次数, 整数型
标准输出 (, “下面的故事你想看几遍?请输入:”)
想看次数 = 到整数 (标准输入 ())
.判断循环首 (想看次数 ≠ 循环次数)
  标准输出 (, “从前有座山,山里有个庙。庙里有个老和尚给小和尚讲故事!讲的故事是”)
  循环次数 = 循环次数 + 1
.判断循环尾 ()
想看次数 = 到整数 (标准输入 ())
返回 (0)

运行结果:

总结

以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对我们的支持。如果你想了解更多相关内容请查看下面相关链接

(0)

相关推荐

  • 易语言通过时钟和计次循环来实现定时任务的代码

    创建定时任务源码 .版本 2 .支持库 iext .支持库 eAPI .程序集 窗口程序集_启动窗口 .子程序 __启动窗口_创建完毕 .局部变量 i, 整数型 .计次循环首 (61, i) .如果真 (i < 25) 时组合框.加入项目 (到文本 (i - 1), ) .如果真结束 分组合框.加入项目 (到文本 (i - 1), ) 秒组合框.加入项目 (到文本 (i - 1), ) .计次循环尾 () 时组合框.现行选中项 = 0 分组合框.现行选中项 = 0 秒组合框.现行选中项 = 0

  • 易语言使用到循环尾命令实现过滤变量的代码

    过滤1~100之间非3的倍数代码 .版本 2 .程序集 窗口程序集1 .子程序 _显示按钮_被单击 .局部变量 循环变量, 整数型 编辑框1.内容 = "" .变量循环首 (1, 100, 1, 循环变量) .如果真 (循环变量 % 3 ≠ 0) ' 不是3的倍数的数都不会显示 到循环尾 () .如果真结束 编辑框1.加入文本 (到文本 (循环变量), ",") .变量循环尾 () 运行结果: 总结 以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具

  • 易语言次循环和延迟循环实现方法

    易语言计次循环和延迟循环 以上就是实现的界面以及相关代码,感谢大家对我们的支持.

  • 易语言循环另外用法讲解

    1 只用易语言核心支持库写出 . 2 不准用循环命令写 :计次 循环 判断循环 循环判断 变量循环 不准用 ! 时钟不能用!逗号句号也要写!! 1.先建立如图所示的内容,按钮,标签,编辑框等 2.第一个循环,注意末尾又一个句号,这是重点. 学习编辑框. .版本 2 .子程序 _按钮1_被单击 a = 0 .计次循环首 (到数值 (编辑框1.内容), ) a = a + 1 .如果 (a ≠ 到数值 (编辑框1.内容)) 编辑框2.加入文本 (到文本 (a) + ",") .否则 编辑框

  • 易语言使用变量循环首命令显示0到50之间所有偶数的代码

    显示0到50之间的偶数代码 .版本 2 .程序集 窗口程序集1 .子程序 _变量循环首按钮_被单击 .局部变量 循环变量, 整数型 变量循环首编辑框.内容 = "" .变量循环首 (0, 50, 2, 循环变量) ' 显示0~50之间的所有偶数 变量循环首编辑框.加入文本 (到文本 (循环变量), ",") .变量循环尾 () 运行结果: 总结 以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对我们的支持.如果你想了解

  • 易语言计次循环首命令使用讲解

    计次循环首命令 操作系统支持:Windows.Linux.Unix 所属类别:流程控制 执行本命令将把循环体内的命令重复执行指定的次数.提供的整数参数值决定将重复执行的次数. 语法:  无返回值  计次循环首(循环次数,[已循环次数记录变量]) 例程 说明: 第一个参数,给出将要循环的次数,是整数型,第二个参数可选的,可以给出一个整数型的变量,用来记录已经循环的次数. 例程中是将10以内的整数显示在编辑框中,整数之间用":"隔开,首先运行计次循环首 (10, 循环次数变量)的命令,此命

  • 易语言用判断循环首来讲笑话的代码

    用判断循环首来讲笑话的代码 .版本 2 .程序集 程序集1 .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行 .局部变量 想看次数, 整数型 .局部变量 循环次数, 整数型 标准输出 (, "下面的故事你想看几遍?请输入:") 想看次数 = 到整数 (标准输入 ()) .判断循环首 (想看次数 ≠ 循环次数) 标准输出 (, "从前有座山,山里有个庙.庙里有个老和尚给小和尚讲故事!讲的故事是") 循环次数 = 循环次数 + 1 .判断循环尾 ()

  • 易语言编写的算术题程序实例代码

    这是一个用易语言编写的一款自动出题的软件 程序下载地址:https://www.jb51.net/codes/645872.html 以下是源码内容: .版本 2 .程序集 窗口程序集1 .子程序 _按钮1_被单击 .判断开始 (编辑框1.内容 = "" 或 编辑框2.内容 = "") 信息框 ("账户名或密码不能为空!", 0, "提示", ) 编辑框1.获取焦点 () .判断 (编辑框1.内容 = "sau123

  • 易语言子程序数据传递的应用代码

    子程序数据传递应用代码 .版本 2 .程序集 窗口程序集1 .子程序 _显示按钮_被单击 .局部变量 整数变量1, 整数型 .局部变量 整数变量2, 整数型 .局部变量 小数变量1, 小数型 .局部变量 小数变量2, 小数型 .局部变量 文本型变量1, 文本型 .局部变量 文本型变量2, 文本型 参数赋值 (整数变量1, 整数变量2, 小数变量1, 小数变量2, 文本型变量1, 文本型变量2) 编辑框1.加入文本 ("参考整数型参数中的变量:" + 到文本 (整数变量1) + #换行符

  • 易语言制作语音聊天机器人的代码

    常量数据表 .版本 2 .常量 对话前, "<文本长度: 7>", , text":" .常量 对话后, "<文本长度: 2>", , "} .常量 token前, "<文本长度: 16>", , "access_token":" .常量 双撇号, "<文本长度: 1>", , " .常量 apikey, &q

  • 易语言实现批量文本替换操作的代码

    批量文本替换机的代码 .版本 2 .支持库 iext .支持库 shell .支持库 xplib .程序集 窗口程序集1 .程序集变量 搜寻位置, 整数型 .程序集变量 当前被搜寻文本, 文本型 .程序集变量 起始 .程序集变量 sj1 .程序集变量 sj2 .子程序 _驱动器框_驱动器被改变 连续赋值 (驱动器框.驱动器 + ":\", 目录框1.目录, 文件框1.目录) .子程序 _目录框1_目录被改变 文件框1.目录 = 目录框1.目录 .子程序 _文件框1_双击选择 待替换文件

  • 易语言多线程多任务下载器的代码

    多线程多任务下载模块源码 1.DLL命令表 .版本 2 .DLL命令 InternetGetConnectedStateHTTP, , "Wininet.dll", "InternetGetConnectedState", 公开 .参数 lpdwFlags, 整数型, 传址 .参数 dwReserved, 整数型 .DLL命令 InternetOpenAHTTP, 整数型, "Wininet.dll", "InternetOpenA&q

  • 易语言制作连连看小游戏的代码

    图片资源表 .版本 2 .图片 卡通 .图片 横线 .图片 竖线 .图片 左上 .图片 右上 .图片 左下 .图片 右下 .图片 苹果, , 背景图 连连看的代码 .版本 2 .程序集 窗口程序集1 .程序集变量 显示图片, 字节型, , "0" .程序集变量 上次移动, 字节型 .程序集变量 上次点击, 字节型 .程序集变量 横数, 字节型 .程序集变量 竖数, 字节型 .程序集变量 图片数, 字节型 .程序集变量 可消除, 文本型, , "0" .程序集变量 剩

  • 易语言删除数组重复成员的代码

    删除数组重复成员的代码 .版本 2 .支持库 spec .程序集 窗口程序集1 .程序集变量 数组, 整数型, , "0" .子程序 __启动窗口_创建完毕 置随机数种子 () .计次循环首 (10, ) 加入成员 (数组, 取随机数 (1, 5)) .计次循环尾 () 调试输出 (数组) .子程序 _去重按钮_被单击 .局部变量 计次1, 整数型 .局部变量 计次2, 整数型 .计次循环首 (取数组成员数 (数组), 计次1) .如果真 (计次1 > 取数组成员数 (数组))

  • 易语言编辑框加背景图片代码实例

    DLL代码 .版本 2 .DLL命令 CreatePatternBrush, 整数型, "gdi32", "CreatePatternBrush" .参数 hBitmap, 整数型 .DLL命令 GetWindowLong, 整数型, "user32", "GetWindowLongA" .参数 hwnd, 整数型 .参数 nIndex, 整数型 .DLL命令 SetWindowLong, 整数型, "user32&

  • 易语言表格不显示滚动条的代码

    DLL命令代码 .版本 2 .DLL命令 滚动条, 整数型, , "ShowScrollBar" .参数 句柄, 整数型 .参数 类型, 整数型 .参数 与否, 逻辑型 表格不显示滚动条代码 .版本 2 .程序集 窗口程序集1 .程序集变量 滚动条状态 .程序集变量 数据库名, 文本型 .子程序 __启动窗口_创建完毕 .局部变量 运行目录, 文本型 .局部变量 字段, 字段信息, , "6" 滚动条状态 = 表格1.取窗口句柄 () 运行目录 = 取运行目录 ()

随机推荐