第一个程序是一个算概率的。根据彩票游戏649而定。
程序具体要求就是49个数字里,自己选6个数字在6个输入框里输入。 电脑随机也取六个数.
之后拿电脑所得到的数和你的相比较。如果相同,下次一电脑再取随机数的时候就省略掉(这里注意,电脑和自己输入数相同的条件是位置也要一样:也就是说我输入:1,2,3,4,5,6 电脑输入12,13,14,15,16,6,这里6就是我和电脑得到的相同数,如果我输入1,2,3,4,5,6 电脑输入12,13,14,15,6,16,那6就不算我得到的相同数,

展开全部
收起
3回答
提交回答
  • 至过去的我

    2044人对此回答表示赞同

    我是未来的你,你现在是不是在年找寻小程序答案。你不要感觉诧异,给你来信原因,就是让你不在后悔。今天去学习如何推广小程序,相信......点击查看更多>
    发布于
  • 钱可为

    6人对此回答表示赞同

    省略掉是什么意思,是下次少抽一个数,还是下次不再抽这个数了,完全匹配是一次匹配所有,还是多次匹配?
    dim times as long
    Private Sub Command1_Click()
    Dim a(49) As Integer, b() As Integer
    Call getUnique(b(), 6)
    For i = 1 To 49
    a(i - 1) = i
    Next i
    Call MatchPerNum(a(
    展开
    6
    0回复
    发布于 5年前

    评论(0)

    收起评论

  • clock8

    6人对此回答表示赞同

    已经发到你的邮箱了。

    怎么发?发到那里?昨天就想发但没有邮箱或QQ没有部分发呀!

    Dim a(0 To 5) As Integer, t As Integer, k As Integer
    Private Sub Command1_Click()
    If k = 6 Then
    MsgBox "数据全部正确!"
    Command1.Enabled = False
    End If
    For i
    展开
    6
    0回复
    发布于 5年前

    评论(0)

    收起评论

  • Parker

    3人对此回答表示赞同

    想想
    展开
    3
    0回复
    发布于 5年前

    评论(0)

    收起评论

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
咨询热线

13312967497

扫码添加业务即可随时咨询 还可领取小程序推广攻略

业务咨询: 13312967497
扫码咨询

扫码咨询套餐

回到顶部