请大侠给写段VB代码

[复制链接]
查看11 | 回复1 | 2010-12-29 08:32:52 | 显示全部楼层 |阅读模式
要求能够做一个产生随机(1~70 )的名单(能够自定义ID),要求点击开始时,屏幕上就开始滚动人的名字,点击停止

回复

使用道具 举报

千问 | 2010-12-29 08:32:52 | 显示全部楼层
给你一个随机产生 0~69数字的代码吧(我认为这里是关键)Private Sub Command1_Click()Timer1.Interval = 0End SubPrivate Sub Form_Load()Timer1.Interval = 100End SubPrivate Sub Timer1_Timer()a = Rnd() * 100 Mod 70Label1.Caption = aEnd Sub
回复

使用道具 举报

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

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行