VB问题!关于随机排序

[复制链接]
查看11 | 回复4 | 2006-3-19 03:16:29 | 显示全部楼层 |阅读模式
不要学VB拉..很快就被淘汰了...学JAVA或.net市场会需要一些这方面的人才....
回复

使用道具 举报

千问 | 2006-3-19 03:16:29 | 显示全部楼层
vb的语法不是很清楚,但是从算法上可以把1-9分别存进数组,然后循环随机交换变量,交换几十次基本上就是十分随机的了
回复

使用道具 举报

千问 | 2006-3-19 03:16:29 | 显示全部楼层
你的题好象没说清楚吧,“每次单击按钮都随机出一种不同的排法”是按顺序吗
回复

使用道具 举报

千问 | 2006-3-19 03:16:29 | 显示全部楼层
使用随机函数RND。用法如下Randomize
'设置随机种子a=RND这时候得到的是一个0-1之间的数字。怎么处理就看你了
回复

使用道具 举报

千问 | 2006-3-19 03:16:29 | 显示全部楼层
方法很多,我也来写一个Private Sub Command1_Click()Randomize TimerDim aaa As StringDim bbb As StringDim temp As IntegerDim i As Integeraaa = "123456789"bbb = ""For i = 1 To 9
temp = Mid(aaa, Int(Rnd * Len(aaa) + 1), 1)
bbb = bbb & temp
aaa = Replace(aaa, temp, "")Next iMsgBox bbbEnd Sub
回复

使用道具 举报

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

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行