如何通过vb 产生1-33的随机数和1-16的随机数,在1个文本中显示出来,并且从小到大排列,求代码~

来源：学生作业帮助网编辑：六六作业网时间：2024/11/25 14:44:24

如何通过vb产生1-33的随机数和1-16的随机数,在1个文本中显示出来,并且从小到大排列,求代码~如何通过vb产生1-33的随机数和1-16的随机数,在1个文本中显示出来,并且从小到大排列,求代码~

如何通过vb 产生1-33的随机数和1-16的随机数,在1个文本中显示出来,并且从小到大排列,求代码~
如何通过vb 产生1-33的随机数和1-16的随机数,在1个文本中显示出来,并且从小到大排列,求代码~

如何通过vb 产生1-33的随机数和1-16的随机数,在1个文本中显示出来,并且从小到大排列,求代码~
如果是要随机产生双色球的话,参考如下代码：
Private Sub Command1_Click()
Dim a(6) As Integer
Dim b As Integer
For i = 1 To 6
a(i) = Int(Rnd() * (1 + (33 - 1))) + 1
For j = 1 To i - 1
If a(i) = a(j) Then
i = i - 1
End If
Next
Next
For i = 1 To 6
For j = i + 1 To 6
If a(i) < a(j) Then
T = a(i):a(i) = a(j):a(j) = T
End If
Next
Next
b = Int(Rnd() * (1 + (16 - 1))) + 1
Text1.Text = a(6) & " " & a(5) & " " & a(4) _
& " " & a(3) & " " & a(2) & " " & a(1) & " +" & b
End Sub

如何通过vb 产生1-33的随机数和1-16的随机数,在1个文本中显示出来,并且从小到大排列,求代码~ vb如何产生两个不同随机数随机产生两个【1,10】上的随机数,要求随机数不能相同如何使VB中Rnd函数产生的随机数是在[0,1]内? VB 产生1-400的随机数用int（Rnd） VB程序设计中如何产生随机数并分别求奇数和偶数的和 vb中如何产生范围无穷大的随机数 vb 如何产生一个 [-3,3]之间的随机数? 利用VB如何设计下面问题：利用随机数产生10个1~100之间的随机数,显示出最大值,最小值及平均值. VB:产生30个1-100之间的随机数,统计并输出其中奇数和偶数的个数 VB中如何在2-200中产生10个随机数,且如何计算其中素数的和?求代码 VB产生500以内的随机数 vb产生两个数之间的随机数闭区间我想知道怎么vb中可不可以产生两个数字之间的随机数,注意,是随机数字,包括小数,但不是只有整数,不是int(rnd*(b+a+1)+a)那个,比如产生1和2之间的随机数,或者5 vb中产生随机数的到底是哪个公式?我怎么两个都看到过?产生从a到b的随机数：int(rnd*(b-a+1))+a和int(rnd*(b-a+1)+a),到底是哪个? VB如何编程实现在区间[1,100]的100个随机数如何编写一个产生随机数的程序怎么编写一个产生随机数的程序输入 “1”的时候产生一位数的随机数输入“2”的时候产生两位数的随机数输入“3”的时候产生三位数的随机数感激不尽啊产生一个a到b之间的随机数,VB代码如何书写,保留一位小数, VC++中如何产生一个[-1,1]之间的随机数用Excel如何产生0或1的随机数?