如何用vb创建一个彩票兑奖程序 急！！！！！！！！！

Question

窗体由一个命令按钮（标题为“查看结果”）两个标签（标题分别为“请输入一个七位数”和空）和一个文本框（内容为空）。兑奖规则为：如果号码完全相同则中一等奖：号码后六位相同则中二等奖，以此类推。彩票号码使用rnd函数产生，label2中的内容由每次产生的七位数决定。急！！！！！！！！！！！
程序运行结果如图

Answer 1

 

 Private Sub Command1_Click()
If IsNumeric(Text1) And Len(Text1) = 7 Then '判断输入的是否为7位数字
Randomize
a = Format(Int(Rnd * 9999999 + 1), "0000000") '生成开奖号码
Label1.Caption = "本期开奖号码为：" & a
For i = 1 To 7 '逐位判断是否相同，b为相同个数
If Mid(Text1, i, 1) = Mid(a, i, 1) Then
b = b + 1
End If
Next
If b = 7 Then
Label2.Caption = "恭喜你中得一等奖"
ElseIf b = 6 Then
Label2.Caption = "恭喜你中得二等奖"
ElseIf b = 5 Then
Label2.Caption = "恭喜你中得三等奖"
'以此类推判断是否中奖
Else
Label2.Caption = "很遗憾，差一点就中奖了"
End If
Else
MsgBox "请输入一个七位数字"
Exit Sub
End If
End Sub

Answer 2

gs to its age and its people，each 多少的脑细胞。　　你难过的时候不妨先把
William Lucas. She is Elizabet 很甜，还有四个角的让你无从下口咬开。煮