教你怎么制作一个摇奖系统

答案：
VB爱好者：http://vb.zzzyk.com
新建工程--标准exe---在窗体上添加一个textbox文本框 控件 一个Commandbutton按钮控件
把文本框text1的属性里的text里的内容删除掉
在Command1按钮双击进入代码编辑器
添加如下代码
Private Sub Command1_Click()

Dim intranum As Integer, i As Integer, j As Integer, A As Integer '声明变量

   Randomize

   For i = 1 To 49 '这个是控制这个摇奖的最高数是1-49，下同

     intranum = Int(49 * Rnd) + 1 '这个随机数

     A = 0

     For j = 1 To 49

         A = A + 1

     Next j

     Text1.Text = CStr(intranum)

     Text1.Refresh

   Next i

   Text1.Text = CStr(intranum)

End Sub
这样编译出来就是了 我是刚刚学的。不会。前辈多指教

上一个：利用VB手把手教你制作简易mp3播放器
下一个：利用form2控制form1的文本框