怎样用VB变一个中奖模拟机

Question

具体要求是这样的：
编写一个抽奖程序，规则如下：
1、首先人为设定一个七位的中奖号码。
2、通过随机函数，生成7位0--9的随机数。
3、如果生成的七位随机数均与设定号码相同，则为一等奖。连续六位相同，则为二等奖，以下递推，直到五等奖。懂VB的各位高手是这帮我解决一下这个问题，谢谢啦！！！

Answer 1

使用rnd函数生成随机数，msdn有例子的。

Answer 2

Option ExplicitPrivate Sub Command1_Click()
   Dim setvalue As String, rndvalue As String
   Dim flg As Boolean, i As Integer, m() As Integer
   ReDim m(1)
   setvalue = Text1
   rndvalue = Format(CLng(Rnd * 10000000), "0000000")
   For i = 1 To 7
       If Mid(setvalue, i, 1) = Mid(rndvalue, i, 1) Then
          If flg Then
             m(UBound(m)) = m(UBound(m)) + 1
          Else
            flg = True
            m(UBound(m)) = 1
          End If
       Else
          flg = False
          ReDim Preserve m(UBound(m) + 1)
       End If
   Next
   Text2 = rndvalue
   For i = 1 To UBound(m)
       If m(1) < m(i) Then m(1) = m(i)
   Next
   Select Case m(1)
      Case 7
         Text3 = 1
      Case 6
         Text3 = 2
      Case 5
         Text3 = 3
      Case 4
         Text3 = 4
      Case 3
         Text3 = 5
      Case Else
         Text3 = "NO"
   End Select
   
End SubPrivate Sub Form_Load()
  Text1 = 13554455
End Sub