广告广告
  加入我的最爱 设为首页 风格修改
首页 首尾
 手机版   订阅   地图  繁体 
您是第 4800 个阅读者
 
发表文章 发表投票 回覆文章
  可列印版   加为IE收藏   收藏主题   上一主题 | 下一主题   
panasonic732 手机
个人头像
个人文章 个人相簿 个人日记 个人地图
特殊贡献奖
初露锋芒
级别: 初露锋芒 该用户目前不上站
推文 x2 鲜花 x30
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片
推文 x0
[Basic][范例] 朴克牌发牌
这个程式,是小弟刚学VB所做的
所做的功能有单发、及全发
附件有原程式码、执行档
不妨下载试试看,有BUG等等还望大大指点
02.zip是原程式码,Project1.zip是执行档




Dim B As Integer
Dim Q As Integer
Dim I As Integer
Dim Y(52)

Private Sub Command1_Click()




I = I + 1


Do

X = Val(Round(Rnd * 51))
Y(I) = X
R = True
For J = 1 To I - 1

If X = Y(J) Then

R = False

Exit For

End ..

访客只能看到部份内容,免费 加入会员 或由脸书 Google 可以看到全部内容



[ 此文章被panasonic732在2005-01-05 13:17重新编辑 ]



忧虑不断,心未宁静
绵绵春雨,花失娇艳
凋零磨灭,事情难回
得意失意,不再回想
放弃它吧,唯有如此
献花 x0 回到顶端 [楼 主] From:台湾TANET | Posted:2005-01-04 22:48 |
angel2005 手机
数位造型
个人文章 个人相簿 个人日记 个人地图
路人甲
级别: 路人甲 该用户目前不上站
推文 x0 鲜花 x22
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

很不错唷~此程式看的出来楼主设计的很用心再次给予肯定 表情



爱=背叛+痛苦+心死+孤独
献花 x0 回到顶端 [1 楼] From:台湾中华电信 | Posted:2005-04-17 16:29 |

首页  发表文章 发表投票 回覆文章
Powered by PHPWind v1.3.6
Copyright © 2003-04 PHPWind
Processed in 0.069134 second(s),query:16 Gzip disabled
本站由 瀛睿律师事务所 担任常年法律顾问 | 免责声明 | 本网站已依台湾网站内容分级规定处理 | 连络我们 | 访客留言