需要一个VB抽奖程序~
1.空格 键开始 ;回车 键结束
2.随机读取数据库中的人名,并滚动显示出来,按 回车键结束后,定格显示出的人名为中奖者.
3.人名不能重复.
如果可用,我会追加积分.
谢谢
参考答案:说几点编程建议给你就行了。
定义一个模块级的整数变量
1、首先获得数据中的人名个数。将这个数赋给变量
2、定义一个数组。数组上限数为人名数量,
3、用Randomize 来防止重复人名
4、下面的是按空格运行,回车停止
如果你的窗体上没有什么按钮和文本框等能得到焦点的控件就将下面的代码放在窗体的Form_KeyUp()过程中。否则就每个能得到焦点的控件中都要放。
If KeyCode = 13 Then'回车键
MsgBox "Stop"
ElseIf KeyCode = 32 Then'空格键
MsgBox "run"
End If