高分情人帮忙制作两个小程序

来源：百度知道 编辑：UC知道 时间：2024/05/27 02:07:02
第一个程序是一个算概率的。根据彩票游戏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就不算我得到的相同数，下一次求随机数还要考虑),每一次对比计数一次，最后程序要给出在多少次后，电脑才会得到与我给的完全匹配的数字。。。有任何不清楚的欢迎短信留言。

我要VB的frm文件。因为我想看您是到底怎么编的。。。不要生成好的EXE格式或其它格式文件。

另一个比较简单。电脑随机从1～100取10个数，在list里显示出来，并在后面紧接着说这十个数里哪些是偶数，哪些是奇数。

希望越快越好
我需要frm文件。。。不是代码。。。你可以上传到网上或者发给我。。。我要运行一下试试。。。在强调一边。是frm文件，不是代码。。。谢谢大家了。

只用做第一个，第二个我自己解决了！
ZHRX - 魔导师 十一级 您能不能把制作好的VB的frm文件发给我？我想试试
to wlm_jxj :省略掉就是下一次电脑求随机数不求着一个。完全匹配是要多少次以后，自己给的6个数才能和电脑取得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 = 0 To 5
If Text1(i).Enabled = True Then
Call tts
End If
Next i
t = t + 1
Label1.Caption = t '记录点击次数
End Sub

Private Sub tts()
For i = 0 To 5
If Text1(i).Text = "" Or Val(Text1(i).Text) < 1 Or Val(Text1(i).Text) > 49 Then
MsgBox "第" & Str(i + 1) & "个文本框数据有误！"
Exit Sub
End If
Next i
For i = 0 To 5
Randomize
a(i) = Int(49 * Rnd + 1)
If Text1(i).Enabled = True And a(i) = Val(Text1(i).Text) Then
Text1(i).Enabled = False
k = k + 1
End If
Next i
End Sub

肯定能解决问题：
Dim A(1 To 6) As Integer
Dim i As Long

Private Sub Command1_Click()
i = 1
A