[如何用VB生成随机数组并排序]晕！你这是要整个程序还是思路啊？ 我只能给你个思路！ 第一步：界面！ picturebox和三个command 第二步：程序！ 1，用随机函数生成数组（就是两个随机函数生成数组，赋予某一个变量）哦，这是二维...+阅读

Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer

a = (Rnd * 80) + 10

b = (Rnd * 80) + 10

c = (Rnd * 80) + 10

If a > b Then t = a: a = b: b = t

If a > c Then t = a: a = c: c = t

If b > c Then t = b: b = c: c = t

Cls

Print a, b, c

Text1.Text = a

Text2.Text = b

Text3.Text = c

End Sub

可以？

小班数学：谁大谁小

幼儿小班数学活动案例 磐石市红旗岭小幼儿园 高英 活动内容：谁大谁小（比较大小）活动班级：幼儿小班活动科目 ： 数学活动目标：

1、幼儿学会比较物体的大小和一样大，并能用“大”或“小”来表述。

2、能简单的给物体的大小进行分类。

3、有兴趣参加数学活动。活动重难点：幼儿学会比较物体的大小，能用“大”或“小”来表述。活动准备：

1、各种大小不同的玩具。

2、大苹果树、大苹果卡片；小苹果树、小苹果卡片。熊爸爸、小熊大卡片个一张。

3、大筐和小筐各一个。 活动过程

一、教师创设情境，引起兴趣。 小朋友们，今天小熊一家请我们去做客，你们高兴吗？我们出发吧。（拍手进教室）你们看，小熊和爸爸在欢迎我们呢。那我们跟他们跟他们打个招呼吧！宝宝们，小熊和爸爸比谁的个子大呀？（熊爸爸的个子大，熊宝宝的个子小）请伸出你们的小手，我伸出大手，和熊宝宝一家玩一个拍手的游戏吧。

二、幼儿操作活动，比较观察各种物体的大小不同。

1、小朋友，熊宝宝给小朋友准备了很多大小不同的玩具小朋们每人拿两个同一种的玩具，玩一玩、比一比你的两个玩哪个大、哪个小？（教师指导什么样的才是同一种的）

2、幼儿去操作区玩玩具，教师适当指导幼儿。（幼儿可以拿2个气球比较大小，还有两辆汽车、两个球等。）

3、教师讲解比较大小：教师出示2个大小不同的球，让幼儿较哪个大，哪个小。

4、教师小结：小朋友要想知道哪个东西大，哪个东西小，要把它们放在一起比一比才知道。

三、引导幼儿比较一样大。

1、小朋友们表现得真棒，那我们鼓励自己一下吧（幼儿拍拍手）。咦，小朋友们，请把你们的小手合在一起，你们发现了什么呢？引导幼儿说出两只手是一样大的。

2、除了我们的小手是一样大的，在我们的身体还有哪些部分一样大的呢？引导幼儿说出小脚、鞋子、袜子、眼睛等是一样大的。 小结：聪明的宝宝们，找到了许多大小不一样的东西，还发现我们身上大小相同的东西，你们可真棒呀！

四、分类游戏“摘苹果”。

1、小熊家的果园大丰收，它请我们去帮忙摘果子。宝宝们看这有什么呀？（两棵苹果树）它们一样大吗？哪棵大？哪棵小？

2、这两棵苹果树都结了什么样的苹果？（大苹果树上接的苹果大，小苹果树上结的是小苹果）

3、小熊为小朋友准备了两个筐，是什么样的？

（一个大筐，一小筐）小朋友们说一说，这些苹果应该放在哪个筐里呢？（大放在大筐里，小苹果放在小筐里。）

4、幼儿开始玩摘苹果游戏，教师注意引导幼儿按大小分类。 小结：小朋友表现得真棒，小熊一家非常感谢我们，把苹果给我们，我们应该对他们说什么呢？（谢谢）。 活动结束：宝宝们在小熊家玩得开心吗？让我们和熊宝宝一说再见吧。教师领幼儿一边做动作，一边走出活动室。 活动反思：以上是我设计的一次小班数学主体活动，为收到良好的教育教学效果，我花了几天时间准备了充分的教具。但在实际教学工作中，并没有完成更好，因为我平时设计的教具没有这次的新颖，颜色也不艳丽，孩子们都习惯了，而今天我的教具让每个孩子都兴奋不已，特别是一进活动室，看到熊爸爸和熊宝宝时，孩子们的眼神吸引过去了，我要和孩子一起做拍手游戏时，以至于孩子们的眼睛还是看着熊父子俩。在分类游戏这一环节，幼儿的兴趣十分高涨，还没等我说开始，孩子们就动手摘了，看来我的养成教育还没有做到位，杨坤小朋友为了快点把苹果放到筐里还推了身边的小朋友。大部分小朋友能分辨大和小，但在用语言描述时，王靖涵的声音很小，也没有说清楚，其它孩子语言很清晰，能说明哪个大，哪个小。总之这节活动课教学目标基本完成了。

