[如何用VB生成随机数组并排序]晕！你这是要整个程序还是思路啊？ 我只能给你个思路！ 第一步：界面！ picturebox和三个command 第二步：程序！ 1，用随机函数生成数组（就是两个随机函数生成数组，赋予某一个变量）哦，这是二维...+阅读
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) * 100 + 1） '这里不对因为你使用了Option Base 1语句所以a（)数组的最小下标是1，你这里i并没有赋值i定义类型为integer所以默认值为0，所以会显示错误。
'根据你的题目要求要产生10个随机函数，那么应该要使用循环过程，正确的写法应该是：
Randomize '建议使用该函数使程序每次运行时保证随机数都不一样
for i=1 to 10
a(i) = Int(100*Rnd) + 1 '建议随机数这样子写
next
'2、----------------------------------------------------
'Text1.Text = ＂＂ '
'Text1.txet = a(i) 不明白你这两句是什么意思，如果是要在text1中显示所有随机数应该这么写。
text1.text=＂＂
for i=1 to 10
text1.text=text1.text & a(i) & ＂ ＂ '随机数之间用空格隔开
next
'3-----------------------------------------
For i = 1 To 9
For j = 1 To 9 - i
If a(j) > a(j + 1) Then
t = a(j)
a(j) = a(j + 1)
a(j) = t
end if
Next j
Next i
'上面3进行修改如下
For i = 1 To 9
For j = i+1 To 10
If a(i) > a(j ) Then
t = a(i)
a(i) = a(j )
a(j) = t
Next j
Next i
'4-------------------------
For i = 1 To 10
Text2.Text = ＂＂
Text2.Text = a(i)
End Sub
'上面4进行修改如下
Text2.Text = ＂＂
For i = 1 To 10
Text2.Text =text2.text & a(i) & ＂ ＂
next
End Sub'修改后代码如下：
Option Base 1
Dim i As Integer
Dim j As Integer
Dim a(10) As Integer
Private Sub Command1_Click()
Randomize
for i=1 to 10
a(i) = Int(100*Rnd) + 1
next
text1.text=＂＂
for i=1 to 10
text1.text=text1.text & a(i) & ＂ ＂
next
For i = 1 To 9
For j = i+1 To 10
If a(i) > a(j ) Then
t = a(i)
a(i) = a(j )
a(j) = t
end if
Next
Next
Text2.Text = ＂＂
For i = 1 To 10
Text2.Text =text2.text & a(i) & ＂ ＂
next
End Sub
以下为关联文档：
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） '随机产...
excel随机生成排序excel中数据排序有数据重排和序数计算（类似成绩统计中的名次）两类。 一、数据重排 1、一般排序 （单击Excel“数据”菜单下的“排序”命令） 例如将学生花名册按“姓名”的笔划排...
求两个数相差多少的实际问题教学反思学生在上学期已经学习了从总数里去掉一部分，求还剩多少的实际问题，本学期又学了求原有多少、求去掉多少的实际问题，在此基础上引导学生会求两数相差多少的实际问题.在数量关系...
已知一个数的几分之几是多少求这个数的分数除法应用题教学反思分数除法应用题历来是六年级内容的重点和难点，每学到这部分内容，学生往往出错，不知道该乘还是该除。今天我讲这部分内容，由分数乘法应用题入手，让学生直接把单位“1”变成要求的...
excel中如何精确查找一个数使用查找功能 Excel版本参考：2010 举例查找：5 1、CTRL+F，调出查找对话框 2、查找内容输入：5 3、点击选项-单元格匹配（打钩） 4、查找全部，查看查找到的位置 5、完成，查看效果...
在EXCEL中如何实现两数之和与另一个数据自动校对ALT+F11 ，选中 Sheet1(sheet1) ，把如下代码粘贴到空白处，关闭 VBA编辑窗口就OK 了 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range(＂A1＂) + Range(＂A2＂)...
求高手教我怎么对数组排序可以7a64e4b893e5b19e31333363396462自己写一个函数用来给数组排序。或者用MATLAB自带的 Matlab 用sort函数排序 二维数组2008-09-14 22:51在Matlab中排序某个向量（一维）时，可...
美国留学药学几个主要的专业方向难度排序大致是怎样的药学几个主要的专业方向难度排序大致是：Pharm。D。>药剂>药理>药化>制药。 1、制药学 制药学Pharmaceutics是一门为临床合理用药防治疾病提供基本理论的医学基础学科，它涉及药...
鼓掌有声猜三个数字是什么此时无声胜有声猜三个数字——答案：453。 默默无声 mò mò wú shēng 【解释】默默：幽寂，没有声音。不声不响，一句话也不说。没有名声，不为人所知 【出处】西汉·司马迁《史记...
