另外对数组补充的实例
来源:互联网 发布:java项目中对并发 编辑:程序博客网 时间:2024/05/16 14:33
Private Type CJ '创建一个自定义数据类型
XueHao As Integer '类型包含:学号
ChengJi As Integer '类型包含:成绩
End Type
Private Sub Command1_Click()
Dim a(4) As CJ '定义数组a为自定义类型
Dim px As CJ, i%, j%, k% '排序用变量 '赋初值
For i = 0 To 4
a(i).XueHao = i + 1 '为数组a赋学号初值
a(i).ChengJi = Int(100) * Rnd '为数组a赋成绩初值(用随即成绩)
Next '以成绩为基础按从大到小的顺序排序
For i = 0 To 3
k = i
For j = i + 1 To 4
If a(k).ChengJi < a(j).ChengJi Then k = j
Next j
px = a(i): a(i) = a(k): a(k) = px
Next i
'将排序完成的数组a打印到窗体上.
For i = 0 To 4
Print a(i).XueHao; a(i).ChengJi
Next
End Sub
- 另外对数组补充的实例
- [转载]对C++中引用的补充说明(实例)
- 对C++中引用的补充说明(实例)
- 对《Ext2.0 form使用实例》的一点补充
- 对《Ext2.0 form使用实例》的一点补充
- 对MPlayer的补充
- 对web的补充
- 数组的另外一种写法
- 战30天C++入门极限-对C++中引用的补充说明(实例一)
- 挑战30天C++入门极限-对C++中引用的补充说明(实例三)
- 战30天C++入门极限-对C++中引用的补充说明(实例二)
- 对jxl使用的补充
- 对 说说MP3 的补充
- 对前面的一些补充
- 对compare函数的补充
- 对AutoEventWireup的一点补充
- 对Servlet容器的补充
- 对smallpt解释的补充
- 真·AjaxControlToolkit控件安装指南
- 精通COBOL--11.7.1 嵌套子程序的结构
- ASP.NET 2.0 里输出文本格式流
- 算术移位与逻辑移位有什么区别? 其他开发语言 / 汇编语言 - CSDN社区 community.csdn.net
- 我一生的恋人?
- 另外对数组补充的实例
- 精通COBOL--11.7.2 嵌套子程序的调用权限
- ASP.NET 跨页面传值总结
- 国内首款安全浏览器即将面世
- 正则表达式语法参考
- 精通COBOL--11.8 小结
- Eclipse自动生成注释
- 在线客服技术方案
- 阿里妈妈称日均覆盖人数破7000万