22问答网
所有问题
当前搜索:
vb语言随机产生随机数
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
写代码
产生
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随机产生
10个数字并把这些数字累加
答:
代码如下
产生
10个
随机数字
a 累加值b Private Sub Command1_Click()Dim i As Integer, a As Integer, b As IntegerFor i = 1 To 10 a = Int(Rnd * 100) Print a b = b + aNext iPrint bEnd Sub
vb编程
,
产生随机数
答:
可以的,先设定TEXTBOx的属性值,确定范围,
随机数产生
用 Rnd函数。比如:Int(Rnd*整数n) ;产生0,1,2,3,。。。,n-1中的随机数。Rnd产生的是0~1的随机数。、例如:int(Rnd*(n-m+1)+m);产生的是在区间【m,n】内的数。
VB
中
随机
函数的用法
答:
1 但大于或等于 0 的值。2)Int 函数,返回参数的整数部分。语法:Int(number)Int 会删除 number 的小数部份而返回剩下的整数。3)Rnd 函数示例:本示例使用 Rnd 函数
随机生成一个
1 到 6 的随机整数。Dim MyValueMyValue = Int((6 * Rnd) + 1) ' 生成 1 到 6 之间的
随机数
值。
vb随机产生
10个
随机数
,在1-9
答:
参考代码:Dim a(9) As Integer Randomize For i = 0 To 9 a(i) = CInt(Rnd() * 10) Next i End Sub
vb产生随机数
,然后数组排列,然后平均数。
答:
Option Explicit Private Sub Command1_Click()Dim i As Integer, j As Integer '定义循环变量 Dim rndNum(9) '定义数组 Dim avg As Single Dim sum As Integer Dim temp Randomize '初始化
随机数
发生器 For i = 0 To 9 rndNum(i) = Int(Rnd * 90 + 10) '
产生
10个10--99之间的随机...
如何用
VB产生随机数
呢?
答:
randomize '以系统时间作为随机种子 (如果没有上面那句的话每次运行程序
生成
的
随机数
都是一样的。加了上面那一句则不会)1<=rnd<0 是一个不等式 要生成多少到多少的随机数要用上面的不等式换算得出 比如要算 10 到20 的 则不能是Int(rnd*20+10)而是根据上面的不等式求出 正解因为Int(11*...
VB
产生
【10.100】之间的
随机
整数,每行10个
答:
Private Sub Form_Click()Dim i, n Cls For i = 1 To 100 '
产生
100个10-100的
随机数
Randomize Print Int(Rnd * 91) + 10;n = n + 1 If n Mod 10 = 0 Then Print Next End Sub
VB编程
,
随机产生
20个不重复的A~Z之间的英文字母,按字母顺序输出,每行...
答:
Private Sub Form_Load()Dim a(1 To 20)Randomize Timer For i = 1 To 20 a(i) = Int(Rnd() * 26 + 1)'
产生
20个1-26的
随机数
Next For i = 1 To 20'冒泡排序 For j = i To 20 If a(j) < a(i) Then b = a(i)a(i) = a(j)a(j) = b End If Next j Next ...
棣栭〉
<涓婁竴椤
3
4
5
6
8
7
9
10
11
12
涓嬩竴椤
灏鹃〉
其他人还搜