66问答网
所有问题
当前搜索:
vb随机数
vb
编程完成10个
随机数
的降序 要求用数组先产生10个随机数,然后排序输 ...
答:
Private Sub RandomizeAndSort() Dim a(1 To 10) As Integer Dim i As Integer, j As Integer ' 生成 10 个整数类型的
随机数
Randomize For i = 1 To 10 a(i) = Int(Rnd * 90) + 10 Next '显示 Debug.Print "排序前" For i = 1 To 10 Debug...
在
VB
中,如何产生48~57、65~90、97~122之间的
随机数
答:
两个或多个区间各产生一个
随机数
放到数组里,最后以数组范围产生随机数,取这个随机数下标对应的数组元素
VB
中randomize怎么用
答:
VB
中randomize的用法是初始化
随机数
发生器。Randomize 语句示例:本示例用 Randomize 语句初始化随机数生成器。由于忽略了数值参数, 所以 Randomize 用Timer 函数的返回值作为新的随机数种子值。Dim MyValue,Randomize ' 对随机数生成器做初始化的动作,MyValue = Int(6 *Rnd+1) ' 生成 1 到 6 ...
用
VB
语言实现一个
随机数
相加的小程序
答:
rnd 函数 返回一个包含随机数值的 single。语法 rnd[(number)]可选的 number 参数是 single 或任何有效的数值表达式。返回值 如果 number 的值是 rnd 生成 小于 0 每次都使用 number 作为
随机数
种子得到的相同结果。大于 0 序列中的下一个随机数。等于 0 最近生成的数。省略 序列中的下一个随机数...
vb
产生10-20之间的5 个
随机数
答:
private command1_click()print rnd*11+10 end sub 也可以把这五个数赋值给数组:dim a(1 to 5) as single,i as integer private form_load()for i=1 to 5 a(i)=rnd*11+10 next end sub 数组可在其他模块中调用 如 输出:private command1_click()for i=1 to 5 print a(i);nex...
VB
中如何产生一个范围在1—7之间的
随机数
答:
Private Sub Command1_Click()MsgBox Int(7 Rnd + 1)End Sub 这个就是产生一个1-7的
随机
整数,如果你想避免每次程序运行的数都一样,可以在前面加上randomize ,如果不要整数就把int去掉就可以了
vb
利用随机函数产生10个1~100之间的
随机数
,显示出最大值最小值,平均...
答:
Private Sub Form_Click()Dim a(9) As Integer, max As Integer, min As Integer, arg As Single, i As IntegerRandomizeFor i = 0 To 9 a(i) = Int(Rnd * 100) + 1 arg = arg + a(i) If i = 0 Or a(i) > max Then max = a(i) If i = 0 Or a(i) ...
利用
VB
程序编写
随机数
生成一个6行6列的整形矩阵(100~900范围内)找出某...
答:
Private Sub Form_Load() '
随机
生成6*6方阵 Show Print Randomize For i = 1 To 6 For j = 1 To 6 a(i, j) = Int(Rnd * 800) + 100 Print a(i, j);Next Print Print Next End Sub Public Function hmax(n As Integer) '查找行极值函数 Max = a(n, 1): Min = a(n, 1...
vb
实验
随机数
中求奇偶数和素数并进行排序
答:
回答:一看到这些炒现饭的提问都做呕。
VB
:如何在20个
随机数
中找到最大值?(文字 讲下思路就好)
答:
思路:将20个
随机数
放入数组,用一个变量,从数组的第一个开始和这个变量相比较,如果这个数组中某元素值大于该变量,那么,让该变量=改元素值,比较到最后,该变量就能获得最大值 代码:dim a(1 to 20) as integer '声明一个有20个元素的数组 dim max as integer 'max用来放最大值的变量...
棣栭〉
<涓婁竴椤
5
6
7
8
10
11
12
9
13
14
涓嬩竴椤
灏鹃〉
其他人还搜