22问答网
所有问题
当前搜索:
vb语言随机产生随机数
用
VB
编写一个程序:
随机产生
10个递增的100~400的
随机数
,存放到数组中...
答:
private sub FORM1_LOAD()dim a(1 to 10) as Integer,I AS INTEGER FOR I=1 TO 10 A(I)=RAND*300+100 NEXT 对数组排序,课本上有的,抄过来就可以,我就不往上敲了 END SUB 如果不行就是你窗体的属性设置不对,具体我忘那个属性了,你做一个按钮,把时间改为单击按钮事件 ...
在
VB
中,
随机产生
10个两位数保存在数组中
答:
Dim a(1 To 10)Private Sub Command1_Click()Randomize Picture1.Print "
产生
的
随机数
为:"For i = 1 To 10 a(i) = Int(Rnd * 99 + 1)Picture1.Print a(i);Next i Picture1.Print End Sub Private Sub Command2_Click()Dim max, min, pv, count max = a(1)min = a(1)pv ...
vb
中
产生随机数
的到底是哪个公式
答:
1、
vb
中
产生
[a,b]区间的
随机数
的公式是:Int((b- a+ 1) * Rnd + a) 2、根据以上公式得出,根本无法以公式法
生成
(a,b](半开区间)范围内的随机数。 3、Rnd 函数返回小于 1 但大于或等于 0 的值。 4、int是取整函数。
vb
数组
产生随机数
答:
VB
可使用Randomize 语句和Rnd 函数输出随机数列到数组。1)Rnd 函数,返回一个包含随机数值的 Single。语法:Rnd[(number)]可选的 number 参数是 Single 或任何有效的数值表达式。2)Randomize 语句,初始化
随机数生成
器。语法:Randomize [number]可选的 number 参数是 Variant 或任何有效的数值表达式。3...
VB编程
:利用随机函数
产生
10-20范围内的5个
随机数
,显示其中的最大值...
答:
考试时把不要的注释去掉 Private Sub Form_Click()Dim i, num(1 To 5) As Integer, smax As Integer, smin As Integer, savg As Single savg = 0 Print "10-20范围内的5个
随机数
如下:"For i = 1 To 5 num(i) = 10 + Int(11 * Rnd) '
产生
[10,20]区间的5个随机数 If i ...
vb产生
10个不同
随机数
答:
用数组来保存
产生
的
随机数
,每产生一个随机数就跟已经产生的随机数进行比较,如果跟已经产生的随机数中的一个相同的话就重新产生一个随机数,直到跟已经产生的所有随机数都不相同为止。Private Sub Command1_Click()Dim a(1 To 10) As Integer Dim i As Integer Dim j As Integer Me.Cls Randomiz...
在
VB
中,如何
生成
某个范围内的
随机
整数?
答:
为了
生成
某个范围内的
随机
整数,可使用以下公式:Int((上界 - 下界 + 1)Rnd + 下界)公式中的上界就是你所要生成这个随机范围的最大值,下界就是你所要生成这个随机范围的最小值。
VB
程序设计中如何
产生随机数
并分别求奇数和偶数的和
答:
Private Sub Command1_Click()Randomize Timer For i = 1 To 100 x = Int(Rnd() * 90 + 10)If x Mod 2 = 0 Then m = m + x Else n = n + x End If Next Print "偶数和:"; Str(m)Print "奇数和:"; Str(n)End Sub
随机产生
100个两位数,并分别求出奇数、偶数和 ...
VB
编写
产生随机
整数的函数,产生30个1~100之间的
随机数
答:
int(100*rnd()),循环 30 次即可。
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...
棣栭〉
<涓婁竴椤
2
3
4
5
6
7
8
9
10
11
涓嬩竴椤
灏鹃〉
其他人还搜