小班数学活动中三个物体比高矮应该怎么表报

做一个excel表格

生活中大部分幼儿对“大小”已经有了初步的认识，而本节课的教学目标就是让幼儿分辨高和矮的区别，和‘大小”也有相似之处，因而有了先前的基础，并且涉及的知识面不是太广，再次实施起来就有些经验了。可万万让人出乎意料的是幼儿所表露出来的现象却是比较笼统、模糊的。

首先邀请小明一家人来我们班做客，通过幼儿观察辨别这几位家庭成员，家中有几口人员。这边还涉及到个小数问题，有少数幼儿还未完全掌握数数的基本要领，从左往右的规律。拿到手就点继而还很得意的告诉老师：“老师他们家有3个人.” 反复强调的问题还是有幼儿未领悟，所以说数学不能只是体现在课堂上，更在乎于平时点滴教育，在实际操作中慢慢消化。第二部分就是本节课的重点之处：比高矮。这一家人中个子都一样高吗？话音还未落，小朋友们就兴致勃勃的帮你找出不同之处，并能准确具体的说出谁大谁小（幼儿严重的高矮都用大小来代替）不能灵活的融会贯通，他们的潜意识还一直储存在以前，将“大小”略微装饰下，就立刻分辨不来了。看似一节较平凡简单的教学目标，实施起来确实困难匆匆，别忘了他们还只是孩子，凡事都要求讲究效率而不是速度，特别是小班得注重测率。针对幼儿的情况，细致分辨了大小和高矮的不同之处，引导他们说“高的，矮的，最矮的”动手操作，感受高矮，并且边送还要鼓励幼儿大胆的说：“**，我送你回家.”

以下为关联文档：

vb求随机产生两个数组并按有小到大的顺序排序然后将它们合并到第dim a(1 to 100) as integer dim b(1 to 100) as integer dim c(1 to 200) as integer for i=1 to 10 a(i)=int(rnd()*90+10） '随机产生a数组 b(i)=int(rnd()*90+10） '随机产...

vb对随机产生10个数进行排序Option Base 1 Dim i As Integer Dim j As Integer Dim a(10) As Integer Private Sub Command1_Click() '1、----------------------------------- 'a(i) = Int(Rnd(1) * 1...

VB中随机产生10个数用直接法对10个数进行降序排序Private Sub main() Dim i, j As Integer Dim min, temp As Integer Randomize For i = 1 To 10 a(i) = 1 + Rnd * 10 print a(i); Next print For i = 1 To 9 min = a(i) F...

VB程序设计：随机产生10个数用两种方法排序1、选择排序发（从小到大） Private Sub Command1_Click() Dim a(10) As Integer For i = 1 To 10 Randomize a(i) = Int(Rnd * 90) + 10 Next i For i = 1 To 9 For j = i + 1...

在 NET中用VB编写随机产生10个数进行排序的代码是什么Randomize() Dim aa(10) As Integer Dim i As Integer Dim j As Integer For i = 0 To 10 aa(i) = Int(100 * Rnd()) Next Dim t As Integer For i = 0 To 10 For j = i To...

任意10个数按所给组合排序1.2.3.4.5.6.7.8.9.10 A B E F G H B D E F G J C E F G I J A B C E F I D E F H I J A C D E G J A C D E H I B C D E H J A C D F G H A B D F G I 01 02 03 04 05 06 0...

如何用Arm汇编语言实现几个数的排序ORG 09B0H QUE: MOV R3,#50H QUE1: MOV A,R3 MOV R0,A MOV R7,#0AH CLR 00H MOV A,R0 Q12: INC R0 MOV R2,A CLR C MOV 22H,R0 CJNE A,22H,Q13 SETB C Q13: MOV A,R2 JC Q11...

冒泡算法升序排序数组中随机生成的10个数public class MaoPiao { /** * 冒泡算法，升序排序数组中随机生成的10个数 */ public static void main(String[] args) { Random rd = new Random(); int a[] = new int[10];...

vb快速排序算法不明白原理求教悬赏100dim i as long,j as long,aa()as string,t as string '假设数据存放在一个未知长度的数组aa里面 for i=0 to ubound(aa) for j=0 to ubound(aa)-i if aa(j)>aa(j+1) then t=...