VB中,有1-39个数字,任意随机选择其中某些数字(数量不限)然后两两组合,请问用VB该怎么写程序?

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/09 04:08:33
VB中,有1-39个数字,任意随机选择其中某些数字(数量不限)然后两两组合,请问用VB该怎么写程序?

VB中,有1-39个数字,任意随机选择其中某些数字(数量不限)然后两两组合,请问用VB该怎么写程序?
VB中,有1-39个数字,任意随机选择其中某些数字(数量不限)然后两两组合,请问用VB该怎么写程序?

VB中,有1-39个数字,任意随机选择其中某些数字(数量不限)然后两两组合,请问用VB该怎么写程序?
Private Sub Form_Load()
Dim i As Integer
Dim a() As Integer
Randomize
s = Int(10 * Rnd)
ReDim a(s)
For i = 0 To s '任意选择数量
p = Int(39 * Rnd)
a(i) = p
Text1.Text = Text1.Text & " " & p '随机数
Next i
Text1.Text = Trim(Text1.Text)
For d = 0 To s
For t = d + 1 To s
Text2.Text = Text2.Text & " " & a(d) & a(t)
Next t
Text2.Text = Text2.Text & vbCrLf
Next d
End Sub

VB中,有1-39个数字,任意随机选择其中某些数字(数量不限)然后两两组合,请问用VB该怎么写程序? vb中随机产生10个1—100之间的数,求出小于这十个平均数的数字个数. 3*3的方格里有1-8八个数字和一个空格,通过移动可以使其按时针排序.这种游戏的vb代码应怎么写移动数字排序 1.算法说明在3*3的9个方格中,空出中间的格,其余八个格上任意填入数字1到8(注 VB计算:随机产生20个1~100的正整数放入数组中,显示产生的数,并求出其最大值 如何用VB制作随机数程序用VB制作一个 0-9十个数中随机出8个不重复的数字,例如:01235689, 概率计算问题,详情如下一种数字游戏,8个备选数字,10 11 12 13 14 15 16 17,每局随机选其中的任意四个数字,一共安排10局,中奖号也是随机出的,但只要其中任意一局中了8个数字中的任何一个,便算 1- 12数字任意选择3个数字组合到底有多少种组合?任意选择5个数有多少种组合? 求教概率问题,11个数字选5个,随机从11个数字中选其中8个,这8个数覆盖全部5个的概率有多少?RT或者反过来说,先从11个数字中随机选5个.然后再从11个数字中选择3个数字,这3个数无一在之前5个中 1- 6 随机 数字 进行 3个数字 无规则拍列 随机列出1排 列入 2 3 5 ,1 2 6 ,1 3 6 等这类数字 下列 有随机任意一个数字 列入 1 /4/5等 进行猜测..如果摇出来的数字为235 自己随机选的数字为1.那表示 VB中如何设置随机数的随机率例如:有30个数1--30;要求从中随机抽取一个数字,抽到1--10的随机率为20%;11-20的随机率为35%;21-30的随机率为45%.代码如何写?为了公平起见,请将你的答案发送到124 从数字1 2 3 4 5中,随机抽取3个数字【不!允许重复】组成一个三位数,其各位数字之和等于9的概率是? 从数字1,2,3,4,5,中,随机抽取3个数字(允许重复)组成一个三位数,其各位数字之和等于9的概率为 从数字1~4中,随机抽取3个数字(允许重复)组成一个三位数,其各位数字之和等于9的概率为多少,快 VB.用随机函数产生100个【0,99】范围内的随机整数,统计个位上的数字为0,1,2..9的元素个数(使用数组 VB输任意1个不超过9位的正整数,求该整数的全部数字组成的同样位数最大正整数、最小数 结果放text中 怎样用VB做随机产生10个1-100以内的整型数,求出其的最大值,最小值,平均值 VB随机产生10个任意的两位正整数存放在一维数组中,求数组的最大值、平均值、能实现将数据升序排列,并且 从0到9的数字排列组合从0,1,2,3,4,5,6,7,8,9十个数字中任意选择5个数字相加(可以是重复数字,但是每个数字最多重复2次.)其等于的结果数字的尾数(即最后一个数字)是1或4或7(再则是3或6或0