题目
怎么用vb随机生成1~10000的10000个数,在按1~1000 1001~2000 2001~3000 9001~10000分类?
怎么用vb随机生成1~10000的10000个数,在按1~1000 1001~2000 2001~3000.9001~10000分类?
这样写
Private Sub Command1_Click()
Cls
Dim a(100)
Dim n(10)
Dim s(10)
For i = 1 To 100
a(i) = Int(Rnd() * 100)
k = Int(a(i) / 10) + 1
n(k) = n(k) + 1
s(k) = s(k) + a(i)
Next
For i = 1 To 10
Print n(i),
Next
Print
For i = 1 To 10
Print s(i),
Next
Print
For i = 1 To 10
Print s(i) / n(k),
Next
Print
Print
For i = 1 To 100
Print a(i),
If i Mod 10 = 0 Then
Print
End If
Next
Print
Print k,s(k),n(k)
End Sub
我刚知道
怎么用vb随机生成1~10000的10000个数,在按1~1000 1001~2000 2001~3000.9001~10000分类?
这样写
Private Sub Command1_Click()
Cls
Dim a(100)
Dim n(10)
Dim s(10)
For i = 1 To 100
a(i) = Int(Rnd() * 100)
k = Int(a(i) / 10) + 1
n(k) = n(k) + 1
s(k) = s(k) + a(i)
Next
For i = 1 To 10
Print n(i),
Next
For i = 1 To 10
Print s(i),
Next
For i = 1 To 10
Print s(i) / n(k),
Next
For i = 1 To 100
Print a(i),
If i Mod 10 = 0 Then
End If
Next
Print k,s(k),n(k)
End Sub
我刚知道
提问时间:2020-10-04
答案
'在窗体上画两个列表框(ListBox),一个按钮(CommandButton)
'粘贴以下代码
'单击List1里的范围,在List2里列出该分类的所有数据
Dim Num(1 To 10000) As Integer
Private Sub Command1_Click()
List1.Clear
List2.Clear
On Error Resume Next
For i = 1 To 10000
Randomize
Num(i) = Int(10000 * Rnd)
Next
For i = 0 To 9
List1.AddItem i * 1000 + 1 & " & (i + 1) * 1000
Next
For i = 1 To 10000
If Num(i) >= 1 And Num(i) = List1.ListIndex * 1000 + 1 And Num(i)
'粘贴以下代码
'单击List1里的范围,在List2里列出该分类的所有数据
Dim Num(1 To 10000) As Integer
Private Sub Command1_Click()
List1.Clear
List2.Clear
On Error Resume Next
For i = 1 To 10000
Randomize
Num(i) = Int(10000 * Rnd)
Next
For i = 0 To 9
List1.AddItem i * 1000 + 1 & " & (i + 1) * 1000
Next
For i = 1 To 10000
If Num(i) >= 1 And Num(i) = List1.ListIndex * 1000 + 1 And Num(i)
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
- 1Global warming caused by human activities?a major concern for people all over the world.
- 2把一堆棋子分别装在四个盒子里,其中5分之1放入甲盒,3分之1放入乙盒,放入丙盒的棋子是甲乙两盒棋子总数的
- 3)12*42=504,21*24=504 2.)24*63=1512,42*36=1512 3.)36*84=3024,63*48=3024
- 4求下列函数的定义域①y=-1/x-2②y=√2x+1+(x+2)∧0③y=³√x-2+1/2x+3
- 5谁皱眉头,树摇头,花儿见他就鞠躬,云儿见它就逃走
- 6we can read in it 译中文
- 7春晓这首诗描写了哪四种事物
- 8某人站在平面镜前1.5米处,镜中的像离他本人_________米远.如果他向镜子前进0.5米,那么像到镜子的距离是__________,像的大小__________.
- 91/a+1/b=1/12,求a+b的最小值
- 10五年级脱式计算题~急~急~急~(要答案)
热门考点
- 1将相同质量的下列物质配制成0.5L的溶液,其中K离子浓度最大的是__ A.KCL B.硝酸钾 C.硫酸钾 D.碳酸钾
- 2设随机变量X~N(2,102),且P{0
- 314分之3/(7分之5-14分之3/4分之3)
- 4无水醋酸钠和三水醋酸钠的区别是什么 可以加5-20分
- 5(a²+b²)/5+ab/2=(ab)²/5+ab/10.这个式子有错误把?
- 6埋下伏笔是什么意思?
- 7育红小学四五年级共有学生660人,四年级学生的人数是五年级的1.2倍.这 两个年级各有多少人?
- 8像二分之一减三分之一 三分之一减四分之一 四分之一减五分之一 五分之一减六分之一有什么规律?要语言叙述
- 920+19-18-17+16+15-14+13+12+11-10-9简便计算
- 10英语 昨天真是无聊的一天怎么说