3.4算法及其实现

执教者 石湘林时间 2017年12月 目 录 界面分析 产生幸运星并显示在Label1上 产生金额并显示在Label2上 判断产生的金额和猜测的金额是否相等并在Label3上输出 解密计时器 Timer计时器控件 作用 每过一段时间重复执行一次相同的代码 Enabled 启用True False Interval 间隔单位 毫秒 如何控制计时器的开关 单击幸运星Command1按钮 PrivateSubCommand1 Click EndSub IfTimer1 enabled FalseThenElseEndIf Timer1 Enabled True Timer1 Enabled False Enabled 幸运星的产生 Rnd Rnd 40 Rnd 40 1 1 41 Int Rnd 40 1 1 41 Int 取整 0 1 0 40 幸运星的产生 Int Rnd40 1 Label 幸运星是 str x 同学 X PrivateSubTimer1 Timer x Int Rnd 40 1 Label1 Caption 幸运星是 Str x 号同学 EndSub 产生随机金额 PrivateSubCommand2 Click Timer2 Enabled TrueEndSub PrivateSubTimer2 Timer h Int Rnd 10 1Label2 Caption 实际红包是 Str h EndSub PrivateSubCommand3 Click EndSub Timer2 Enabled False m Val Text1 Text IfThenLabel3 Caption 恭喜你 得到了大红包 Str m 元 ElseLabel3 Caption 别灰心 再接再厉 EndIf m h 练一练 随机数练习 产生 0 45 的随机整数 产生 1 45 的随机整数 产生随机两位正整数 Int Rnd 45 1 Int Rnd 46 10 99 Int Rnd 90 10 产生 3 45 的随机整数 Int Rnd 43 3 产生 a b 的随机整数 Int Rnd b a 1 a 或Int Rnd b a 1 a 总结 求 a b 的随机整数Int Rnd a b 1 a 或Int Rnd a b 1 a 执教者 石湘林时间 2017年12月 大显身手 寻找水仙花 单击Command1 生成 按钮 在列表框List1上每隔0 01秒列出一个三位数 共产生100个三位数存放于数组a i 中 单击Command2 查找 按钮 在list2中列出刚刚100个数中的水仙花数 并在Label3中显示共找到几个 水仙花数 三位数每位的立方和等于其本身 例如153 1 3 5 3 3 3 大显身手 寻找水仙花 PrivateSubCommand1 Click i 1Timer1 Enabled TrueList1 ClearEndSub PrivateSubTimer1 Timer RandomizeIfThenTimer1 Enabled FalseElseList1 AddItemStr a i EndIfi i 1EndSub a i Int Rnd 900 100 i 100 大显身手 寻找水仙花 Fori 1To100g s b Nexti IfTh