楼主: 打了个飞的
170 0

[学习资料] 用VB编写抽奖程序教学设计 [推广有奖]

  • 0关注
  • 25粉丝

已卖:7668份资源
好评率:99%
商家信誉:一般

院士

94%

还不是VIP/贵宾

-

威望
0
论坛币
3465 个
通用积分
4975.9620
学术水平
8 点
热心指数
9 点
信用等级
8 点
经验
18409 点
帖子
2133
精华
0
在线时间
1415 小时
注册时间
2024-5-25
最后登录
2026-2-13

楼主
打了个飞的 在职认证  发表于 2024-12-5 18:43:25 |AI写论文

+2 论坛币
k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群
赵安豆老师微信:zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

感谢您参与论坛问题回答

经管之家送您两个论坛币!

+2 论坛币
用 VB 编写抽奖程序教学设计

  新建一个标准的    exe 工程。在 form1  窗体中放置一个定时器
( timer1 )、 两 个 文 本 框 ( label1 , label2 )、 两 个 命 令 按 钮
(command1 ,command2 )和包含 7 个元素的控件数组( label3
(0) label3 (6))
       。
  二、属性设置
  label3 控件数组中的所有元素皆采用相同设置。
  三、代码编写
  本程序的实现原理是:当用户单击       开始 按钮时,打开定时器,
利用定时器控件同时产生两个随机数       sj1 、sj2,sj1 的范围是 1 ~32 ,
sj2 的范围是 0~49 。当 sj1=24 的时侯,用 sj2 与前面产生的中奖号
码作比较,若与前面的中奖相同,则退出本过程;若与前面的中奖号
码不同, 则将此随机数作为中奖号码。 当产生了 7 个中奖号码时, 关
闭定时器控件,停止产生随机数。
  本程序用到的函数简介:
  (1)randomize :初始化随机数的种子数。
  (2)int ():返回一个非 ...
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

关键词:教学设计 randomize Command random label

您需要登录后才可以回帖 登录 | 我要注册

本版微信群
扫码
拉您进交流群
GMT+8, 2026-2-19 15:52