Question

求高手编一下这个vb抽奖程序。

Answer 1

设置奖卷号码位数，比如6位
Private Sub Command1_Click()
If Len(Text1.Text) <> 6 Then MsgBox "奖卷号码错误！": Exit Sub
s = ""
For i = 0 To 5
s = Int((10) * Rnd)
DoEvents
ss = ss & s
Next
Text2.Text = ss
If Text2.Text = Text1.Text Then
Label1.Caption = "恭喜，你中奖了"
Else
Label1.Caption = "谢谢你的参与"
End If
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub

追问

command1他要求＂一钮两用＂

我编的这个程序不能实现＂一钮两用＂求高手帮忙指错。