用VB编写抽奖程序

:将一个字符形变量转化为一个数值型变量。(6)Format:格式化一个表达式。以下是程序的完整代码:DimsyAsInteger′mand1_Click()′清除Label3控件数组的内容Fori=0To6Label3(i).Caption=″″NextTimer1.Enabled=True′mand1.Enabled=False′使开始按钮失效sy=-1′索引值初始化为-1EndSub′mand2_Click()UnloadMe′卸载本窗体EndSub′定时器1的定时事件PrivateSubTimer1_Timer()Dimsj1,sj2,ysAsIntegerRandomize′初始化随机数sj1=Int(Rnd*32)+1sj2=Int(Rnd*50)Label1.Caption=sj1′设置标签1的内容ys=Int(Rnd*6)+9Label1.ForeColor=QBColor(ys)Ifsj2=24Then′如果sj2等于24sy=sy+1′索引值加1Fora=oTosyIfsj1=Val(Label3(a).Caption)Thensy=sy-1ExitSubEndIfNextLabel3(sy).Caption=Format(sj1,″00″)Label3(sy).ForeColor=QBColor(ys)EndIfIfsy=6Then′如果索引值等于6Timer1.Enabled=False′mand1.Enabled=True′使命令按钮有效(即可重新开始抽奖)EndIfEndSub单击工具栏上的“启动”按钮,启动抽奖程序。单击“开始”按钮,Label1控件将用五彩缤纷的颜色快速显示1~32之间的数字,并在Label3控件数组中产生一组7个数字的中奖号码。再次单击“开始”按钮,程序将自动清除Label3控件数组中的内容,并重新产生一组7个数字的中奖号码.