vb对excel排序,vb选择排序法的基本思路
1. vb选择排序法的基本思路
dimi,j,intminasinteger,nasintegerdimsngsq(),sngtassingle'输入原始数据
n=val(inputbox("请输入排序的个数n的值"))
redimsngsq(n)'重新定义数组
print"排序前"
fori=1ton
msgbox"请输入第"&str(i)&"个数:"
sngsq(i)=val(inputbox("请输入"))'将输入的数据转换为数值型
printsngsq(i);
next
print"排序后"
'排序
fori=1ton-1
intmin=i'对第i遍排序,初始假定第i个元素最小
forj=i+1ton'找出最小的元素序号
ifsngsq(j)<sngsq(intmin)thenintmin=j
nextj
'将找出的最小元素与第i个元素交换
sngt=sngsq(i)
sngsq(i)=sngsq(intmin)
sngsq(intmin)=sngt
nexti
'打印输出
fori=1ton
printsngsq(i);'不换行输出
nexti
2. vb中排序属性怎么设置
1、启动VB6.0,新建一个标准exe工程。
2、在窗体上绘制一个命令按钮,名称为Command1。
3、双击命令按钮进入代码窗口。
4、编写命令按钮的单击事件。定义一个一维数组A有10个元素(1-10),随机产生一批两位数的随机数,有序地装入A(i)中,输出A(i),排序完成时方便观察比较。
5、编写程序中核心的代码部分。
6、断行,输出。
7、按F5运行测试即可。
3. vb选择排序升序代码
分类汇总
分类汇总是对数据清单进行数据分析的一种方法。分类汇总对数据库中指定的字段进行分 类,然后统计同一类记录的有关信息。
统计的内容可以由用户指定,也可以统计同一类记录的 记录条数,还可以对某些数值段求和,求平均值,求极值等。
分类汇总的数据前提是数据得进行过排序 排序的关键字还必须有分类汇总字段的那个字段, 显示的是分类的类别各数组情况。
按升序,降序的方法
按用 户自定义的排序方法. 对数据清单排序 创建自定义排
4. vb排序题
七种常见的VB排序算法示例程序 :
cmbSorts.AddItem "冒泡排序法"
cmbSorts.AddItem "插入排序法"
cmbSorts.AddItem "Bucket排序法"
cmbSorts.AddItem "选择排序法"
cmbSorts.AddItem "Shell排序法"
cmbSorts.AddItem "快速排序法"
cmbSorts.AddItem "Heap排序法
5. vb选择排序法的基本思路是什么
1.先把第一个内容保存,再用removeitem 0 把它删掉 再用additem 把它加到最后2、先把内容保存到数组里,再用clear 方法清除list的所有选项 在用数组进行排序,再按循序加回去就可以了
6. vb选择排序法的基本思路有哪些
1、打开VB6.0,新建一个工程,在窗体中添加两个命令按钮,caption分别改为“升序排列”和“降序排列”。
2、将窗体Form1的caption属性改为“选择法数组排序”,将界面设置成下图。
3、在Load事件中写入如下代码。RandomizeFor i = 1 To 10a(i) = Int(Rnd * 101 + 100)Lbl1.Caption = Lbl1.Caption & a(i) & " "Next i。
4、在通用对话框对数组进行定义,使其成为窗体级变量:Dim a(1 To 10) As Integer。
5、双击“升序排列”命令按钮,进入代码编辑窗口,输入如下代码:For i = 1 To 9Min = a(i)For j = i + 1 To 10If a(j) < Min ThenMin = a(j)t = a(i): a(i) = a(j): a(j) = tEnd IfNext jNext iLbl2.Caption = ""For i = 1 To 10Lbl2.Caption = Lbl2.Caption & a(i) & " "Next i。
6、双击“降序排列”命令按钮,进入代码编辑窗口,输入如下代码:For i = 1 To 9Max = a(i)For j = i + 1 To 10If a(j) > Max ThenMax = a(j)t = a(i): a(i) = a(j): a(j) = tEnd IfNext jNext iLbl2.Caption = ""For i = 1 To 10Lbl2.Caption = Lbl2.Caption & a(i) & " "Next i。
7、关闭代码窗口,按下F5运行程序,产生10个随机数,标签中显示10个数。
8、单击“升序排列”命令按钮,标签一中的数组按升序排列在标签二中显示,如图。
9、单击“降序排列”命令按钮,标签一中的数组按降序排列在标签二中显示,如图。
7. vbs排序函数
1、首先通过快捷键Ctrl+Alt+Delete打开任务管理器,也可以将鼠标移动到任务栏上,右键选择启动任务管理器。
2、在任务管理器中的应用程序下是没有这个程序的,也就是说vbs是一个进程,要点击到进程查看选项。
3、然后在进程中找到wscript.exe这个进程,如果进程列表一直在变动的,可以点击一下上面的进程选项,让这些进程按顺序排列。
4、然后选中wscript.exe这个进程,在点击右下角的结束进程按钮。
5、然后确定结束进程,这样电脑桌面上的vbs整人代码窗口就被强制关闭了。
8. vb优先级排序
ImpVB运算符的优先级:由高到低的分别为: -(取负) ^(幂) *或/ \ Mod (四舍五入法) +或者- 字符的运算符:+或& 同级 关系的运算符:=、>、>=、、Is 同级 Like的运算符:Like 逻辑的运算符:由高至低 Not And Or Xor Eqv Imp
9. vba排序函数
Sub sdgs()
r = 1
For t = 65 To 90
Cells(r, 1) = Chr(t)
r = r + 1
Next
For y = 65 To 90
For e = 65 To 90
Cells(r, 1) = Chr(y) & Chr(e)
r = r + 1
Next
Next
For i = 65 To 90
For u = 65 To 90
For o = 65 To 90
Cells(r, 1) = Chr(i) & Chr(u) & Chr(o)
r = r + 1
Next
Next
Next
End Sub
从 AAA-ZZZ 下面这个就可以了。
Sub sdgs()
r = 1
For i = 65 To 90
For u = 65 To 90
For o = 65 To 90
Cells(r, 2) = Chr(i) & Chr(u) & Chr(o)
r = r + 1
Next
Next
Next
End Sub