22问答网
所有问题
当前搜索:
vb随机数生成方法代码
随机生成
100个
随机数
,并输出最大值的
VB代码
怎么编写?
答:
dim n as single dim a as single dim i as integer for i=1 to 100 n=rnd()if n>a then a=n next i print a 因为你没有要求,所以这里
产生
的是大于等于0而小于1的数。如果要求要产生从K到J之间的数字(k<j),把 n=rnd()换成 n=(j-k+1)*rnd()+k 如果要求是整数,则换成 ...
VB产生
10个[1,100]的
随机数
答:
假设标签Label1 文本框Text1 Text2 Text3 Text4 统计按钮Command1 窗体
代码
Option Explicit Private Sub Command1_Click()Dim Vs() As Long, Ls() As String, fo As Long, Vc As Long Dim Max As Long, Min As Long, e As Double,t as long ReDim Vs(Len(Label1))Ls = Split(Label...
VB
题目:
随机产生
1-33之间的6个
随机数
(保证6个数字不重复)按照从大到小...
答:
Private Sub Command1_Click()Dim num(6) As Integer Dim i As Integer, j As Integer Dim tmp As Integer Randomize '防止每次生出
随机数
一样 For i = 0 To 5 num(i) = Int(Rnd * 53) + 1 Next PrintNum "新
生成
的6个随机数为:", num()For i = 0 To 5 For j = 0 To 5...
VB编程
随机数VB
中
随机产生
一个 1 到 100的数的
代码
! 知道的说下!谢谢了...
答:
Int(Rnd * 100 + 1)
求
VB
生成
50个[-10,10]之间
随机数
的
代码
答:
控件2个,一个按钮,一个文本框(打开多行支持,竖直滚动条)Private Sub Command1_Click()For i = 1 To 50 a = 20 * Rnd()Text1.Text = Text1.Text + vbCrLf + Str(a - 10)Next End Sub 如图:
vb
如何
产生随机数
答:
Private m_Randed() As Long Private Max As Long '注:以上变量请勿改写,除非Rand还未调用或者清零 Function Rand() As Single Dim s As Single Randomize s = Int(Rnd * UBound(m_Randed))Rand = s For i = 1 To UBound(m_Randed)'思路:如果等于已经
产生
过的
随机数
则+1 If s = ...
用
vb
怎么
生成
3位
随机数
答:
randomize(不加这个的话,
生成
的
随机数
是固定排列的,即第一位是:500以后开启软件都是500,后面皆是)int((900*Rnd)+100)
请问
vb
中有没有
生成随机数
的函数?
答:
省略 序列中的下一个随机数。说明Rnd 函数返回小于 1 但大于或等于 0 的值。number 的值决定了 Rnd 生成随机数的
方式
。对最初给定的种子都会生成相同的数列,因为每一次调用 Rnd 函数都用数列中的前一个数作为下一个数的种子。在调用 Rnd 之前,先使用无参数的 Randomize 语句初始化
随机数生成
器,...
vb
生成
3位
随机数
答:
Dim a as byte,b as byte,c as byte '三个数 Dim OK as boolean Ok=false Do Randomize '初始化
随机数
种子 a=Int(rnd() * 10) '初始化三个随机数 Randomize b=Int(rnd() * 10)Randomize c=Int(rnd() * 10)If a =b or b=c or a=c then '如果有相同的 OK=False '结果...
vb
中
产生随机数
的到底是哪个公式
答:
1、
vb
中
产生
[a,b]区间的
随机数
的公式是:Int((b- a+ 1) * Rnd + a) 2、根据以上公式得出,根本无法以公式法
生成
(a,b](半开区间)范围内的随机数。 3、Rnd 函数返回小于 1 但大于或等于 0 的值。 4、int是取整函数。
棣栭〉
<涓婁竴椤
4
5
6
7
9
10
8
11
12
13
涓嬩竴椤
灏鹃〉
其他人还搜