33问答网
所有问题
当前搜索:
vb随机函数10~100
VB编程
产生10个小于
100
(不含100)的
随机
正整数,并统计其中5的倍数所占比...
答:
Private Sub Command1_Click()Dim a(10)As Integer Randomize For i = 1 To 10 a(i)= Rnd
100
'''Rnd
函数
返回小于 1 但大于或等于 0 的值,所以这里小于100 Print a(i)If a(i)Mod 5 = 0 Then s = s + 1 Next i MsgBox "5的倍数所占比例为"& s 10 & "%",vbOKOnly End ...
用
VB
编写程序,
随机
生成
10
个10~99互不相同的整数,将它们按由小到大的...
答:
Private Sub Command1_Click()Cls Dim a(1 To
10
) As Integer For i = 1 To 10 Randomize a(i) = Int(Rnd * 90 + 10)For j = 1 To i - 1 If a(i) = a(j) Then i = i - 1 Exit For End If Next j Next i Print "产生的
随机
数为:"For i = 1 To UBound(a)Prin...
用
vb
编写*利用
随机函数
产生20个
10
~99之间(包括10和99)的随机整数存入一 ...
答:
'只须在窗体内忝加一个command即可 Private Sub Command1_Click()Cls Dim a(1 To 20), b(1 To 19)Randomize Print "
随机
生成的这组数是:"For i = 1 To 20 a(i) = Int(Rnd * 90) +
10
Print a(i);If i = 10 Then Print Next Print Print Print "这组数按从大到小的顺序排列...
vb中
的
随机函数
是哪个?
答:
Visual Basic中
随机函数
格式:Rnd(<数值表达式>)功能:求[0,1)之间的一个随机数 语法: Rnd[(number)]如果 number 的值是 Randomize 生成 小于 0 ,每次都使用 number 作为随机数种子得到的相同结果。大于 0 ,以上一个随机数为种子产生下一个随机数。等于 0 ,产生与最近生成的随机数相同的随机...
在
VB
窗体模块中:用
随机函数
产生10个不大于
100
的整数存入一维数组a中...
答:
Dim a(10) As Integer, i As Integer Print "
随机
生成数组:"For i = 1 To 10 a(i) = Int(Rnd *
100
)Print a(i);Next i Print 是这样吗?随机生成一个数组。
vb
利用
随机函数
产生三个指定区间的随机数字
答:
产生0~1之间的
随机
数:rnd()产生
100~
200之间的随机数:rnd()*100+100 产生5~9之间的随机数:rnd()*4+5 。。。以此类推
vb
程序,要产生[1,99]区间的
随机
整数,应该如何实现
答:
Private Sub Form_Click()Randomize For i =
10
To 99 n = Int(Rnd * i + 10)Next Print n End Sub 追问:int(n)不是返还整数吗?
随机
的会产生非整数吗?如果不加int直接Rnd * 90 + 10可以吗?还有,既然是For i = 10 To 99,为什么后面还要+10呢?回答:随机 当然会产生 非整数...
VB中
如何让取
随机
数
答:
在
VB中
,生成随机数的话主要是利用Rnd()这么一个内置的函数,VB很简单,你什么都不需要去引用就可以直接使用,具体用法如下:语法:Rnd(number)作用:产生一个[0,1)之间的一个随机数 使用:Rnd产生的随机数决定于Number的值 实例:使用 Rnd
函数随机
生成一个 1 到 6 的随机整数。Dim MyValue M...
VB
程序设计-利用
随机函数
产生80个
10~
99之间的随机整数
答:
Option Explicit Private Sub Command1_Click()Dim A(80) As Integer, B() As Integer, Nb As Integer Dim I As Integer, J As Integer, T As Integer '
随机
生成80个随机数 Text1.Text = ""Randomize For I = 1 To 80 A(I) = Int(90 * Rnd) +
10
Text1.Text = Text1.Text &...
在
VB中
有哪些算术
函数
答:
<数值表达式>)计算平方根。如:sqr(9)=3 6、Rnd(<数值表达式>)Int(Rnd*(b-a)+a ):在[a,b )区间内产生
随机
整数 Randomize[(x)]:每次运行时,要产生不同序列的随机数 如:产生1-
100
的随机数:Int(Rnd 100)+1 产生一个二位数:Int(Rnd*90)+10 产生1-30的随机数:Int(Rnd*30)+1 ...
<涓婁竴椤
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