66问答网
所有问题
当前搜索:
如何生成随机数vb
vb
怎样随机数
数组
答:
其中x可以省略 用rnd产生的数字是小数,必须另外设定格式,比如要0-99之间的随机整数,即 dim s as integer s=rnd()*100 就行了 如果需要多次,大量
产生随机数
(对随机数要求高一些)就在rnd()语句前面一行插入randomize(x)如果要对一个一维数组(比如上界为5)赋值:...dim shuzu(5)as integ...
vb随机生成
10个数并显示在一个文本框中, 并找出最大数,指出它的位置
答:
添加一个text1,输入以下代码,然后运行。单击窗体,十个
随机数
显示在text1中,弹出对话框,提示第几个为最大数,并将最大数选中。Private Sub form_Click()Dim a(1 To 10) As Integer, i As Integer Randomize For i = 1 To 10 a(i) = Int(Rnd * 90) + 10 Text1.Text = Text1....
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怎么产生随机数
? 指定随机数从text1至text2,点击按钮输出的3个随机...
答:
因为不知道你要的是整数还是小数我就先当整数做 private sub command1_click()dim a as integer dim b as integer dim r(1 to 3) as integer dim i as integer a=val(text1.text)b=val(text2.text)for i=1 to 3 randomize if a...
vb
中rnd是什么意思
答:
返回值 如果 number 的值是 Rnd 生成 小于 0 每次都使用 number 作为随机数种子得到的相同结果。大于 0 序列中的下一个随机数。等于 0 最近生成的数。省略 序列中的下一个随机数。Rnd 函数返回小于 1 但大于或等于 0 的值。number 的值决定了 Rnd
生成随机数
的方式。对最初给定的种子都会生成...
vb
里
怎样
编写0-9,
随机产生
其中的一个数。
答:
代码及注释如下:Private Sub Command1_Click()'点击命令按钮执行程序 Randomize'初始化
随机数
发生器 x = Round((Rnd() * 9), 0)'先利用随机数得到0-1区间的小数,然后乘以9,在对这个数进行四舍五入后,赋值给x Print x'窗体打印x End Sub ...
VB
Randomize 函数
怎么产生
一个
随机
的数
答:
Randomize '用当前时间初始化随机种子 X = Rnd 'X里就是
随机数
一个 Randomize 默认的SEED就是当前时间,一定要加SEED用 Randomize Timer 和上句作用相同。
vb
中
如何
取得
随机
3位数?
答:
rnd()函数返回大于等于0小于1的数,要得到3位数也就是数字在100-999之间,可以这样得到:int(rnd()*900 + 100)rnd()*900可以得到0-899的数,加上100就得到100-999之间的数了 公式:rnd()*(数字上限-数字下限+1) + 数字下限 另外在使用rnd前用randomize初始化
随机数
种子就可以避免每次输出相同...
用
VB
写代码
产生
10个100-200的
随机数
,保存在数组中,从小到大排序,输出...
答:
Private Sub Form_Click() Dim a%(9), i%, j%, t% Randomize For i = 0 To UBound(a) a(i) = Int(Rnd * 101) + 100 Next For i = 0 To UBound(a) - 1 For j = 0 To UBound(a) - i - 1 If a(j) > a(j + 1) Then t = a(j):...
VB
如何生成随机
的15位数
答:
Function RndStr() As String Dim temp As String '存储
随机数
的原字符 Dim temStr1 As String '临时存放字符串 Dim sum1 As Integer temp = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"Dim i As Integer For i = 0 To 15 '
生成
16位数 Randomize sum1 = Int(Rnd * 62...
棣栭〉
<涓婁竴椤
2
3
4
5
6
7
8
9
10
11
涓嬩竴椤
灏鹃〉
其他人还搜