1楼：
dim ti() as string '题号
private sub randomizekgt(kzs as integer, kth as integer)
'随机抽题 kzs 总题,kth抽几条,ti抽的题号
randomize
redim ti(kth)
for x = 1 to kth
ti(x) = int(kzs * rnd + 1) '抽指定数kth
next
restrad:
for y = 1 to (kth - 1)
x = y
do while x < kth
x = x + 1
if ti(y) = ti(x) then
randomize
ti(x) = int(kzs * rnd + 1)
goto restrad '号码重复,重新抽题
end if
loop
next
end sub
vb如何做一个选择题的考试系统？
2楼：匿名用户
软件数据库有87个试题，系统随机选取20个试题，在答题界面，点击option1控件就可以实现答题操作，答题20个以后，【交卷】按钮有效，点击【交卷】，可以判断正确和错误试题，并将错题答案和正确答案继续对比。
如果需要源文件，提供发送地址。
3楼：匿名用户
你好朋友，可以把源文件给我发一份吗？谢谢，294862@**.***
4楼：匿名用户
朋友，给我一份吧，提前谢谢了895716850@**.***
5楼：我在偷偷笑
**能发我么?急用1851056069@**.***
大家好 问一下大家 用vb做一个只有选择题的考试系统难不难啊？需要看哪些书跟安装哪个软件？谢谢啊。。。 5
6楼：匿名用户
★ 单说你说的那个考试系统，那是在编程里面算是非常简单的。但是，在你一点编程知识都没有的情况下，就不是说“难”了，应该直接说“不会”才对。
★ 你想学会做个简单的（如只有选择题等）考试系统，在你没有基础的情况下，必须买一本权威点的《vb6.0从初级到精通》一步步研究研究才行，同时在你的电脑中必须配套安装一个“vb6.0企业版”软件。
★ 这样的建议是考虑你能够尽快入门并能尽快做出一个你上述的考试系统。
7楼：匿名用户
同意楼上那个yangyingjun999的说法，对你来说只能那样了，先就那样吧。
8楼：匿名用户
public声明
其它好像也和单窗体工程没区别
想用vb做个单机考试系统，只有选择题 10
9楼：匿名用户
学习vb，最好先打好基础：（1）了解vb的操作过程，如控件如何使用，**如何输入，如何生成或保存工程文件等问题；（2）了解相关的函数。基础就是如此，不懂的可输入相关词汇上网查找，现在网上大部分可满足你需要！
10楼：匿名用户
上次我提供了 一个源** 也说是给部队的朋友用
11楼：匿名用户
主要掌握数据库编程知识。
要做成b/s还是c/s模式也要考虑。
vb考试系统你做好的能发一份给我吗？
12楼：
是题目吗，你又没写邮箱，咋发啊，是一个程序题，还是一套啊