如何通过vb 产生1-33的随机数和1-16的随机数,在1个文本中显示出来,并且从小到大排列,求代码~
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/21 16:35:39
如何通过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 Su
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 Su
如何通过vb 产生1-33的随机数和1-16的随机数,在1个文本中显示出来,并且从小到大排列,求代码~
VB中如何在2-200中产生10个随机数,且如何计算其中素数的和?求代码
利用VB如何设计下面问题:利用随机数产生10个1~100之间的随机数,显示出最大值,最小值及平均值.
用VB在1-100中产生10个随机整数,按从小到大的顺序排列 如题..求代码
如何使VB中Rnd函数产生的随机数是在[0,1]内?
VB 显示3个(1-100)的随机数和这三个数的最大值
急求vb代码 单击“开始”按钮后每隔0.01秒产生2个随机数10-99之间的随机数
VB程序设计中如何产生随机数并分别求奇数和偶数的和
vb中将6个随机数按从小到大的顺序排列,代码是什么?
VB如何编程实现在区间[1,100]的100个随机数
java程序中如何产生随机数(一个按钮产生一个1~100的随机数) 求程序~
在EXCEL中,根据平均数产生6个随机数,要求产生的随机数跟平均值不超过1