在radiobuttonn上点选25题
用vb程式 在sql资料库取25笔不同的题目 且不重复
取到的题目会放置在file_num
那请问要如何写程式
用rnd()来写

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        cnn.Open()
        cmd = New SqlCommand("select ..

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

关于不重复的部分
提供一种方法，可以用一个字串去记录已经读取的题目编号

例如创一个变数 RepFilterS
在 Do 上面加一行 RepFilterS = "/"

file_num = Int(Rnd() * file_num + 1) 这行把他置换成回圈：

Do
file_num = Fix((25)*Rnd + 1)
Loop While InStr(1, RepFilterS , "/" & file_num & "/") <> 0
RepFilterS = RepFilterS & file_num & "/"

第三行意思是在 RepFilterS 寻找纪录是不是该号码已经被载入过了，有的话就跑回圈再取一次，跑到纪录中找不到才可以跳出去

例如 RepFilterS 目前是 "/2/5/7/13/19/23/"
假如第一次乱数取到 7 ，则 InStr 在 RepFilterS 找的到 "/7/" 因此继续跑
假如取到 1 找不到就可以跳出，避免重复


其实有另外一种方法更简单，用类似 ListBox 的变数 (VB6 中叫做 Collection)
但你的 VB 版本似乎不太一样，我不太确定有没有
不然就隐藏用个 ListBox 吧

用 Collection 就先把 Collection 设定 25 个项目字串分别 1~25
则用乱数取 25 中任一项，取到后把该项目删除，Collection 就会剩下 24 项
如此一来下回合就直接取 24 项目中任一项，完全不用去检查有没有重复～


以上方法换成变数也可以用一字串 "1/2/3/4/5.../25" ，用 Split 或 InStr 取乱数位置的字串
然后用 Mid 方法将取到的字串删除，接着直到取完为止
这方法应该是最快的，因为变数可以事先就载入好而且可以重复使用
问题是写出来比较麻烦
还是推荐你用第一种就 OK 了


至于乱数取数的公式是 Fix((上底 - 下底 + 1)*Rnd + 下底)
试试看吧～

下面是引用 傻妞佩 于 2010-08-09 17:52 发表的 vb sql资料库 取乱数:
在radiobuttonn上点选25题
用vb程式 在sql资料库取25笔不同的题目 且不重复
取到的题目会放置在file_num
那请问要如何写程式
用rnd()来写

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        cnn.Open()
        cmd = New SqlCommand("select * from dbo.subject_temp where sub_lable in", cnn)
        Form2.Show()
        Dim dr As SqlDataReader = cmd.ExecuteReader()
        dr.Read()
        cnn.Close()

        Randomize()
        If RadioButton1.Checked = True Then
            Do
                file_num = Int(Rnd() * file_num + 1)
                cmd = New SqlCommand("SELECT count(*) FROM dbo.subject_temp where sub_num='" & file_num  & "'", cnn))
                Dim kr As SqlDataReader = cmd.ExecuteReader()
                file_num = kr.Read()
                i = i + 1
            Loop While i < 26
        End If

[ 此文章被傻妞佩在2010-08-09 23:19重新编辑 ].......

是老师不让你用sql 语法 newid()
直接捞取乱数资料吗？
觉得你的资料
并没有大到影响语法捞资料的效率呀！

如果一定要用程式做苦工
我会用阵列方式
-----------------------------------------
1.得知题数并宣告阵列
2.进 loop 随机取乱数并比对阵列值
3.不重覆数值填入阵列直到填满阵列
4.上、下一笔的Button tag储存上、下阵列值
5.select 语法带出第一笔题目(tag)

在每按一次Button就依 tag select
并重新记录上、下一笔的Button tag