求VB程序

来源：百度知道 编辑：UC知道 时间：2024/05/08 21:18:52
求VB中，假设某种彩票由4位数组成， 发生10000张，号码从0000~9999，如果4位数相同，中奖1000元，3位数相同，中奖100元，2位数相同，中奖10元，计算奖励成本

奖励成本为：74100元
'添加窗体Form1,按钮Command1,然后添加如下代码:
Private Sub Command1_Click()
    Dim a, b, c, d, str1 As String
    Dim n As Long
    Dim i As Integer
    
    For i = 0 To 9999
        str1 = CStr(i)
        str1 = String(4 - Len(str1), "0") & str1 '不足补零
        a = Mid(str1, 1, 1)
        b = Mid(str1, 2, 1)
        c = Mid(str1, 3, 1)
        d = Mid(s