88问答网
所有问题
当前搜索:
vb产生n个随机数
VB
怎么在LIST里
随机产生
10个0-100的偶数
答:
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)这里,upperbound 是
随机数
范围的上限,而 lowerbound 则是随机数范围的下限。Rnd 函数返回小于 1 但大于或等于 0 的值。所以你的问题可以这样x=Int((50 - 0 + 1) * Rnd + 0) * 2 ...
vb
程序随机1到100
产生
二十
个随机数
,并从高到低排序
答:
Dim score(1 To 20) As Integer, i As Integer, j As Integer For i = 1 To 20 '用
随机
函数给数组score()赋100以内的值 score(i) = Int(Rnd * 100)Next i For i = 20 To 2 Step -1 '用冒泡排序法对已赋值的数组进行排序 For j = 1 To i - 1 If score(j) > sco...
vb
程序中 输出10个[10,99]范围内
随机
整数用“
生成
”按钮, 用“统计...
答:
添加两个控件名字分别为sc、tj的按钮。'定义一个窗体数组变量 dim a(10) as integer '
生成
是
个随机数
private sub sc_click()'下面这一句可以得到不同的随机数 randomize '不用这一句也可以,不影响效果 for i=1 to 10 a(i)=int(rnd*90+10)next i end sub '统计随机数奇偶数个数 private...
vb
的题目:
随机生成
100个10到1000之间的
随机数
,将它们之中的偶数
个
数统 ...
答:
n
))If Val(List1.List(n)) Mod 2 = 0 Then y = y + 1 Next n Print "偶数个数为:" & y & "奇数之和为:" & x End Sub Private Sub Form_Load()Command1.Caption = "
随机生成
100个10到1000之间的
随机数
"Command2.Caption = "统计偶数
个
数和奇数和"List1.Clear End Sub ...
vb
题目:
产生
20个20~40之间的两位
随机数
整数,统计不同数据出现的次数_百 ...
答:
Print a(i - 1) & "共有" & s + 1 & "个"s
vb
单击按钮
生成
10个300~600之间的
随机数
,计算这些数之中能被13整除的...
答:
首先,你的print是放到if a(i) mod 13=0 里面的,也就是整除13才显示a(i),你要显示全部的话,应该放到if外面、for里面 其次,题目要求10个数字是一行显示的,那你直接用print a(i)就是一行一
个数
,这也不符合要求,你可以定义一个str(string变量),然后不要print a(i),用str=str &" "...
vb编程
,用
随机
函数
产生
50个10~100之间的互不相同的整数存于一数组中...
答:
Private Sub Command1_Click()Dim x(90) As Integer '高效代码,
产生
无重复
随机数
For i = 10 To 100 x(i - 10) = i Next Randomize For i = 1 To 50 j = Int(Rnd * (91 - i)) + i t = x(i)x(i) = x(j)x(j) = t Next '排序 For i = 1 To 50 For j = 1 ...
用
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
求取10个1-100之间的
随机数
,并求平均值
答:
str As String = "", temp As Integer = 0, sum As Integer = 0 Dim a(10) As Integer For i = 1 To 10 a(i) = Int(Rnd() * 99 + 1) sum = sum + a(i) Next TextBox6.Text = "这10个数的平均值是" & sum / 10 ...
如何使
VB中
Rnd函数
产生
的
随机数
是在[0,1]内?
答:
VB
的Rnd函数,其作用就是
产生
(0,1)之间的
随机数
,还不是[0,1]。即:0 < Rnd < 1 根据上式,结合VB的Int()等函数,可以产生你所需要的任意范围内的随机数。例如1:根据 0 < Rnd < 1 那么就有:0 < Rnd 10 < 10 产生(0,10)之间的随机数,注意这是实数 例如2:0 <= Int(Rnd ...
棣栭〉
<涓婁竴椤
7
8
9
10
12
13
14
15
16
11
涓嬩竴椤
灏鹃〉
其他人还搜